Better bounds testing code

This commit is contained in:
Devine Lu Linvega 2024-01-20 11:18:28 -08:00
parent 694edddf5d
commit 707d7d682d
3 changed files with 2048 additions and 17 deletions

View File

@ -10,6 +10,9 @@
#2358 .System/b DEO2 #2358 .System/b DEO2
;on-mouse .Mouse/vector DEO2 ;on-mouse .Mouse/vector DEO2
<draw-guide> <draw-guide>
.Screen/width DEI2 #01 SFT2 .Screen/x DEO2
.Screen/height DEI2 #01 SFT2 .Screen/y DEO2
<redraw>
BRK BRK
@on-mouse ( -> ) @on-mouse ( -> )
@ -20,7 +23,10 @@
<draw-guide> <draw-guide>
( | cursor ) ( | cursor )
#41 ;cursor-icn <update-cursor> #41 ;cursor-icn <update-cursor>
( | draw portrait ) <redraw>
BRK
@<redraw> ( -- )
.Screen/x DEI2k #0008 ADD2 ROT DEO2 .Screen/x DEI2k #0008 ADD2 ROT DEO2
.Screen/y DEI2k #0020 SUB2 ROT DEO2 .Screen/y DEI2k #0020 SUB2 ROT DEO2
[ LIT2 36 -Screen/auto ] DEO [ LIT2 36 -Screen/auto ] DEO
@ -34,10 +40,7 @@
.Screen/x DEI2k #0010 ADD2 ROT DEO2 .Screen/x DEI2k #0010 ADD2 ROT DEO2
.Screen/y DEI2k #0020 ADD2 ROT DEO2 .Screen/y DEI2k #0020 ADD2 ROT DEO2
#a1 <draw-portrait> #a1 <draw-portrait>
( <draw-box> JMP2r
.Screen/y DEI2k #0060 SUB2 ROT DEO2
<draw-box> )
BRK
@<draw-portrait> ( color -- ) @<draw-portrait> ( color -- )
;portrait-chr .Screen/addr DEO2 ;portrait-chr .Screen/addr DEO2
@ -60,16 +63,8 @@
JMP2r JMP2r
@<draw-guide> ( -- ) @<draw-guide> ( -- )
#0000 DUP2 .Screen/x DEO2 .Screen/y DEO2 .Screen/width DEI2 #01 SFT2 #0040 SUB2 .Screen/x DEO2
#f2 .Screen/auto DEO .Screen/height DEI2 #01 SFT2 #0040 SUB2 .Screen/y DEO2
;guide-icn .Screen/addr DEO2
#1000
&l ( -- )
#01 .Screen/sprite DEO
INC GTHk ?&l
POP2
( | circles )
#0010 DUP2 .Screen/x DEO2 .Screen/y DEO2
#02 <draw-circle> #02 <draw-circle>
.Screen/y DEI2k #0008 ADD2 ROT DEO2 .Screen/y DEI2k #0008 ADD2 ROT DEO2
#82 <draw-circle> #82 <draw-circle>
@ -138,4 +133,3 @@
@circle-chr [ @circle-chr [
071f 3c70 60e3 c7c7 0000 030f 1f1f 3f3f ] 071f 3c70 60e3 c7c7 0000 030f 1f1f 3f3f ]

2037
etc/x11_keycodes.txt Normal file

File diff suppressed because it is too large Load Diff

View File

@ -12,7 +12,7 @@ all: dest bin/uxnasm bin/uxncli bin/uxn11
dest: dest:
@ mkdir -p bin @ mkdir -p bin
rom: rom:
@ ./bin/uxnasm etc/controller.tal bin/res.rom @ ./bin/uxnasm etc/screen.bounds.tal bin/res.rom
run: all bin/uxnasm bin/uxncli bin/uxn11 rom run: all bin/uxnasm bin/uxncli bin/uxn11 rom
@ ./bin/uxn11 bin/res.rom @ ./bin/uxn11 bin/res.rom
test: bin/uxnasm bin/uxncli bin/uxn11 test: bin/uxnasm bin/uxncli bin/uxn11