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

(cube3d.tal) Optimizations

This commit is contained in:
neauoire 2023-10-30 15:32:02 -07:00
parent 8b2d16ffea
commit 2e32545a8b
1 changed files with 75 additions and 85 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

160
projects/examples/demos/cube3d.tal
View File

@ -1,121 +1,110 @@
( Cube3d: ( Cube3d: Just a cube, y'know )
Just a cube, y'know )
|00 @System &vector $2 &wst $1 &rst $1 &eaddr $2 &ecode $1 &pad $1 &r $2 &g $2 &b $2 &debug $1 &halt $1 |00 @System &vector $2 &wst $1 &rst $1 &eaddr $2 &ecode $1 &pad $1 &r $2 &g $2 &b $2 &debug $1 &halt $1
|20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 |20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1
|0000 |0000
@timer $1 @timer $1
@color $1 @cube &v0 $8 &v4 $8
@cube &v0 $8 &v4 $8 @center &x $2 &y $2
@line &x $2 &y $2 &dx $2 &dy $2 &e1 $2
@center &x $2 &y $2
( program ) |0100
|0100 ( -> ) @on-reset ( -> )
( | theme )
( theme )
#4fcd .System/r DEO2 #4fcd .System/r DEO2
#4fc3 .System/g DEO2 #4fc3 .System/g DEO2
#dfc2 .System/b DEO2 #dfc2 .System/b DEO2
( center ) ( | center )
.Screen/width DEI2 #01 SFT2 #0040 SUB2 .center/x STZ2 .Screen/width DEI2 #01 SFT2 #0040 SUB2 .center/x STZ2
.Screen/height DEI2 #01 SFT2 #0040 SUB2 .center/y STZ2 .Screen/height DEI2 #01 SFT2 #0040 SUB2 .center/y STZ2
( begin. ) ( | begin. )
;on-frame .Screen/vector DEO2 ;on-frame .Screen/vector DEO2
@on-frame ( -> ) @on-frame ( -> )
( | clear )
#00 ;draw-cube JSR2 #0000 DUP2 .Screen/x DEO2
.Screen/y DEO2
#80 .Screen/pixel DEO
( | draw )
.timer LDZk INC SWP STZ .timer LDZk INC SWP STZ
#05 ;draw-cube JSR2 <draw-cube>
BRK
BRK @<draw-cube> ( frame -- )
( | create box )
@draw-cube ( frame color -- )
.color STZ
( create box )
#0800 #0800
&loop &loop ( -- )
STHk STHk #00 .timer LDZ #00 STHkr INC #07 AND #60 SFT ADD2 #00ff AND2 ;table ADD2 LDA #01 SFT #00 .timer LDZ #00 STHkr #60 SFT ADD2 #00ff AND2 ;table ADD2 LDA #02 SFT #00 STHkr #62 SFT2 ADD2 .cube/v0 STHr DUP ADD ADD STZ2
#00 .timer LDZ [ #00 STHkr INC #07 AND #60 SFT ADD2 ] #00ff AND2 ;table ADD2 LDA #01 SFT INC GTHk ?&loop
#00 .timer LDZ [ #00 STHkr #60 SFT ADD2 ] #00ff AND2 ;table ADD2 LDA #02 SFT [ #00 STHkr #62 SFT2 ADD2 ]
.cube/v0 STHr DUP ADD ADD STZ2
INC GTHk ,&loop JCN
POP2 POP2
( vertices ) ( | vertices )
#0800 #0800
&ver-loop &ver-loop ( -- )
DUP DUP ADD .cube ADD LDZ2 ;draw-vertex JSR2 DUP DUP ADD .cube ADD LDZ2 <draw-vertex>
INC GTHk ,&ver-loop JCN INC GTHk ?&ver-loop
POP2
( lines )
#0400
&line-loop
STHk
.cube/v0 STHkr DUP ADD ADD .cube/v0 STHkr INC #03 AND DUP ADD ADD ,trace JSR
.cube/v0 STHkr DUP ADD ADD .cube/v4 STHkr DUP ADD ADD ,trace JSR
.cube/v4 STHkr DUP ADD ADD .cube/v4 STHr INC #03 AND DUP ADD ADD ,trace JSR
INC GTHk ,&line-loop JCN
POP2 POP2
( lines ) #0400
&line-loop ( -- )
STHk .cube/v0 STHkr DUP ADD ADD .cube/v0 STHkr INC #03 AND DUP ADD ADD <draw-edge>
.cube/v0 STHkr DUP ADD ADD .cube/v4 STHkr DUP ADD ADD <draw-edge>
.cube/v4 STHkr DUP ADD ADD .cube/v4 STHr INC #03 AND DUP ADD ADD <draw-edge>
INC GTHk ?&line-loop
POP2 JMP2r
JMP2r @<draw-edge> ( a b -- )
@trace ( a b -- )
STH STH STH STH
#00 STHkr LDZ .center/x LDZ2 ADD2 #00 STHr INC LDZ .center/y LDZ2 ADD2 ( ) #00 STHkr LDZ .center/x LDZ2 ADD2
#00 STHkr LDZ .center/x LDZ2 ADD2 #00 STHr INC LDZ .center/y LDZ2 ADD2 ( ) #00 STHr INC LDZ .center/y LDZ2 ADD2
.color LDZ ;draw-line JSR2 ( ) #00 STHkr LDZ .center/x LDZ2 ADD2
( ) #00 STHr INC LDZ .center/y LDZ2 ADD2 #05 <draw-line>
JMP2r JMP2r
@draw-vertex ( x y -- )
@<draw-vertex> ( x y -- )
#00 SWP #0004 SUB2 .center/y LDZ2 ADD2 .Screen/y DEO2 #00 SWP #0004 SUB2 .center/y LDZ2 ADD2 .Screen/y DEO2
#00 SWP #0003 SUB2 .center/x LDZ2 ADD2 .Screen/x DEO2 #00 SWP #0003 SUB2 .center/x LDZ2 ADD2 .Screen/x DEO2
;&icn .Screen/addr DEO2 ;&icn .Screen/addr DEO2
.color LDZ .Screen/sprite DEO #05 .Screen/sprite DEO
JMP2r
&icn [ 0000 387c 7c7c 3800 ]
JMP2r @<draw-line> ( x1* y1* x2* y2* color -- )
&icn 0000 387c 7c7c 3800 ,&color STR
,&y STR2
,&x STR2
,&y2 STR2
,&x2 STR2
,&x LDR2 ,&x2 LDR2 SUB2 abs2 ,&dx STR2
#0000 ,&y LDR2 ,&y2 LDR2 SUB2 abs2 SUB2 ,&dy STR2
#ffff [ LIT2 00 _&x2 ] LDR2 ,&x LDR2 lts2 DUP2 ADD2 ADD2 ,&sx STR2
#ffff [ LIT2 00 _&y2 ] LDR2 ,&y LDR2 lts2 DUP2 ADD2 ADD2 ,&sy STR2
[ LIT2 &dx $2 ] [ LIT2 &dy $2 ] ADD2 STH2
&while ( -- )
[ LIT2 &x2 $2 ] DUP2 .Screen/x DEO2
[ LIT2 &x $2 ] EQU2 [ LIT2 &y2 $2 ] DUP2 .Screen/y DEO2
[ LIT2 &y $2 ] EQU2 [ LIT2 &color $1 -Screen/pixel ] DEO
AND ?&end
STH2kr DUP2 ADD2 DUP2 ,&dy LDR2 lts2 ?&skipy
STH2r ,&dy LDR2 ADD2 STH2 ,&x2 LDR2 [ LIT2 &sx $2 ] ADD2 ,&x2 STR2
&skipy ( -- )
,&dx LDR2 gts2 ?&while
STH2r ,&dx LDR2 ADD2 STH2 ,&y2 LDR2 [ LIT2 &sy $2 ] ADD2 ,&y2 STR2
!&while
&end POP2r JMP2r
@draw-line ( x1* y1* x2* y2* color -- ) @abs2 ( a* -- f )
DUP2 #0f SFT2 EQU ?{ #0000 SWP2 SUB2 }
JMP2r
( load ) STH ,&y STR2 ,&x STR2 .line/y STZ2 .line/x STZ2 @lts2 ( a* b* -- f )
,&x LDR2 .line/x LDZ2 SUB2 ;abs2 JSR2 .line/dx STZ2 #8000 STH2k ADD2 SWP2 STH2r ADD2 GTH2 JMP2r
#0000 ,&y LDR2 .line/y LDZ2 SUB2 ;abs2 JSR2 SUB2 .line/dy STZ2
#ffff #00 .line/x LDZ2 ,&x LDR2 ;lts2 JSR2 DUP2 ADD2 ADD2 ,&sx STR2
#ffff #00 .line/y LDZ2 ,&y LDR2 ;lts2 JSR2 DUP2 ADD2 ADD2 ,&sy STR2
.line/dx LDZ2 .line/dy LDZ2 ADD2 .line/e1 STZ2
&loop
.line/x LDZ2 DUP2 .Screen/x DEO2 [ LIT2 &x $2 ] EQU2
.line/y LDZ2 DUP2 .Screen/y DEO2 [ LIT2 &y $2 ] EQU2
STHkr .Screen/pixel DEO
AND ,&end JCN
.line/e1 LDZ2 DUP2 ADD2 DUP2
.line/dy LDZ2 ;lts2 JSR2 ,&skipy JCN
.line/e1 LDZ2 .line/dy LDZ2 ADD2 .line/e1 STZ2
.line/x LDZ2 [ LIT2 &sx $2 ] ADD2 .line/x STZ2
&skipy
.line/dx LDZ2 ;gts2 JSR2 ,&skipx JCN
.line/e1 LDZ2 .line/dx LDZ2 ADD2 .line/e1 STZ2
.line/y LDZ2 [ LIT2 &sy $2 ] ADD2 .line/y STZ2
&skipx
,&loop JMP
&end
POPr
JMP2r @gts2 ( a* b* -- f )
#8000 STH2k ADD2 SWP2 STH2r ADD2 LTH2 JMP2r
@abs2 DUP2 #0f SFT2 EQU #05 JCN #0000 SWP2 SUB2 JMP2r
@lts2 #8000 STH2k ADD2 SWP2 STH2r ADD2 GTH2 JMP2r
@gts2 #8000 STH2k ADD2 SWP2 STH2r ADD2 LTH2 JMP2r
@table ( 256 xy ) @table ( 256 xy )
[
f7f8 f9fa fbfc fcfd fefe ffff ffff ffff f7f8 f9fa fbfc fcfd fefe ffff ffff ffff
ffff ffff fffe fefd fcfc fbfa f9f8 f7f6 ffff ffff fffe fefd fcfc fbfa f9f8 f7f6
f5f3 f2f0 efed ecea e8e6 e4e2 e0de dcda f5f3 f2f0 efed ecea e8e6 e4e2 e0de dcda
@ -131,4 +120,5 @@ JMP2r
5154 575a 5d60 6367 6a6d 7073 7679 7c7f 5154 575a 5d60 6367 6a6d 7073 7679 7c7f
8386 898c 8f92 9598 9c9f a2a5 a8ab aeb0 8386 898c 8f92 9598 9c9f a2a5 a8ab aeb0
b3b6 b9bc bfc1 c4c7 c9cc ced1 d3d5 d8da b3b6 b9bc bfc1 c4c7 c9cc ced1 d3d5 d8da
dcde e0e2 e4e6 e8ea eced eff0 f2f3 f5f6 dcde e0e2 e4e6 e8ea eced eff0 f2f3 f5f6 ]