1656 - smooth refresh done

Had to take control of tb_present() after all. Termbox was wise.

1 files changed, 26 insertions, 0 deletions

diff --git a/071print.mu b/071print.mu
index a5cb191b..0f9db476 100644
--- a/071print.mu
+++ b/071print.mu
@@ -559,6 +559,32 @@ recipe show-cursor [
   reply x:address:screen
 ]
 
+recipe hide-screen [
+  default-space:address:array:location <- new location:type, 30:literal
+  x:address:screen <- next-ingredient
+  # if x exists (not real display), do nothing
+  {
+    break-unless x:address:screen
+    reply x:address:screen
+  }
+  # otherwise, real screen
+  hide-display
+  reply x:address:screen
+]
+
+recipe show-screen [
+  default-space:address:array:location <- new location:type, 30:literal
+  x:address:screen <- next-ingredient
+  # if x exists (not real display), do nothing
+  {
+    break-unless x:address:screen
+    reply x:address:screen
+  }
+  # otherwise, real screen
+  show-display
+  reply x:address:screen
+]
+
 recipe print-string [
   default-space:address:array:location <- new location:type, 30:literal
   x:address:screen <- next-ingredient