~rabbits/adelie

bc74e093b8b47e5ec2c6a4c4bed95c8c4ee33698 — Devine Lu Linvega 11 months ago d7557fe
*
2 files changed, 62 insertions(+), 136 deletions(-)

M slides
M src/adelie.tal
M slides => slides +44 -121
@@ 40,8 40,9 @@ MODE 0c
PICT etc/adelie0.tga
GOTO 04,0d
HEAD Adelie
MOVE 04,07
TEXT A little plain-text slideshow`Click to go to the next slide.
MOVE 00,02
TEXT A little plain-text slideshow
TEXT Click to go to the next slide.
	- This is how speaker's notes are recorded.
	- Tabbed lines will be printed in the console device.



@@ 49,7 50,7 @@ TEXT A little plain-text slideshow`Click to go to the next slide.

NAME Drawing Keywords
FILL 03
GOTO 2c,08
GOTO 2e,08
MODE 0c
PICT etc/adelie1.tga
GOTO 04,0d


@@ 57,81 58,42 @@ HEAD Drawing Keywords
WAIT 40

NAME Drawing: Mode
GOTO 06,15
TEXT MODE
MOVE 09,00
TEXT mode
MOVE 09,00
TEXT set blending mode
MOVE 00,02
TEXT MODE	mode	set blending mode
WAIT 08

NAME Drawing: Goto
GOTO 06,18
TEXT GOTO
MOVE 09,00
TEXT x,y
MOVE 09,00
TEXT move to absolute position
TEXT GOTO	x,y	move to absolute position
WAIT 08

NAME Drawing: Move
GOTO 06,1b
TEXT MOVE
MOVE 09,00
TEXT x,y
MOVE 09,00
TEXT move by relative position
TEXT MOVE	x,y	move by relative position
WAIT 08

NAME Drawing: Pict
GOTO 06,1e
TEXT PICT
MOVE 09,00
TEXT file.tga
MOVE 09,00
TEXT draw a picture
TEXT PICT	file.tga	draw a picture
WAIT 08

NAME Drawing: Head
GOTO 06,21
TEXT HEAD
MOVE 09,00
TEXT text
MOVE 09,00
TEXT draw a header
TEXT HEAD	text	draw a header
WAIT 08

NAME Drawing: Text
GOTO 06,24
TEXT TEXT
MOVE 09,00
TEXT text
MOVE 09,00
TEXT draw text
TEXT TEXT	text	draw text
WAIT 08

NAME Drawing: Fill
GOTO 06,27
TEXT FILL
MOVE 09,00
TEXT mode
MOVE 09,00
TEXT fill background
TEXT FILL	mode	fill background
WAIT 08

NAME Drawing: Rect
GOTO 06,2a
TEXT RECT
MOVE 09,00
TEXT x,y mode
MOVE 09,00
TEXT fill rectangle
TEXT RECT	x,y mode	fill rectangle

( slide 3 )

NAME Control Keywords
FILL 03
GOTO 2c,08
GOTO 2e,08
MODE 0c
PICT etc/adelie1.tga
GOTO 04,0d


@@ 139,48 101,24 @@ HEAD Control Keywords
WAIT 40

NAME Control: Size
GOTO 06,15
TEXT SIZE
MOVE 09,00
TEXT w,h
MOVE 09,00
TEXT set slideshow size
MOVE 00,02
TEXT SIZE	w,h	set slideshow size
WAIT 08

NAME Control: Name
GOTO 06,18
TEXT NAME
MOVE 09,00
TEXT text
MOVE 09,00
TEXT set slide name
TEXT NAME	text	set slide name
WAIT 08

NAME Control: Wait
GOTO 06,1b
TEXT WAIT
MOVE 09,00
TEXT timer
MOVE 09,00
TEXT automate slide control
TEXT WAIT	timer	automate slide control
WAIT 08

NAME Control: Stop
GOTO 06,1e
TEXT STOP
MOVE 09,00
TEXT --
MOVE 09,00
TEXT ignore slide control
TEXT STOP	--	ignore slide control
WAIT 08

NAME Control: Head
GOTO 06,21
TEXT LINK
MOVE 09,00
TEXT w,h text
MOVE 09,00
TEXT link to slide
TEXT LINK	w,h text	link to slide

( slide 4 )



@@ 191,61 129,45 @@ MODE 0c
PICT etc/adelie2.tga
GOTO 28,0d
HEAD Blending Modes
MOVE 02,07
MOVE 00,02
TEXT The color blending options are as follow:
GOTO 2a,17
; blending table
GOTO 28,18
MODE 00
HEAD 00
MOVE 07,00
HEAD 0
MODE 01
HEAD 01
MOVE 07,00
HEAD 1
MODE 02
HEAD 02
MOVE 07,00
HEAD 2
MODE 03
HEAD 03
MOVE 07,00
GOTO 2a,1c
HEAD 3
GOTO 2d,18
MODE 04
HEAD 04
MOVE 07,00
HEAD 4
MODE 05
HEAD 05
MOVE 07,00
HEAD 5
MODE 06
HEAD 06
MOVE 07,00
HEAD 6
MODE 07
HEAD 07
MOVE 07,00
GOTO 2a,21
HEAD 7
GOTO 32,18
MODE 08
HEAD 08
MOVE 07,00
HEAD 8
MODE 09
HEAD 09
MOVE 07,00
HEAD 9
MODE 0a
HEAD 0a
MOVE 07,00
HEAD a
MODE 0b
HEAD 0b
MOVE 07,00
GOTO 2a,26
HEAD b
GOTO 37,18
MODE 0c
HEAD 0c
MOVE 07,00
HEAD c
MODE 0d
HEAD 0d
MOVE 07,00
HEAD d
MODE 0e
HEAD 0e
MOVE 07,00
HEAD e
MODE 0f
HEAD 0f
MOVE 07,00
HEAD f

NAME Links
FILL 03


@@ 256,8 178,9 @@ GOTO 24,10
PICT etc/adelie3.tga
GOTO 20,0c
HEAD Adelie Links
MOVE 02,07
TEXT You can make part of a slide clickable using the LINK command.`Press shift to see a slide's links.
MOVE 00,02
TEXT You can make part of a slide clickable using the LINK command.
TEXT Press shift to see a slide's links.
MODE 06
GOTO 08,24
LINK 1c,10 Introduction

M src/adelie.tal => src/adelie.tal +18 -15
@@ 369,12 369,16 @@
@op-head ( addr* -- addr* )
	.pen/x LDZ2 .Screen/x DEO2
	.pen/y LDZ2 .Screen/y DEO2
	next-word DUP2 !<draw-uf5>
	next-word DUP2 <draw-uf5>
	.pen/y LDZ2k #0028 ADD2 ROT STZ2
	JMP2r

@op-text ( addr* -- addr* )
	.pen/x LDZ2 .Screen/x DEO2
	.pen/x LDZ2 #0004 ADD2 .Screen/x DEO2
	.pen/y LDZ2 .Screen/y DEO2
	next-word DUP2 !<draw-uf2>
	next-word DUP2 <draw-uf2>
	.pen/y LDZ2k #0018 ADD2 ROT STZ2
	JMP2r

@op-mode ( addr* -- addr* )
	next-word DUP2 shex .pen/mode STZ


@@ 522,15 526,14 @@
	( >> )

@<draw-uf2> ( text* -- )
	.Screen/x DEI2 ,&x STR2
	.pen/mode LDZ ,<draw-uf2-char>/color STR
	[ LIT2 15 -Screen/auto ] DEO
	&w ( -- )
		( linebreak ) LDAk LIT "` NEQ ?&>no-lb
			.Screen/y DEI2k #0014 ADD2 ROT DEO2
			[ LIT2 &x $2 ] .Screen/x DEO2
		( | tab )
		LDAk #09 NEQ ?&>no-tab
			.Screen/x DEI2 #0080 ADD2 #77 SFT2 .Screen/x DEO2
			!&resume
		&>no-lb
		&>no-tab
		( draw ) LDAk <draw-uf2-char>
		&resume INC2 LDAk ?&w
	POP2 JMP2r


@@ 543,15 546,14 @@
	JMP2r

@<draw-uf5> ( text* -- )
	.Screen/x DEI2 ,&x STR2
	.pen/mode LDZ ,&color STR
	[ LIT2 45 -Screen/auto ] DEO
	&w ( -- )
		( linebreak ) LDAk LIT "` NEQ ?&>no-lb
			.Screen/y DEI2k #0028 ADD2 ROT DEO2
			[ LIT2 &x $2 ] .Screen/x DEO2
			( | tab )
		LDAk #09 NEQ ?&>no-tab
			.Screen/x DEI2 #0080 ADD2 #77 SFT2 .Screen/x DEO2
			!&resume
		&>no-lb
		&>no-tab
		( draw ) LDAk #20 SUB #00 SWP DUP2 #00c8 MUL2 ;font-uf5/glyphs ADD2 .Screen/addr DEO2
		;font-uf5 ADD2 LDA #00 SWP .Screen/x DEI2 ADD2 [ LIT &color $1 ] .Screen/sprite DEOk
		DEOk


@@ 589,8 591,9 @@
	DUP2 .File/name DEO2
	#0008 .File/length DEO2
	;&buf .Screen/addr DEO2
	scap #0009 SUB2 read-point ,&h STR
	,&w STR
	scap #0009 SUB2 read-point
	( ) ,&h STR
	( ) ,&w STR
	( | is pos auto )
	.pen/auto LDZ #00 EQU ?&>no-auto
		.center/x LDZ2 #00 ,&w LDR #30 SFT2 #01 SFT2 SUB2 .Screen/x DEO2