~rabbits/adelie

2bf6da0cbb1ea4f637e0084ccb5ef8aa7b61b0e2 — Devine Lu Linvega 11 months ago 827aaa7
Slower color fade
1 files changed, 6 insertions(+), 2 deletions(-)

M src/adelie.tal
M src/adelie.tal => src/adelie.tal +6 -2
@@ 65,7 65,10 @@
@|vectors )

@on-frame ( -> )
	<animate-theme>
	( | animate )
	[ LIT &rate $1 ] INCk ,&rate STR #03 AND ?&>no-fade
		<animate-theme>
		&>no-fade
	[ LIT &wait $1 ] DUP ?&on-timer
	[ LIT &f $1 ] INCk ,&f STR
	#3f AND ?&>no-watch


@@ 173,7 176,8 @@
	DUP2 .slide STZ2
	&w ( -- )
		DUP2 find-op JSR2 scap INC2 ;dict/name OVR2 sseg #00 EQU ?&w
	POP2 JMP2r
	POP2
	!<draw-interface>

@prev-slide ( -- )
	.slide LDZ2 is-stopped ?&e