d6
/
uxn11
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
etc/screen.bounds.tal
View File

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

2037
etc/x11_keycodes.txt Normal file
View File

File diff suppressed because it is too large Load Diff

2
makefile
View File

@ -12,7 +12,7 @@ all: dest bin/uxnasm bin/uxncli bin/uxn11
dest:
@ mkdir -p bin
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
@ ./bin/uxn11 bin/res.rom
test: bin/uxnasm bin/uxncli bin/uxn11