(FILECREATED " 1-DEC-83 12:53:32" {ICE}<OKEEFE>TRILLIUM>TIMING.;11 49804
changes to: (VARS TIMINGCOMS)
(FNS ANALYZE.LINE.OF.TEXT ANALYZE.LINE.OF.TEXT.AS.BITMAP
ANALYZE.LINE.OF.TEXT.AS.UISSPRIMTEXT APPLY.ACTIONFORM.TEST
COMPUTE.ACTION.IF.FORM CREATE.ACTIONFORM CREATE.OBJECT1 CVT DRAW.PAGE
ERASEBOX ERASEBOX1 FILL.BITMAP FLIST LOGOSIM MAKEBOX PAGECREATOR PLACEPAGE
POLY TOMSBOX UNDO.QUOTE UNDO.QUOTES VMAKEBOX WALK ANDCOND CELLDIVIDE CELLPLUS
CELLTIMES CELLXPLUS CELLXSUB CHANGE.CELL.FROM.CELL CHANGE.CELL.FROM.LIST
IFCELLCOND IFCOND IFELSECELLCOND IFELSECOND INITDIAGMANAGER IOTCLEAR
IOTCOMPONENTIN IOTCOMPONENTOUT IOTENTERDIAG IOTEXITDIAG IOTINTERRUPT
IOTMEMORYARRAYREAD IOTMEMORYREAD IOTSTART IOTSTOP JOBCREATE JOBDELETE JOBHOLD
JOBLOGO JOBMODIFY JOBPRINT JOBPROOF JOBSCAN JOBSCANEND JOBSCANSTART
JOBSETSAVE LOGORETRIEVE NEWFEEDERSTATUS PLUSCELLCELL PRINTENABLE PRINTNOW
PROOFBLOCK RESCANBLOCK SET.CELL.FROM.CELL SET.CELL.FROM.LIST STOPDIAGMANAGER
SWITCHDIALOG TIMESCELLCELL)
previous date: " 1-DEC-83 10:31:36" {ICE}<OKEEFE>TRILLIUM>TIMING.;10)
(PRETTYCOMPRINT TIMINGCOMS)
(RPAQQ TIMINGCOMS [(FNS ANALYZE.LINE.OF.TEXT ANALYZE.LINE.OF.TEXT.AS.BITMAP
ANALYZE.LINE.OF.TEXT.AS.UISSPRIMTEXT ANDCOND APPLY.ACTIONFORM.TEST CELLDIVIDE
CELLPLUS CELLTIMES CELLXPLUS CELLXSUB CHANGE.CELL.FROM.CELL
CHANGE.CELL.FROM.LIST COMPUTE.ACTION.IF.FORM CREATE.ACTIONFORM CREATE.OBJECT1
CVT DRAW.PAGE ERASEBOX ERASEBOX1 FILL.BITMAP FLIST IFCELLCOND IFCOND
IFELSECELLCOND IFELSECOND INITDIAGMANAGER INTERFACE.WINDOW.BUTTONEVENTFN
IOTCLEAR IOTCOMPONENTIN IOTCOMPONENTOUT IOTENTERDIAG IOTEXITDIAG IOTINTERRUPT
IOTMEMORYARRAYREAD IOTMEMORYREAD IOTSTART IOTSTOP JOBCREATE JOBDELETE JOBHOLD
JOBLOGO JOBMODIFY JOBPRINT JOBPROOF JOBSCAN JOBSCANEND JOBSCANSTART
JOBSETSAVE LOGORETRIEVE LOGOSIM MAKEBOX NEWFEEDERSTATUS
OLD.INTERFACE.WINDOW.BUTTONEVENTFN PAGECREATOR PLACEPAGE PLUSCELLCELL POLY
PRINTENABLE PRINTNOW PROOFBLOCK RESCANBLOCK RESET.INTERFACE.WINDOWFNS RI
SET.CELL.FROM.CELL SET.CELL.FROM.LIST STARTTIME STOPDIAGMANAGER SWITCHDIALOG
TIMESCELLCELL TOMSBOX UNDO.QUOTE UNDO.QUOTES VMAKEBOX WALK)
[VARS (LINE.OF.TEXT.AS.UISSPRIMTEXT.FLG)
(XXX (QUOTE (Q W E Y T R U I O P L A K S J D H F G Z M X N C V B Q W E Y T R U I O P L
A K S J D H F G Z M X N C V B Q W E Y T R U I O P L A K S J D H F G Z M
X N C V B Q W E Y T R U I O P L A K S J D H F G Z M X N C V B Q W E Y T
R U I O P L A K S J D H F G Z M X N C V B Q W E Y T R U I O P L A K S J
D H F G Z M X N C V B Q W E Y T R U I O P L A K S J D H F G Z M X N C V
B Q W E Y T R U I O P L A K S J D H F G Z M X N C V B Q W E Y T R U I O
P L A K S J D H F G Z M X N C V B Q W E Y T R U I O P L A K S J D H F G
Z M X N C V B Q W E Y T R U I O P L A K S J D H F G Z M X N C V B Q W E
Y T R U I O P L A K S J D H F G Z M X N C V B Q W E Y T R U I O P L A K
S J D H F G Z M X N C V B Q W E Y T R U I O P L A K S J D H F G Z M X N
C V B Q W E Y T R U I O P L A K S J D H F G Z M X N C V B Q W E Y T R U
I O P L A K S J D H F G Z M X N C V B Q W E Y T R U I O P L A K S J D H
F G Z M X N C V B Q W E Y T R U I O P L A K S J D H F G Z M X N C V B Q
W E Y T R U I O P L A K S J D H F G Z M X N C V B Q W E Y T R U I O P L
A K S J D H F G Z M X N C V B Q W E Y T R U I O P L A K S J D H F G Z M
X N C V B Q W E Y T R U I O P L A K S J D H F G Z M X N C V B Q W E Y T
R U I O P L A K S J D H F G Z M X N C V B Q W E Y T R U I O P L A K S J
D H F G Z M X N C V B Q W E Y T R U I O P L A K S J D H F G Z M X N C V
B Q W E Y T R U I O P L A K S J D H F G Z M X N C V B Q W E Y T R U I O
P L A K S J D H F G Z M X N C V B Q W E Y T R U I O P L A K S J D H F G
Z M X N C V B Q W E Y T R U I O P L A K S J D H F G Z M X N C V B Q W E
Y T R U I O P L A K S J D H F G Z M X N C V B Q W E Y T R U I O P L A K
S J D H F G Z M X N C V B Q W E Y T R U I O P L A K S J D H F G Z M X N
C V B]
(MACROS ACTION.IF)
[P (SETQ UISS-ACTIONFNS (FILEFNSLST (QUOTE UISS-ACTIONFORMS]
(DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
(ADDVARS (NLAMA SET.CELL.FROM.LIST CHANGE.CELL.FROM.LIST)
(NLAML STOPDIAGMANAGER RESCANBLOCK PROOFBLOCK PRINTNOW JOBLOGO
IOTMEMORYREAD IOTMEMORYARRAYREAD IOTENTERDIAG IOTCOMPONENTOUT
IOTCOMPONENTIN INITDIAGMANAGER)
(LAMA])
(DEFINEQ
(ANALYZE.LINE.OF.TEXT
[LAMBDA NIL (* edited: " 3-OCT-83 09:24")
(COND
([AND LINE.OF.TEXT.AS.UISSPRIMTEXT.FLG (EQ OPERATION (QUOTE REPLACE))
(OR (EQUAL SOURCE (QUOTE INPUT))
(EQUAL SOURCE (QUOTE INVERT)))
(OR (EQUAL FIGURE-COLOR (QUOTE BLACK))
(EQUAL FIGURE-COLOR (QUOTE WHITE)))
(OR (EQUAL GROUND-COLOR (QUOTE BLACK))
(EQUAL GROUND-COLOR (QUOTE WHITE]
(ANALYZE.LINE.OF.TEXT.AS.UISSPRIMTEXT))
(T (ANALYZE.LINE.OF.TEXT.AS.BITMAP])
(ANALYZE.LINE.OF.TEXT.AS.BITMAP
[LAMBDA NIL (* DAHJr "13-JAN-83 09:11")
(PROG (XCOORD YCOORD FONT.DESCRIPTOR HEIGHT WIDTH DESCENT BITMAP DISPLAY.STREAM TX)
(DECLARE (SPECVARS . T))
(SETQ XCOORD (fetch (POSITION XCOORD) of PLACEMENT))
(SETQ YCOORD (fetch (POSITION YCOORD) of PLACEMENT))
(SETQ FONT.DESCRIPTOR (FIND.FONT FONT))
(SETQ HEIGHT (FONTPROP FONT.DESCRIPTOR (QUOTE HEIGHT)))
(SETQ WIDTH (STRINGWIDTH LINE FONT.DESCRIPTOR))
(SETQ DESCENT (FONTPROP FONT.DESCRIPTOR (QUOTE DESCENT)))
(SETQ BITMAP (BITMAPCREATE WIDTH HEIGHT))
[SETQ DISPLAY.STREAM (OR ANALYZE.LOT.DSP (SETQ ANALYZE.LOT.DSP (DSPCREATE]
(DSPDESTINATION BITMAP DISPLAY.STREAM)
(DSPFONT FONT.DESCRIPTOR DISPLAY.STREAM)
(DSPXPOSITION 0 DISPLAY.STREAM)
(DSPYPOSITION DESCENT DISPLAY.STREAM)
(PRIN1 LINE DISPLAY.STREAM)
(SETQ TX (SELECTQ XALIGNMENT
(LEFT XCOORD)
(CENTER (IDIFFERENCE XCOORD (IQUOTIENT WIDTH 2)))
(RIGHT (IDIFFERENCE XCOORD WIDTH))
(SHOULDNT "Unrecognized keyword in ANALYZE.LINE.OF.TEXT")))
(RETURN (LIST (ITEM.CREATE PICTURE (PLACEMENT (create POSITION
XCOORD ← TX
YCOORD ←(IDIFFERENCE YCOORD DESCENT)))
(BITMAP BITMAP)
(SOURCE SOURCE)
(OPERATION OPERATION)
(TEXTURE TEXTURE)
(FIGURE-COLOR FIGURE-COLOR)
(GROUND-COLOR GROUND-COLOR])
(ANALYZE.LINE.OF.TEXT.AS.UISSPRIMTEXT
[LAMBDA NIL (* HaKo "28-SEP-83 10:05")
(LIST (ITEM.CREATE UISSPRIMTEXT (PLACEMENT PLACEMENT)
(LINE LINE)
(XALIGNMENT XALIGNMENT)
(FONT FONT)
(SOURCE SOURCE)
(OPERATION OPERATION)
(TEXTURE TEXTURE)
(FIGURE-COLOR FIGURE-COLOR)
(GROUND-COLOR GROUND-COLOR])
(ANDCOND
[LAMBDA (RELOP1 CELLNAME1 VALUE1 RELOP2 CELLNAME2 VALUE2 ACTIONFORM ARGLIST)
(* PO " 9-SEP-83 12:16")
(COND
((AND (APPLY.ACTIONFORM.TEST RELOP1 (GET.CURRENT.VALUE CELLNAME1)
VALUE1)
(APPLY.ACTIONFORM.TEST RELOP2 (GET.CURRENT.VALUE CELLNAME2)
VALUE2))
(TRILLIUM.EVAL (QUOTE (APPLY ACTIONFORM ARGLIST))
"Inside ANDCOND action"])
(APPLY.ACTIONFORM.TEST
[LAMBDA (RELOP X Y) (* HaKo "21-JUL-83 17:39")
(SELECTQ RELOP
(EQ (EQUAL X Y))
(NEQ (NOT (EQUAL X Y)))
(GREATER (GREATERP X Y))
(LESSER (LESSP X Y))
(GREATEREQ (NOT (LESSP X Y)))
(LESSEREQ (NOT (GREATERP X Y)))
(PROGN (TRILLIUM.PRINTOUT (CONCAT "Unknown ActionForm relational operator: " RELOP))
NIL])
(CELLDIVIDE
[LAMBDA (QUOTIENT.CELL DIVISOR.CELL DIVIDEND.CELL) (* PO " 8-SEP-83 13:17")
(CHANGE.CURRENT.VALUE QUOTIENT.CELL (QUOTIENT (GET.CURRENT.VALUE DIVIDEND.CELL)
(GET.CURRENT.VALUE DIVISOR.CELL])
(CELLPLUS
[LAMBDA (CELL X) (* HaKo "21-JUL-83 11:53")
(CHANGE.CURRENT.VALUE CELL (PLUS (GET.CURRENT.VALUE CELL)
X])
(CELLTIMES
[LAMBDA (CELL X) (* HaKo "21-JUL-83 11:54")
(CHANGE.CURRENT.VALUE CELL (TIMES (GET.CURRENT.VALUE CELL)
X])
(CELLXPLUS
[LAMBDA (RECELL XCELL CELL1 CELL2 CELL3) (* HaKo "21-JUL-83 11:56")
(CHANGE.CURRENT.VALUE RECELL (TIMES (GET.CURRENT.VALUE XCELL)
(PLUS (GET.CURRENT.VALUE CELL1)
(GET.CURRENT.VALUE CELL2)
(GET.CURRENT.VALUE CELL3])
(CELLXSUB
[LAMBDA (RECELL XXCELL CELL1 CELL2) (* HaKo "21-JUL-83 11:57")
(CHANGE.CURRENT.VALUE RECELL (TIMES (GET.CURRENT.VALUE XXCELL)
(DIFFERENCE (GET.CURRENT.VALUE CELL1)
(GET.CURRENT.VALUE CELL2])
(CHANGE.CELL.FROM.CELL
[LAMBDA (CELL1 CELL2) (* HaKo "21-JUL-83 11:24")
(CHANGE.CURRENT.VALUE CELL1 (GET.CURRENT.VALUE CELL2])
(CHANGE.CELL.FROM.LIST
[NLAMBDA CELLS (* HaKo "31-AUG-83 10:26")
(UNDO.QUOTES CELLS)
(CHANGE.CURRENT.VALUE (CAR CELLS)
(for CELL in (CDR CELLS) collect (GET.CURRENT.VALUE CELL])
(COMPUTE.ACTION.IF.FORM
[LAMBDA (IFARGS) (* edited: " 2-NOV-83 09:43")
(PROG (ACTION VALUE1 OP1 VALUE2 BOOLFN VALUE3 OP2 VALUE4 (TEST IFARGS)
(THENPART (MEMB (QUOTE THEN)
IFARGS))
(ELSEPART (MEMB (QUOTE ELSE)
IFARGS)))
(SETQ TEST (LDIFF TEST THENPART))
(SETQ THENPART (CADR (LDIFF THENPART ELSEPART)))
(SETQ ELSEPART (CADR ELSEPART))
(SETQ VALUE1 (CAR TEST))
(COND
((EQLENGTH TEST 1)
(SETQ OP1 (QUOTE =))
(SETQ VALUE2 (QUOTE TRUE)))
((EQLENGTH TEST 3)
(SETQ OP1 (CADR TEST))
(SETQ VALUE2 (CADDR TEST)))
[(AND (EQLENGTH TEST 7)
(EQ (SETQ BOOLFN (CAR (NTH TEST 4)))
(QUOTE AND)))
(SETQ OP1 (CADR TEST))
(SETQ VALUE2 (CADDR TEST))
(SETQ VALUE3 (CAR (NTH TEST 5)))
(SETQ OP2 (CAR (NTH TEST 6)))
(SETQ VALUE4 (CAR (NTH TEST 7]
(T (ERROR "Unexpected ACTION.IF format: " IFARGS)))
[SETQ ACTION (COND
[[AND (LITATOM VALUE1)
(LITATOM VALUE2)
(NOT (EQ VALUE2 (QUOTE TRUE]
(COND
(ELSEPART (QUOTE IFELSECELLCOND))
(T (QUOTE IFCELLCOND]
(ELSEPART (QUOTE IFELSECOND))
(BOOLFN (QUOTE ANDCOND))
(T (SETQ ACTION (QUOTE IFCOND]
(SETQ OP1 (SELECTQ OP1
(= (QUOTE EQ))
(< (QUOTE LESSER))
(> (QUOTE GREATER))
(>= (QUOTE GREATEREQ))
(<= (QUOTE LESSEREQ))
(<> (QUOTE NEQ))
OP1))
(AND BOOLFN (SETQ OP2 (SELECTQ OP2
(= (QUOTE EQ))
(< (QUOTE LESSER))
(> (QUOTE GREATER))
(>= (QUOTE GREATEREQ))
(<= (QUOTE LESSEREQ))
(<> (QUOTE NEQ))
OP2)))
(RETURN (COND
(ELSEPART (LIST ACTION (KWOTE OP1)
(KWOTE VALUE1)
(KWOTE VALUE2)
(KWOTE THENPART)
(KWOTE ELSEPART)))
[BOOLFN (LIST ACTION (KWOTE OP1)
(KWOTE VALUE1)
(KWOTE VALUE2)
(KWOTE OP2)
(KWOTE VALUE3)
(KWOTE VALUE4)
(KWOTE (CAR THENPART))
(KWOTE (CDR THENPART]
(T (LIST ACTION (KWOTE OP1)
(KWOTE VALUE1)
(KWOTE VALUE2)
(KWOTE (CAR THENPART))
(KWOTE (CDR THENPART])
(CREATE.ACTIONFORM
[LAMBDA NIL (* HaKo " 4-AUG-83 14:29")
(PROG [FUNC FUNCTEMPLATE ACTIONFNS (STANDARD-ACTIONFNS (QUOTE (CHANGE.CELL FRAME.GO.TO FRAME.POP
FRAME.PUSH
NEXT.DIGIT.CELL PROG
SELECTQ SET.CELL)))
(TEMPLATES (QUOTE ((ANDCOND (QUOTE ONE.OF.EQ-NEQ-GREATER-LESSER-GREATEREQ-LESSEREQ)
(QUOTE CELL.1)
(QUOTE VALUE.1)
(QUOTE ONE.OF.EQ-NEQ-GREATER-LESSER-GREATEREQ-LESSEREQ)
(QUOTE CELL.2)
(QUOTE VALUE.2)
(QUOTE (SOMEACTION.FORM)))
(CHANGE.CELL CELLNAME NEWVALUE)
(CHANGE.CELL.FROM.CELL (QUOTE CELLTOCHANGE)
(QUOTE CELLWHOSEVALUEWILLBEUSED))
(CHANGE.CELL.FROM.LIST (QUOTE CELLTOBECHANGED)
(QUOTE CELL2)
(QUOTE ...CELLN))
(FRAME.GO.TO FRAME.NAME INITIALIZE.STATUS)
(FRAME.POP FRAME.NAME INITIALIZE.STATUS)
(FRAME.PUSH FRAME.NAME INITIALIZE.STATUS)
(IFCELLCOND (QUOTE
ONE.OF.EQ-NEQ-GREATER-LESSER-GREATEREQ-LESSEREQ)
(QUOTE CELL.1)
(QUOTE CELL.2)
(QUOTE (ACTION.FORM.NAME))
(QUOTE (ACTION.FORM.ARGUMENTS)))
(IFCOND (QUOTE ONE.OF.EQ-NEQ-GREATER-LESSER-GREATEREQ-LESSEREQ)
(QUOTE CELL.1)
(A.CONSTANT.VALUE.FOR.COMPARISON)
(QUOTE (ACTION.FORM.NAME))
(QUOTE (ACTION.FORM.ARGUMENTS)))
(IFELSECELLCOND (QUOTE
ONE.OF.EQ-NEQ-GREATER-LESSER-GREATEREQ-LESSEREQ)
(QUOTE CELL.1)
(QUOTE CELL.2)
(QUOTE (ACTION.FORM.1))
(QUOTE (ACTION.FORM.2.{ELSE.FORM})))
(IFELSECOND (QUOTE
ONE.OF.EQ-NEQ-GREATER-LESSER-GREATEREQ-LESSEREQ)
(QUOTE CELL.1)
(A.CONSTANT.VALUE.FOR.COMPARISON)
(QUOTE (ACTION.FORM.1))
(QUOTE (ACTION.FORM.2.{ELSE.FORM})))
(JOBCANEND)
(JOBCREATE (QUOTE JOBID.CELL)
(QUOTE TIMESTAMP.CELL))
(JOBDELETE (QUOTE TIMESTAMP.CELL))
(JOBHOLD (QUOTE TIMESTAMP.CELL))
(JOBMODIFY (QUOTE TIMESTAMP.CELL))
(JOBPRINT (QUOTE TIMESTAMP.CELL))
(JOBPROOF (QUOTE TIMESTAMP.CELL))
(JOBSCANSTART (QUOTE TIMESTAMP.CELL))
(JOBSETSAVE (QUOTE TIMESTAMP.CELL)
(QUOTE
TRUE.IF.NOT.DELETED.AFTER.PRINTING.OTHERWISE.FALSE))
(NEWFEEDERSTATUS)
(NEXT.DIGIT.CELL CELL DIGIT)
(PLUSCELLCELL RECIPIENTCELL CELLTOBEADDED)
(PRINTENABLE (QUOTE (TRUE.IF.PRINTING.IS.TO.BE.ENABLED)))
(PROG NIL
(ACTION.FORM.1)
(ACTION.FORM.N))
(SELECTQ (CELL.VALUE SOMECELL)
(VALUE.1 (ACTION.FORM))
(VALUE.2 (ACTION.FORM))
NIL)
(SET.CELL CELL VALUE)
(SET.CELL.FROM.CELL (QUOTE CELL.1)
(QUOTE CELL.2))
(SET.CELL.FROM.LIST (QUOTE CELL.1)
(QUOTE CELL.2)
(QUOTE ...CELL.N))
(SWITCHDIALOG (QUOTE DIALOG.NAME)
(QUOTE FRAME.NAME)
(QUOTE INITIALIZESTATUS))
(TIMESCELLCELL (QUOTE RECIPIENTCELL)
(QUOTE MULTIPLIERCELL]
[COND
((NOT (BOUNDP (QUOTE CREATE.ACTIONFORM.MENU)))
(SETQ ACTIONFNS (UNION STANDARD-ACTIONFNS UISS-ACTIONFNS))
(SETQ ACTIONFNS (SORT (INTERSECTION ACTIONFNS ACTIONFNS)))
(SETQ CREATE.ACTIONFORM.MENU
(create MENU
TITLE ← "Allowable Action Forms"
ITEMS ← ACTIONFNS
CENTERFLG ← T
MENUFONT ←(FONTCREATE (QUOTE HELVETICA)
10
(QUOTE BOLD))
CHANGEOFFSETFLG ← T]
(SETQ FUNC (MENU CREATE.ACTIONFORM.MENU))
(SETQ FUNCTEMPLATE (FASSOC FUNC TEMPLATES))
(RETURN (EDIT.FORM (COND
(FUNCTEMPLATE (COPYALL FUNCTEMPLATE))
[FUNC (CONS FUNC (COPY (ARGLIST FUNC]
(T (COPY (QUOTE (ACTIONNAME ACTIONARGS])
(CREATE.OBJECT1
[LAMBDA (TYPE) (* HaKo "21-JUL-83 17:21")
(COND
((ATOM TYPE)
(CREATE.ITEM TYPE))
(T (SELECTQ (CAR TYPE)
(POSITION (CREATE.POSITION))
(LOCATION (CREATE.LOCATION))
(REGION (CREATE.REGION))
(GRIDREGION (CREATE.GRIDREGION))
(QUOTE (CADR TYPE))
(POSITION2 (CREATE.POSITION2))
(LOCATION2 (CREATE.LOCATION2))
(SHADE (EDITSHADE))
(BITMAP (CREATE.BITMAP))
(BITMAP.NAME (CREATE.BITMAP.NAME))
(COLOR.NAME (CREATE.COLOR.NAME))
(COLOR.NUMBER (CREATE.COLOR.NUMBER))
(COPY (COPYALL (CADR TYPE)))
(ITEM (CREATE.ANY.ITEM))
(ITYPE.CLASSES (CREATE.ITYPE.CLASSES))
(FRAME (CREATE.FRAME))
(FRAME.CLASSES (CREATE.FRAME.CLASSES))
(LIST (CREATE.LIST (CADR TYPE)))
(STRUCTURE (CREATE.STRUCTURE (CADR TYPE)))
(ONEOF (CREATE.ONEOF (CADR TYPE)))
(CONSTANT (CREATE.CONSTANT))
(INTEGER (RNUMBER))
(FONT (ACQUIRE.FONT))
(FORM (CREATE.ACTIONFORM))
[(ANY STRING CELL)
(PROG (EXPR)
(TRILLIUM.PRINTOUT "Please give a LISP form for a LISP object of type "
(CAR TYPE)
": ")
(SETQ EXPR (PROMPT.READ))
(RETURN (COND
((AND (LISTP EXPR)
(EQ (CAR EXPR)
(QUOTE EVAL)))
(EVAL (CADR EXPR)))
(T EXPR]
(SHOULDNT "Unrecognized LISP object type in CREATE.OBJECT"])
(CVT
[LAMBDA (LOL) (* DAHJr "14-JAN-83 10:14")
(PROG (RES)
(SETQ RES (CAR LOL))
(for LN in (CDR LOL) do (SETQ RES (CONCAT RES " " LN)))
(RETURN RES])
(DRAW.PAGE
[LAMBDA (W H BM SCALE) (* edited: "30-AUG-83 17:10")
(* edited: "25-APR-83 09:26")
(* "CREATED BY SMR")
(PROG (TSTREAM X Y)
[SETQ X (IDIFFERENCE (TIMES .5 (fetch (BITMAP BITMAPWIDTH) of BM))
(PLUS 2 (TIMES SCALE W .5]
[SETQ Y (IDIFFERENCE (TIMES .5 (fetch (BITMAP BITMAPHEIGHT) of BM))
(PLUS 0 (TIMES SCALE H .5]
(BITBLT NIL 0 0 BM 0 0 (fetch (BITMAP BITMAPWIDTH) of BM)
(fetch (BITMAP BITMAPHEIGHT) of BM)
(QUOTE TEXTURE)
(QUOTE REPLACE)
WHITESHADE)
(SETQ TSTREAM (DSPCREATE BM))
(DSPFONT (QUOTE (HELVETICA 10 BOLD))
TSTREAM)
(DRAWLINE X Y X (IPLUS Y (TIMES SCALE H))
2
(QUOTE PAINT)
TSTREAM)
(DRAWLINE X (IPLUS Y (TIMES SCALE H))
(IPLUS X 1 (TIMES SCALE W))
(IPLUS Y (TIMES SCALE H))
2
(QUOTE PAINT)
TSTREAM)
(DRAWLINE (IPLUS X (TIMES SCALE W))
(IPLUS Y (TIMES SCALE H))
(IPLUS X (TIMES SCALE W))
Y 2 (QUOTE PAINT)
TSTREAM)
(DRAWLINE (IPLUS X (TIMES SCALE W))
Y X Y 2 (QUOTE PAINT)
TSTREAM)
(for I from 1 to (FIX H)
do (DRAWLINE X (IPLUS Y (ITIMES SCALE I))
(IDIFFERENCE X 4)
(IPLUS Y (ITIMES SCALE I))
1
(QUOTE PAINT)
TSTREAM)
(COND
((LESSP I 10)
(MOVETO (IDIFFERENCE X 16)
(IDIFFERENCE (IPLUS Y (ITIMES SCALE I))
4)
TSTREAM))
(T (MOVETO (IDIFFERENCE X 24)
(IDIFFERENCE (IPLUS Y (ITIMES SCALE I))
4)
TSTREAM)))
(printout TSTREAM I))
(for J from 1 to (FIX W)
do (DRAWLINE (IPLUS X (ITIMES SCALE J))
Y
(IPLUS X (ITIMES SCALE J))
(IDIFFERENCE Y 4)
1
(QUOTE PAINT)
TSTREAM)
(COND
((LESSP J 10)
(MOVETO (IPLUS (IDIFFERENCE X 4)
(ITIMES SCALE J))
(IDIFFERENCE Y 16)
TSTREAM))
(T (MOVETO (IPLUS (IDIFFERENCE X 8)
(ITIMES SCALE J))
(IDIFFERENCE Y 16)
TSTREAM)))
(printout TSTREAM J))
(RETURN BM])
(ERASEBOX
[LAMBDA (X Y W H TW TH) (* edited: "28-APR-83 11:03")
(SETQ TSTREAM CURRENT.DSP)
(SETQ TW (TIMES 14 TW))
(SETQ TH (TIMES 14 TH))
(DRAWLINE X Y X (IPLUS Y (TIMES 14 H))
2
(QUOTE ERASE)
TSTREAM)
(DRAWLINE X (IPLUS Y (TIMES 14 H))
(IPLUS X 1 (TIMES 14 W))
(IPLUS Y (TIMES 14 H))
2
(QUOTE ERASE)
TSTREAM)
(DRAWLINE (IPLUS X (TIMES 14 W))
(IPLUS Y (TIMES 14 H))
(IPLUS X (TIMES 14 W))
Y 2 (QUOTE ERASE)
TSTREAM)
(DRAWLINE (IPLUS X (TIMES 14 W))
Y X Y 2 (QUOTE ERASE)
TSTREAM)
(DRAWLINE [IDIFFERENCE X (TIMES .5 (IDIFFERENCE TW (TIMES 14 W]
[IDIFFERENCE Y (TIMES .5 (IDIFFERENCE TH (TIMES 14 H]
[ADD1 (IDIFFERENCE X (TIMES .5 (IDIFFERENCE TW (TIMES 14 W]
[IDIFFERENCE Y (TIMES .5 (IDIFFERENCE TH (TIMES 14 H]
1
(QUOTE ERASE)
TSTREAM)
(DRAWLINE [IDIFFERENCE X (TIMES .5 (IDIFFERENCE TW (TIMES 14 W]
(IPLUS (TIMES .5 (DIFFERENCE TH (TIMES 14 H)))
Y
(TIMES 14 H))
[ADD1 (IDIFFERENCE X (TIMES .5 (IDIFFERENCE TW (TIMES 14 W]
(IPLUS (TIMES .5 (DIFFERENCE TH (TIMES 14 H)))
Y
(TIMES 14 H))
1
(QUOTE ERASE)
TSTREAM)
(DRAWLINE [IPLUS (IPLUS X (TIMES 14 W))
(TIMES .5 (IDIFFERENCE TW (TIMES 14 W]
(IPLUS (TIMES .5 (DIFFERENCE TH (TIMES 14 H)))
Y
(TIMES 14 H))
[SUB1 (IPLUS (IPLUS X (TIMES 14 W))
(TIMES .5 (IDIFFERENCE TW (TIMES 14 W]
(IPLUS (TIMES .5 (DIFFERENCE TH (TIMES 14 H)))
Y
(TIMES 14 H))
1
(QUOTE ERASE)
TSTREAM)
(DRAWLINE [IPLUS (IPLUS X (TIMES 14 W))
(TIMES .5 (IDIFFERENCE TW (TIMES 14 W]
[IDIFFERENCE Y (TIMES .5 (IDIFFERENCE TH (TIMES 14 H]
[SUB1 (IPLUS (IPLUS X (TIMES 14 W))
(TIMES .5 (IDIFFERENCE TW (TIMES 14 W]
[IDIFFERENCE Y (TIMES .5 (IDIFFERENCE TH (TIMES 14 H]
1
(QUOTE ERASE)
TSTREAM)
(for I from 1 to (FIX H)
do (DRAWLINE X (IPLUS Y (ITIMES 14 I))
(IDIFFERENCE X 4)
(IPLUS Y (ITIMES 14 I))
1
(QUOTE ERASE)
TSTREAM)
(COND
((LESSP I 10)
(MOVETO (IDIFFERENCE X 16)
(IDIFFERENCE (IPLUS Y (ITIMES 14 I))
4)
TSTREAM))
(T (MOVETO (IDIFFERENCE X 24)
(IDIFFERENCE (IPLUS Y (ITIMES 14 I))
4)
TSTREAM)))
(RELDRAWTO 15 0 12 (QUOTE ERASE)
CURRENT.DSP))
(for J from 1 to (FIX W)
do (DRAWLINE (IPLUS X (ITIMES 14 J))
Y
(IPLUS X (ITIMES 14 J))
(IDIFFERENCE Y 4)
1
(QUOTE ERASE)
TSTREAM)
(COND
((LESSP J 10)
(MOVETO (IPLUS (IDIFFERENCE X 4)
(ITIMES 14 J))
(IDIFFERENCE Y 16)
TSTREAM))
(T (MOVETO (IPLUS (IDIFFERENCE X 8)
(ITIMES 14 J))
(IDIFFERENCE Y 16)
TSTREAM)))
(RELDRAWTO 0 -40 40 (QUOTE ERASE)
CURRENT.DSP)
(RELDRAWTO 0 40 40 (QUOTE ERASE)
CURRENT.DSP])
(ERASEBOX1
[LAMBDA (X Y X2 Y2) (* edited: "28-APR-83 12:45")
(SETQ Y2 (PLUS 5 Y2))
(SETQ X2 (PLUS 5 X2))
(for I from X to X2 do (DRAWLINE I Y I Y2 10 (QUOTE ERASE)
CURRENT.DSP])
(FILL.BITMAP
[LAMBDA (W H BNAME) (* edited: "28-APR-83 10:06")
(* edited: "25-APR-83 09:26")
(* "CREATED BY SMR")
(PROG (OLDDS BM TSTREAM X Y V)
(SETQ V 14)
[SETQ X (TIMES .5 (IDIFFERENCE 238 (ITIMES W V]
[SETQ Y (TIMES .5 (IDIFFERENCE 308 (ITIMES H V]
(SETQ OLDDS (CURRENTDISPLAYSTREAM))
(SETQ BM (FIND.BITMAP BNAME))
(SETQ TSTREAM (DSPCREATE))
(CURRENTDISPLAYSTREAM TSTREAM)
(DSPDESTINATION BM)
(DSPRESET)
(DRAWLINE X Y X (IPLUS Y (TIMES V H))
2
(QUOTE PAINT)
TSTREAM)
(DRAWLINE X (IPLUS Y (TIMES V H))
(IPLUS X 1 (TIMES V W))
(IPLUS Y (TIMES V H))
2
(QUOTE PAINT)
TSTREAM)
(DRAWLINE (IPLUS X (TIMES V W))
(IPLUS Y (TIMES V H))
(IPLUS X (TIMES V W))
Y 2 (QUOTE PAINT)
TSTREAM)
(DRAWLINE (IPLUS X (TIMES V W))
Y X Y 2 (QUOTE PAINT)
TSTREAM)
(for I from 1 to (FIX H)
do (DRAWLINE X (IPLUS Y (ITIMES V I))
(IDIFFERENCE X 4)
(IPLUS Y (ITIMES V I))
1
(QUOTE PAINT)
TSTREAM)
(COND
((LESSP I 10)
(MOVETO (IDIFFERENCE X 16)
(IDIFFERENCE (IPLUS Y (ITIMES V I))
4)
TSTREAM))
(T (MOVETO (IDIFFERENCE X 24)
(IDIFFERENCE (IPLUS Y (ITIMES V I))
4)
TSTREAM)))
(printout TSTREAM .FONT FONT2 I))
(for J from 1 to (FIX W)
do (DRAWLINE (IPLUS X (ITIMES V J))
Y
(IPLUS X (ITIMES V J))
(IDIFFERENCE Y 4)
1
(QUOTE PAINT)
TSTREAM)
(COND
((LESSP J 10)
(MOVETO (IPLUS (IDIFFERENCE X 4)
(ITIMES V J))
(IDIFFERENCE Y 16)
TSTREAM))
(T (MOVETO (IPLUS (IDIFFERENCE X 8)
(ITIMES V J))
(IDIFFERENCE Y 16)
TSTREAM)))
(printout TSTREAM .FONT FONT2 J))
(CURRENTDISPLAYSTREAM OLDDS)
(RETURN BM])
(FLIST
[LAMBDA (TURNON) (* HaKo "21-JUL-83 17:25")
(COND
[TURNON (COND
((GETD (QUOTE CREATE.FORM)) (* for Independence release)
(MOVD? (QUOTE CREATE.FORM)
(QUOTE OLD.CREATE.FORM))
(MOVD (QUOTE CREATE.ACTIONFORM)
(QUOTE CREATE.FORM)))
(T (MOVD? (QUOTE CREATE.OBJECT)
(QUOTE OLD.CREATE.OBJECT))
(MOVD (QUOTE CREATE.OBJECT1)
(QUOTE CREATE.OBJECT]
(T (COND
((GETD (QUOTE CREATE.FORM)) (* for Independence release)
(MOVD (QUOTE OLD.CREATE.FORM)
(QUOTE CREATE.FORM)))
(T (MOVD (QUOTE OLD.CREATE.OBJECT)
(QUOTE CREATE.OBJECT])
(IFCELLCOND
[LAMBDA (RELOP CELL1 CELL2 ACTIONFORM ARGLIST) (* HaKo "21-JUL-83 17:35")
(COND
((APPLY.ACTIONFORM.TEST RELOP (GET.CURRENT.VALUE CELL1)
(GET.CURRENT.VALUE CELL2))
(APPLY ACTIONFORM ARGLIST])
(IFCOND
[LAMBDA (RELOP CELLNAME TVALUE ACTIONFORM ARGLIST) (* HaKo "21-JUL-83 17:35")
(COND
((APPLY.ACTIONFORM.TEST RELOP (GET.CURRENT.VALUE CELLNAME)
TVALUE)
(APPLY ACTIONFORM ARGLIST])
(IFELSECELLCOND
[LAMBDA (RELOP CELL1 CELL2 ACTION1 ACTION2) (* PO " 9-SEP-83 12:14")
(COND
((APPLY.ACTIONFORM.TEST RELOP (GET.CURRENT.VALUE CELL1)
(GET.CURRENT.VALUE CELL2))
(TRILLIUM.EVAL ACTION1 "Inside IFELSECELLCOND: then action"))
(T (TRILLIUM.EVAL ACTION2 "Inside IFELSECELLCOND: else action"])
(IFELSECOND
[LAMBDA (RELOP CELLNAME TVALUE ACTION1 ACTION2) (* PO " 9-SEP-83 12:13")
(COND
((APPLY.ACTIONFORM.TEST RELOP (GET.CURRENT.VALUE CELLNAME)
TVALUE)
(TRILLIUM.EVAL ACTION1 "Inside IFELSECOND: then action"))
(T (TRILLIUM.EVAL ACTION2 "Inside IFELSECOND: else action"])
(INITDIAGMANAGER
[NLAMBDA NIL (* HaKo " 3-AUG-83 12:28")
(TRILLIUM.PRINTOUT "INITDIAGMANAGER called."])
(INTERFACE.WINDOW.BUTTONEVENTFN
[LAMBDA (INTERFACE.WINDOW) (* PO "23-NOV-83 10:13")
(printout T T "*** " (SETQ N (ADD1 N))
" ***" T)
[TIMEALL (PROGN (TOTOPW INTERFACE.WINDOW)
(COND
((NEQ INTERFACE.WINDOW CURRENT.INTERFACE.WINDOW)
(RESTORE.INTERFACE.CONTEXT INTERFACE.WINDOW)))
(TRILLIUM.CLEAR.ALL.PROMPTING)
(ANALYZE.FRAME.IF.NECESSARY* CURRENT.FRAME)
(COND
((AND TRILLIUM.MODE (LASTMOUSESTATE (ONLY MIDDLE)))
(EDIT.FRAME CURRENT.FRAME))
((AND TRILLIUM.MODE (LASTMOUSESTATE (ONLY RIGHT)))
(DOWINDOWCOM INTERFACE.WINDOW))
(T (INTERFACE.WINDOW.LEFTBUTTONFN INTERFACE.WINDOW]
(printout T T])
(IOTCLEAR
[LAMBDA NIL (* PO "22-AUG-83 13:54")
(ACTION.PRINT "IOTCLEAR CALLED."])
(IOTCOMPONENTIN
[NLAMBDA (VALUE CELL.NAME.COUNT CELL.NAME.STATE) (* HaKo "29-JUL-83 11:42")
(TRILLIUM.PRINTOUT (CONCAT "IOTCOMPONENTIN called on " VALUE ", " CELL.NAME.COUNT " and "
CELL.NAME.STATE])
(IOTCOMPONENTOUT
[NLAMBDA (VALUE) (* HaKo "21-JUL-83 16:34")
(TRILLIUM.PRINTOUT (CONCAT "IOTCOMPONENTOUT called on " VALUE])
(IOTENTERDIAG
[NLAMBDA (DIAG.PROG.NO) (* PO " 8-SEP-83 13:33")
(TRILLIUM.PRINTOUT (CONCAT "IOTENTERDIAG called on " DIAG.PROG.NO])
(IOTEXITDIAG
[LAMBDA NIL (* PO " 8-SEP-83 13:20")
(ACTION.PRINT "IOTEXITDIAG called"])
(IOTINTERRUPT
[LAMBDA NIL (* PO "22-AUG-83 13:54")
(ACTION.PRINT "IOTINTERRUPT CALLED."])
(IOTMEMORYARRAYREAD
[NLAMBDA (BLOCK.OF.MEMORY ELEMENT.OF.ARRAY LOCATION.CELL)
(* PO " 7-OCT-83 13:14")
(ACTION.PRINT (CONCAT "IOTMEMORYARRAYREAD CALLED ON " BLOCK.OF.MEMORY ", " ELEMENT.OF.ARRAY
" AND "
LOCATION.CELL])
(IOTMEMORYREAD
[NLAMBDA (BLOCK.OF.MEMORY) (* PO " 8-SEP-83 13:30")
(TRILLIUM.PRINTOUT (CONCAT "IOTMEMORYREAD called on " BLOCK.OF.MEMORY])
(IOTSTART
[LAMBDA NIL (* PO "22-AUG-83 13:52")
(ACTION.PRINT "IOTSTART CALLED."])
(IOTSTOP
[LAMBDA NIL (* PO "22-AUG-83 13:53")
(ACTION.PRINT "IOTSTOP CALLED."])
(JOBCREATE
[LAMBDA (JOBID.CELL TIMESTAMP.CELL) (* HaKo "21-JUL-83 12:28")
(ACTION.PRINT (CONCAT "JOBCREATE called on " JOBID.CELL " and " TIMESTAMP.CELL])
(JOBDELETE
[LAMBDA (TIMESTAMP.CELL) (* HaKo "21-JUL-83 12:29")
(ACTION.PRINT (CONCAT "JOBDELETE called on " TIMESTAMP.CELL])
(JOBHOLD
[LAMBDA (TIMESTAMP.CELL) (* HaKo "21-JUL-83 12:29")
(ACTION.PRINT (CONCAT "JOBHOLD called on " TIMESTAMP.CELL])
(JOBLOGO
[NLAMBDA (TIMESTAMP.CELL) (* PO "24-AUG-83 09:44")
(ACTION.PRINT (CONCAT "JOBLOGO called on " TIMESTAMP.CELL])
(JOBMODIFY
[LAMBDA (TIMESTAMP.CELL) (* HaKo "21-JUL-83 12:30")
(ACTION.PRINT (CONCAT "JOBMODIFY called on " TIMESTAMP.CELL])
(JOBPRINT
[LAMBDA (TIMESTAMP.CELL) (* HaKo "21-JUL-83 12:30")
(ACTION.PRINT (CONCAT "JOBPRINT called on " TIMESTAMP.CELL])
(JOBPROOF
[LAMBDA (TIMESTAMP.CELL) (* HaKo "21-JUL-83 12:30")
(ACTION.PRINT (CONCAT "JOBPROOF called on " TIMESTAMP.CELL])
(JOBSCAN
[LAMBDA NIL (* PO "17-AUG-83 14:03")
(ACTION.PRINT "JOBSCAN CALLED."])
(JOBSCANEND
[LAMBDA NIL (* HaKo "21-JUL-83 12:32")
(ACTION.PRINT "JOBSCANEND called."])
(JOBSCANSTART
[LAMBDA (TIMESTAMP.CELL) (* HaKo "21-JUL-83 12:34")
(ACTION.PRINT (CONCAT "JOBSCANSTART called on " TIMESTAMP.CELL])
(JOBSETSAVE
[LAMBDA (TIMESTAMP.CELL DONTDELETEFLG) (* HaKo "21-JUL-83 12:34")
(ACTION.PRINT (CONCAT "JOBSETSAVE called on " TIMESTAMP.CELL " and " DONTDELETEFLG])
(LOGORETRIEVE
[LAMBDA (JOBNUMBER) (* HaKo "31-AUG-83 10:17")
(ACTION.PRINT (CONCAT "LOGORETRIEVE called on " JOBNUMBER])
(LOGOSIM
[LAMBDA (N) (* edited: "12-APR-83 11:47")
(PROG NIL
(CHANGE.CELL MCROPRT.CELL (CELL.VALUE CROPRIGHTX100.CELL))
(CHANGE.CELL LOGOEMPTY.CELL N)
(CHANGE.CELL MSCALEW.CELL (CELL.VALUE SCALEWX100.CELL))
(CHANGE.CELL MCROPLT.CELL (CELL.VALUE CROPLEFTX100.CELL))
(CHANGE.CELL MCROPUP.CELL (CELL.VALUE CROPUPX100.CELL))
(CHANGE.CELL MCROPDOWN.CELL (CELL.VALUE CROPDOWNX100.CELL))
(CHANGE.CELL MOSH.CELL (CELL.VALUE OSHX100.CELL))
(CHANGE.CELL MOSW.CELL (CELL.VALUE OSWX100.CELL))
(CHANGE.CELL MSHIFTH.CELL (CELL.VALUE SHIFTHX100.CELL))
(CHANGE.CELL MSHIFTW.CELL (CELL.VALUE SHIFTWX100.CELL])
(MAKEBOX
[LAMBDA (X Y W H TW TH) (* edited: "27-APR-83 15:18")
(SETQ TSTREAM CURRENT.DSP)
(SETQ TW (TIMES 14 TW))
(SETQ TH (TIMES 14 TH))
(DRAWLINE X Y X (IPLUS Y (TIMES 14 H))
2
(QUOTE PAINT)
TSTREAM)
(DRAWLINE X (IPLUS Y (TIMES 14 H))
(IPLUS X 1 (TIMES 14 W))
(IPLUS Y (TIMES 14 H))
2
(QUOTE PAINT)
TSTREAM)
(DRAWLINE (IPLUS X (TIMES 14 W))
(IPLUS Y (TIMES 14 H))
(IPLUS X (TIMES 14 W))
Y 2 (QUOTE PAINT)
TSTREAM)
(DRAWLINE (IPLUS X (TIMES 14 W))
Y X Y 2 (QUOTE PAINT)
TSTREAM)
(DRAWLINE [IDIFFERENCE X (TIMES .5 (IDIFFERENCE TW (TIMES 14 W]
[IDIFFERENCE Y (TIMES .5 (IDIFFERENCE TH (TIMES 14 H]
[ADD1 (IDIFFERENCE X (TIMES .5 (IDIFFERENCE TW (TIMES 14 W]
[IDIFFERENCE Y (TIMES .5 (IDIFFERENCE TH (TIMES 14 H]
1
(QUOTE PAINT)
TSTREAM)
(DRAWLINE [IDIFFERENCE X (TIMES .5 (IDIFFERENCE TW (TIMES 14 W]
(IPLUS (TIMES .5 (DIFFERENCE TH (TIMES 14 H)))
Y
(TIMES 14 H))
[ADD1 (IDIFFERENCE X (TIMES .5 (IDIFFERENCE TW (TIMES 14 W]
(IPLUS (TIMES .5 (DIFFERENCE TH (TIMES 14 H)))
Y
(TIMES 14 H))
1
(QUOTE PAINT)
TSTREAM)
(DRAWLINE [IPLUS (IPLUS X (TIMES 14 W))
(TIMES .5 (IDIFFERENCE TW (TIMES 14 W]
(IPLUS (TIMES .5 (DIFFERENCE TH (TIMES 14 H)))
Y
(TIMES 14 H))
[SUB1 (IPLUS (IPLUS X (TIMES 14 W))
(TIMES .5 (IDIFFERENCE TW (TIMES 14 W]
(IPLUS (TIMES .5 (DIFFERENCE TH (TIMES 14 H)))
Y
(TIMES 14 H))
1
(QUOTE PAINT)
TSTREAM)
(DRAWLINE [IPLUS (IPLUS X (TIMES 14 W))
(TIMES .5 (IDIFFERENCE TW (TIMES 14 W]
[IDIFFERENCE Y (TIMES .5 (IDIFFERENCE TH (TIMES 14 H]
[SUB1 (IPLUS (IPLUS X (TIMES 14 W))
(TIMES .5 (IDIFFERENCE TW (TIMES 14 W]
[IDIFFERENCE Y (TIMES .5 (IDIFFERENCE TH (TIMES 14 H]
1
(QUOTE PAINT)
TSTREAM)
(for I from 1 to (FIX H)
do (DRAWLINE X (IPLUS Y (ITIMES 14 I))
(IDIFFERENCE X 4)
(IPLUS Y (ITIMES 14 I))
1
(QUOTE PAINT)
TSTREAM)
(COND
((LESSP I 10)
(MOVETO (IDIFFERENCE X 16)
(IDIFFERENCE (IPLUS Y (ITIMES 14 I))
4)
TSTREAM))
(T (MOVETO (IDIFFERENCE X 24)
(IDIFFERENCE (IPLUS Y (ITIMES 14 I))
4)
TSTREAM)))
(printout TSTREAM .FONT 2 I))
(for J from 1 to (FIX W)
do (DRAWLINE (IPLUS X (ITIMES 14 J))
Y
(IPLUS X (ITIMES 14 J))
(IDIFFERENCE Y 4)
1
(QUOTE PAINT)
TSTREAM)
(COND
((LESSP J 10)
(MOVETO (IPLUS (IDIFFERENCE X 4)
(ITIMES 14 J))
(IDIFFERENCE Y 16)
TSTREAM))
(T (MOVETO (IPLUS (IDIFFERENCE X 8)
(ITIMES 14 J))
(IDIFFERENCE Y 16)
TSTREAM)))
(printout TSTREAM .FONT 2 J])
(NEWFEEDERSTATUS
[LAMBDA NIL (* HaKo "21-JUL-83 12:38")
(ACTION.PRINT "NEWFEEDERSTATUS called."])
(OLD.INTERFACE.WINDOW.BUTTONEVENTFN
[LAMBDA (INTERFACE.WINDOW) (* DAHJr "19-JUL-83 00:59")
(TOTOPW INTERFACE.WINDOW)
(COND
((NEQ INTERFACE.WINDOW CURRENT.INTERFACE.WINDOW)
(RESTORE.INTERFACE.CONTEXT INTERFACE.WINDOW)))
(TRILLIUM.CLEAR.ALL.PROMPTING)
(ANALYZE.FRAME.IF.NECESSARY* CURRENT.FRAME)
(COND
((AND TRILLIUM.MODE (LASTMOUSESTATE (ONLY MIDDLE)))
(EDIT.FRAME CURRENT.FRAME))
((AND TRILLIUM.MODE (LASTMOUSESTATE (ONLY RIGHT)))
(DOWINDOWCOM INTERFACE.WINDOW))
(T (INTERFACE.WINDOW.LEFTBUTTONFN INTERFACE.WINDOW])
(PAGECREATOR
[LAMBDA (W H BNAME SCALE) (* edited: "11-JUL-83 12:29")
(* edited: "25-APR-83 09:26")
(* "CREATED BY SMR")
(PROG (OLDDS BM TSTREAM X Y V)
(SETQ V SCALE)
(SETQ BM (FIND.BITMAP BNAME))
(SETQ X (IDIFFERENCE (TIMES .5 (fetch (BITMAP BITMAPWIDTH) of BM))
(TIMES SCALE W .5)))
(SETQ Y (IDIFFERENCE (TIMES .5 (fetch (BITMAP BITMAPHEIGHT) of BM))
(TIMES SCALE H .5)))
(SETQ OLDDS (CURRENTDISPLAYSTREAM))
(SETQ TSTREAM (DSPCREATE))
(CURRENTDISPLAYSTREAM TSTREAM)
(DSPDESTINATION BM)
(DSPRESET)
(DRAWLINE X Y X (IPLUS Y (TIMES V H))
2
(QUOTE PAINT)
TSTREAM)
(DRAWLINE X (IPLUS Y (TIMES V H))
(IPLUS X 1 (TIMES V W))
(IPLUS Y (TIMES V H))
2
(QUOTE PAINT)
TSTREAM)
(DRAWLINE (IPLUS X (TIMES V W))
(IPLUS Y (TIMES V H))
(IPLUS X (TIMES V W))
Y 2 (QUOTE PAINT)
TSTREAM)
(DRAWLINE (IPLUS X (TIMES V W))
Y X Y 2 (QUOTE PAINT)
TSTREAM)
(for I from 1 to (FIX H)
do (DRAWLINE X (IPLUS Y (ITIMES V I))
(IDIFFERENCE X 4)
(IPLUS Y (ITIMES V I))
1
(QUOTE PAINT)
TSTREAM)
(COND
((LESSP I 10)
(MOVETO (IDIFFERENCE X 16)
(IDIFFERENCE (IPLUS Y (ITIMES V I))
4)
TSTREAM))
(T (MOVETO (IDIFFERENCE X 24)
(IDIFFERENCE (IPLUS Y (ITIMES V I))
4)
TSTREAM)))
(printout TSTREAM .FONT FONT2 I))
(for J from 1 to (FIX W)
do (DRAWLINE (IPLUS X (ITIMES V J))
Y
(IPLUS X (ITIMES V J))
(IDIFFERENCE Y 4)
1
(QUOTE PAINT)
TSTREAM)
(COND
((LESSP J 10)
(MOVETO (IPLUS (IDIFFERENCE X 4)
(ITIMES V J))
(IDIFFERENCE Y 16)
TSTREAM))
(T (MOVETO (IPLUS (IDIFFERENCE X 8)
(ITIMES V J))
(IDIFFERENCE Y 16)
TSTREAM)))
(printout TSTREAM .FONT FONT2 J))
(CURRENTDISPLAYSTREAM OLDDS)
(RETURN BM])
(PLACEPAGE
[LAMBDA (W1 H1 V1 XOB YOB) (* edited: "28-APR-83 11:47")
(PROG NIL
[SETQ X1 (PLUS XOB (TIMES .5 (IDIFFERENCE 255 (TIMES 10 W1]
[SETQ Y1 (PLUS YOB (TIMES .5 (IDIFFERENCE 210 (TIMES 10 H1]
(TOMSBOX X1 Y1 W1 H1 V1])
(PLUSCELLCELL
[LAMBDA (CELL1 CELL2) (* HaKo "21-JUL-83 12:00")
(CHANGE.CURRENT.VALUE CELL1 (PLUS (GET.CURRENT.VALUE CELL1)
(GET.CURRENT.VALUE CELL2])
(POLY
[LAMBDA (P1 P2 P3) (* edited: "21-MAR-83 10:23")
(if [EQUAL P1 (QUOTE ((0 0]
then P2
elseif [EQUAL P2 (QUOTE ((0 0]
then P1
elseif P1=NIL
then (if P2=NIL
then P3
else < ! P3 ! P2>)
elseif P2=NIL
then < ! P3 ! P1>
else (if P1:1:2=P2:1:2
then (if (PLUS P1:1:1 P2:1:1)=0
then (POLY P1::1 P2::1 P3)
else < ! P3 <(PLUS P1:1:1 P2:1:1) ! P2:1::1> !(POLY P1::1 P2::1 P3)
>)
elseif (GREATERP P1:1:2 P2:1:2)
then < ! P3 P1:1 !(POLY P1::1 P2 P3) >
else < ! P3 P2:1 !(POLY P1 P2::1 P3)
>])
(PRINTENABLE
[LAMBDA (ENABLEPRINTFLG) (* HaKo "21-JUL-83 12:38")
(ACTION.PRINT (CONCAT "PRINTENABLE called on " ENABLEPRINTFLG])
(PRINTNOW
[NLAMBDA (CELLNAME) (* HaKo " 5-AUG-83 09:24")
(TRILLIUM.PRINTOUT (CONCAT "PRINTNOW called on " CELLNAME])
(PROOFBLOCK
[NLAMBDA (CELLNAME) (* HaKo " 5-AUG-83 09:25")
(TRILLIUM.PRINTOUT (CONCAT "PROOFBLOCK called on " CELLNAME])
(RESCANBLOCK
[NLAMBDA (CELLNAME) (* HaKo " 5-AUG-83 09:25")
(TRILLIUM.PRINTOUT (CONCAT "RESCANBLOCK called on " CELLNAME])
(RESET.INTERFACE.WINDOWFNS
[LAMBDA NIL (* PO "23-NOV-83 11:57")
(COPYDEF (QUOTE OLD.INTERFACE.WINDOW.BUTTONEVENTFN)
(QUOTE QQQ)
(QUOTE FNS))
(COPYDEF (QUOTE INTERFACE.WINDOW.BUTTONEVENTFN)
(QUOTE OLD.INTERFACE.WINDOW.BUTTONEVENTFN)
(QUOTE FNS))
(COPYDEF (QUOTE QQQ)
(QUOTE INTERFACE.WINDOW.BUTTONEVENTFN)
(QUOTE FNS))
(DELDEF (QUOTE QQQ)
(QUOTE FNS))
(SETQ N 0])
(RI
[LAMBDA NIL (* edited: "21-NOV-83 16:29")
(RESET.INTERFACE CURRENT.INTERFACE])
(SET.CELL.FROM.CELL
[LAMBDA (CELL1 CELL2) (* HaKo "21-JUL-83 11:52")
(SET.CURRENT.VALUE CELL1 (GET.CURRENT.VALUE CELL2])
(SET.CELL.FROM.LIST
[NLAMBDA CELLS (* HaKo "31-AUG-83 10:26")
(UNDO.QUOTES CELLS)
(SET.CURRENT.VALUE (CAR CELLS)
(for CELL in (CDR CELLS) collect (GET.CURRENT.VALUE CELL])
(STARTTIME
[LAMBDA (MACHINETYPE FILENAME APPENDFLG) (* PO "23-NOV-83 09:44")
(SETQ N 0)
(DRIBBLE FILENAME APPENDFLG)
(printout T T)
(printout T T)
(printout T "**** Timing for " MACHINETYPE " ****" T)
(printout T T)
(printout T T])
(STOPDIAGMANAGER
[NLAMBDA NIL (* HaKo " 3-AUG-83 12:29")
(TRILLIUM.PRINTOUT "STOPDIAGMANAGER called."])
(SWITCHDIALOG
[LAMBDA (DIALOG.NAME FRAME.NAME INITIALIZESTATUS) (* HaKo "21-JUL-83 12:26")
(ACTION.PRINT (CONCAT "SWITCHDIALOG called on " DIALOG.NAME ", " FRAME.NAME " and "
INITIALIZESTATUS])
(TIMESCELLCELL
[LAMBDA (CELL1 CELL2) (* HaKo "21-JUL-83 12:01")
(CHANGE.CURRENT.VALUE CELL1 (TIMES (GET.CURRENT.VALUE CELL1)
(GET.CURRENT.VALUE CELL2])
(TOMSBOX
[LAMBDA (X Y W H V) (* edited: "28-APR-83 11:37")
(SETQ TSTREAM CURRENT.DSP)
(DRAWLINE X Y X (IPLUS Y (TIMES V H))
2
(QUOTE PAINT)
TSTREAM)
(DRAWLINE X (IPLUS Y (TIMES V H))
(IPLUS X 1 (TIMES V W))
(IPLUS Y (TIMES V H))
2
(QUOTE PAINT)
TSTREAM)
(DRAWLINE (IPLUS X (TIMES V W))
(IPLUS Y (TIMES V H))
(IPLUS X (TIMES V W))
Y 2 (QUOTE PAINT)
TSTREAM)
(DRAWLINE (IPLUS X (TIMES V W))
Y X Y 2 (QUOTE PAINT)
TSTREAM)
(for I from 2 to (FIX H) by 2
do (DRAWLINE X (IPLUS Y (ITIMES V I))
(IDIFFERENCE X 4)
(IPLUS Y (ITIMES V I))
1
(QUOTE PAINT)
TSTREAM)
(COND
((LESSP I 10)
(MOVETO (IDIFFERENCE X 16)
(IDIFFERENCE (IPLUS Y (ITIMES V I))
4)
TSTREAM))
(T (MOVETO (IDIFFERENCE X 24)
(IDIFFERENCE (IPLUS Y (ITIMES V I))
4)
TSTREAM)))
(printout TSTREAM .FONT 2 I))
(for J from 2 to (FIX W) by 2
do (DRAWLINE (IPLUS X (ITIMES V J))
Y
(IPLUS X (ITIMES V J))
(IDIFFERENCE Y 4)
1
(QUOTE PAINT)
TSTREAM)
(COND
((LESSP J 10)
(MOVETO (IPLUS (IDIFFERENCE X 4)
(ITIMES V J))
(IDIFFERENCE Y 16)
TSTREAM))
(T (MOVETO (IPLUS (IDIFFERENCE X 8)
(ITIMES V J))
(IDIFFERENCE Y 16)
TSTREAM)))
(printout TSTREAM .FONT 2 J])
(UNDO.QUOTE
[LAMBDA (FORM) (* HaKo "30-AUG-83 14:24")
(COND
((AND (LISTP FORM)
(EQ (CAR FORM)
(QUOTE QUOTE)))
(CADR FORM))
(T FORM])
(UNDO.QUOTES
[LAMBDA (LIST) (* HaKo "31-AUG-83 10:24")
(while LIST
do [COND
([AND (LISTP (CAR LIST))
(MEMB (CAR (CAR LIST))
(QUOTE (LIST QUOTE]
(RPLACA LIST (EVAL (CAR LIST]
(SETQ LIST (CDR LIST])
(VMAKEBOX
[LAMBDA (X Y W H V) (* edited: "24-APR-83 15:06")
(SETQ TSTREAM CURRENT.DSP)
(DRAWLINE X Y X (IPLUS Y (TIMES V H))
2
(QUOTE PAINT)
TSTREAM)
(DRAWLINE X (IPLUS Y (TIMES V H))
(IPLUS X 1 (TIMES V W))
(IPLUS Y (TIMES V H))
2
(QUOTE PAINT)
TSTREAM)
(DRAWLINE (IPLUS X (TIMES V W))
(IPLUS Y (TIMES V H))
(IPLUS X (TIMES V W))
Y 2 (QUOTE PAINT)
TSTREAM)
(DRAWLINE (IPLUS X (TIMES V W))
Y X Y 2 (QUOTE PAINT)
TSTREAM)
(DRAWLINE (IDIFFERENCE X (TIMES .5 (TIMES V W)))
(IDIFFERENCE Y (TIMES .5 (TIMES V H)))
[ADD1 (IDIFFERENCE X (TIMES .5 (TIMES V W]
(IDIFFERENCE Y (TIMES .5 (TIMES V H)))
1
(QUOTE PAINT)
TSTREAM)
(DRAWLINE (IDIFFERENCE X (TIMES .5 (TIMES V W)))
[IPLUS (IPLUS Y (TIMES V H)
(TIMES .5 (TIMES V H]
[ADD1 (IDIFFERENCE X (TIMES .5 (TIMES V W]
[IPLUS (IPLUS Y (TIMES V H)
(TIMES .5 (TIMES V H]
1
(QUOTE PAINT)
TSTREAM)
(DRAWLINE (IPLUS (IPLUS X (TIMES V W))
(TIMES .5 (TIMES V W)))
[IPLUS (IPLUS Y (TIMES V H)
(TIMES .5 (TIMES V H]
[SUB1 (IPLUS (IPLUS X (TIMES V W))
(TIMES .5 (TIMES V W]
[IPLUS (IPLUS Y (TIMES V H)
(TIMES .5 (TIMES V H]
1
(QUOTE PAINT)
TSTREAM)
(DRAWLINE (IPLUS (IPLUS X (TIMES V W))
(TIMES .5 (TIMES V W)))
(IDIFFERENCE Y (TIMES .5 (TIMES V H)))
[SUB1 (IPLUS (IPLUS X (TIMES V W))
(TIMES .5 (TIMES V W]
(IDIFFERENCE Y (TIMES .5 (TIMES V H)))
1
(QUOTE PAINT)
TSTREAM)
(for I from 1 to (FIX H)
do (DRAWLINE X (IPLUS Y (ITIMES V I))
(IDIFFERENCE X 4)
(IPLUS Y (ITIMES V I))
1
(QUOTE PAINT)
TSTREAM)
(COND
((LESSP I 10)
(MOVETO (IDIFFERENCE X 16)
(IDIFFERENCE (IPLUS Y (ITIMES V I))
4)
TSTREAM))
(T (MOVETO (IDIFFERENCE X 24)
(IDIFFERENCE (IPLUS Y (ITIMES V I))
4)
TSTREAM)))
(printout TSTREAM .FONT 2 I))
(for J from 1 to (FIX W)
do (DRAWLINE (IPLUS X (ITIMES V J))
Y
(IPLUS X (ITIMES V J))
(IDIFFERENCE Y 4)
1
(QUOTE PAINT)
TSTREAM)
(COND
((LESSP J 10)
(MOVETO (IPLUS (IDIFFERENCE X 4)
(ITIMES V J))
(IDIFFERENCE Y 16)
TSTREAM))
(T (MOVETO (IPLUS (IDIFFERENCE X 8)
(ITIMES V J))
(IDIFFERENCE Y 16)
TSTREAM)))
(printout TSTREAM .FONT 2 J])
(WALK
[LAMBDA (FORM LOOKFOR FN) (* edited: "30-AUG-83 15:32")
(COND
((NLISTP FORM))
((MEMBER LOOKFOR FORM)
(APPLY* (OR FN (FUNCTION EDITE))
FORM))
(T (for SUBFORM in FORM do (WALK SUBFORM LOOKFOR FN])
)
(RPAQQ LINE.OF.TEXT.AS.UISSPRIMTEXT.FLG NIL)
(RPAQQ XXX (Q W E Y T R U I O P L A K S J D H F G Z M X N C V B Q W E Y T R U I O P L A K S J D H F G
Z M X N C V B Q W E Y T R U I O P L A K S J D H F G Z M X N C V B Q W E Y T R U I O P L
A K S J D H F G Z M X N C V B Q W E Y T R U I O P L A K S J D H F G Z M X N C V B Q W E
Y T R U I O P L A K S J D H F G Z M X N C V B Q W E Y T R U I O P L A K S J D H F G Z M
X N C V B Q W E Y T R U I O P L A K S J D H F G Z M X N C V B Q W E Y T R U I O P L A K
S J D H F G Z M X N C V B Q W E Y T R U I O P L A K S J D H F G Z M X N C V B Q W E Y T
R U I O P L A K S J D H F G Z M X N C V B Q W E Y T R U I O P L A K S J D H F G Z M X N
C V B Q W E Y T R U I O P L A K S J D H F G Z M X N C V B Q W E Y T R U I O P L A K S J
D H F G Z M X N C V B Q W E Y T R U I O P L A K S J D H F G Z M X N C V B Q W E Y T R U
I O P L A K S J D H F G Z M X N C V B Q W E Y T R U I O P L A K S J D H F G Z M X N C V
B Q W E Y T R U I O P L A K S J D H F G Z M X N C V B Q W E Y T R U I O P L A K S J D H
F G Z M X N C V B Q W E Y T R U I O P L A K S J D H F G Z M X N C V B Q W E Y T R U I O
P L A K S J D H F G Z M X N C V B Q W E Y T R U I O P L A K S J D H F G Z M X N C V B Q
W E Y T R U I O P L A K S J D H F G Z M X N C V B Q W E Y T R U I O P L A K S J D H F G
Z M X N C V B Q W E Y T R U I O P L A K S J D H F G Z M X N C V B Q W E Y T R U I O P L
A K S J D H F G Z M X N C V B Q W E Y T R U I O P L A K S J D H F G Z M X N C V B Q W E
Y T R U I O P L A K S J D H F G Z M X N C V B Q W E Y T R U I O P L A K S J D H F G Z M
X N C V B Q W E Y T R U I O P L A K S J D H F G Z M X N C V B Q W E Y T R U I O P L A K
S J D H F G Z M X N C V B Q W E Y T R U I O P L A K S J D H F G Z M X N C V B))
(DECLARE: EVAL@COMPILE
(PUTPROPS ACTION.IF MACRO (IFARGS (COMPUTE.ACTION.IF.FORM IFARGS)))
)
(SETQ UISS-ACTIONFNS (FILEFNSLST (QUOTE UISS-ACTIONFORMS)))
(DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
(ADDTOVAR NLAMA SET.CELL.FROM.LIST CHANGE.CELL.FROM.LIST)
(ADDTOVAR NLAML STOPDIAGMANAGER RESCANBLOCK PROOFBLOCK PRINTNOW JOBLOGO IOTMEMORYREAD
IOTMEMORYARRAYREAD IOTENTERDIAG IOTCOMPONENTOUT IOTCOMPONENTIN
INITDIAGMANAGER)
(ADDTOVAR LAMA )
)
(DECLARE: DONTCOPY
(FILEMAP (NIL (4539 47416 (ANALYZE.LINE.OF.TEXT 4549 . 5080) (ANALYZE.LINE.OF.TEXT.AS.BITMAP 5082 .
6639) (ANALYZE.LINE.OF.TEXT.AS.UISSPRIMTEXT 6641 . 7065) (ANDCOND 7067 . 7520) (APPLY.ACTIONFORM.TEST
7522 . 7947) (CELLDIVIDE 7949 . 8180) (CELLPLUS 8182 . 8362) (CELLTIMES 8364 . 8547) (CELLXPLUS 8549
. 8833) (CELLXSUB 8835 . 9087) (CHANGE.CELL.FROM.CELL 9089 . 9266) (CHANGE.CELL.FROM.LIST 9268 . 9528
) (COMPUTE.ACTION.IF.FORM 9530 . 11760) (CREATE.ACTIONFORM 11762 . 15645) (CREATE.OBJECT1 15647 .
17063) (CVT 17065 . 17315) (DRAW.PAGE 17317 . 19607) (ERASEBOX 19609 . 22699) (ERASEBOX1 22701 . 22964
) (FILL.BITMAP 22966 . 25095) (FLIST 25097 . 25789) (IFCELLCOND 25791 . 26039) (IFCOND 26041 . 26269)
(IFELSECELLCOND 26271 . 26626) (IFELSECOND 26628 . 26955) (INITDIAGMANAGER 26957 . 27120) (
INTERFACE.WINDOW.BUTTONEVENTFN 27122 . 27844) (IOTCLEAR 27846 . 27988) (IOTCOMPONENTIN 27990 . 28224)
(IOTCOMPONENTOUT 28226 . 28406) (IOTENTERDIAG 28408 . 28587) (IOTEXITDIAG 28589 . 28736) (IOTINTERRUPT
28738 . 28888) (IOTMEMORYARRAYREAD 28890 . 29194) (IOTMEMORYREAD 29196 . 29380) (IOTSTART 29382 .
29524) (IOTSTOP 29526 . 29666) (JOBCREATE 29668 . 29859) (JOBDELETE 29861 . 30033) (JOBHOLD 30035 .
30203) (JOBLOGO 30205 . 30371) (JOBMODIFY 30373 . 30545) (JOBPRINT 30547 . 30717) (JOBPROOF 30719 .
30889) (JOBSCAN 30891 . 31031) (JOBSCANEND 31033 . 31181) (JOBSCANSTART 31183 . 31361) (JOBSETSAVE
31363 . 31559) (LOGORETRIEVE 31561 . 31734) (LOGOSIM 31736 . 32489) (MAKEBOX 32491 . 35483) (
NEWFEEDERSTATUS 35485 . 35643) (OLD.INTERFACE.WINDOW.BUTTONEVENTFN 35645 . 36249) (PAGECREATOR 36251
. 38500) (PLACEPAGE 38502 . 38805) (PLUSCELLCELL 38807 . 39017) (POLY 39019 . 39744) (PRINTENABLE
39746 . 39922) (PRINTNOW 39924 . 40093) (PROOFBLOCK 40095 . 40268) (RESCANBLOCK 40270 . 40445) (
RESET.INTERFACE.WINDOWFNS 40447 . 40927) (RI 40929 . 41072) (SET.CELL.FROM.CELL 41074 . 41245) (
SET.CELL.FROM.LIST 41247 . 41505) (STARTTIME 41507 . 41818) (STOPDIAGMANAGER 41820 . 41983) (
SWITCHDIALOG 41985 . 42207) (TIMESCELLCELL 42209 . 42422) (TOMSBOX 42424 . 43972) (UNDO.QUOTE 43974 .
44184) (UNDO.QUOTES 44186 . 44477) (VMAKEBOX 44479 . 47128) (WALK 47130 . 47414)))))
STOP