5485 - promote SubX to top-level

1 files changed, 0 insertions, 23 deletions

diff --git a/arc/graphics.mu b/arc/graphics.mu
deleted file mode 100644
index f25395ef..00000000
--- a/arc/graphics.mu
+++ /dev/null
@@ -1,23 +0,0 @@
-; open a viewport, print coordinates of mouse clicks
-; currently need to ctrl-c to exit after closing the viewport
-(function main [
-  (window-on (("practice" literal)) 300:literal 300:literal)
-  { begin
-    (pos:integer-integer-pair click?:boolean <- mouse-position)
-    (loop-unless click?:boolean)
-    (x:integer <- get pos:integer-integer-pair 0:offset)
-    (y:integer <- get pos:integer-integer-pair 1:offset)
-;?     ($print (("AAA " literal)))
-;?     ($print x:integer)
-;?     ($print ((", " literal)))
-;?     ($print y:integer)
-;?     ($print (("\n" literal)))
-    (print-integer nil:literal/terminal x:integer)
-    (print-character nil:literal/terminal ((#\, literal)))
-    (print-character nil:literal/terminal ((#\space literal)))
-    (print-integer nil:literal/terminal y:integer)
-    (print-character nil:literal/terminal ((#\newline literal)))
-    (loop)
-  }
-  (window-off)
-])