From fe8da50ca7678ba928a7f9cfd218538f7d078050 Mon Sep 17 00:00:00 2001 From: Devine Lu Linvega Date: Sat, 10 Jun 2023 09:56:32 -0700 Subject: [PATCH] (lander) Circle drawing --- gui/lander/lander.tal | 62 ++++++++++++++++++++++++++++++++----------- 1 file changed, 47 insertions(+), 15 deletions(-) diff --git a/gui/lander/lander.tal b/gui/lander/lander.tal index 373f5f9..a43a67f 100644 --- a/gui/lander/lander.tal +++ b/gui/lander/lander.tal @@ -10,8 +10,8 @@ |0100 ( -> ) ( theme ) - #0f0f .System/r DEO2 - #0f0f .System/g DEO2 + #0f00 .System/r DEO2 + #0fff .System/g DEO2 #0f0f .System/b DEO2 ( resize ) #0190 .Screen/width DEO2 @@ -27,7 +27,15 @@ BRK @on-control ( -> ) - .Controller/button DEI phex/b #0a18 DEO + .Controller/button DEI + DUP #10 NEQ ?&no-u + redraw + &no-u + DUP #20 NEQ ?&no-d + redraw + &no-d + POP + BRK @@ -40,23 +48,47 @@ BRK DUP2 .Screen/x DEO2 .Screen/y DEO2 #80 .Screen/pixel DEO - draw-lander + [ LIT &o $1 ] draw-lander JMP2r -@draw-lander ( -- ) +@draw-lander ( orientation -- ) - #4000 + POP + #0010 #0000 &l - #00 OVR ;sin32 ADD2 LDA2 - #00 SWP #01 SFT2 .Screen/y DEO2 - #00 SWP #01 SFT2 .Screen/x DEO2 - #01 .Screen/pixel DEO - INC INC GTHk ?&l + DUP2 draw-circle + INC2 GTH2k ?&l + POP2 POP2 + +JMP2r + +@draw-circle ( radius* -- ) + + ;get-point/radius STA2 + #2000 + &l + STHk + INCk get-point + STHr get-point + #01 draw-line + INC GTHk ?&l POP2 JMP2r +@get-point ( id -- x* y* ) + + [ LIT2r &radius $2 ] + #1f AND DUP ADD + #00 SWP ;circle-tbl ADD2 LDA2 + #00 SWP STH2kr MUL2 #04 SFT2 + ROT + #00 SWP STH2r MUL2 #04 SFT2 + SWP2 + +JMP2r + @draw-line ( x1* y1* x2* y2* color -- ) ,&color STR @@ -101,9 +133,9 @@ JMP2r &c #0f AND DUP #09 GTH #27 MUL ADD #30 ADD #18 DEO JMP2r -@sin32 [ - 8000 9802 b009 c715 da25 ea38 f64f fd67 - ff80 fd98 f6b0 eac7 dada c7ea b0f6 98fd - 80ff 67fd 4ff6 38ea 25da 15c7 09b0 0298 +@circle-tbl [ + 8000 9802 b009 c715 da25 ea38 f64f fd67 + ff80 fd98 f6b0 eac7 dada c7ea b0f6 98fd + 80ff 67fd 4ff6 38ea 25da 15c7 09b0 0298 0080 0267 094f 1538 2525 3815 4f09 6702 ]