~rabbits/zombie

1046a29c1b5b7802d5fe01c0dc23a33756af3b12 — Devine Lu Linvega 1 year, 9 months ago d6226bc
Extended timeline
2 files changed, 21 insertions(+), 32 deletions(-)

M src/main.tal
M src/song.tal
M src/main.tal => src/main.tal +10 -12
@@ 109,8 109,8 @@ BRK

	.time/pause LDZ ,&skip JCN

	[ LIT &rate 00 ] #07 AND ,&skip JCN 
		.time/frame LDZ2k INC2 #003f AND2 ROT STZ2
	[ LIT &rate 00 ] #03 AND ,&skip JCN 
		.time/frame LDZ2k INC2 #0080 ( MOD2 ) DIV2k MUL2 SUB2 ROT STZ2
		;draw-time JSR2
		;draw-piano-events JSR2
		;draw-drum-bars JSR2


@@ 198,8 198,8 @@ BRK
	.Mouse/state DEI #01 EQU ,&no-erase JCN
		POP #00
		&no-erase
	( pos* )
	.Mouse/x DEI2 #0030 SUB2 #02 SFT2
	( pos* ) .Mouse/x DEI2 #0030 SUB2 #02 SFT2 
	( scroll* ) .time/scroll LDZ2 #10 SFT2 ADD2
		;set-key JSR2
	( release )
	#00 .Mouse/state DEO


@@ 235,12 235,10 @@ BRK

@on-touch-drum ( y -> )

	( inst )
	#13 SUB
	.Mouse/state DEI #01 EQU MUL
	( pos* )
	.Mouse/x DEI2 #0030 SUB2 #02 SFT2 
	.time/scroll LDZ2 #10 SFT2 ADD2 ;set-hit JSR2
	( inst ) #13 SUB .Mouse/state DEI #01 EQU MUL
	( pos* ) .Mouse/x DEI2 #0030 SUB2 #02 SFT2 
	( scroll* ) .time/scroll LDZ2 #10 SFT2 ADD2
		;set-hit JSR2

BRK



@@ 325,7 323,7 @@ JMP2r

@get-index ( pos* chan -- index* )

	#00 SWP #60 SFT2 ADD2 ;song/keys ADD2 
	#00 SWP ( chan len ) #0100 MUL2 ADD2 ;song/keys ADD2 

JMP2r



@@ 583,7 581,7 @@ JMP2r

	#00 .Screen/auto DEO
	.time/frame LDZ2 
		.time/scroll LDZ2 #10 SFT2 SUB2 #003f AND2 #20 SFT2 #0030 ADD2 .Screen/x DEO2
		.time/scroll LDZ2 #10 SFT2 SUB2 #20 SFT2 #0030 ADD2 .Screen/x DEO2
	;time-icn .Screen/addr DEO2
	#05 .Screen/sprite DEO
	&skip

M src/song.tal => src/song.tal +11 -20
@@ 39,30 39,21 @@
	&rim 0000 0000 0f04 0000
	&clp 0000 0000 0f04 0000

	&keys 
	&keys $400

		(
		3g 00 4F 00 4g 00 5C 00 4C 00 4g 00 5C 00 5d 00
		4c 00 4g 00 5c 00 5d 00 3a 00 4g 00 5c 00 5C 00
		)
		38 00 41 00 44 00 48 00 3c 00 44 00 48 00 4b 00
		3d 00 44 00 49 00 4b 00 3a 00 44 00 49 00 48 00
(
	38 00 41 00 44 00 48 00 3c 00 44 00 48 00 4b 00
	3d 00 44 00 49 00 4b 00 3a 00 44 00 49 00 48 00

		38 00 41 00 44 00 48 00 3c 00 44 00 48 00 4b 00
		3d 00 44 00 49 00 4b 00 3a 00 44 00 49 00 48 00
	38 00 41 00 44 00 48 00 3c 00 44 00 48 00 4b 00
	3d 00 44 00 49 00 4b 00 3a 00 44 00 49 00 48 00

		(
		5C 00 00 00 4F 00 00 00 4g 00 00 00 00 00 4g 4F
		00 00 00 00 00 00 4F 00 5d 00 5c 00 5C 00 4g 00
		)
	48 00 00 00 41 00 00 00 44 00 00 00 00 00 44 41
	00 00 00 00 00 00 41 00 4b 00 49 00 48 00 44 00

		48 00 00 00 41 00 00 00 44 00 00 00 00 00 44 41
		00 00 00 00 00 00 41 00 4b 00 49 00 48 00 44 00

		48 00 00 00 41 00 00 00 44 00 00 00 00 00 44 41
		00 00 00 00 00 00 41 00 4b 00 49 00 48 00 44 00

$e0
	48 00 00 00 41 00 00 00 44 00 00 00 00 00 44 41
	00 00 00 00 00 00 41 00 4b 00 49 00 48 00 44 00
)

@bank