~rabbits/zombie

8eb88b379ebeb9942e8a4746a846939f40398e62 — Devine Lu Linvega 1 year, 9 months ago 1eb6937
Colorize note on time
1 files changed, 12 insertions(+), 1 deletions(-)

M src/main.tal
M src/main.tal => src/main.tal +12 -1
@@ 417,6 417,7 @@ JMP2r

	.time/frame STZ2
	;draw-time JSR2
	;draw-piano-bars JSR2

JMP2r



@@ 436,6 437,16 @@ JMP2r

JMP2r

@get-note-color ( chan pos* -- color )

	.time/frame LDZ2 EQU2 ,&time JCN
	.sel/chan LDZ EQU ,&active JCN
	#0a

JMP2r
	&time POP #0f JMP2r
	&active #05 JMP2r

(
@|drawing )



@@ 571,7 582,7 @@ JMP2r
			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
				OVR STH2kr ;get-note-color JSR2 .Screen/sprite DEO
				&skip
			POP
			INC GTHk ,&l JCN