From 2fbf00ce3e245590f21ecc7fb9caa63f71a4dd4b Mon Sep 17 00:00:00 2001 From: nihilazo Date: Tue, 30 Mar 2021 14:02:47 +0100 Subject: [PATCH] small display changes to prepare for second screen --- main.fs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/main.fs b/main.fs index 5ea3622..703e0ea 100644 --- a/main.fs +++ b/main.fs @@ -258,13 +258,13 @@ S" you feel like throwing some stuff into the pool." set-message \ clear-xy clears the x and y positions from the stack : clear-xy ( x y -- ) drop drop ; -\ 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-message draw-devices draw-blank draw-actions clear-xy clear-all then ; +\ draw-screen redraws the devices screen, but only if there's been a change. +\ ( x y -- ) +: draw-devices-screen any-change? if draw-message draw-devices draw-blank draw-actions clear-xy clear-all else 2drop then ; \ : draw-screen clear-all ; \ main game loop -: game-loop begin wait-tick game-tick handle-input draw-screen 0 until ; +: game-loop begin wait-tick game-tick handle-input 1 1 draw-devices-screen 0 until ; \ for use in the debugging shell : restart page game-loop ;