akkartik
/
mu
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

565 

Reduce printing primitives before I start messing with fake versions.
This commit is contained in:
Kartik K. Agaram 2015-01-14 20:21:52 -08:00
parent 14a1649c94
commit ac29c6a10c
1 changed files with 4 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
mu.arc
View File

@ -642,14 +642,16 @@
(die (v arg.1))) ; other routines will be able to look at the error status
; cursor-based (text mode) interaction
cursor-mode
(do1 nil (if (no ($.current-charterm)) ($.open-charterm)))
retro-mode
(do1 nil (if ($.current-charterm) ($.close-charterm)))
clear-screen
(do1 nil
(if ($.current-charterm)
($.charterm-clear-screen)
($.graphics-open?)
($.clear-viewport Viewport)))
clear-line
(do1 nil ($.charterm-clear-line))
cursor
(do1 nil ($.charterm-cursor (m arg.0) (m arg.1)))
cursor-to-next-line
@ -666,14 +668,6 @@
($.charterm-read-key)
($.graphics-open?)
($.get-key-press Viewport))
bold-mode
(do1 nil ($.charterm-bold))
non-bold-mode
(do1 nil ($.charterm-normal))
cursor-mode
(do1 nil (if (no ($.current-charterm)) ($.open-charterm)))
retro-mode
(do1 nil (if ($.current-charterm) ($.close-charterm)))
; graphics
window-on