~rabbits/adelie

3d6799214c293e574ed0038385093e182b1ba953 — Devine Lu Linvega 11 months ago 8a66e8f
Skip slides in square brackets
2 files changed, 10 insertions(+), 9 deletions(-)

M slides
M src/adelie.tal
M slides => slides +7 -7
@@ 2,31 2,31 @@ SIZE 30,1c

( transition )

NAME --
NAME [--]
PATT 81 00 00 00 00 00 00 81
FILL 0f
WAIT 08
NAME --
NAME [--]
PATT c3 81 00 00 00 00 81 c3
FILL 0f
WAIT 08
NAME --
NAME [--]
PATT e7 c3 81 00 00 81 c3 e7
FILL 0f
WAIT 08
NAME --
NAME [--]
PATT ff e7 c3 81 81 c3 e7 ff
FILL 0f
WAIT 08
NAME --
NAME [--]
PATT ff ff e7 c3 c3 e7 ff ff
FILL 0f
WAIT 08
NAME --
NAME [--]
PATT ff ff ff e7 e7 ff ff ff
FILL 0f
WAIT 08
NAME --
NAME [--]
PATT ff ff ff ff ff ff ff ff
FILL 0f
WAIT 08

M src/adelie.tal => src/adelie.tal +3 -2
@@ 304,7 304,8 @@
@|operations )

@op-name ( addr* -- addr* )
	next-word DUP2 <print-str>
	next-word LDAk LIT "[ EQU ?&skip
	DUP2 <print-str>
	;<draw-title>/spacer-txt <print-str>
	find-next-slide next-word <print-line>
	#0a18 DEO


@@ 316,7 317,7 @@
		;dict/name OVR2 sseg ?&end
		scap INC2 GTH2k ?&w
	&end POP2 POP2 #0a18 DEO
	JMP2r
	&skip JMP2r

@op-pict ( addr* -- addr* )
	.pen/x LDZ2 .Screen/x DEO2