~rabbits/adelie

df1d33e0ff18250031535205036999fda8900634 — Devine Lu Linvega 11 months ago 2bf6da0
Hide cursor on slide change
1 files changed, 10 insertions(+), 5 deletions(-)

M src/adelie.tal
M src/adelie.tal => src/adelie.tal +10 -5
@@ 8,6 8,11 @@
|a0 @File &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2
|c0 @DateTime &year $2 &month $1 &day $1 &hour $1 &minute $1 &second $1 &dotw $1 &doty $2 &isdst $1

(
@|TODO )
	( > catch missing icn file )
	( > display next slide title in speaker's notes )

|0000

	@src $40


@@ 66,9 71,9 @@

@on-frame ( -> )
	( | animate )
	[ LIT &rate $1 ] INCk ,&rate STR #03 AND ?&>no-fade
		<animate-theme>
		&>no-fade
	[ 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


@@ 172,12 177,12 @@
	JMP2r

@view-slide ( addr* -- )
	#40 ;cursor-icn <update-cursor>
	#00 .links/length STZ
	DUP2 .slide STZ2
	&w ( -- )
		DUP2 find-op JSR2 scap INC2 ;dict/name OVR2 sseg #00 EQU ?&w
	POP2
	!<draw-interface>
	POP2 !<draw-interface>

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