perm filename XGP[1,LMM] blob
sn#031672 filedate 1973-03-24 generic text, type T, neo UTF8
(PROGN (LISPXPRIN1 (QUOTE "FILE CREATED ") T) (LISPXPRIN1 (QUOTE
"24-MAR-73 06:49:23") T) (LISPXTERPRI T))
(LISPXPRINT (QUOTE XGPVARS) T)
(RPAQQ XGPVARS ((FNS III REQUIRE PROTECT PAVECT AIVECT AVECT MARGIN
MOVBITS SELFONT SETFONT MAKNUM OUTNDSXGP XGPPOSLABEL XGPLINE) (VARS
CRLF RARROW LAM RUB)))
(DEFINEQ
(III
(LAMBDA (FIL REL) (PRIN1 (CONCAT RUB "⊗" (CHARACTER (FIX (FTIMES
(OR REL 1) 64.0))) FIL CRLF))))
(REQUIRE
(LAMBDA (FIL) (PRIN1 (CONCAT RUB "@" FIL CRLF))))
(PROTECT
(LAMBDA NIL (PRIN1 "≠")))
(PAVECT
(LAMBDA (N1 N2) (PRIN1 (CONCAT RUB "P" (MAKNUM N1) (MAKNUM N2)))))
(AIVECT
(LAMBDA (N1 N2) (PRIN1 (CONCAT RUB "I" (MAKNUM N1) (MAKNUM N2)))))
(AVECT
(LAMBDA (N1 N2) (PRIN1 (CONCAT RUB "V" (MAKNUM N1) (MAKNUM N2)))))
(MARGIN
(NLAMBDA (TYPE NUM) (PRIN1 (CONCAT RUB "M" (NTHCHAR TYPE 1) (MAKNUM
(EVAL NUM))))))
(MOVBITS
(LAMBDA (BITS) (PRIN1 (COND ((MINUSP BITS) (CONCAT RUB RUB (CHARACTER
(MINUS BITS)))) (T (CONCAT RUB " " (CHARACTER BITS)))))))
(SELFONT
(LAMBDA (DIG) (PRIN1 (CONCAT RUB DIG))))
(SETFONT
(LAMBDA (FIL DIG) (PRIN1 (COND ((STRPOS ".XAP[XGP" FIL) (CONCAT RUB
LAM FIL RARROW DIG)) (T (CONCAT RUB LAM FIL ".XAP[XGP,TVR]" RARROW
DIG))))))
(MAKNUM
(LAMBDA (I) (CONCAT (CHARACTER (IPLUS (IQUOTIENT I 128) 64)) (CHARACTER
(LOGAND I 127)))))
(OUTNDSXGP
(LAMBDA (FIL) (RESETFORM (OUTFILE (OR FIL (PROGN (PRIN1 "XGP FILE? "
T) (READ T)))) (PROG (X I X1) (SETSCALE 10 20 10 20) (XGPPOSLABEL
13 13 TITLE) (FOR I := (1 NMX) WHEN (NOT (ZEROP (ELT NODE I))) AS
NEW LL IS (CDR (ASSOC I LABEL)) DO (XGPPOSLABEL (ELT NODE I) (ELT
NODE (IPLUS I 20)) (OR LL I))) (FOR NEW LIN IN (CAR (LAST STACK))
DO (XGPLINE (ELT NODE (CAAR LIN)) (ELT NODE (IPLUS (CAAR LIN) 20))
(ELT NODE (CDAR LIN)) (ELT NODE (IPLUS (CDAR LIN) 20)))) (RETURN (
REVERSE X))))))
(XGPPOSLABEL
(LAMBDA (X Y MS) (PROG2 (AIVECT (SCALX X) (SCALY Y)) (PRIN1 MS))))
(XGPLINE
(LAMBDA (X1 Y1 X2 Y2) (AIVECT (SCALX X1) (SCALY Y1)) (AVECT (SCALX
X2) (SCALY Y2))))
)
(RPAQQ CRLF "
")
(RPAQQ RARROW →)
(RPAQQ LAM λ)
(RPAQQ RUB ␈)
STOP