diff options
Diffstat (limited to 'tetris/io.prn')
-rw-r--r-- | tetris/io.prn | 28 |
1 files changed, 15 insertions, 13 deletions
diff --git a/tetris/io.prn b/tetris/io.prn index 539cbee..d749150 100644 --- a/tetris/io.prn +++ b/tetris/io.prn @@ -1,17 +1,12 @@ -2 "padding_x" store -2 "padding_y" store -10 "ntiles_x" store -12 "ntiles_y" store -3 "tile_sizex" store -2 "tile_sizey" store +"#" "io_blockchar" store @defun "io_pos_windowstart" { #puts: x y - 0 0 + origin_x origin_y } @defun "io_pos_windowend" { #puts: x y - ntiles_x tile_sizex * padding_x 2 * + 1 - - ntiles_y tile_sizey * padding_y 2 * + + ntiles_x tile_sizex * padding_x 2 * + origin_x + + ntiles_y tile_sizey * padding_y 2 * + origin_y + } @defun "io_pos_after" { #puts: x y @@ -86,7 +81,7 @@ } @defun "io_windowbox" { - io_pos_windowstart io_pos_windowend io_pos_windowstart diff2 io_box + io_pos_windowstart io_pos_windowend io_pos_windowstart diff2 2 2 diff2 io_box } @defun "io_square" { #args: x y @@ -98,14 +93,14 @@ #"| |" print #x y 2 + io_goto #"+--+" print - "xxx\x1B[3D\x1B[Bxxx" print + io_blockchar dup dup + + dup "\x1B[3D\x1B[B" swap + + print } @defun "io_pos_square" { #args: x y swap - tile_sizex * padding_x + + tile_sizex * padding_x + origin_x + swap - tile_sizey * padding_y + + tile_sizey * padding_y + origin_y + } @defun "io_gsquare" { #args: x y blockidx @@ -123,3 +118,10 @@ @defun "io_resetcolour" { "\x1B[0m" print } + + +@defun "io_printheader" { + 0 0 io_goto + "##### ##### ##### #### ### ####\n # # # # # # #\n # #### # #### # ###\n # # # # # # #\n # ##### # # # ### ####" + print +} |