Better bounds testing code
This commit is contained in:
parent
694edddf5d
commit
707d7d682d
|
@ -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 ]
|
||||||
|
|
||||||
|
|
||||||
|
|
File diff suppressed because it is too large
Load Diff
2
makefile
2
makefile
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue