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

(bifurcan) Housekeeping

This commit is contained in:
Devine Lu Linvega 2024-06-15 18:27:58 -08:00
parent 07112d8f26
commit 31b282d5de
1 changed files with 19 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
projects/examples/demos/bifurcan.tal
View File

@ -5,14 +5,13 @@
|90 @Mouse &vector $2 &x $2 &y $2 &state $1 &wheel $1 |90 @Mouse &vector $2 &x $2 &y $2 &state $1 &wheel $1
|c0 @DateTime &year $2 &month $1 &day $1 &hour $1 &minute $1 &second $1 &dotw $1 &doty $2 &isdst $1 |c0 @DateTime &year $2 &month $1 &day $1 &hour $1 &minute $1 &second $1 &dotw $1 &doty $2 &isdst $1
|80 @Controller &vector $2 &button $1 &key $1 |80 @Controller &vector $2 &button $1 &key $1
|000
|0000
@last $1 @last $1
@style $1 @style $1
@center &x $2 &y $2 @center &x $2 &y $2
|0100 |100
@on-reset ( -> ) @on-reset ( -> )
( | theme ) ( | theme )
@ -54,6 +53,9 @@
;tiles [ LIT2 00 -style ] LDZ #40 SFT ADD2 <cover-pattern> ;tiles [ LIT2 00 -style ] LDZ #40 SFT ADD2 <cover-pattern>
( >> ) ( >> )
(
@|drawing )
@<redraw> ( -- ) @<redraw> ( -- )
( | hrs ) ( | hrs )
[ .center/x LDZ2 #0018 SUB2 ] [ .center/y LDZ2 #0048 SUB2 ] .DateTime/hour DEI #0a DIV <draw-number> [ .center/x LDZ2 #0018 SUB2 ] [ .center/y LDZ2 #0048 SUB2 ] .DateTime/hour DEI #0a DIV <draw-number>
@ -70,7 +72,7 @@
,&y STR2 ,&y STR2
,&x STR2 ,&x STR2
#0f00 #0f00
&loop ( -- ) &>loop ( -- )
( save-x ) DUP #03 DIVk MUL SUB #00 SWP #30 SFT2 [ LIT2 &x $2 ] ADD2 .Screen/x DEO2 ( save-x ) DUP #03 DIVk MUL SUB #00 SWP #30 SFT2 [ LIT2 &x $2 ] ADD2 .Screen/x DEO2
( save-y ) DUP #03 DIV #00 SWP #30 SFT2 [ LIT2 &y $2 ] ADD2 .Screen/y DEO2 ( save-y ) DUP #03 DIV #00 SWP #30 SFT2 [ LIT2 &y $2 ] ADD2 .Screen/y DEO2
( get digit* ) DUP [ LIT &digit $1 ] DUP ADD #00 SWP ;digits ADD2 LDA2 ( get digit* ) DUP [ LIT &digit $1 ] DUP ADD #00 SWP ;digits ADD2 LDA2
@ -78,22 +80,22 @@
( set tile ) #30 SFT2 ;tiles ADD2 ( set tile ) #30 SFT2 ;tiles ADD2
( set style ) .style LDZ #40 SFT #00 SWP ADD2 .Screen/addr DEO2 ( set style ) .style LDZ #40 SFT #00 SWP ADD2 .Screen/addr DEO2
( draw ) [ LIT2 01 -Screen/sprite ] DEO ( draw ) [ LIT2 01 -Screen/sprite ] DEO
INC GTHk ?&loop INC GTHk ?&>loop
POP2 JMP2r POP2 JMP2r
@<cover-pattern> ( addr* -- ) @<cover-pattern> ( addr* -- )
.Screen/addr DEO2 .Screen/addr DEO2
.Screen/height DEI2 #03 SFT2 ,&h STR POP .Screen/height DEI2 #03 SFT2 ,&h STR
.Screen/width DEI2 #03 SFT2 ,&w STR POP POP .Screen/width DEI2 #03 SFT2 ,&w STR
[ LIT &h $1 ] #00 POP [ LIT &h $1 ] #00
&ver ( -- ) &>ver ( -- )
#00 OVR #30 SFT2 .Screen/y DEO2 #00 OVR #30 SFT2 .Screen/y DEO2
[ LIT &w $1 ] #00 [ LIT &w $1 ] #00
&hor ( -- ) &>hor ( -- )
#00 OVR #30 SFT2 .Screen/x DEO2 #00 OVR #30 SFT2 .Screen/x DEO2
[ LIT2 01 -Screen/sprite ] DEO [ LIT2 01 -Screen/sprite ] DEO
INC GTHk ?&hor INC GTHk ?&>hor
POP2 INC GTHk ?&ver POP2 INC GTHk ?&>ver
POP2 JMP2r POP2 JMP2r
@<update-cursor> ( color addr* -- ) @<update-cursor> ( color addr* -- )
@ -111,6 +113,9 @@
.Screen/sprite DEO .Screen/sprite DEO
JMP2r JMP2r
(
@|assets )
@cursor-icn [ 80c0 e0f0 f8e0 1000 ] @cursor-icn [ 80c0 e0f0 f8e0 1000 ]
@fill-icn [ ffff ffff ffff ffff ] @fill-icn [ ffff ffff ffff ffff ]