diff --git a/projects/examples/dev.audio.usm b/projects/examples/dev.audio.usm index 526525e..c8ec9dc 100644 --- a/projects/examples/dev.audio.usm +++ b/projects/examples/dev.audio.usm @@ -9,7 +9,7 @@ ) @timer $1 -@song [ ¬e $1 ] +@progress $1 ( devices ) @@ -38,7 +38,7 @@ BRK ( skip ) .timer PEK #10 NEQ ;silence JNZ2 ( get note ) - ;melody #00 .song/note PEK ADD2 GET ( -- note ) + ;melody #00 .progress PEK ADD2 GET ( -- note ) ( play note ) DUP #80 ORA .Audio/pitch DEO ( -- note ) ( OR note with #80 and set the audio pitch to it. ) @@ -49,11 +49,11 @@ BRK ( draw note ) #00 SWP #0004 MUL2 #0100 SUB2 .Screen/y DEO2 ( calculate the y position of a dot. TODO make this not upside down ) - #00 .song/note PEK #0008 MUL2 .Screen/x DEO2 ( calculate the x position of a dot ) + #00 .progress PEK #0008 MUL2 .Screen/x DEO2 ( calculate the x position of a dot ) ;dot .Screen/addr DEO2 ( set the sprite for a dot ) #21 .Screen/color DEO ( draw a dot ) - ( incr ) .song/note PEK #01 ADD #20 MOD .song/note POK + ( incr ) .progress PEK #01 ADD #20 MOD .progress POK #00 .timer POK @@ -86,7 +86,7 @@ BRK BRK -( song data. note ff is used for a rest. ) +( song data, #ff is used for a rest ) @melody [ 54 52 54 4f 4b 4f 48 ff @@ -95,6 +95,6 @@ BRK 56 52 54 52 54 50 54 ff ] -( dot sprite for on-screen ) +( dot sprite ) @dot [ 003c 7eff 7e3c 0000 ]