diff options
Diffstat (limited to 'mu.arc')
-rw-r--r-- | mu.arc | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/mu.arc b/mu.arc index c3527369..79f5586b 100644 --- a/mu.arc +++ b/mu.arc @@ -323,6 +323,8 @@ typeinfo.operand!address)) ($:require "charterm/main.rkt") +($:require graphics/graphics) +(= Viewport nil) ; run instructions from 'routine*' for 'time-slice' (def run-for-time-slice (time-slice) @@ -518,6 +520,21 @@ console-off (do1 nil (if ($.current-charterm) ($.close-charterm))) + ; graphics + graphics-on + (do1 nil + ($.open-graphics) + (= Viewport ($.open-viewport "practice" 300 300))) + graphics-off + (do1 nil + ($.close-graphics) + (= Viewport nil)) + mouse-position + (aif ($.ready-mouse-click Viewport) + (let posn ($.mouse-click-posn it) + (list (annotate 'record (list ($.posn-x posn) ($.posn-y posn))) t)) + (list nil nil)) + ; user-defined functions next-input (let idx caller-arg-idx.routine* |