add blank line between device count and options

This commit is contained in:
Nico 2021-03-22 10:35:14 +00:00
parent d6e037bb5c
commit a715de5ee7
1 changed files with 7 additions and 1 deletions

View File

@ -179,6 +179,12 @@ S" you feel like throwing some stuff into the pool." set-message
2dup at-xy
clear-line get-message type
inc-y ;
\ draw-blank draws a blank line.
: draw-blank ( x y -- x y )
2dup at-xy
clear-line
inc-y ;
\ draw-devices draws the number of devices on the screen.
: draw-devices ( x y -- x y )
@ -224,7 +230,7 @@ S" you feel like throwing some stuff into the pool." set-message
\ draw-screen redraws the screen, but only if there's been a change.
\ 1 1 is the starting position to draw from.
: draw-screen any-change? if 1 1 draw-devices draw-message draw-actions clear-xy clear-all then ;
: draw-screen any-change? if 1 1 draw-message draw-devices draw-blank draw-actions clear-xy clear-all then ;
\ : draw-screen clear-all ;
\ main game loop