uxn/projects/examples/gui/hover.tal

( GUI Hover )

|00 @System [ &vector $2 &pad $6 &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

@color $1
@pointer [ &x $2 &y $2 &sprite $2 ]
@r1 [ &x1 $2 &y1 $2 &x2 $2 &y2 $2 ]
@r2 [ &x1 $2 &y1 $2 &x2 $2 &y2 $2 ]
@r3 [ &x1 $2 &y1 $2 &x2 $2 &y2 $2 ]

( program )

|0100

	( theme ) 
	#0f0f .System/r DEO2 
	#0fff .System/g DEO2 
	#0ff0 .System/b DEO2

	( vectors ) ;on-mouse .Mouse/vector DEO2
	
	#0020 #0030 #0060 #0060 .r1/y2 STZ2 .r1/x2 STZ2 .r1/y1 STZ2 .r1/x1 STZ2
	#0058 #0050 #0090 #0080 .r2/y2 STZ2 .r2/x2 STZ2 .r2/y1 STZ2 .r2/x1 STZ2
	#0048 #0048 #0080 #0098 .r3/y2 STZ2 .r3/x2 STZ2 .r3/y1 STZ2 .r3/x1 STZ2

( no BRK, run through to on-mouse )

@on-mouse
	
	;pointer_icn .pointer/sprite STZ2

	#01 .color STZ
	.Mouse/x DEI2 .Mouse/y DEI2 .r1 ;within-rect JSR2 #00 EQU ,&draw1 JCN 
		#02 .color STZ 
		;hand_icn .pointer/sprite STZ2
		&draw1 
	.r1/x1 LDZ2 .r1/y1 LDZ2 .r1/x2 LDZ2 .r1/y2 LDZ2 .color LDZ ;line-rect JSR2
	
	#01 .color STZ
	.Mouse/x DEI2 .Mouse/y DEI2 .r2 ;within-rect JSR2 #00 EQU ,&draw2 JCN 
		#03 .color STZ 
		;hand_icn .pointer/sprite STZ2
		&draw2 
	.r2/x1 LDZ2 .r2/y1 LDZ2 .r2/x2 LDZ2 .r2/y2 LDZ2 .color LDZ ;line-rect JSR2
	
	#01 .color STZ
	.Mouse/x DEI2 .Mouse/y DEI2 .r3 ;within-rect JSR2 #00 EQU ,&draw3 JCN 
		#02 .color STZ 
		;hand_icn .pointer/sprite STZ2
		&draw3 
	.r3/x1 LDZ2 .r3/y1 LDZ2 .r3/x2 LDZ2 .r3/y2 LDZ2 .color LDZ ;line-rect JSR2

	( clear last cursor )
	.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
	.pointer/sprite LDZ2 .Screen/addr DEO2

	( draw new cursor )
	#41 .Screen/sprite DEO

BRK

@within-rect ( x* y* rect -- flag )
	
	STH
	( y < rect.y1 ) DUP2 STHkr INC INC LDZ2 LTH2 ,&skip JCN
	( y > rect.y2 ) DUP2 STHkr #06 ADD LDZ2 GTH2 ,&skip JCN
	SWP2
	( x < rect.x1 ) DUP2 STHkr LDZ2 LTH2 ,&skip JCN
	( x > rect.x2 ) DUP2 STHkr #04 ADD LDZ2 GTH2 ,&skip JCN
	POP2 POP2 POPr
	#01 
JMP2r
	&skip
	POP2 POP2 POPr
	#00

JMP2r

@line-rect ( x1* y1* x2* y2* color -- )

	STH
	DUP2 ,&ver-y2 STR2 ,&hor-y2 STR2
	DUP2 ,&ver-x2 STR2 ,&hor-x2 STR2
	DUP2 ,&ver-y1 STR2 ,&hor-y1 STR2
	DUP2 ,&ver-x1 STR2 ,&hor-x1 STR2
	( horizontal )
	[ LIT2 &hor-x2 $2 ] INC2 [ LIT2 &hor-x1 $2 ]
	&hor
		DUP2 .Screen/x DEO2
		[ LIT2 &hor-y1 $2 ] .Screen/y DEO2 STHkr .Screen/pixel DEOk
		[ LIT2 &hor-y2 $2 ] .Screen/y DEO2 DEO
		INC2 GTH2k ,&hor JCN
	POP2 POP2
	( vertical )
	[ LIT2 &ver-y2 $2 ] [ LIT2 &ver-y1 $2 ]
	&ver
		DUP2 .Screen/y DEO2
		[ LIT2 &ver-x1 $2 ] .Screen/x DEO2 STHkr .Screen/pixel DEOk
		[ LIT2 &ver-x2 $2 ] .Screen/x DEO2 DEO
		INC2 GTH2k ,&ver JCN
	POP2 POP2
	POPr

JMP2r

@pointer_icn [ 80c0 e0f0 f8e0 1000 ]
@hand_icn    [ 4040 4070 f8f8 f870 ]
Cleanup 2021-04-02 04:53:41 +00:00			`( GUI Hover )`
Rewrote gui.hover 2021-03-01 03:49:53 +00:00
Ported projects to new assembler syntax All these programs tested working, except for left, which compiles but doesn't run properly. 2021-04-23 14:34:03 +00:00			`\|00 @System [ &vector $2 &pad $6 &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 ]`
Ported projects to new assembler syntax All these programs tested working, except for left, which compiles but doesn't run properly. 2021-04-23 14:34:03 +00:00
			`( variables )`

			`\|0000`

Improvement of examples 2021-08-18 02:17:47 +00:00			`@color $1`
Ported projects to new assembler syntax All these programs tested working, except for left, which compiles but doesn't run properly. 2021-04-23 14:34:03 +00:00			`@pointer [ &x $2 &y $2 &sprite $2 ]`
			`@r1 [ &x1 $2 &y1 $2 &x2 $2 &y2 $2 ]`
			`@r2 [ &x1 $2 &y1 $2 &x2 $2 &y2 $2 ]`
			`@r3 [ &x1 $2 &y1 $2 &x2 $2 &y2 $2 ]`
Ported examples to new devices addr 2021-03-21 21:16:19 +00:00
Ported keys example to new vectors 2021-04-05 20:00:55 +00:00			`( program )`

Ported projects to new assembler syntax All these programs tested working, except for left, which compiles but doesn't run properly. 2021-04-23 14:34:03 +00:00			`\|0100`
Ported examples to new devices addr 2021-03-21 21:16:19 +00:00
Optimized gui examples 2021-08-18 18:14:29 +00:00			`( theme )`
			`#0f0f .System/r DEO2`
			`#0fff .System/g DEO2`
			`#0ff0 .System/b DEO2`

Ported projects to new assembler syntax All these programs tested working, except for left, which compiles but doesn't run properly. 2021-04-23 14:34:03 +00:00			`( vectors ) ;on-mouse .Mouse/vector DEO2`
Rewrote gui.hover 2021-03-01 03:49:53 +00:00
Renamed PEK/POK to LDZ/STZ 2021-05-11 18:14:52 +00:00			`#0020 #0030 #0060 #0060 .r1/y2 STZ2 .r1/x2 STZ2 .r1/y1 STZ2 .r1/x1 STZ2`
			`#0058 #0050 #0090 #0080 .r2/y2 STZ2 .r2/x2 STZ2 .r2/y1 STZ2 .r2/x1 STZ2`
			`#0048 #0048 #0080 #0098 .r3/y2 STZ2 .r3/x2 STZ2 .r3/y1 STZ2 .r3/x1 STZ2`
Rewrote gui.hover 2021-03-01 03:49:53 +00:00
Ported projects to new assembler syntax All these programs tested working, except for left, which compiles but doesn't run properly. 2021-04-23 14:34:03 +00:00			`( no BRK, run through to on-mouse )`
Rewrote gui.hover 2021-03-01 03:49:53 +00:00
Ported projects to new assembler syntax All these programs tested working, except for left, which compiles but doesn't run properly. 2021-04-23 14:34:03 +00:00			`@on-mouse`
Created within-rect routine 2021-05-16 04:35:01 +00:00
Renamed PEK/POK to LDZ/STZ 2021-05-11 18:14:52 +00:00			`;pointer_icn .pointer/sprite STZ2`
Rewrote gui.hover 2021-03-01 03:49:53 +00:00
Renamed PEK/POK to LDZ/STZ 2021-05-11 18:14:52 +00:00			`#01 .color STZ`
Created within-rect routine 2021-05-16 04:35:01 +00:00			`.Mouse/x DEI2 .Mouse/y DEI2 .r1 ;within-rect JSR2 #00 EQU ,&draw1 JCN`
			`#02 .color STZ`
			`;hand_icn .pointer/sprite STZ2`
Improvement of examples 2021-08-18 02:17:47 +00:00			`&draw1`
Created within-rect routine 2021-05-16 04:35:01 +00:00			`.r1/x1 LDZ2 .r1/y1 LDZ2 .r1/x2 LDZ2 .r1/y2 LDZ2 .color LDZ ;line-rect JSR2`
Rewrote gui.hover 2021-03-01 03:49:53 +00:00
Renamed PEK/POK to LDZ/STZ 2021-05-11 18:14:52 +00:00			`#01 .color STZ`
Created within-rect routine 2021-05-16 04:35:01 +00:00			`.Mouse/x DEI2 .Mouse/y DEI2 .r2 ;within-rect JSR2 #00 EQU ,&draw2 JCN`
			`#03 .color STZ`
			`;hand_icn .pointer/sprite STZ2`
Improvement of examples 2021-08-18 02:17:47 +00:00			`&draw2`
Created within-rect routine 2021-05-16 04:35:01 +00:00			`.r2/x1 LDZ2 .r2/y1 LDZ2 .r2/x2 LDZ2 .r2/y2 LDZ2 .color LDZ ;line-rect JSR2`
Rewrote gui.hover 2021-03-01 03:49:53 +00:00
Renamed PEK/POK to LDZ/STZ 2021-05-11 18:14:52 +00:00			`#01 .color STZ`
Created within-rect routine 2021-05-16 04:35:01 +00:00			`.Mouse/x DEI2 .Mouse/y DEI2 .r3 ;within-rect JSR2 #00 EQU ,&draw3 JCN`
			`#02 .color STZ`
			`;hand_icn .pointer/sprite STZ2`
Improvement of examples 2021-08-18 02:17:47 +00:00			`&draw3`
Created within-rect routine 2021-05-16 04:35:01 +00:00			`.r3/x1 LDZ2 .r3/y1 LDZ2 .r3/x2 LDZ2 .r3/y2 LDZ2 .color LDZ ;line-rect JSR2`
Rewrote gui.hover 2021-03-01 03:49:53 +00:00
Redesigned assembler 2021-03-14 01:34:08 +00:00			`( clear last cursor )`
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`
Rewrote gui.hover 2021-03-01 03:49:53 +00:00
Redesigned assembler 2021-03-14 01:34:08 +00:00			`( record pointer positions )`
Optimized gui examples 2021-08-18 18:14:29 +00:00			`.Mouse/x DEI2 DUP2 .pointer/x STZ2 .Screen/x DEO2`
			`.Mouse/y DEI2 DUP2 .pointer/y STZ2 .Screen/y DEO2`
			`.pointer/sprite LDZ2 .Screen/addr DEO2`
Rewrote gui.hover 2021-03-01 03:49:53 +00:00
Redesigned assembler 2021-03-14 01:34:08 +00:00			`( draw new cursor )`
Migrated Screen/color to Screen/pixel and/or Screen/sprite 2021-07-31 20:58:33 +00:00			`#41 .Screen/sprite DEO`
Rewrote gui.hover 2021-03-01 03:49:53 +00:00
Optimized gui examples 2021-08-18 18:14:29 +00:00			`BRK`
Rewrote gui.hover 2021-03-01 03:49:53 +00:00
Created within-rect routine 2021-05-16 04:35:01 +00:00			`@within-rect ( x* y* rect -- flag )`

			`STH`
General improvements to example files 2022-05-31 20:25:41 +00:00			`( y < rect.y1 ) DUP2 STHkr INC INC LDZ2 LTH2 ,&skip JCN`
Created within-rect routine 2021-05-16 04:35:01 +00:00			`( y > rect.y2 ) DUP2 STHkr #06 ADD LDZ2 GTH2 ,&skip JCN`
			`SWP2`
			`( x < rect.x1 ) DUP2 STHkr LDZ2 LTH2 ,&skip JCN`
			`( x > rect.x2 ) DUP2 STHkr #04 ADD LDZ2 GTH2 ,&skip JCN`
			`POP2 POP2 POPr`
			`#01`
General improvements to example files 2022-05-31 20:25:41 +00:00			`JMP2r`
Created within-rect routine 2021-05-16 04:35:01 +00:00			`&skip`
			`POP2 POP2 POPr`
			`#00`

General improvements to example files 2022-05-31 20:25:41 +00:00			`JMP2r`
Created within-rect routine 2021-05-16 04:35:01 +00:00
Cleaned a few examples 2021-04-29 04:00:39 +00:00			`@line-rect ( x1* y1* x2* y2* color -- )`
Rewrote gui.hover 2021-03-01 03:49:53 +00:00
Optimized line-rect routine 2022-02-21 18:30:55 +00:00			`STH`
			`DUP2 ,&ver-y2 STR2 ,&hor-y2 STR2`
			`DUP2 ,&ver-x2 STR2 ,&hor-x2 STR2`
			`DUP2 ,&ver-y1 STR2 ,&hor-y1 STR2`
			`DUP2 ,&ver-x1 STR2 ,&hor-x1 STR2`
			`( horizontal )`
			`[ LIT2 &hor-x2 $2 ] INC2 [ LIT2 &hor-x1 $2 ]`
Improvement of examples 2021-08-18 02:17:47 +00:00			`&hor`
Optimized line-rect routine 2022-02-21 18:30:55 +00:00			`DUP2 .Screen/x DEO2`
			`[ LIT2 &hor-y1 $2 ] .Screen/y DEO2 STHkr .Screen/pixel DEOk`
			`[ LIT2 &hor-y2 $2 ] .Screen/y DEO2 DEO`
			`INC2 GTH2k ,&hor JCN`
			`POP2 POP2`
			`( vertical )`
			`[ LIT2 &ver-y2 $2 ] [ LIT2 &ver-y1 $2 ]`
			`&ver`
			`DUP2 .Screen/y DEO2`
			`[ LIT2 &ver-x1 $2 ] .Screen/x DEO2 STHkr .Screen/pixel DEOk`
			`[ LIT2 &ver-x2 $2 ] .Screen/x DEO2 DEO`
			`INC2 GTH2k ,&ver JCN`
Improvement of examples 2021-08-18 02:17:47 +00:00			`POP2 POP2`
Optimized line-rect routine 2022-02-21 18:30:55 +00:00			`POPr`
Rewrote gui.hover 2021-03-01 03:49:53 +00:00
General improvements to example files 2022-05-31 20:25:41 +00:00			`JMP2r`
Rewrote gui.hover 2021-03-01 03:49:53 +00:00
Cleanup 2021-03-01 17:16:40 +00:00			`@pointer_icn [ 80c0 e0f0 f8e0 1000 ]`
Rewrote gui.hover 2021-03-01 03:49:53 +00:00			`@hand_icn [ 4040 4070 f8f8 f870 ]`