~rabbits/zombie

1eb6937cacf473d83a23222496377b94b00a4e3f — Devine Lu Linvega 1 year, 9 months ago 624550d
Draw events for all channels
1 files changed, 14 insertions(+), 9 deletions(-)

M src/main.tal
M src/main.tal => src/main.tal +14 -9
@@ 563,15 563,20 @@ JMP2r
	#4000
	&loop
		#00 OVR #20 SFT2 #0030 ADD2 .Screen/x DEO2
		#00 OVR .time/scroll LDZ2 #10 SFT2 ADD2 .sel/chan LDZ ;get-event JSR2

		.sel/octave LDZ #0c MUL SUB
		DUP #17 GTH ,&skip JCN
			DUP ;get-key-pos JSR2 .Screen/y DEO2
			#05 .Screen/sprite DEO
			&skip
		POP

		( stash pos* )
		#00 OVR .time/scroll LDZ2 #10 SFT2 ADD2 STH2
		#0400
		&l
			( each channel )
			DUP STH2kr ROT ;get-event JSR2 .sel/octave LDZ #0c MUL SUB
			DUP #17 GTH ,&skip JCN
				DUP ;get-key-pos JSR2 .Screen/y DEO2
				OVR .sel/chan LDZ NEQ INC #05 MUL .Screen/sprite DEO
				&skip
			POP
			INC GTHk ,&l JCN
		POP2
		POP2r
		INC GTHk ,&loop JCN
	POP2