Post by Carl on Mar 13, 2013 18:36:32 GMT
an alternative way of trying out music on the fig, I have intentionally made the commands short and quick to enter on the figpad.
' aud ' to activate
when it is loaded you can type the note, the length and another note or a rest, the rest needs to be teated like a note with the length put after it.
scale of cde
$c /2 $d /2 $e /2
: aud 64 191 42 >port>
drop ;
: beep ( prescale freq--)
0 69 ic! ( sound off)
0 110 ic! ( no ints)
66 68 ic! ( ctc mode)
71 ic! ( pitch)
7 and 69 ic! ( oct+on) ;
-1043 var pitches
224 c, 211 c, 199 c,
188 c, 178 c, 168 c,
158 c, 149 c, 141 c,
133 c, 126 c, 119 c,
112 c, 106 c, 100 c,
94 c, 89 c, 84 c, 79 c,
75 c, 70 c, 67 c,
: pitch> ( semitone ..)
0 24 u/ 5 swap - swap
pitches + c@ ;
: .$ 0 0 beep ; : $p pause ; : $/$ pitch> beep ;
: /0 96 $p .$ ;
: /2 48 $p .$ ;
: /4 24 $p .$ ;
: /8 12 $p .$ ;
: /16 6 $p .$ ;
: /32 3 $p .$ ;
: $a 30 $/$ ;
: $a# 31 $/$ ;
: $b 32 $/$ ;
: $c 33 $/$ ;
: $c# 34 $/$ ;
: $d 35 $/$ ;
: $d# 36 $/$ ;
: $e 37 $/$ ;
: $f 38 $/$ ;
: $f# 39 $/$ ;
: $g 40 $/$ ;
: $g# 41 $/$ ;
: $r 96 $/$ ;
' aud ' to activate
when it is loaded you can type the note, the length and another note or a rest, the rest needs to be teated like a note with the length put after it.
scale of cde
$c /2 $d /2 $e /2