diff --git a/music.tal b/music.tal index 245b7e4..9321b75 100644 --- a/music.tal +++ b/music.tal @@ -50,7 +50,7 @@ @ch-end ( end of channels ) |0100 - #0080 .dur STZ2 ( use 128 ms for 16th notes ) + #0078 .dur STZ2 ( use 128 ms for 16th notes ) #0000 .time STZ2 ( start at t=0 ) ( set up audio callbacks ) @@ -60,11 +60,10 @@ ;on-audio-4 .Audio4/vect DEO2 ( adsr sample slen vol device ) -( #0231 ;square #0008 #77 .Audio1 setup-audio ) - #0231 ;variable #0008 #ff .Audio1 setup-audio - #0231 ;saw #0010 #34 .Audio2 setup-audio - #0231 ;triangle #0004 #64 .Audio3 setup-audio - #011f ;noise #0200 #44 .Audio4 setup-audio + #0231 ;variable #0002 ADD2 #0008 #cc .Audio1 setup-audio + #0231 ;saw #0010 #79 .Audio2 setup-audio + #0231 ;triangle #0004 #75 .Audio3 setup-audio + #011f ;noise #0200 #55 .Audio4 setup-audio ( set up the channel data structures ) ;timeline ;track-1 setup-events @@ -194,10 +193,20 @@ ( @timeline =slowdown 08 ) @timeline =noop 08 ( @timeline =vary 08 ) -@track-1 2401 2b02 3001 2402 2e01 3001 -@track-2 0004 3c02 3e01 3f01 -@track-3 4301 4301 4402 4301 4301 4401 4601 -@track-4 1004 3004 0103 0101 3002 3001 3001 +@track-1 + 2402 2401 2401 2402 2401 2401 2402 2401 2401 2402 2401 2401 + 2402 2401 2401 2402 2401 2401 2402 2401 2401 2402 2401 2401 + 2202 2201 2201 2202 2201 2201 2202 2201 2201 2202 2201 2201 + 2702 2701 2701 2702 2701 2701 2702 2701 2701 2702 2701 2701 +@track-2 + 3c10 + 370e 3c02 + 3a10 + 3f08 4108 +@track-3 + 5b01 4801 4b02 4801 4a01 4b01 4f02 4a01 4b02 4801 4d01 4a01 4b01 +@track-4 + 0104 @track-end @noop ( -> ) JMP2r