From 3e100de39283ad68ec47c1f92a730542960e1217 Mon Sep 17 00:00:00 2001 From: Devine Lu Linvega Date: Mon, 22 May 2023 11:00:37 -0700 Subject: [PATCH] Added drawing routines for each block --- gui/dads/dads.tal | 86 ++++++++--------------------------------------- 1 file changed, 14 insertions(+), 72 deletions(-) diff --git a/gui/dads/dads.tal b/gui/dads/dads.tal index a0a2ea4..eaa55c9 100644 --- a/gui/dads/dads.tal +++ b/gui/dads/dads.tal @@ -87,81 +87,23 @@ JMP2r @to-screen ( x y -- ) - #00 SWP #03 MUL #0008 ADD2 .Screen/y DEO2 - #00 SWP #03 MUL #0008 ADD2 .Screen/x DEO2 + #00 SWP #0018 MUL2 #0008 ADD2 .Screen/y DEO2 + #00 SWP #0018 MUL2 #0008 ADD2 .Screen/x DEO2 JMP2r -@draw-a ( -- ) - - #56 .Screen/auto DEO - ;blocks-chr/a .Screen/addr DEO2 - #06 draw-times - -JMP2r - -@draw-c ( -- ) - - #56 .Screen/auto DEO - ;blocks-chr/c .Screen/addr DEO2 - #03 draw-times - -JMP2r - -@draw-z ( -- ) - - #56 .Screen/auto DEO - ;blocks-chr/z .Screen/addr DEO2 - #03 draw-times - -JMP2r - -@draw-y ( -- ) - - #56 .Screen/auto DEO - ;blocks-chr/y .Screen/addr DEO2 - #03 draw-times - -JMP2r -@draw-x ( -- ) - - #56 .Screen/auto DEO - ;blocks-chr/x .Screen/addr DEO2 - #03 draw-times - -JMP2r - -@draw-v ( -- ) - - #56 .Screen/auto DEO - ;blocks-chr/v .Screen/addr DEO2 - #03 draw-times - -JMP2r - -@draw-b ( -- ) - - #56 .Screen/auto DEO - ;blocks-chr/b .Screen/addr DEO2 - #03 draw-times - -JMP2r - -@draw-d ( -- ) - - #26 .Screen/auto DEO - ;blocks-chr/d .Screen/addr DEO2 - #06 draw-times - -JMP2r - -@draw-w ( -- ) - - #26 .Screen/auto DEO - ;blocks-chr/w .Screen/addr DEO2 - #03 draw-times - -JMP2r +@draw-a ( -- ) ;blocks-chr/a .Screen/addr DEO2 #56 .Screen/auto DEO #06 !draw-times +@draw-x ( -- ) ;blocks-chr/x !draw-11 +@draw-w ( -- ) ;blocks-chr/w +@draw-11 ( addr* -- ) .Screen/addr DEO2 #26 .Screen/auto DEO #03 !draw-times +@draw-c ( -- ) ;blocks-chr/c !draw-21 +@draw-v ( -- ) ;blocks-chr/v !draw-21 +@draw-z ( -- ) ;blocks-chr/z !draw-21 +@draw-b ( -- ) ;blocks-chr/b +@draw-21 ( addr* -- ) .Screen/addr DEO2 #56 .Screen/auto DEO #03 !draw-times +@draw-y ( -- ) ;blocks-chr/y !draw-12 +@draw-d ( -- ) ;blocks-chr/d +@draw-12 ( addr* -- ) .Screen/addr DEO2 #26 .Screen/auto DEO #06 !draw-times @draw-times ( times -- )