mirror of
https://github.com/PDP-10/its.git
synced 2026-01-21 02:08:50 +00:00
85994ed770
Resolves #284. Commented out uses of time-origin in maxtul; mcldmp (init) until we can figure out why it gives arithmetic overflows under the emulators. Updated the expect script statements in build_macsyma_portion to not attempt to match expected strings, but simply sleep for some time since in some cases the matching appears not to work.
34 lines
1.3 KiB
Common Lisp
34 lines
1.3 KiB
Common Lisp
;;;;;;;;;;;;;;;;;;; -*- Mode: Lisp; Package: Macsyma -*- ;;;;;;;;;;;;;;;;;;;
|
|
;;; (c) Copyright 1980 Massachusetts Institute of Technology ;;;
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(macsyma-module vt100)
|
|
|
|
;; Package for doing character graphics on VT-100s and VT-132s. The Macsyma
|
|
;; display package uses this to draw quotients, matrices, boxes, etc. with
|
|
;; contiguous lines. This file gets loaded when Macsyma is started up and
|
|
;; it is determined that a VT-100 or VT-132 is being used.
|
|
|
|
(DEFUN CG-BEGIN-GRAPHICS () (CG-IMAGE-TYO #^N))
|
|
(DEFUN CG-END-GRAPHICS () (CG-IMAGE-TYO #^O))
|
|
|
|
(DEFUN CG-VERTICAL-BAR () (CG-TYO #/x))
|
|
(DEFUN CG-HORIZONTAL-BAR () (CG-TYO #/q))
|
|
|
|
(DEFUN CG-UL-CORNER () (CG-TYO #/l))
|
|
(DEFUN CG-UR-CORNER () (CG-TYO #/k))
|
|
(DEFUN CG-LL-CORNER () (CG-TYO #/m))
|
|
(DEFUN CG-LR-CORNER () (CG-TYO #/j))
|
|
|
|
;; Get the terminal in an unwedged state. Set up character set G0
|
|
;; as the ASCII set and G1 as the special graphics set. Then
|
|
;; make sure we are using the G0 set.
|
|
|
|
(CG-IMAGE-TYO-N '(#\ALT #/( #/B #\ALT #/) #/0 #^O))
|
|
|
|
;; This should really be set in ALJABR;LOADER and not here, but we're not
|
|
;; always able to recognize the terminal type. For example, coming in via
|
|
;; supdup. So we want things to turn on when the file is loaded by hand.
|
|
|
|
(SETQ CHARACTER-GRAPHICS-TTY T)
|