Can't get into programming the shnth

home of post-70s electronics

Moderators: Kent, bartlebooth

Post Reply
User avatar
Clemdu
Common Wiggler
Posts: 64
Joined: Wed Nov 13, 2013 8:57 am

Re: Can't get into programming the shnth

Post by Clemdu » Tue Sep 15, 2020 10:10 am

Hello!
(and sorry, I didn't get a notification and didn't think about checking this thread earlier... :oops: )
I ended up playing with a patch and somewhat figuring the lights. Something I initially didn't get is that you can actually have several (lights) opcode operating at the same time in a patch. They don't need to be separate iterations ( (lightsa), (lightsb), (lightsc) etc.), unlike most of the other opcodes.
And I checked the lights values with trial and error, but eclectics is breaking this down quite nicely above :tu:

Anyways, here is the patch I came up with, a little 4 voices synth:
-Majors play the tones (MajorA is latched)
-Bars play the filter cutoff on each corresponding voice
-MinorA and MinorB cycle through different tunings
-MinorD select 2 different decay settings, long and short
-MinorC is a pitch bend, successively up and down

Now for the lights part, each bar has its left light indicating when you play a tone, and its right bar indicating when you play the filter cutoff

Code: Select all

{;Speaking tones
 
 ;Srate and togos for root tuning
 (srate (short (togo) (togob))) 
 (togo (minorb) (minor) 67 50 39 35 29) 
 (togob (minorb) (minorc) 24 43 122 76 119) 
 
 ;4 voices, played with majors (major A is a toggle for some drone action)
 (right (left (wave (saw (add 32 (togod)) 32) 10 (bar 15 30) (slew (toggle (major)) 120 (togoc) 40)) 
 (string (major) 1 60 100 10) 
 (salt (smoke 10) 7 (swoop (major) 50 120 40) (swoop (major) 50 120 5)) 
 
 (waveb (sawb (add 48 (togod)) 32) 10 (barb 15 35) (slewb (majorb) 120 (togoc) 40)) 
 (stringb (majorb) 1 60 100 10) 
 (saltb (smokeb 10) 7 (swoopb (majorb) 50 120 40) (swoopb (majorb) 50 120 5)) 
 
 (wavec (sawc (add 57 (togod)) 32) 10 (barc 15 40) (slewc (majorc) 120 (togoc) 40)) 
 (stringc (majorc) 1 60 100 10) 
 (saltc (smokec 10) 7 (swoopc (majorc) 50 120 40) (swoopc (majorc) 50 120 5)) 
 
 (waved (sawd (add 64 (togod)) 32) 10 (bard 15 45) (slewd (majord) 120 (togoc) 40)) 
 (stringd (majord) 1 60 100 10) 
 (saltd (smoked 10) 7 (swoopd (majord) 50 120 40) (swoopd (majord) 50 120 5)))) 
 ;Togo for decay
 (togoc (minord) 1 2 30) 
 ;Slewed minors for pitch bending
 (togod (minorc) 1 (mul (slewe (minorc) 1 7) -80) (mul (slewf (minorc) 7 20) 80)) 
 
 ;Lights!!
 (lights (add (square (slew (major) 120 3 30) 0 1) 
 (square (bar) 7 2) 
 (square (slewb (majorb) 120 3 30) 0 4) 
 (square (barb) 7 8) 
 (square (slewc (majorc) 120 3 30) 0 16) 
 (square (barc) 7 32) 
 (square (slewd (majord) 120 3 30) 0 64) 
 (square (bard) 7 128)))} 
 
 

User avatar
d42kn355
Learning to Wiggle
Posts: 15
Joined: Wed Jan 15, 2020 5:43 pm
Location: Wisconsin
Contact:

Re: Can't get into programming the shnth

Post by d42kn355 » Tue Sep 15, 2020 10:47 am

oh man, that is genuinely fun!! :D
Thanks for sharing ^_^

Post Reply

Return to “Ciat-Lonbarde”