;;;;;;;;;;;;;;;;;;; -*- 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)