eca5386b7f 2010-05-31 charlesch: ( ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ) eca5386b7f 2010-05-31 charlesch: ( Hangman for Retro Console ) eca5386b7f 2010-05-31 charlesch: ( * Drawing routines. ) eca5386b7f 2010-05-31 charlesch: ( ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ) 9f5aa980c6 2011-01-19 marc: ( Copyright [c] 2010-11, Marc Simpson ) eca5386b7f 2010-05-31 charlesch: ( License: ISC ) eca5386b7f 2010-05-31 charlesch: ( ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ) c857cf32b6 2011-10-24 crc: c857cf32b6 2011-10-24 crc: needs console' 87f9808c0a 2011-02-13 charlesch: eca5386b7f 2010-05-31 charlesch: ( --[ Drawing Routines ]-------------------------------------- ) eca5386b7f 2010-05-31 charlesch: 9f5aa980c6 2011-01-19 marc: : bar ( xyn- ) [ ^console'at-xy ] dip [ '- putc ] times ; 87f9808c0a 2011-02-13 charlesch: : col ( xyn- ) [ 2over ^console'at-xy '| putc 1+ ] times 2drop ; eca5386b7f 2010-05-31 charlesch: eca5386b7f 2010-05-31 charlesch: ( --[ Stages ]------------------------------------------------ ) eca5386b7f 2010-05-31 charlesch: eca5386b7f 2010-05-31 charlesch: ( NOTE: 13 is FIXED unless we add more drawing XTs ) eca5386b7f 2010-05-31 charlesch: eca5386b7f 2010-05-31 charlesch: 13 constant stages eca5386b7f 2010-05-31 charlesch: 448a8ef91e 2011-01-22 crc: create graphics stages allot eca5386b7f 2010-05-31 charlesch: graphics variable: current-graphic eca5386b7f 2010-05-31 charlesch: 8eafc4e897 2010-09-13 crc: : graphic, @current-graphic ! current-graphic ++ ; eca5386b7f 2010-05-31 charlesch: 25b3671a47 2010-11-16 crc: [ 20 15 15 bar ] graphic, 25b3671a47 2010-11-16 crc: [ 20 5 10 col ] graphic, 25b3671a47 2010-11-16 crc: [ 20 5 15 bar ] graphic, 9f5aa980c6 2011-01-19 marc: [ 21 6 ^console'at-xy '/ putc ] graphic, 25b3671a47 2010-11-16 crc: [ 30 6 2 col ] graphic, 9f5aa980c6 2011-01-19 marc: [ 30 8 ^console'at-xy '@ putc ] graphic, 25b3671a47 2010-11-16 crc: [ 30 9 1 col ] graphic, 9f5aa980c6 2011-01-19 marc: [ 29 9 ^console'at-xy '/ putc ] graphic, 9f5aa980c6 2011-01-19 marc: [ 31 9 ^console'at-xy '\ putc ] graphic, 25b3671a47 2010-11-16 crc: [ 30 9 1 col ] graphic, 25b3671a47 2010-11-16 crc: [ 30 10 1 col ] graphic, 9f5aa980c6 2011-01-19 marc: [ 29 11 ^console'at-xy '/ putc ] graphic, 9f5aa980c6 2011-01-19 marc: [ 31 11 ^console'at-xy '\ putc ] graphic, eca5386b7f 2010-05-31 charlesch: eca5386b7f 2010-05-31 charlesch: ( ============================================================ )