Differences From Artifact [92c53efaa98f2da0]:
File hangman/graphics.retro part of check-in [25b3671a47] - use ^ in all areas of hangman by crc on 2010-11-16 19:45:38. [annotate] [view]
To Artifact [eaef073bc6f28b3f]:
File hangman/graphics.retro part of check-in [9f5aa980c6] - update hangman; now works with retro 11 (this is a direct port, needs cleanup) by marc on 2011-01-19 17:15:33. [annotate] [view]
@@ -1,16 +1,16 @@ ( ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ) ( Hangman for Retro Console ) ( * Drawing routines. ) ( ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ) -( Copyright [c] 2010, Marc Simpson ) +( Copyright [c] 2010-11, Marc Simpson ) ( License: ISC ) ( ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ) ( --[ Drawing Routines ]-------------------------------------- ) -: bar ( xyn- ) [ ^console'at-xy ] dip [ '- emit ] times ; -: col ( xyn- ) [ 2dup ^console'at-xy '| emit 1+ ] times 2drop ; +: bar ( xyn- ) [ ^console'at-xy ] dip [ '- putc ] times ; +: col ( xyn- ) [ 2dup ^console'at-xy '| putc 1+ ] times 2drop ; ( --[ Stages ]------------------------------------------------ ) ( NOTE: 13 is FIXED unless we add more drawing XTs ) @@ -24,16 +24,16 @@ [ 20 15 15 bar ] graphic, [ 20 5 10 col ] graphic, [ 20 5 15 bar ] graphic, -[ 21 6 ^console'at-xy '/ emit ] graphic, +[ 21 6 ^console'at-xy '/ putc ] graphic, [ 30 6 2 col ] graphic, -[ 30 8 ^console'at-xy '@ emit ] graphic, +[ 30 8 ^console'at-xy '@ putc ] graphic, [ 30 9 1 col ] graphic, -[ 29 9 ^console'at-xy '/ emit ] graphic, -[ 31 9 ^console'at-xy '\ emit ] graphic, +[ 29 9 ^console'at-xy '/ putc ] graphic, +[ 31 9 ^console'at-xy '\ putc ] graphic, [ 30 9 1 col ] graphic, [ 30 10 1 col ] graphic, -[ 29 11 ^console'at-xy '/ emit ] graphic, -[ 31 11 ^console'at-xy '\ emit ] graphic, +[ 29 11 ^console'at-xy '/ putc ] graphic, +[ 31 11 ^console'at-xy '\ putc ] graphic, ( ============================================================ )