add blank line between device count and options
This commit is contained in:
parent
d6e037bb5c
commit
a715de5ee7
8
main.fs
8
main.fs
|
@ -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
|
||||
|
|
Reference in New Issue