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: ( ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ) eca5386b7f 2010-05-31 charlesch: ( Copyright [c] 2010, Marc Simpson ) eca5386b7f 2010-05-31 charlesch: ( License: ISC ) eca5386b7f 2010-05-31 charlesch: ( ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ) eca5386b7f 2010-05-31 charlesch: eca5386b7f 2010-05-31 charlesch: ( --[ Drawing Routines ]-------------------------------------- ) eca5386b7f 2010-05-31 charlesch: 0c2cfa8b8b 2010-07-25 charlesch: : at-xy \console.at-xy ; eca5386b7f 2010-05-31 charlesch: : bar ( xyn- ) push at-xy pop for char: - emit next ; eca5386b7f 2010-05-31 charlesch: : col ( xyn- ) for 2dup at-xy char: | emit 1+ next 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: eca5386b7f 2010-05-31 charlesch: here stages allot constant graphics eca5386b7f 2010-05-31 charlesch: graphics variable: current-graphic eca5386b7f 2010-05-31 charlesch: eca5386b7f 2010-05-31 charlesch: : current-graphic, current-graphic @ ! current-graphic ++ ; eca5386b7f 2010-05-31 charlesch: eca5386b7f 2010-05-31 charlesch: here ] 20 15 15 bar ; current-graphic, eca5386b7f 2010-05-31 charlesch: here ] 20 5 10 col ; current-graphic, eca5386b7f 2010-05-31 charlesch: here ] 20 5 15 bar ; current-graphic, eca5386b7f 2010-05-31 charlesch: here ] 21 6 at-xy char: / emit ; current-graphic, eca5386b7f 2010-05-31 charlesch: here ] 30 6 2 col ; current-graphic, eca5386b7f 2010-05-31 charlesch: here ] 30 8 at-xy char: @ emit ; current-graphic, eca5386b7f 2010-05-31 charlesch: here ] 30 9 1 col ; current-graphic, eca5386b7f 2010-05-31 charlesch: here ] 29 9 at-xy char: / emit ; current-graphic, eca5386b7f 2010-05-31 charlesch: here ] 31 9 at-xy char: \ emit ; current-graphic, eca5386b7f 2010-05-31 charlesch: here ] 30 9 1 col ; current-graphic, eca5386b7f 2010-05-31 charlesch: here ] 30 10 1 col ; current-graphic, eca5386b7f 2010-05-31 charlesch: here ] 29 11 at-xy char: / emit ; current-graphic, eca5386b7f 2010-05-31 charlesch: here ] 31 11 at-xy char: \ emit ; current-graphic, eca5386b7f 2010-05-31 charlesch: eca5386b7f 2010-05-31 charlesch: ( ============================================================ )