diff options
Diffstat (limited to 'graphics.mu')
-rw-r--r-- | graphics.mu | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/graphics.mu b/graphics.mu index c4520c8f..5f19367b 100644 --- a/graphics.mu +++ b/graphics.mu @@ -1,13 +1,10 @@ ; open a viewport, print coordinates of mouse clicks ; currently need to ctrl-c to exit after closing the viewport (function main [ - (graphics-on) + (graphics-on (("practice" literal)) 300:literal 300:literal) { begin (pos:integer-integer-pair click?:boolean <- mouse-position) - { begin - (break-if click?:boolean) - (loop 2:blocks) - } + (loop-unless click?:boolean) (x:integer <- get pos:integer-integer-pair 0:offset) (y:integer <- get pos:integer-integer-pair 1:offset) (print-primitive x:integer) |