uxn/projects/examples/demos/polycat.tal

( polycat )

%RTN { JMP2r }
%2// { #01 SFT2 }
%4// { #02 SFT2 }
%!~ { NEQk NIP }

( devices )

|00 @System     [ &vector $2 &wst      $1 &rst    $1 &pad   $4 &r      $2 &g     $2 &b      $2 ]
|20 @Screen     [ &vector $2 &width    $2 &height $2 &pad   $2 &x      $2 &y      $2 &addr  $2 &pixel $1 &sprite $1 ]
|90 @Mouse      [ &vector $2 &x        $2 &y      $2 &state $1 &wheel $1 ]

( variables )

|0000

@cat     [ &x $2 &y $2 &timer $1 ]
@pointer [ &x $2 &y $2 ]

( program )

|0100 ( -> )
	
	( theme ) 
	#0a3f .System/r DEO2 
	#05df .System/g DEO2 
	#0caf .System/b DEO2

	( find center )
	.Screen/width DEI2 2// #0008 SUB2 .cat/x STZ2
	.Screen/height DEI2 4// DUP2k ADD2 ADD2 #0018 SUB2 .cat/y STZ2

	( vectors )
	;on-mouse .Mouse/vector DEO2
	;on-frame .Screen/vector DEO2

	;draw-polycat JSR2
	;draw-ground JSR2

BRK

@on-mouse ( -> )
	
	;draw-cursor JSR2

	.Mouse/x DEI2 .cat/x LDZ2 GTH2 #50 SFT
	.Mouse/y DEI2 .cat/y LDZ2 GTH2 #60 SFT
		ADD #00 SWP ;draw-eye JSR2

BRK

@on-frame ( -> )

	.cat/timer LDZ INC [ DUP ] .cat/timer STZ
		DUP ,&skip0 JCN #0000 ;draw-tail JSR2 &skip0
		[ #10 ] !~ ,&skip1 JCN #0001 ;draw-tail JSR2 &skip1
		[ #20 ] !~ ,&skip2 JCN #0002 ;draw-tail JSR2 &skip2
		[ #30 ] !~ ,&skip3 JCN #0003 ;draw-tail JSR2 &skip3
		[ #40 ] !~ ,&skip4 JCN #0002 ;draw-tail JSR2 &skip4
		[ #50 ] !~ ,&skip5 JCN #0001 ;draw-tail JSR2 &skip5
	POP

BRK

@draw-polycat ( -- )

	( ears )
	.cat/y LDZ2 .Screen/y DEO2
	.cat/x LDZ2 STH2k #0008 SUB2 .Screen/x DEO2
	;ears .Screen/addr DEO2
	#81 .Screen/sprite DEO
	STH2r .Screen/x DEO2
	;ears #0010 ADD2 .Screen/addr DEO2
	#81 .Screen/sprite DEO

	#0000 ,draw-eye JSR
	#0000 ,draw-tail JSR

RTN

@draw-eye ( quad* -- )
	
	.cat/y LDZ2 #0008 ADD2 .Screen/y DEO2
	.cat/x LDZ2 STH2k #0008 SUB2 .Screen/x DEO2
	DUP2 ;eye ADD2 .Screen/addr DEO2
	( draw ) #81 .Screen/sprite DEO
	STH2r .Screen/x DEO2
	;eye #0010 ADD2 ADD2 .Screen/addr DEO2
	( draw ) #81 .Screen/sprite DEO

RTN

@draw-tail ( frame* -- )

	.cat/y LDZ2 #0010 ADD2 .Screen/y DEO2
	.cat/x LDZ2 STH2k #0008 SUB2 .Screen/x DEO2
	;body .Screen/addr DEO2
	( draw ) #81 .Screen/sprite DEO
	STH2r .Screen/x DEO2
	#40 SFT2 ;body #0010 ADD2 ADD2 .Screen/addr DEO2
	( draw ) #81 .Screen/sprite DEO

RTN

@draw-cursor ( -- )
	
	( clear last cursor )
	;cursor .Screen/addr DEO2 
	.pointer/x LDZ2 .Screen/x DEO2 
	.pointer/y LDZ2 .Screen/y DEO2 
	#40 .Screen/sprite DEO

	( record pointer positions )
	.Mouse/x DEI2 DUP2 .pointer/x STZ2 .Screen/x DEO2
	.Mouse/y DEI2 DUP2 .pointer/y STZ2 .Screen/y DEO2 

	( colorize on state )
	#41 [ .Mouse/state DEI #00 NEQ ] ADD .Screen/sprite DEO

RTN

@draw-ground ( -- )

	.cat/y LDZ2 #0018 ADD2 .Screen/y DEO2
	.cat/x LDZ2 #0010 SUB2 .Screen/x DEO2
	;ground .Screen/addr DEO2

	#10 #00 
	&loop
		( draw ) #01 .Screen/sprite DEO
		( sety ) .Screen/addr DEI2 #0008 ADD2 .Screen/addr DEO2
		( setx ) .Screen/x DEI2 #0008 ADD2 .Screen/x DEO2
		( incr ) INC
		GTHk ,&loop JCN
	POP2

RTN

@cursor 
	80c0 e0f0 f8e0 1000 

@ears 
	081c 3e3e 7f7f ffff 081c 3e3e 7f7f fffc
	081c 3c3e 7e7e ffff 081c 3c3e 7e7e ff1f 

@eye 
	ffff ffff ff7f 3f0f f7ef cfe7 f07c 3f0f
	ffff ffff fffe fcf0 87c3 c183 071e fcf0
	ffff ffff ff7f 3f0f f0e1 c1e0 f07c 3f0f
	ffff ffff fffe fcf0 f7fb f9f3 071e fcf0
	ffff ffff ff7f 3f0f f0e7 cfef f77c 3f0f
	ffff ffff fffe fcf0 0783 c1c3 871e fcf0
	ffff ffff ff7f 3f0f f0e0 c1e1 f07c 3f0f
	ffff ffff fffe fcf0 07f3 f9fb f71e fcf0

@body 
	0707 0707 0302 0200 0107 0707 0300 0000
	e0f0 f0e0 e080 8000 c0f2 f9f9 fef8 b000
	e0f0 f0e0 e080 8000 c0f2 f9f9 fef8 b000
	e0f0 f0e0 e080 8000 c0f2 faf9 fef8 b000
	e0f0 f0e0 e080 8000 c0f1 faf9 fef8 b000
	0707 0707 0f08 1000 0307 0707 0f00 0000
	e0e0 e0e0 e080 8000 f2f9 f9fe b884 8400 

@ground 
	bf00 5c02 0202 020c ef10 6f90 8080 8074
	ff00 fe01 0100 0116 fd00 3c40 4040 4028
Rewriting polycat 2021-04-30 19:08:24 +00:00			`( polycat )`

			`%RTN { JMP2r }`
Optimised DIV2 by powers of 2 to SFT2 2021-05-24 21:36:15 +00:00			`%2// { #01 SFT2 }`
			`%4// { #02 SFT2 }`
Use NEQk NIP pattern for polycat 2021-08-16 01:09:21 +00:00			`%!~ { NEQk NIP }`
Rewriting polycat 2021-04-30 19:08:24 +00:00
			`( devices )`

			`\|00 @System [ &vector $2 &wst $1 &rst $1 &pad $4 &r $2 &g $2 &b $2 ]`
Migrated Screen/color to Screen/pixel and/or Screen/sprite 2021-07-31 20:58:33 +00:00			`\|20 @Screen [ &vector $2 &width $2 &height $2 &pad $2 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 ]`
Replaced Mouse/chord with Mouse/wheel 2021-05-31 22:08:34 +00:00			`\|90 @Mouse [ &vector $2 &x $2 &y $2 &state $1 &wheel $1 ]`
Rewriting polycat 2021-04-30 19:08:24 +00:00
			`( variables )`

			`\|0000`

			`@cat [ &x $2 &y $2 &timer $1 ]`
			`@pointer [ &x $2 &y $2 ]`

			`( program )`

			`\|0100 ( -> )`

			`( theme )`
			`#0a3f .System/r DEO2`
			`#05df .System/g DEO2`
			`#0caf .System/b DEO2`

			`( find center )`
Optimised DIV2 by powers of 2 to SFT2 2021-05-24 21:36:15 +00:00			`.Screen/width DEI2 2// #0008 SUB2 .cat/x STZ2`
Replaced trivial multiplications with shifts and additions 2021-08-17 19:16:39 +00:00			`.Screen/height DEI2 4// DUP2k ADD2 ADD2 #0018 SUB2 .cat/y STZ2`
Rewriting polycat 2021-04-30 19:08:24 +00:00
			`( vectors )`
			`;on-mouse .Mouse/vector DEO2`
			`;on-frame .Screen/vector DEO2`

			`;draw-polycat JSR2`
			`;draw-ground JSR2`

			`BRK`

			`@on-mouse ( -> )`

			`;draw-cursor JSR2`

Replaced trivial multiplications with shifts and additions 2021-08-17 19:16:39 +00:00			`.Mouse/x DEI2 .cat/x LDZ2 GTH2 #50 SFT`
			`.Mouse/y DEI2 .cat/y LDZ2 GTH2 #60 SFT`
Cleanup polycat 2021-05-01 16:13:14 +00:00			`ADD #00 SWP ;draw-eye JSR2`
Rewriting polycat 2021-04-30 19:08:24 +00:00
			`BRK`

			`@on-frame ( -> )`

Improvement of examples 2021-08-18 02:17:47 +00:00			`.cat/timer LDZ INC [ DUP ] .cat/timer STZ`
Optimized out #00 NEQ when used with JCN 2021-05-13 06:31:42 +00:00			`DUP ,&skip0 JCN #0000 ;draw-tail JSR2 &skip0`
Use NEQk NIP pattern for polycat 2021-08-16 01:09:21 +00:00			`[ #10 ] !~ ,&skip1 JCN #0001 ;draw-tail JSR2 &skip1`
			`[ #20 ] !~ ,&skip2 JCN #0002 ;draw-tail JSR2 &skip2`
			`[ #30 ] !~ ,&skip3 JCN #0003 ;draw-tail JSR2 &skip3`
			`[ #40 ] !~ ,&skip4 JCN #0002 ;draw-tail JSR2 &skip4`
			`[ #50 ] !~ ,&skip5 JCN #0001 ;draw-tail JSR2 &skip5`
Rewriting polycat 2021-04-30 19:08:24 +00:00			`POP`

			`BRK`

			`@draw-polycat ( -- )`

			`( ears )`
Renamed PEK/POK to LDZ/STZ 2021-05-11 18:14:52 +00:00			`.cat/y LDZ2 .Screen/y DEO2`
Cleaned example files 2021-05-13 01:28:45 +00:00			`.cat/x LDZ2 STH2k #0008 SUB2 .Screen/x DEO2`
Rewriting polycat 2021-04-30 19:08:24 +00:00			`;ears .Screen/addr DEO2`
Migrated Screen/color to Screen/pixel and/or Screen/sprite 2021-07-31 20:58:33 +00:00			`#81 .Screen/sprite DEO`
Cleanup polycat 2021-05-01 16:13:14 +00:00			`STH2r .Screen/x DEO2`
Minor optimizations to demos 2021-05-12 18:58:31 +00:00			`;ears #0010 ADD2 .Screen/addr DEO2`
Migrated Screen/color to Screen/pixel and/or Screen/sprite 2021-07-31 20:58:33 +00:00			`#81 .Screen/sprite DEO`
Rewriting polycat 2021-04-30 19:08:24 +00:00
Cleanup polycat 2021-05-01 16:13:14 +00:00			`#0000 ,draw-eye JSR`
			`#0000 ,draw-tail JSR`
Rewriting polycat 2021-04-30 19:08:24 +00:00
			`RTN`

			`@draw-eye ( quad* -- )`

Minor optimizations to demos 2021-05-12 18:58:31 +00:00			`.cat/y LDZ2 #0008 ADD2 .Screen/y DEO2`
Cleaned example files 2021-05-13 01:28:45 +00:00			`.cat/x LDZ2 STH2k #0008 SUB2 .Screen/x DEO2`
Minor optimizations to demos 2021-05-12 18:58:31 +00:00			`DUP2 ;eye ADD2 .Screen/addr DEO2`
Migrated Screen/color to Screen/pixel and/or Screen/sprite 2021-07-31 20:58:33 +00:00			`( draw ) #81 .Screen/sprite DEO`
Cleanup polycat 2021-05-01 16:13:14 +00:00			`STH2r .Screen/x DEO2`
Minor optimizations to demos 2021-05-12 18:58:31 +00:00			`;eye #0010 ADD2 ADD2 .Screen/addr DEO2`
Migrated Screen/color to Screen/pixel and/or Screen/sprite 2021-07-31 20:58:33 +00:00			`( draw ) #81 .Screen/sprite DEO`
Rewriting polycat 2021-04-30 19:08:24 +00:00
			`RTN`

			`@draw-tail ( frame* -- )`

Minor optimizations to demos 2021-05-12 18:58:31 +00:00			`.cat/y LDZ2 #0010 ADD2 .Screen/y DEO2`
Cleaned example files 2021-05-13 01:28:45 +00:00			`.cat/x LDZ2 STH2k #0008 SUB2 .Screen/x DEO2`
Rewriting polycat 2021-04-30 19:08:24 +00:00			`;body .Screen/addr DEO2`
Migrated Screen/color to Screen/pixel and/or Screen/sprite 2021-07-31 20:58:33 +00:00			`( draw ) #81 .Screen/sprite DEO`
Cleanup polycat 2021-05-01 16:13:14 +00:00			`STH2r .Screen/x DEO2`
Replaced trivial multiplications with shifts and additions 2021-08-17 19:16:39 +00:00			`#40 SFT2 ;body #0010 ADD2 ADD2 .Screen/addr DEO2`
Migrated Screen/color to Screen/pixel and/or Screen/sprite 2021-07-31 20:58:33 +00:00			`( draw ) #81 .Screen/sprite DEO`
Rewriting polycat 2021-04-30 19:08:24 +00:00
			`RTN`

			`@draw-cursor ( -- )`

			`( clear last cursor )`
Added cell count to GOL 2021-05-06 17:38:38 +00:00			`;cursor .Screen/addr DEO2`
Renamed PEK/POK to LDZ/STZ 2021-05-11 18:14:52 +00:00			`.pointer/x LDZ2 .Screen/x DEO2`
			`.pointer/y LDZ2 .Screen/y DEO2`
Migrated Screen/color to Screen/pixel and/or Screen/sprite 2021-07-31 20:58:33 +00:00			`#40 .Screen/sprite DEO`
Cleanup polycat 2021-05-01 16:13:14 +00:00
Rewriting polycat 2021-04-30 19:08:24 +00:00			`( record pointer positions )`
Improved piano example 2021-07-09 18:38:45 +00:00			`.Mouse/x DEI2 DUP2 .pointer/x STZ2 .Screen/x DEO2`
			`.Mouse/y DEI2 DUP2 .pointer/y STZ2 .Screen/y DEO2`
Cleanup polycat 2021-05-01 16:13:14 +00:00
Rewriting polycat 2021-04-30 19:08:24 +00:00			`( colorize on state )`
Migrated Screen/color to Screen/pixel and/or Screen/sprite 2021-07-31 20:58:33 +00:00			`#41 [ .Mouse/state DEI #00 NEQ ] ADD .Screen/sprite DEO`
Rewriting polycat 2021-04-30 19:08:24 +00:00
			`RTN`

			`@draw-ground ( -- )`

Minor optimizations to demos 2021-05-12 18:58:31 +00:00			`.cat/y LDZ2 #0018 ADD2 .Screen/y DEO2`
			`.cat/x LDZ2 #0010 SUB2 .Screen/x DEO2`
Rewriting polycat 2021-04-30 19:08:24 +00:00			`;ground .Screen/addr DEO2`

Improvement of examples 2021-08-18 02:17:47 +00:00			`#10 #00`
Rewriting polycat 2021-04-30 19:08:24 +00:00			`&loop`
Migrated Screen/color to Screen/pixel and/or Screen/sprite 2021-07-31 20:58:33 +00:00			`( draw ) #01 .Screen/sprite DEO`
Minor optimizations to demos 2021-05-12 18:58:31 +00:00			`( sety ) .Screen/addr DEI2 #0008 ADD2 .Screen/addr DEO2`
			`( setx ) .Screen/x DEI2 #0008 ADD2 .Screen/x DEO2`
Improvement of examples 2021-08-18 02:17:47 +00:00			`( incr ) INC`
			`GTHk ,&loop JCN`
Rewriting polycat 2021-04-30 19:08:24 +00:00			`POP2`

			`RTN`

Cleaned example files 2021-05-13 01:28:45 +00:00			`@cursor`
			`80c0 e0f0 f8e0 1000`
Rewriting polycat 2021-04-30 19:08:24 +00:00
Cleaned example files 2021-05-13 01:28:45 +00:00			`@ears`
Rewriting polycat 2021-04-30 19:08:24 +00:00			`081c 3e3e 7f7f ffff 081c 3e3e 7f7f fffc`
Cleaned example files 2021-05-13 01:28:45 +00:00			`081c 3c3e 7e7e ffff 081c 3c3e 7e7e ff1f`
Rewriting polycat 2021-04-30 19:08:24 +00:00
Cleaned example files 2021-05-13 01:28:45 +00:00			`@eye`
Rewriting polycat 2021-04-30 19:08:24 +00:00			`ffff ffff ff7f 3f0f f7ef cfe7 f07c 3f0f`
			`ffff ffff fffe fcf0 87c3 c183 071e fcf0`
			`ffff ffff ff7f 3f0f f0e1 c1e0 f07c 3f0f`
			`ffff ffff fffe fcf0 f7fb f9f3 071e fcf0`
			`ffff ffff ff7f 3f0f f0e7 cfef f77c 3f0f`
			`ffff ffff fffe fcf0 0783 c1c3 871e fcf0`
			`ffff ffff ff7f 3f0f f0e0 c1e1 f07c 3f0f`
			`ffff ffff fffe fcf0 07f3 f9fb f71e fcf0`

Cleaned example files 2021-05-13 01:28:45 +00:00			`@body`
Rewriting polycat 2021-04-30 19:08:24 +00:00			`0707 0707 0302 0200 0107 0707 0300 0000`
			`e0f0 f0e0 e080 8000 c0f2 f9f9 fef8 b000`
			`e0f0 f0e0 e080 8000 c0f2 f9f9 fef8 b000`
			`e0f0 f0e0 e080 8000 c0f2 faf9 fef8 b000`
			`e0f0 f0e0 e080 8000 c0f1 faf9 fef8 b000`
			`0707 0707 0f08 1000 0307 0707 0f00 0000`
Cleaned example files 2021-05-13 01:28:45 +00:00			`e0e0 e0e0 e080 8000 f2f9 f9fe b884 8400`
Rewriting polycat 2021-04-30 19:08:24 +00:00
Cleaned example files 2021-05-13 01:28:45 +00:00			`@ground`
Cleanup polycat 2021-05-01 16:13:14 +00:00			`bf00 5c02 0202 020c ef10 6f90 8080 8074`
Cleaned example files 2021-05-13 01:28:45 +00:00			`ff00 fe01 0100 0116 fd00 3c40 4040 4028`