diff --git a/one_line_canvas.tal b/one_line_canvas.tal index fe5648a..ec49e63 100644 --- a/one_line_canvas.tal +++ b/one_line_canvas.tal @@ -3,60 +3,21 @@ |20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 -|58 @canvas-width -|1f @canvas-height +|58 @width +|1f @height (to run gui: `./run_ui.sh one_line_canvas.tal`) (to run debugger: `../uxn/bin/uxnasm one_line_canvas.tal one_line_canvas.rom && ../uxn/bin/uxnemu ../beetbug.rom ./one_line_canvas.rom`) -%dbug { #01 .System/debug DEO } |0100 @on-reset setup-gui - draw-canvas-bounds BRK -@draw-line - (change x,y to top left of canvas) - LIT2 00 -canvas-width .Screen/x DEO2 - LIT2 00 -canvas-height .Screen/y DEO2 - - &x $1 - (set x to 88) - #58 ,&x STR - (#00 ,&i STR) - - &loop - #00 LIT &x $1 .Screen/x DEO2 - LIT &x $1 - INC - ,&x STRk - - EQUk ?&loop - - - - - - - ( - ,&top-left-x STR - dbug - &loop - LIT -width - (00 58) - ADDk (00 58 58) - #00 .Screen/x DEO2 (0058 00B0) - #01 .Screen/pixel DEO - INC2 (0059 00B0) - EQUk ?&loop - POP2 POP2) - JMP2r - @setup-gui ( -- ) (set screen height and width the 3x canvas size) - LIT2 =canvas-width #0003 MUL2 .Screen/width DEO2 - LIT2 =canvas-height #0003 MUL2 .Screen/height DEO2 + LIT2 =width #0003 MUL2 .Screen/width DEO2 + LIT2 =height #0003 MUL2 .Screen/height DEO2 (set basic color scheme) #f07f .System/r DEO2 #f0d6 .System/g DEO2