(DEFINE-FILE-INFO �PACKAGE "INTERLISP" �READTABLE "INTERLISP" �BASE 10)
(FILECREATED " 4-Feb-87 19:34:47" ("compiled on " {ERIS}<IRIS>NEXT>IRISVIEW.;18) "21-Jan-87 21:13:09" 
"COMPILE-FILEd" in "Xerox Lisp 21-Jan-87 ..." dated "21-Jan-87 21:48:22")
(FILECREATED " 4-Feb-87 19:32:44" {ERIS}<IRIS>NEXT>IRISVIEW.;18 65298 changes to%: (VARS IRISVIEWCOMS)
 (FNS IV.SET.CURRENT.SCENE IV.SCENE.SETUP IV.INIT IV.VIEW.CHANGED IRIS.DEGREES IV.ENSURE.SCENE 
IV.REDEFINE.SCENE IV.DOUBLEBUFFER IV.AXES IV.NEWSTREAM IV.BACKGROUND IV.DSPCOLOR IV.RIGHT IV.UP 
IV.TOWARD IV.PHOME.AUX IV.PHOME IV.2D.HOME) (VARIABLES *IV-COMMANDS-MENUDESC* *IV-FILLINS-MENUDESC* 
*IV-POSITIONING-MENU-DESC* *IV-MENUDESC*) previous date%: "27-Jan-87 01:16:23" 
{ERIS}<IRIS>NEXT>IRISVIEW.;10)
(RPAQQ IRISVIEWCOMS ((FILES IRISCONSTANTS COLOROBJ) (GLOBALVARS IV.CURRENT.SCENE IV.SCENES 
IV.SCENES.MENU IV.VIEW.MENU IV.PROMPTWINDOW AXES.SCENE SKULL.SCENE \IV.DRAW.AXES iV.BACKGROUND IV.MODE
 IV.THETA IV.DXLATE) (INITVARS (IV.SCENES NIL) (IV.CURRENT.SCENE) (IV.SCENES.MENU) (IV.VIEW.MENU)) (
BITMAPS IV.LEFT IV.POS IV.RIGHT IV.RIGHT.HIGHLIGHT IV.DOWN IV.UP IV.UP.HIGHLIGHT BACKGROUNDBITMAP 
IV.ROTX IV.ROTX.HIGHLIGHT IV.ROTY IV.ROTY.HIGHLIGHT IV.ROTZ IV.ROTZ.HIGHLIGHT IV.ROTATE IV.DELTA.LABEL
 IV.THETA.LABEL IV.TOWARD IV.TOWARD.HIGHLIGHT IV.AWAY) (* ; "fns for co-ordinating scenes") (FNS 
IV.PROOF.SCENE IV.ENSURE.SCENE IV.NEW.SCENE.FROM.USER IV.REDEFINE.SCENE IV.CHOOSE.SCENE 
IV.BUILD.SCENES.MENU IV.FORGET.SCENE IV.DRAW.SCENE IV.SET.CURRENT.SCENE IV.SCENE.SETUP) (FNS DRAW.AXES
 F IV.CLEARIRIS IV.DOWN IV.GETINPUT IV.READ IV.HOME IV.2D.HOME IV.PHOME IV.PHOME.AUX IV.VIEW IV.LEFT 
IV.RIGHT IV.ROTX IV.DOUBLEBUFFER IV.ROTY IV.ROTZ IV.SWAPBUFFERS IV.UP IV.THETA IV.AXES IV.BACKGROUND 
IV.TOWARD IV.AWAY IV.DSPCOLOR IV.DELTA IV.VIEW.CHANGED IV.NEWSTREAM IV.PROMPTPRINT IV.PROOF.SKETCH 
IV.INIT \CLEAR.IRIS IRIS.DEGREES) (FNS IV.ITEMMAPFN IV.DISPLAY.FMITEM) (RECORDS IRISSCENE IVPOS) (VARS
 HANDWIDTH IRIS.XAXIS IRIS.ZAXIS IV.DXLATE IV.MODE IV.OBJPT IV.THETA IV.TRACE.FNS IV.TWIST IV.VIEWPT 
LASTIV.OBJPT LASTIV.VIEWPT (\IV.DRAW.AXES) (\IV.BACKGROUND)) (P (IV.SCENE.SETUP) (IV.BUILD.SCENES.MENU
)) (FNS SKULLO) (* ;; "The order of these variables is important.") (VARIABLES *IV-SCENES-MENUDESC* 
*IV-FILLINS-MENUDESC* *IV-COMMANDS-MENUDESC* *IV-POSITIONING-MENU-DESC* *IV-MENUDESC*) (PROP FILETYPE 
IRISVIEW) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA
 IV.PROMPTPRINT)))))
(FILESLOAD IRISCONSTANTS COLOROBJ)
(RPAQ? IV.SCENES NIL)
(RPAQ? IV.CURRENT.SCENE)
(RPAQ? IV.SCENES.MENU)
(RPAQ? IV.VIEW.MENU)
(RPAQQ IV.LEFT #*(48 24)@@@L@@@@@@@@@@ACH@@@@@@@@@A@F@@@@@@@@@@HAH@@@@@@@@@F@F@@@@@@@@@ALAH@@@@@@@@@B@L@@@@@GOOOO@GH@@@@H@@@@@@F@@@@H@@@@@@ACO@@H@@@@@@@N@@@GOOO@@@@B@@@@@D@@@@@B@@@@@H@@@@@B@@@@@H@@@@@B@@@@@GOH@@@B@@@@@B@@@@@B@@@@@D@@@@@B@@@@@D@@@@@B@@@@@CON@@@B@@@@@A@@@@@B@@@@@B@@@@AN@@@@@B@@@@NAH@@@@AOOOO@@G@@
)
(RPAQQ IV.POS (275 . 200))
(RPAQQ IV.RIGHT #*(48 24)@@@@@@@@C@@@@@@@@@@ALH@@@@@@@@@F@H@@@@@@@@AHA@@@@@@@@@F@F@@@@@@@@AHCH@@@@@@@@C@D@@@@@@@@AN@OOOON@@@@F@@@@@@A@@OLH@@@@@@A@@@G@@@@@@@A@@@D@@@@OOON@@@D@@@@@B@@@@@D@@@@@A@@@@@D@@@@@A@@@@@D@@@AON@@@@@D@@@@@D@@@@@D@@@@@B@@@@@D@@@@@B@@@@@D@@@GOL@@@@@D@@@@@H@@@@@GH@@@@D@@@@AHG@@@@D@@@@N@@OOOOH@@
)
(RPAQQ IV.RIGHT.HIGHLIGHT #*(48 24)@@@@@@@@C@@@@@@@@@@AOH@@@@@@@@@GOH@@@@@@@@AOO@@@@@@@@@GON@@@@@@@@AOOH@@@@@@@@GOL@@@@@@@@AOOOOOON@@@@GOOOOOOO@@OLOOOOOOOO@@@GOOOOOOOO@@@GOOOOOOON@@@GOOOOON@@@@@GOOOOOO@@@@@GOOOOOO@@@@@GOOOOON@@@@@GOOOOOL@@@@@GOOOOON@@@@@GOOOOON@@@@@GOOOOOL@@@@@GOOOOOH@@@@@GOOOOOL@@@@AHGOOOOL@@@@N@@OOOOH@@
)
(RPAQQ IV.DOWN #*(24 48)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@D@@A@@@@D@@A@@@@D@@A@@@@D@@B@@@@D@@B@@@@GOOL@@@@B@@D@@@@B@@D@@@@D@@D@@@@H@@B@@@@H@@B@@@A@@@B@@@A@@@A@@@A@@@A@@@C@@@A@@@F@@@A@@@D@@@A@@@H@@@A@@@H@@@A@@A@@@@A@@AA@@@A@@BC@@AA@@BE@@AA@@DE@AAA@@DEAAAA@@DIAAAA@@HIAAAA@@IAAAAA@@FAAAAI@@@AAAIF@@@AAIF@@@@AAF@@@@@AA@@@@@@AA@@@@@@AA@@@@@@AA@@@@@@AA@@@@@@AA@@@@@@AA@@@@@@@N@@@@@
)
(RPAQQ IV.UP #*(24 48)@@N@@@@@@AA@@@@@@AA@@@@@@AA@@@@@@AA@@@@@@AA@@@@@@AA@@@@@@AA@@@@@@AAF@@@@@AAIF@@@@AAAIF@@FAAAAI@@IAAAAA@@HIAAAA@@DIAAAA@@DEAAAA@@DE@AAA@@BE@@AA@@BC@@AA@@AA@@@A@@A@@@@A@@@H@@@A@@@H@@@A@@@D@@@A@@@F@@@A@@@C@@@A@@@A@@@A@@@A@@@A@@@A@@@B@@@@H@@B@@@@H@@B@@@@D@@D@@@@B@@D@@@@B@@D@@@@GOOL@@@@D@@B@@@@D@@B@@@@D@@A@@@@D@@A@@@@D@@A@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
)
(RPAQQ IV.UP.HIGHLIGHT #*(24 48)@@N@@@@@@AO@@@@@@AO@@@@@@AO@@@@@@AO@@@@@@AO@@@@@@AO@@@@@@AO@@@@@@AOF@@@@@AOOF@@@@AOOOF@@FAOOOO@@OAOOOO@@OIOOOO@@GIOOOO@@GMOOOO@@GMOOOO@@CMOOOO@@COOOOO@@AOOOOO@@AOOOOO@@@OOOOO@@@OOOOO@@@GOOOO@@@GOOOO@@@COOOO@@@AOOOO@@@AOOOO@@@AOOON@@@@OOON@@@@OOON@@@@GOOL@@@@COOL@@@@COOL@@@@GOOL@@@@D@@B@@@@D@@B@@@@D@@A@@@@D@@A@@@@D@@A@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
)
(RPAQQ BACKGROUNDBITMAP #*(12 15)@@@@CKN@EOB@IFH@JFH@BF@@BD@@@D@@@D@@@B@@@CF@@CN@@ON@AON@@@@@)
(RPAQQ IV.ROTX #*(28 47)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@G@@@@@@AHL@@@@@B@B@@@@@D@A@@@@@D@A@@@@@H@@H@@@@H@@H@@@A@@@D@@@A@@@D@@@A@@@D@@@A@@@D@@@B@@@B@@@B@@@B@@@B@@@B@@@B@@@B@@@B@@@B@@@B@@@B@@@B@@@B@@@B@@BB@@@B@@CBF@@B@@AJL@@B@@@OH@@A@@@F@@@A@@@D@@@A@@@D@@@A@@@D@@@@H@@H@@@@H@@H@@@@D@A@@@@@D@A@@@@@B@B@@@@@AHL@@@@@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
)
(RPAQQ IV.ROTX.HIGHLIGHT #*(28 47)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@G@@@@@@AOL@@@@@CON@@@@@GOO@@@@@GOO@@@@@OOOH@@@@OOOH@@@AOOOL@@@AOOOL@@@AOOOL@@@AOOOL@@@COOON@@@COOON@@@COOON@@@COOON@@@COOON@@@COOON@@@COOON@@@COOON@@@COOONF@@COOONL@@COOOOH@@AOOON@@@AOOOL@@@AOOOL@@@AOOOL@@@@OOOH@@@@OOOH@@@@GOO@@@@@GOO@@@@@CON@@@@@AOL@@@@@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
)
(RPAQQ IV.ROTY #*(42 30)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OON@@@@@@@@O@@AN@@@@@@C@@@@AH@@@@@L@@@@@F@@@@A@@@@@@A@@@@B@@@@@@@H@@@B@@@@@@@H@@@D@@@@@@@D@@@D@@@@@@@D@@@D@@@@@@@D@@@B@@@@@@@H@@@B@@@@H@@H@@@A@@@AH@A@@@@@L@@C@@F@@@@@C@@F@AH@@@@@@O@LAN@@@@@@@@OON@@@@@@@@@@L@@@@@@@@@@@F@@@@@@@@@@@C@@@@@@@@@@@AH@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
)
(RPAQQ IV.ROTY.HIGHLIGHT #*(42 30)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OON@@@@@@@@OOOON@@@@@@COOOOOH@@@@@OOOOOON@@@@AOOOOOOO@@@@COOOOOOOH@@@COOOOOOOH@@@GOOOOOOOL@@@GOOOOOOOL@@@GOOOOOOOL@@@COOOOOOOH@@@COOOOOOOH@@@AOOOOOOO@@@@@OOOOOON@@@@@COOOOOH@@@@@@OOOON@@@@@@@@OON@@@@@@@@@@L@@@@@@@@@@@F@@@@@@@@@@@C@@@@@@@@@@@AH@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
)
(RPAQQ IV.ROTZ #*(45 38)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CO@@@@@@@@@AL@O@@@@@@@@F@@@N@@@@@@@H@@@AH@@@@@A@@@@@F@@@@@A@@@@@AOO@@@A@@@@@AL@@@@B@@@@@AB@@@@B@@@@@AA@@@@B@@@@@A@H@@@B@@@@@A@D@@@A@@@@@A@D@@@A@@@@@A@B@@@A@@@@@A@A@@@@H@@@@@@A@@@@D@@@@@@A@@@@D@@@@@@@H@@@B@@@@@@@H@@@A@@@@@@@H@@@@H@@@@@@H@@@@F@@@@@A@@@@@A@@@@@A@@@@@@L@@@@A@@@@@@C@@@@B@@@@@@@N@@@L@@@@@@@AN@G@@@@@@@@@AOH@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
)
(RPAQQ IV.ROTZ.HIGHLIGHT #*(45 38)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CO@@@@@@@@@AOOO@@@@@@@@GOOON@@@@@@@OOOOOH@@@@@AOOOOON@@@@@AOOOOOOOO@@@AOOOOOOL@@@@COOOOOON@@@@COOOOOOO@@@@COOOOOOOH@@@COOOOOOOL@@@AOOOOOOOL@@@AOOOOOOON@@@AOOOOOOOO@@@@OOOOOOOO@@@@GOOOOOOO@@@@GOOOOOOOH@@@COOOOOOOH@@@AOOOOOOOH@@@@OOOOOOOH@@@@GOOOOOO@@@@@AOOOOOO@@@@@@OOOOOO@@@@@@COOOON@@@@@@@OOOOL@@@@@@@AOOO@@@@@@@@@AOH@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
)
(RPAQQ IV.ROTATE #*(74 77)@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AL@@@@@@@@@@@@@@@@@@AL@@@@@@@@@@@@@@@@@@BJ@@@@@@@@@@@@@@@@@@BJ@@@@@@@@@@@@@@@@@@DI@@@@@@@@@@@@@@@@@@DI@@@@@@@@@@@@@@@@@@HI@@@@@@@@@@@@@@@@@@HHH@@@@@@@@@@@@@@@@@HHH@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@IB@@@@@@@@@@@@@@@@@@HJ@@@@@@@@@@@@@@@@@@HF@@@@@@@@@@@@@@@@@@HB@@@@@@@@@@@@@@@@@@IB@@@@@@@@@@@@@@@@@@HL@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@H@@@@@@HH@@@@@@@@@@@H@@@@@@E@@@@@@@@@@@@H@@@@@@B@N@@@@@@@@@@H@@@@@@E@AH@@@@@@@@@H@@@@@@HH@F@@@@@@@@@H@@@@@@@@@AL@@@@@@@@OOOOOOOOOOOO@@@@@@@A@@@@@@@@@@AL@@@@@@@A@@@@@@@@@@F@@@@@@@@B@@@@@@@@@AH@@@@@@@@D@@@@@@@@@N@@@@@@@@@D@@@@@@@@@@@@@@@AN@@H@@@@@@@@@@@@@@@@B@A@@@@@@@@@@@@@@@@@D@A@@@@@@@@@@@@@@@@@H@B@@@@@@@@@@@@@@@@AN@D@@@@@@@@@@@@@@@@@@@D@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@AA@@@@@@@@@@@@@@@@@@AA@@@@@@@@@@@@@@@@@@AB@@@@@@@@@@@@@@@@@@BD@@@@@@@@@@@@@@@@@@BDD@@@@@@@@@@@@@@@@@BHH@@@@@@@@@@@@@@@@@EA@@@@@@@@@@@@@@@@@@EF@@@@@@@@@@@@@@@@@@FH@@@@@@@@@@@@@@@@@@M@@@@@@@@@@@@@@@@@@@N@@@@@@@@@@@@@@@@@@@L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
)
(RPAQQ IV.DELTA.LABEL #*(9 13)@@@@@H@@@H@@AD@@AD@@BB@@BB@@DA@@DA@@GO@@@@@@@@@@@@@@)
(RPAQQ IV.THETA.LABEL #*(7 13)@@@@CH@@DD@@DD@@DD@@GL@@DD@@DD@@DD@@CH@@@@@@@@@@@@@@)
(RPAQQ IV.TOWARD #*(35 38)@@@@@@H@@@@@@@@@@A@@@@@@@@@@@B@@@@@@@G@@@L@@@@@@@DN@CD@@@@@@@FAONF@@@@@@@B@@@B@@@@@@@A@@@C@@@@@@@@L@@A@@@@@@@@CO@@H@@@@@@@@F@@D@@@@@@@@D@@B@@@@@@@@H@@A@@@@@@@A@@@@IB@@@@@B@@@@EN@@@@@D@@@@C@@@@@@HB@@@F@@@@@A@D@@@H@@@@@B@H@@@H@@@@@DA@D@A@@@@@@HB@H@B@@@@@A@DA@HD@@@@@B@JBA@H@@@@@DAALBA@@@@@@HB@DDB@@@@@@HD@GHD@@@@@@GH@@HH@@@@@@@@@@I@@@@@@@@@@@F@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
)
(RPAQQ IV.TOWARD.HIGHLIGHT #*(35 38)@@@@@@H@@@@@@@@@@A@@@@@@@@@@@B@@@@@@@G@@@L@@@@@@@GN@CL@@@@@@@GOOON@@@@@@@COOON@@@@@@@AOOOO@@@@@@@@OOOO@@@@@@@@COOOH@@@@@@@@GOOL@@@@@@@@GOON@@@@@@@@OOOO@@@@@@@AOOOOHB@@@@@COOOOMN@@@@@GOOOOO@@@@@@OOOOON@@@@@AOOOOOH@@@@@COOOOOH@@@@@GOOOOO@@@@@@OOOOON@@@@@AOOOOOL@@@@@COKOOOH@@@@@GOAOOO@@@@@@ON@GON@@@@@@OL@GOL@@@@@@GH@@OH@@@@@@@@@@O@@@@@@@@@@@F@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
)
(RPAQQ IV.AWAY #*(36 34)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A@@@@@@@@@@@A@@@@@@@@@@@C@@@@@@@@@@@G@@@@@@@@@@@K@@@@@@@@@@AE@@@@@@@@@@BE@@@@@@@@@@@E@@@@@@@@@@@I@@@@@@@@@@@H@@@@@@@@@@@H@@@@@@@@@@A@@@@@@@@@@@A@@@@@@@@@@@A@@@@@@@@@@@B@@@@@@@@@@@B@@@@@@@@@@@B@@@@@@@@@@@D@@@@@@@@@@@D@@@@@@@@@@@D@@@@@@@@@@@H@@@@@@@@@@@H@@@@@@@@@@@H@@@@@@@@@@A@@@@@@@@@@@A@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
)
IV.PROOF.SCENE :D4
(P 0 OBJNO I 0 ITEM) *

`

`	H`
`	`	`	(39 SPP.FORCEOUTPUT 33 ALIGN 27 IRIS.SWAPBUFFERS 21 IRIS.CALLOBJ 14 IV.ENSURE.SCENE)
(36 IRISCONN 30 \IRISSTREAM 24 \IRISSTREAM 18 \IRISSTREAM 11 IV.CURRENT.SCENE 2 IV.CURRENT.SCENE)
()
IV.ENSURE.SCENEA0002 :D4
(NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 SI::*RESETFORMS* F 1 SCENE F 2 OBJNO F 3 DRAWFN) =
g`hhhPcR`
Q
c�oQ
o	�`		��(57 EVAL 53 IRIS.CLOSEOBJ 46 IV.GETINPUT 43 CONCAT 23 IRIS.MAKEOBJ)
(50 \IRISSTREAM 20 \IRISSTREAM 5 \IRISSTREAM 2 IRIS.CLOSEOBJ)
( 40 " then hit RETURN" 34 "Please remake ")
IV.ENSURE.SCENE :D4
(P 3 SI::*RESETFORMS* P 2 LISPXHIST P 0 OBJNO I 0 SCENE F 4 LISPXHIST) M

@

H`
Yj�I�6I	�0o@

Tg		�	o`
`	(74 TERPRI 68 PRIN1 57 CL:VALUES-LIST 53 SI::RESETUNWIND 50 \MVLIST 47 IV.ENSURE.SCENEA0002 37 IV.PROMPTPRINT 26 \FZEROP 13 IRIS.ISOBJ)
(71 IV.PROMPTWINDOW 65 IV.PROMPTWINDOW 44 SI::RESETUNWIND 10 \IRISSTREAM)
( 62 "...done" 32 "Creating object for ")
IV.NEW.SCENE.FROM.USER :D4
(P 3 SCENE P 2 OBJNO P 1 DRAWFN P 0 NAME) O@o	Xdd�@hh[do	YI�K
`
�o	�`	�K`hK(62 IRIS.CLOSEOBJ 55 IV.GETINPUT 47 IRIS.MAKEOBJ 32 IV.READ 18 IRIS.CONS.OBJNO 9 IV.GETINPUT)
(75 IV.SCENES.MENU 71 IV.SCENES 67 IV.SCENES 59 \IRISSTREAM 44 \IRISSTREAM)
( 52 "Make object, then type RETURN" 29 "Form to eval to create scene? " 6 "Scene Name?")
IV.REDEFINE.SCENE :D4
(P 0 SCENE I 2 WINDOW I 1 BUTTONS I 0 ITEM) /

oH

h`�H
`
HH	(44 IV.ENSURE.SCENE 39 IRIS.CONS.OBJNO 33 IRIS.DELOBJ 21 MOUSECONFIRM 14 CONCAT 2 IV.CHOOSE.SCENE)
(30 \IRISSTREAM 18 IV.PROMPTWINDOW)
( 9 "Redefine ")
IV.CHOOSE.SCENE :D4
NIL 
`�	(10 MENU 7 IV.BUILD.SCENES.MENU)
(2 IV.SCENES.MENU)
()
IV.BUILD.SCENES.MENU :D4
NIL n`o@`�(d
[
Kd�di�3�	gKhh�I�HhZ�H&���J
HdI�dg �dg�jdn�dh
HdI
�NIL
(107 IV.SCENES.MENU 80 DEFAULTMENUHELDFN 73 CLRPROMPT 33 QUOTE 13 IV.SCENES 2 |MENUTYPE#|)
( 7 (New% Scene? (IV.NEW.SCENE.FROM.USER) "allows specification of a new scene"))
IV.FORGET.SCENE :D4
(P 1 OBJNO P 0 NEWSCENE I 2 BUTTONS I 1 WINDOW I 0 ITEM) &
Hd�`
�H
Yd�`
�hh(29 IRIS.DELOBJ 15 DREMOVE 2 IV.CHOOSE.SCENE)
(34 IV.SCENES.MENU 26 \IRISSTREAM 12 IV.SCENES)
()
IV.DRAW.SCENE :D4
(F 0 IV.OBJPT F 1 IV.VIEWPT F 2 IV.TWIST F 3 LASTIV.OBJPT F 4 LASTIV.VIEWPT F 5 IV.DIST F 6 IV.AZIM F 7 IV.INC F 8 \IV.BACKGROUND) �	`�o	�`dg�UVWR`
�Bdg�;g�.PS��QT��-Q
Q
Q
P
P
P
R`
�Pc�Qc�o	�W�,`
`
`�`
`
�`	`		���(149 \CLEAR.IRIS 145 ALIGN 139 IRIS.SWAPBUFFERS 132 IRIS.CALLOBJ 116 IRIS.CALLOBJ 99 ERROR 83 IRIS.LOOKAT 33 IRIS.POLARVIEW 10 ERROR)
(142 \IRISSTREAM 136 \IRISSTREAM 129 \IRISSTREAM 123 AXES.SCENE 119 \IV.DRAW.AXES 113 \IRISSTREAM 107 IV.CURRENT.SCENE 79 \IRISSTREAM 45 LOOKAT 39 XLATE 29 \IRISSTREAM 18 POLAR 14 IV.MODE 2 IV.CURRENT.SCENE)
( 96 "UNKNOWN IV.MODE" 7 "CAN'T DRAW NULL SCENE")
IV.SET.CURRENT.SCENE :D4
(P 1 SCENEITEM P 0 NEWSCENE I 2 BUTTONS I 1 WINDOW I 0 ITEM) :`�	
Hd�(�ggAY�o	�IH
A�I	h(54 IV.PROOF.SCENE 49 FM.CHANGESTATE 41 ERROR 31 FM.GETITEM 10 MENU 7 IV.BUILD.SCENES.MENU)
(27 FILL-INS 24 CURRENTSCENE 20 IV.CURRENT.SCENE 2 IV.SCENES.MENU)
( 38 "SCENE ITEM NOT FOUND")
IV.SCENE.SETUP :D4
NIL ^g	�goh�g	�goh�`d`�`�`d`�`�`(43 IRIS.CONS.OBJNO 31 BOUNDP 17 IRIS.CONS.OBJNO 5 BOUNDP)
(91 IV.CURRENT.SCENE 88 AXES.SCENE 84 IV.SCENES 80 IV.SCENES 75 IV.SCENES 71 SKULL.SCENE 67 IV.SCENES 63 IV.SCENES 58 IV.SCENES 54 AXES.SCENE 50 SKULL.SCENE 36 Skull 28 SKULL.SCENE 24 AXES.SCENE 10 Axes 2 AXES.SCENE)
( 40 (SKULLO \IRISSTREAM) 14 (DRAW.AXES 2))
DRAW.AXES :D4
(I 1 COLOR I 0 WIDTH) �`	@�l`
A�k`
jdd`jdl�`jdl�`o`
A�l`
jdd`jl�j`jl�j`o`
A�l`
jdd`l�jd`l�jd`o`
`	(174 F 171 IRIS.POPATTRIBUTES 165 IRIS.CHARSTR 155 IRIS.CMOV 145 IRIS.DRAW 135 IRIS.MOVE 126 IRIS.COLOR 115 IRIS.CHARSTR 105 IRIS.CMOV 95 IRIS.DRAW 85 IRIS.MOVE 76 IRIS.COLOR 65 IRIS.CHARSTR 55 IRIS.CMOV 45 IRIS.DRAW 35 IRIS.MOVE 26 IRIS.COLOR 16 IRIS.LINEWIDTH 5 IRIS.PUSHATTRIBUTES)
(168 \IRISSTREAM 162 \IRISSTREAM 152 \IRISSTREAM 142 \IRISSTREAM 132 \IRISSTREAM 123 \IRISSTREAM 112 \IRISSTREAM 102 \IRISSTREAM 92 \IRISSTREAM 82 \IRISSTREAM 73 \IRISSTREAM 62 \IRISSTREAM 52 \IRISSTREAM 42 \IRISSTREAM 32 \IRISSTREAM 23 \IRISSTREAM 13 \IRISSTREAM 2 \IRISSTREAM)
( 159 "x" 109 "y" 59 "z")
F :D4
NIL `	(5 SPP.FORCEOUTPUT)
(2 IRISCONN)
()
IV.CLEARIRIS :D4
NIL i	`
`	`	(24 F 21 IRIS.SWAPBUFFERS 15 IRIS.CLEAR 9 DSPCOLOR 3 DICOLOR.FROM.USER)
(18 \IRISSTREAM 12 \IRISSTREAM 6 \IRISSTREAM)
()
IV.DOWN :D4
(I 2 BUTTONS I 1 WINDOW I 0 ITEM F 0 IV.AZIM F 1 IV.OBJPT) 4`dg�P`�c�g�jd`�j`�Qd
`��(49 IV.DRAW.SCENE 36 IRIS.TRANSLATE)
(43 IV.DXLATE 33 \IRISSTREAM 28 IV.DXLATE 21 XLATE 13 IV.THETA 6 POLAR 2 IV.MODE)
()
IV.GETINPUT :D4
(I 0 MSG)  
`	@hd`hg
`g
�(28 PUTWINDOWPROP 19 PROMPTFORWORD 5 CLEARW)
(25 PROCESS 22 IV.PROMPTWINDOW 15 TTY 11 IV.PROMPTWINDOW 2 IV.PROMPTWINDOW)
()
IV.READA0001 :D4
(NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS*) 
id
(4 LISPXREAD)
NIL
()
IV.READ :D4
(P 0 SI::*RESETFORMS* I 0 PROMPT) 2

`	@`
g`	hhh
g		�	(47 CL:VALUES-LIST 43 SI::RESETUNWIND 40 \MVLIST 37 IV.READA0001 21 TTYDISPLAYSTREAM 12 PRIN1 5 CLEARW)
(34 SI::RESETUNWIND 18 IV.PROMPTWINDOW 15 TTYDISPLAYSTREAM 9 IV.PROMPTWINDOW 2 IV.PROMPTWINDOW)
()
IV.HOME :D4
(P 0 R I 2 BUTTONS I 1 WINDOW I 0 ITEM) n
@��@�o@
�
@A
`dg��j`j`on�`
��#dg�n
�jdd`
�g�o	�h(106 F 103 IV.DRAW.SCENE 99 ERROR 86 IRIS.POLARVIEW 64 IV.VIEW 60 IRIS.ORTHO 27 \FM.HIGHLIGHTITEM 14 ERROR)
(90 LOOKAT 82 \IRISSTREAM 70 POLAR 56 IRISCONN 46 SCREENHEIGHT 42 SCREENWIDTH 34 XLATE 30 IV.MODE 17 FREEMENUITEM 3 FREEMENUITEM)
( 96 "UNKNOWN MODE" 50 -5000 10 "Arg must be FreeMenuItem")
IV.2D.HOME :D4
(P 0 R I 2 BUTTONS I 1 WINDOW I 0 ITEM) ;
@��@�o@
�
@A
j`j`on�`
h(55 F 52 IV.DRAW.SCENE 49 IRIS.ORTHO 27 \FM.HIGHLIGHTITEM 14 ERROR)
(45 IRISCONN 35 SCREENHEIGHT 31 SCREENWIDTH 17 FREEMENUITEM 3 FREEMENUITEM)
( 39 -1000 10 "Arg must be FreeMenuItem")
IV.PHOME :D4
(P 0 R I 2 BUTTONS I 1 WINDOW I 0 ITEM) %
@��@�o@
�
@A
h(33 F 30 IV.PHOME.AUX 27 \FM.HIGHLIGHTITEM 14 ERROR)
(17 FREEMENUITEM 3 FREEMENUITEM)
( 10 "Arg must be FreeMenuItem")
IV.PHOME.AUX :D4
NIL Pj`j`on�`
jn�jn�`
l-	kjn'`
n
�l-	l-	j`
(77 IV.DRAW.SCENE 74 IRIS.POLARVIEW 66 IRIS.DEGREES 61 IRIS.DEGREES 53 IRIS.PERSPECTIVE 41 IRIS.DEGREES 36 IRIS.VIEWPORT 21 IRIS.ORTHO)
(70 IRISCONN 49 IRISCONN 32 IRISCONN 17 IRISCONN 7 SCREENHEIGHT 3 SCREENWIDTH)
( 11 -5000)
IV.VIEW :D4
(I 0 Z) +
l-	kjn'`
@�n�lZ	lZ	j`
(40 IRIS.POLARVIEW 32 IRIS.DEGREES 27 IRIS.DEGREES 16 IRIS.PERSPECTIVE 4 IRIS.DEGREES)
(36 IRISCONN 12 IRISCONN)
()
IV.LEFT :D4
(I 2 BUTTONS I 1 WINDOW I 0 ITEM F 0 IV.AZIM F 1 IV.OBJPT) 4`dg�P`�c�g�j`�jd`�Qd
`��(49 IV.DRAW.SCENE 36 IRIS.TRANSLATE)
(43 IV.DXLATE 33 \IRISSTREAM 27 IV.DXLATE 21 XLATE 13 IV.THETA 6 POLAR 2 IV.MODE)
()
IV.RIGHT :D4
(P 0 MOVE I 2 BUTTONS I 1 WINDOW I 0 ITEM) !
g	�j`ق`
Hjd`(30 IV.DRAW.SCENE 27 IRIS.TRANSLATE 5 SHIFTDOWNP)
(24 \IRISSTREAM 15 IV.DXLATE 10 IV.DXLATE 2 SHIFT)
()
IV.ROTX :D4
(I 2 BUTTONS I 1 WINDOW I 0 ITEM) g	�`	�`lX`(27 IV.DRAW.SCENE 24 IRIS.ROTATE 12 MINUS 5 SHIFTDOWNP)
(21 \IRISSTREAM 16 IV.THETA 9 IV.THETA 2 SHIFT)
()
IV.DOUBLEBUFFER :D4
(P 0 STATE I 2 BUTTONS I 1 WINDOW I 0 ITEM) S
@��@�o@
�
H�`	�j	�k	�o�`	�k	�j	�o	�`	h(79 IRIS.GCONFIG 72 IV.PROMPTPRINT 64 IRIS.BACKBUFFER 59 IRIS.FRONTBUFFER 54 IRIS.SINGLEBUFFER 41 IRIS.BACKBUFFER 36 IRIS.FRONTBUFFER 31 IRIS.DOUBLEBUFFER 14 ERROR)
(76 IRISCONN 51 \IRISSTREAM 28 \IRISSTREAM 17 FREEMENUITEM 3 FREEMENUITEM)
( 69 "Single buffering." 46 "Double buffering." 10 "Arg must be FreeMenuItem")
IV.ROTY :D4
(I 2 BUTTONS I 1 WINDOW I 0 ITEM) g	�`	�`lY`(27 IV.DRAW.SCENE 24 IRIS.ROTATE 12 MINUS 5 SHIFTDOWNP)
(21 \IRISSTREAM 16 IV.THETA 9 IV.THETA 2 SHIFT)
()
IV.ROTZ :D4
(I 2 BUTTONS I 1 WINDOW I 0 ITEM) g	�`	�`lZ`(27 IV.DRAW.SCENE 24 IRIS.ROTATE 12 MINUS 5 SHIFTDOWNP)
(21 \IRISSTREAM 16 IV.THETA 9 IV.THETA 2 SHIFT)
()
IV.SWAPBUFFERS :D4
NIL `	`	(11 SPP.FORCEOUTPUT 5 IRIS.SWAPBUFFERS)
(8 IRISCONN 2 \IRISSTREAM)
()
IV.UP :D4
(P 0 MOVE I 2 BUTTONS I 1 WINDOW I 0 ITEM) !
g	�j`ق`
jHj`(30 IV.DRAW.SCENE 27 IRIS.TRANSLATE 5 SHIFTDOWNP)
(24 \IRISSTREAM 15 IV.DXLATE 10 IV.DXLATE 2 SHIFT)
()
IV.THETA :D4
(P 0 NEW I 2 BUTTONS I 1 WINDOW I 0 ITEM) %
o	
Hd�l
�ggAHA(34 FM.CHANGESTATE 29 FM.GETITEM 6 RNUMBER)
(25 FILL-INS 22 THETA 19 IV.THETA)
( 3 "Enter new rotation in degrees")
IV.AXES :D4
(I 2 BUTTONS I 1 WINDOW I 0 ITEM) +@��@�o@
��i�`	��(40 IV.DRAW.SCENE 32 IV.ENSURE.SCENE 14 ERROR)
(36 \IV.DRAW.AXES 29 AXES.SCENE 25 \IV.DRAW.AXES 17 FREEMENUITEM 3 FREEMENUITEM)
( 10 "Arg must be FreeMenuItem")
IV.BACKGROUND :D4
(P 0 NAME-OR-RGB I 2 BUTTONS I 1 WINDOW I 0 ITEM F 1 \IV.BACKGROUND) 4

i	
Hd�`
cggAH�oA		��(48 L-CASE 45 MKSTRING 41 IV.DRAW.SCENE 38 FM.CHANGELABEL 27 FM.GETITEM 15 \IRIS.ASSURE.COLOR 3 DICOLOR.FROM.USER)
(23 FILL-INS 20 BACKGROUND 12 \IRISSTREAM)
( 34 "none")
IV.TOWARD :D4
(P 0 MOVE I 2 BUTTONS I 1 WINDOW I 0 ITEM) !
g	�j`ق`
jdH`(30 IV.DRAW.SCENE 27 IRIS.TRANSLATE 5 SHIFTDOWNP)
(24 \IRISSTREAM 15 IV.DXLATE 10 IV.DXLATE 2 SHIFT)
()
IV.AWAY :D4
(I 2 BUTTONS I 1 WINDOW I 0 ITEM F 0 IV.AZIM F 1 IV.OBJPT) 5`dg�P`�c�g�jd`	`�Qd
`��(50 IV.DRAW.SCENE 37 IRIS.TRANSLATE 31 MINUS)
(44 IV.DXLATE 34 \IRISSTREAM 28 IV.DXLATE 21 XLATE 13 IV.THETA 6 POLAR 2 IV.MODE)
()
IV.DSPCOLOR :D4
(P 0 RGB I 2 BUTTONS I 1 WINDOW I 0 ITEM) 0
i	
Hd�`
ggAH�oA		��(44 L-CASE 41 MKSTRING 37 FM.CHANGESTATE 26 FM.GETITEM 16 DSPCOLOR 3 DICOLOR.FROM.USER)
(22 FILL-INS 19 DSPCOLOR 13 \IRISSTREAM)
( 33 "none")
IV.DELTA :D4
(P 0 NEW I 2 BUTTONS I 1 WINDOW I 0 ITEM) !
o	
H�ggAHA(30 FM.CHANGESTATE 22 FM.GETITEM 6 RNUMBER)
(26 IV.DXLATE 18 FILL-INS 15 DELTA)
( 3 "Enter new translation value")
IV.VIEW.CHANGED :D4
NIL gNIL
(2 JUNK)
()
IV.NEWSTREAM :D4
(I 2 WINDOW I 1 BUTTONS I 0 ITEM) oo`�h`	(25 OPENIRISSTREAM 13 MOUSECONFIRM)
(22 IRISNSHOSTNUMBER 19 IRISCONN 10 IV.PROMPTWINDOW)
( 7 "left to confirm" 3 "kill old stream?  (lose fonts, etc.)")
IV.PROMPTPRINT :D4
(P 2 F P 0 ARGS) %e
`	HkJdI�ha`
�Jk�Z��(28 PRIN1 9 CLEARW)
(25 IV.PROMPTWINDOW 6 IV.PROMPTWINDOW)
()
IV.PROOF.SKETCH :D4
(I 1 |...| I 0 ARGS) o	h�	`	o	(27 IV.PROMPTPRINT 20 ALIGN 14 IRIS.SKETCH 10 GETPOSITION 6 IV.PROMPTPRINT)
(17 \IRISSTREAM)
( 24 "done" 3 "SKETCHing...")
IV.INIT :D4
(I 0 MENU-POSITION F 0 IV.DEMOW F 1 *IV-MENUDESC* F 2 LASTIV.OBJPT F 3 IV.TWIST F 4 IV.OBJPT F 5 IV.VIEWPT F 6 IV.INC F 7 LASTIV.VIEWPT F 8 IV.DIST F 9 IV.AZIM) �

g	�P	�Q	c@
Pl
h	jdkhcjddhcjdohc
jdohcl
n
�cjcccg`	`	`	(129 IRIS.GCONFIG 123 IV.DRAW.SCENE 120 IV.DRAW.SCENE 117 IV.PHOME.AUX 114 IV.ENSURE.SCENE 108 IV.SCENE.SETUP 105 IRIS.DOUBLEBUFFER 34 IV.NEWSTREAM 27 GETPROMPTWINDOW 21 MOVEW 15 FREEMENU 10 CLOSEW 5 BOUNDP)
(126 \IRISSTREAM 111 AXES.SCENE 102 \IRISSTREAM 99 IV.MODE 96 XLATE 81 IV.DXLATE 30 IV.PROMPTWINDOW 2 IV.DEMOW)
( 70 -1001 58 -1000)
\CLEAR.IRIS :D4
(I 0 COLOR) 
`	@`
	`	(24 IRIS.POPATTRIBUTES 21 IRIS.CLEAR 15 IRIS.COLOR 12 \IRIS.ASSURE.COLOR 5 IRIS.PUSHATTRIBUTES)
(18 \IRISSTREAM 9 \IRISSTREAM 2 \IRISSTREAM)
()
IRIS.DEGREES :D4
(L (0 DEGREES)) 
@l
�j�NIL
NIL
()
IV.ITEMMAPFN :D4
(I 0 ITEM F 0 NAME F 1 RESULT) !
@��@�o@
�g'P��@c(14 ERROR)
(22 NAME%: 17 FREEMENUITEM 3 FREEMENUITEM)
( 10 "Arg must be FreeMenuItem")
IV.DISPLAY.FMITEM :D4
(I 1 WINDOW I 0 ITEM) g(2 HELP)
(5 PROG)
()
(RECORD IRISSCENE (NAME DRAWFN OBJNO) OBJNO _ (IRIS.CONS.OBJNO))
(RECORD IVPOS (IVX IVY IVZ))
(RPAQQ HANDWIDTH 48)
(RPAQQ IRIS.XAXIS 88)
(RPAQQ IRIS.ZAXIS 90)
(RPAQQ IV.DXLATE 10)
(RPAQQ IV.MODE XLATE)
(RPAQQ IV.OBJPT (0 0 0))
(RPAQQ IV.THETA 50)
(RPAQQ IV.TRACE.FNS (IRIS.POPMATRIX IRIS.ROTATE IRIS.TRANSLATE))
(RPAQQ IV.TWIST 0)
(RPAQQ IV.VIEWPT (0 0 -1000))
(RPAQQ LASTIV.OBJPT (0 0 1))
(RPAQQ LASTIV.VIEWPT (0 0 -1001))
(RPAQQ \IV.DRAW.AXES NIL)
(RPAQQ \IV.BACKGROUND NIL)
(IV.SCENE.SETUP)
(IV.BUILD.SCENES.MENU)
SKULLO :D4
(I 0 *STREAM*) 
�
nn
yoo@
nn
yooh@
oo@nn8n
�n2kh@o
n
�n2n
�nkh@o
n
�nn
|n
�kh@o
n
|n
�n
]n
�kh@o
n
]n
�n
Qn
�kh@o
n
Qn
�n
Xn
Ckh@o
n
Xn
Cn
l�kh@o
n
l�n
�l�kh@o
n
�l�n
�l�kh@o
n
�l�nl�kh@o
nl�nn8kh@o
nn
�oo@
nn
�ooh@
oo@nn
8n�n
-kh@o
n�n
-n�n
#kh@o
n�n
#n�n
kh@o
n�n
n{n
kh@o
n{n
nun
kh@o
nun
nln
kh@o
nln
ncn
&kh@o
ncn
&nn
8kh@o
oo@n
�n
,n
�n
kh@o
n
�n
n
�l�kh@o
n
�l�n
�l�kh@o
n
�l�n
�l�kh@o
n
�l�n
�l�kh@o
n
�l�n
�l�kh@o
n
�l�nl�kh@o
nl�nZl�kh@o
nZl�ncl�kh@o
ncl�njl�kh@o
njl�nnl�kh@o
nnl�nnn
kh@o
nnn
nln
kh@o
nln
ngn
.kh@o
ngn
.n
�n
,kh@o
oo@n
�l�n
�l�kh@o
n
�l�n
�l�kh@o
n
�l�n
�l�kh@o
n
�l�n
�l�kh@o
n
�l�n
�l�kh@o
n
�l�n
�l�kh@o
n
�l�n
�l�kh@o
n
�l�n
�l�kh@o
n
�l�n
�l�kh@o
n
�l�nl�kh@o
nl�n
l�kh@o
n
l�nl�kh@o
nl�nl�kh@o
nl�n"l�kh@o
n"l�n*l�kh@o
n*l�n/l�kh@o
n/l�n6l�kh@o
n6l�n<l�kh@o
n<l�nBl�kh@o
nBl�nHl�kh@o
nHl�nMl�kh@o
nMl�nQl�kh@o
nQl�nVl�kh@o
nVl�nYl�kh@o
nYl�n\l�kh@o
n\l�nXl�kh@o
nXl�n
�l�kh@o
oo@n
�n
6n
�n
*kh@o
n
�n
*n
�n
kh@o
n
�n
n
�n
kh@o
n
�n
n
�n
kh@o
n
�n
n
�n
kh@o
n
�n
n
�n
kh@o
n
�n
n
�n
$kh@o
n
�n
$n
�n
6kh@o
nn
�oo@
nn
�ooh@
oo@n4n&nFn kh@o
nFn nankh@o
nannxn
�kh@o
nxn
�n�n
�kh@o
n�n
�n�n
�kh@o
n�n
�n�n
�kh@o
n�n
�n�n
qkh@o
n�n
qn~n
Tkh@o
n~n
Tnhn
<kh@o
nhn
<nOn
+kh@o
nOn
+n5n
kh@o
n5n
nn
kh@o
nn
n
�n
kh@o
n
�n
n4n&kh@o
oo@n4n&n0nkh@o
n0nn8nkh@o
n8nn$n
�kh@o
n$n
�n>n
�kh@o
n>n
�nn
�kh@o
nn
�n<n
�kh@o
n<n
�n
n
zkh@o
n
n
zn/n
zkh@o
n/n
zn
�n
kh@o
n
�n
n
�n
jkh@o
n
�n
jn
�n
kkh@o
n
�n
knn
�kh@o
nn
�n
�n
�kh@o
n
�n
�nn
�kh@o
nn
�nn
�kh@o
nn
�n*n
kh@o
n*n
n!nkh@o
n!nn4n&kh@o
nn
�ooh@
ohoh@
ohoh@
n5n#dn
lh@o
ohoh@
n#n
n+n
lh@o
ohoh@
n+n
dn
�lh@o
ohoh@
n
n
�n!n
�lh@o
ohoh@
n!n
�n
�n
�lh@o
ohoh@
n
�n
�n	n
�lh@o
ohoh@
n	n
�n
�n
jlh@o
ohoh@
n
�n
jnn
hlh@o
ohoh@
nn
hn
�n
lh@o
ohoh@
ohoh@
n6n$n2nlh@o
ohoh@
n2nn:nlh@o
ohoh@
n:nn&n
�lh@o
ohoh@
n&n
�n?n
�lh@o
ohoh@
n?n
�nn
�lh@o
ohoh@
nn
�n=n
�lh@o
ohoh@
n=n
�nn
ylh@o
ohoh@
nn
yn1n
xlh@o
ohoh@
n1n
xn
�n
lh@o
ohoh@
nn
yooh@
ohoh@
oioh@
ohoh@
oioh@
ohoh@
ohoh@
ohoh@
ohoh@
oioh@
oioh@
oioh@
oioh@
oioh@
oioh@
oioh@
oioh@
oioh@
oioh@
oioh@
oioh@
oioh@
oioh@
(3554 DRAWCURVE 3539 DRAWCURVE 3524 DRAWCURVE 3509 DRAWCURVE 3494 DRAWCURVE 3479 DRAWCURVE 3464 DRAWCURVE 3449 DRAWCURVE 3434 DRAWCURVE 3419 DRAWCURVE 3404 DRAWCURVE 3389 DRAWCURVE 3374 DRAWCURVE 3359 DRAWCURVE 3344 DRAWCURVE 3329 DRAWCURVE 3314 DRAWCURVE 3299 DRAWCURVE 3284 DRAWCURVE 3269 DRAWCURVE 3254 DRAWCURVE 3239 DRAWCURVE 3224 DRAWCIRCLE 3204 DRAWCURVE 3189 DRAWLINE 3165 DRAWCURVE 3150 DRAWLINE 3126 DRAWCURVE 3111 DRAWLINE 3087 DRAWCURVE 3072 DRAWLINE 3048 DRAWCURVE 3033 DRAWLINE 3009 DRAWCURVE 2994 DRAWLINE 2970 DRAWCURVE 2955 DRAWLINE 2931 DRAWCURVE 2916 DRAWLINE 2892 DRAWCURVE 2877 DRAWLINE 2853 DRAWCURVE 2838 DRAWCURVE 2823 DRAWLINE 2799 DRAWCURVE 2784 DRAWLINE 2760 DRAWCURVE 2745 DRAWLINE 2721 DRAWCURVE 2706 DRAWLINE 2682 DRAWCURVE 2667 DRAWLINE 2643 DRAWCURVE 2628 DRAWLINE 2604 DRAWCURVE 2589 DRAWLINE 2567 DRAWCURVE 2552 DRAWLINE 2528 DRAWCURVE 2513 DRAWLINE 2491 DRAWCURVE 2476 DRAWCURVE 2461 DRAWCIRCLE 2441 DRAWLINE 2418 DRAWLINE 2395 DRAWLINE 2372 DRAWLINE 2349 DRAWLINE 2326 DRAWLINE 2303 DRAWLINE 2280 DRAWLINE 2257 DRAWLINE 2234 DRAWLINE 2211 DRAWLINE 2188 DRAWLINE 2165 DRAWLINE 2142 DRAWLINE 2119 DRAWLINE 2096 DRAWLINE 2073 DRAWLINE 2050 DRAWLINE 2027 FILLPOLYGON 2015 DRAWLINE 1992 DRAWLINE 1969 DRAWLINE 1946 DRAWLINE 1923 DRAWLINE 1900 DRAWLINE 1877 DRAWLINE 1854 DRAWLINE 1831 DRAWLINE 1808 DRAWLINE 1785 DRAWLINE 1762 DRAWLINE 1739 DRAWLINE 1716 DRAWLINE 1693 FILLPOLYGON 1681 DRAWCIRCLE 1661 FILLCIRCLE 1642 DRAWLINE 1619 DRAWLINE 1596 DRAWLINE 1573 DRAWLINE 1550 DRAWLINE 1527 DRAWLINE 1504 DRAWLINE 1481 DRAWLINE 1458 FILLPOLYGON 1446 DRAWLINE 1425 DRAWLINE 1404 DRAWLINE 1383 DRAWLINE 1362 DRAWLINE 1341 DRAWLINE 1320 DRAWLINE 1299 DRAWLINE 1278 DRAWLINE 1257 DRAWLINE 1236 DRAWLINE 1215 DRAWLINE 1194 DRAWLINE 1173 DRAWLINE 1152 DRAWLINE 1131 DRAWLINE 1110 DRAWLINE 1089 DRAWLINE 1068 DRAWLINE 1047 DRAWLINE 1026 DRAWLINE 1005 DRAWLINE 984 DRAWLINE 963 DRAWLINE 942 DRAWLINE 921 DRAWLINE 900 DRAWLINE 879 FILLPOLYGON 867 DRAWLINE 844 DRAWLINE 821 DRAWLINE 798 DRAWLINE 776 DRAWLINE 755 DRAWLINE 734 DRAWLINE 713 DRAWLINE 692 DRAWLINE 671 DRAWLINE 650 DRAWLINE 629 DRAWLINE 608 DRAWLINE 587 DRAWLINE 565 DRAWLINE 542 FILLPOLYGON 530 DRAWLINE 507 DRAWLINE 484 DRAWLINE 461 DRAWLINE 438 DRAWLINE 415 DRAWLINE 392 DRAWLINE 369 DRAWLINE 346 FILLPOLYGON 334 DRAWCIRCLE 314 FILLCIRCLE 295 DRAWLINE 273 DRAWLINE 252 DRAWLINE 231 DRAWLINE 210 DRAWLINE 188 DRAWLINE 165 DRAWLINE 142 DRAWLINE 119 DRAWLINE 96 DRAWLINE 73 DRAWLINE 50 FILLPOLYGON 38 DRAWCIRCLE 18 FILLCIRCLE)
NIL
( 3548 (ROUND 3 (0 0 0)) 3543 ((596 . 224) (597 . 217) (600 . 213) (603 . 216) (604 . 221) (601 . 226))
 3533 (ROUND 3 (0 0 0)) 3528 ((588 . 220) (589 . 213) (592 . 209) (595 . 212) (596 . 217) (593 . 222))
 3518 (ROUND 3 (0 0 0)) 3513 ((578 . 217) (581 . 220) (588 . 217) (588 . 211) (588 . 204) (581 . 201) (577 . 207))
 3503 (ROUND 3 (0 0 0)) 3498 ((565 . 215) (567 . 218) (572 . 217) (576 . 212) (576 . 202) (576 . 198) (573 . 194) (568 . 194) (566 . 199) (565 . 204) (565 . 209))
 3488 (ROUND 3 (0 0 0)) 3483 ((553 . 212) (555 . 215) (560 . 214) (564 . 209) (564 . 199) (564 . 195) (561 . 191) (556 . 191) (554 . 196) (553 . 201) (553 . 206))
 3473 (ROUND 3 (0 0 0)) 3468 ((539 . 208) (542 . 212) (549 . 211) (552 . 205) (553 . 198) (553 . 192) (551 . 188) (545 . 185) (541 . 189) (538 . 195))
 3458 (ROUND 3 (0 0 0)) 3453 ((523 . 208) (526 . 212) (533 . 211) (536 . 205) (537 . 198) (537 . 192) (535 . 188) (529 . 185) (525 . 189) (522 . 195))
 3443 (ROUND 3 (0 0 0)) 3438 ((507 . 209) (510 . 213) (517 . 212) (520 . 206) (521 . 199) (521 . 193) (519 . 189) (513 . 186) (509 . 190) (506 . 196))
 3428 (ROUND 3 (0 0 0)) 3423 ((494 . 216) (496 . 219) (501 . 218) (505 . 213) (505 . 203) (505 . 199) (502 . 195) (497 . 195) (495 . 200) (494 . 205) (494 . 210))
 3413 (ROUND 3 (0 0 0)) 3408 ((483 . 219) (486 . 222) (493 . 219) (493 . 213) (493 . 206) (486 . 203) (482 . 209))
 3398 (ROUND 3 (0 0 0)) 3393 ((474 . 222) (475 . 215) (478 . 211) (481 . 214) (482 . 219) (479 . 224))
 3383 (ROUND 3 (0 0 0)) 3378 ((465 . 226) (466 . 219) (469 . 215) (472 . 218) (473 . 223) (470 . 228))
 3368 (ROUND 2 (0 0 0)) 3363 ((527 . 242) (528 . 236) (527 . 229) (520 . 227) (521 . 234) (524 . 238))
 3353 (ROUND 2 (0 0 0)) 3348 ((534 . 240) (533 . 234) (534 . 230) (539 . 226) (543 . 232) (540 . 235))
 3338 (ROUND 2 (0 0 0)) 3333 ((421 . 310) (418 . 294) (420 . 276) (431 . 271) (436 . 271)) 3323 (ROUND 2 (0 0 0))
 3318 ((438 . 271) (438 . 253) (442 . 240) (453 . 231) (465 . 227)) 3308 (ROUND 2 (0 0 0)) 3303 ((619 . 271) (621 . 256) (620 . 240) (611 . 230) (602 . 226))
 3293 (ROUND 2 (0 0 0)) 3288 ((638 . 312) (640 . 302) (641 . 291) (639 . 280) (629 . 273) (617 . 271))
 3278 (ROUND 2 (0 0 0)) 3273 ((549 . 253) (545 . 257) (545 . 265) (561 . 267) (569 . 267) (577 . 265) (585 . 261) (589 . 261) (581 . 257) (573 . 257) (561 . 253) (553 . 253))
 3263 (ROUND 2 (0 0 0)) 3258 ((589 . 261) (593 . 261) (605 . 265) (605 . 273) (605 . 285) (605 . 293))
 3248 (ROUND 2 (0 0 0)) 3243 ((513 . 256) (520 . 260) (508 . 266) (490 . 267) (481 . 264) (478 . 260) (486 . 258) (499 . 253))
 3233 (ROUND 2 (0 0 0)) 3228 ((478 . 260) (471 . 258) (462 . 256) (459 . 268) (462 . 283) (457 . 289))
 3218 (ROUND 2 (0 0 0)) 3214 192.0 3198 (ROUND 2 (0 0 0)) 3193 ((493 . 285)) 3185 (0 0 0) 3159 (ROUND 2 (0 0 0))
 3154 ((561 . 376)) 3146 (0 0 0) 3120 (ROUND 2 (0 0 0)) 3115 ((526 . 377)) 3107 (0 0 0) 3081 (ROUND 2 (0 0 0))
 3076 ((573 . 431)) 3068 (0 0 0) 3042 (ROUND 2 (0 0 0)) 3037 ((538 . 430)) 3029 (0 0 0) 3003 (ROUND 2 (0 0 0))
 2998 ((575 . 490)) 2990 (0 0 0) 2964 (ROUND 2 (0 0 0)) 2959 ((550 . 490)) 2951 (0 0 0) 2925 (ROUND 2 (0 0 0))
 2920 ((570 . 529)) 2912 (0 0 0) 2886 (ROUND 2 (0 0 0)) 2881 ((562 . 529)) 2873 (0 0 0) 2847 (ROUND 2 (0 0 0))
 2842 ((566 . 548)) 2832 (ROUND 2 (0 0 0)) 2827 ((493 . 285)) 2819 (0 0 0) 2793 (ROUND 2 (0 0 0)) 2788
 ((512 . 360)) 2780 (0 0 0) 2754 (ROUND 2 (0 0 0)) 2749 ((483 . 362)) 2741 (0 0 0) 2715 (ROUND 2 (0 0 0))
 2710 ((521 . 416)) 2702 (0 0 0) 2676 (ROUND 2 (0 0 0)) 2671 ((499 . 416)) 2663 (0 0 0) 2637 (ROUND 2 (0 0 0))
 2632 ((545 . 479)) 2624 (0 0 0) 2598 (ROUND 2 (0 0 0)) 2593 ((522 . 478)) 2585 (0 0 0) 2561 (ROUND 2 (0 0 0))
 2556 ((555 . 522)) 2548 (0 0 0) 2522 (ROUND 2 (0 0 0)) 2517 ((547 . 522)) 2509 (0 0 0) 2485 (ROUND 2 (0 0 0))
 2480 ((565 . 547)) 2470 (ROUND 2 (0 0 0)) 2465 ((420 . 311) (390 . 354) (377 . 415) (387 . 470) (409 . 511) (444 . 542) (488 . 563) (528 . 569) (581 . 559) (630 . 531) (657 . 498) (677 . 453) (679 . 392) (662 . 342) (640 . 312))
 2455 (ROUND 2 (0 0 0)) 2451 136.0 2437 (255 255 255) 2414 (255 255 255) 2391 (255 255 255) 2368 (255 255 255)
 2345 (255 255 255) 2322 (255 255 255) 2299 (255 255 255) 2276 (255 255 255) 2253 (255 255 255) 2230 (255 255 255)
 2207 (255 255 255) 2184 (255 255 255) 2161 (255 255 255) 2138 (255 255 255) 2115 (255 255 255) 2092 (255 255 255)
 2069 (255 255 255) 2046 (255 255 255) 2023 (NIL (255 255 255)) 2019 ((564 . 550) (560 . 532) (568 . 530) (548 . 492) (574 . 492) (536 . 432) (572 . 433) (522 . 378) (559 . 378) (492 . 286) (510 . 362) (482 . 363) (518 . 418) (496 . 418) (542 . 480) (520 . 480) (554 . 525) (545 . 524))
 2011 (255 255 255) 1988 (255 255 255) 1965 (255 255 255) 1942 (255 255 255) 1919 (255 255 255) 1896 (255 255 255)
 1873 (255 255 255) 1850 (255 255 255) 1827 (255 255 255) 1804 (255 255 255) 1781 (255 255 255) 1758 (255 255 255)
 1735 (255 255 255) 1712 (255 255 255) 1689 (NIL (0 0 255)) 1685 ((564 . 550) (582 . 544) (609 . 527) (632 . 506) (650 . 478) (662 . 441) (664 . 404) (654 . 369) (638 . 340) (616 . 316) (591 . 299) (565 . 286) (532 . 280) (490 . 286))
 1675 (ROUND 2 (255 255 255)) 1671 136.0 1656 (NIL (255 0 0)) 1652 136.0 1638 (255 255 255) 1615 (255 255 255)
 1592 (255 255 255) 1569 (255 255 255) 1546 (255 255 255) 1523 (255 255 255) 1500 (255 255 255) 1477 (255 255 255)
 1454 (NIL (255 255 255)) 1450 ((422 . 310) (419 . 298) (419 . 283) (420 . 278) (424 . 274) (431 . 272) (439 . 271) (451 . 292))
 1442 (255 255 255) 1421 (255 255 255) 1400 (255 255 255) 1379 (255 255 255) 1358 (255 255 255) 1337 (255 255 255)
 1316 (255 255 255) 1295 (255 255 255) 1274 (255 255 255) 1253 (255 255 255) 1232 (255 255 255) 1211 (255 255 255)
 1190 (255 255 255) 1169 (255 255 255) 1148 (255 255 255) 1127 (255 255 255) 1106 (255 255 255) 1085 (255 255 255)
 1064 (255 255 255) 1043 (255 255 255) 1022 (255 255 255) 1001 (255 255 255) 980 (255 255 255) 959 (255 255 255)
 938 (255 255 255) 917 (255 255 255) 896 (255 255 255) 875 (NIL (255 255 255)) 871 ((468 . 228) (466 . 222) (468 . 216) (474 . 218) (478 . 212) (481 . 213) (486 . 202) (493 . 205) (499 . 194) (505 . 198) (514 . 186) (522 . 191) (530 . 187) (538 . 192) (546 . 186) (554 . 192) (559 . 190) (566 . 196) (572 . 194) (578 . 202) (584 . 201) (589 . 210) (593 . 209) (598 . 214) (601 . 214) (604 . 219) (600 . 226))
 863 (255 255 255) 840 (255 255 255) 817 (255 255 255) 794 (255 255 255) 772 (255 255 255) 751 (255 255 255)
 730 (255 255 255) 709 (255 255 255) 688 (255 255 255) 667 (255 255 255) 646 (255 255 255) 625 (255 255 255)
 604 (255 255 255) 583 (255 255 255) 561 (255 255 255) 538 (NIL (255 255 255)) 534 ((446 . 300) (439 . 271) (439 . 254) (440 . 245) (446 . 236) (455 . 231) (465 . 227) (529 . 220) (602 . 227) (611 . 229) (618 . 236) (622 . 245) (622 . 256) (620 . 271) (615 . 302))
 526 (255 255 255) 503 (255 255 255) 480 (255 255 255) 457 (255 255 255) 434 (255 255 255) 411 (255 255 255)
 388 (255 255 255) 365 (255 255 255) 342 (NIL (255 255 255)) 338 ((639 . 312) (642 . 301) (642 . 291) (640 . 283) (635 . 276) (629 . 273) (620 . 272) (611 . 294))
 328 (ROUND 1 (255 255 255)) 324 152.0526 309 (NIL (255 255 255)) 305 152.0526 291 (0 255 255) 269 (0 255 255)
 248 (0 255 255) 227 (0 255 255) 206 (0 255 255) 184 (0 255 255) 161 (0 255 255) 138 (0 255 255) 115 (0 255 255)
 92 (0 255 255) 69 (0 255 255) 46 (NIL (0 0 255)) 42 ((530 . 568) (476 . 562) (426 . 540) (380 . 500) (349 . 445) (337 . 386) (344 . 323) (383 . 250) (436 . 208) (484 . 190) (530 . 184))
 32 (ROUND 1 (0 255 255)) 28 192.0 13 (NIL (255 0 0)) 9 192.0)
(CL:PROCLAIM (QUOTE (CL:SPECIAL *IV-SCENES-MENUDESC*)))
(SETQ *IV-SCENES-MENUDESC* (QUOTE (NIL ((LABEL "Draw Scene" SELECTEDFN IV.PROOF.SCENE HJUSTIFY CENTER)
) ((LABEL "Forget Scene" SELECTEDFN IV.FORGET.SCENE HJUSTIFY CENTER)) ((LABEL "Redefine Scene" 
SELECTEDFN IV.REDEFINE.SCENE HJUSTIFY CENTER)))))
(CL:PROCLAIM (QUOTE (CL:SPECIAL *IV-FILLINS-MENUDESC*)))
(SETQ *IV-FILLINS-MENUDESC* (LIST (LIST (QUOTE GROUP) (QUOTE (PROPS FORMAT TABLE ID FILL-INS)) (QUOTE 
((LABEL "Change Scene" SELECTEDFN IV.SET.CURRENT.SCENE) (TYPE EDIT ID CURRENTSCENE LABEL "axes" 
MAXWIDTH 55))) (QUOTE ((LABEL "" TYPE DISPLAY) (LABEL "" TYPE DISPLAY))) (LIST (QUOTE (LABEL 
"Background:" SELECTEDFN IV.BACKGROUND)) (LIST (QUOTE TYPE) (QUOTE EDIT) (QUOTE ID) (QUOTE BACKGROUND)
 (QUOTE LABEL) (QUOTE "black") (QUOTE SELECTEDFN) (QUOTE IV.BACKGROUND) (QUOTE MAXWIDTH) (STRINGWIDTH 
">background<"))) (LIST (QUOTE (LABEL "Foreground:" SELECTEDFN IV.DSPCOLOR)) (LIST (QUOTE TYPE) (QUOTE
 EDIT) (QUOTE ID) (QUOTE DSPCOLOR) (QUOTE LABEL) (QUOTE "red") (QUOTE SELECTEDFN) (QUOTE IV.DSPCOLOR) 
(QUOTE MAXWIDTH) (STRINGWIDTH ">background<"))) (LIST (LIST* (QUOTE LABEL) IV.DELTA.LABEL (QUOTE (
SELECTEDFN IV.DELTA))) (LIST (QUOTE TYPE) (QUOTE EDIT) (QUOTE ID) (QUOTE DELTA) (QUOTE LABEL) (
MKSTRING IV.DXLATE))) (LIST (LIST* (QUOTE LABEL) IV.THETA.LABEL (QUOTE (SELECTEDFN IV.THETA))) (LIST (
QUOTE TYPE) (QUOTE EDIT) (QUOTE ID) (QUOTE THETA) (QUOTE LABEL) (MKSTRING IV.THETA))))))
(CL:PROCLAIM (QUOTE (CL:SPECIAL *IV-COMMANDS-MENUDESC*)))
(SETQ *IV-COMMANDS-MENUDESC* (LIST (LIST* (QUOTE GROUP) (QUOTE (PROPS FORMAT ROW)) (QUOTE ((LABEL 
"New Stream" SELECTEDFN IV.NEWSTREAM HJUSTIFY CENTER))) (QUOTE ((TYPE TOGGLE LABEL "Axes" SELECTEDFN 
IV.AXES HJUSTIFY CENTER INITSTATE NIL))) (QUOTE ((TYPE TOGGLE LABEL "Double Buffer" SELECTEDFN 
IV.DOUBLEBUFFER HJUSTIFY CENTER INITSTATE T))) (QUOTE ((TYPE MOMENTARY LABEL "Swap buffers" SELECTEDFN
 IV.SWAPBUFFERS HJUSTIFY CENTER))) (QUOTE ((TYPE MOMENTARY LABEL "Clear IRIS" SELECTEDFN IV.CLEARIRIS 
HJUSTIFY CENTER))) (QUOTE ((TYPE DISPLAY LABEL ""))) (APPEND *IV-SCENES-MENUDESC* (LIST 
*IV-FILLINS-MENUDESC*)))))
(CL:PROCLAIM (QUOTE (CL:SPECIAL *IV-POSITIONING-MENU-DESC*)))
(SETQ *IV-POSITIONING-MENU-DESC* (LIST (LIST (QUOTE GROUP) (QUOTE (PROPS FORMAT EXPLICIT COORDINATES 
GROUP BOX 0)) (LIST* (QUOTE LABEL) IV.TOWARD (QUOTE HIGHLIGHT) IV.TOWARD.HIGHLIGHT (QUOTE (LEFT 0 
BOTTOM 0 HELDFN IV.TOWARD))) (LIST* (QUOTE LABEL) IV.ROTZ (QUOTE HIGHLIGHT) IV.ROTZ.HIGHLIGHT (QUOTE 
LEFT) (IPLUS -10 (BITMAPWIDTH IV.TOWARD)) (QUOTE BOTTOM) (BITMAPHEIGHT IV.TOWARD) (QUOTE (HELDFN 
IV.ROTZ))) (LIST (QUOTE TYPE) (QUOTE DISPLAY) (QUOTE LABEL) IV.ROTATE (QUOTE LEFT) (IPLUS (BITMAPWIDTH
 IV.TOWARD) (IQUOTIENT (BITMAPWIDTH IV.ROTZ) 2)) (QUOTE BOTTOM) (IPLUS (BITMAPHEIGHT IV.ROTZ) (
BITMAPHEIGHT IV.TOWARD))) (LIST* (QUOTE LABEL) IV.RIGHT (QUOTE HIGHLIGHT) IV.RIGHT.HIGHLIGHT (QUOTE 
LEFT) (IPLUS (BITMAPWIDTH IV.TOWARD) (IQUOTIENT (BITMAPWIDTH IV.ROTZ) 2) (BITMAPWIDTH IV.ROTATE) (
BITMAPWIDTH IV.ROTX)) (QUOTE BOTTOM) (IPLUS (BITMAPHEIGHT IV.ROTZ) (BITMAPHEIGHT IV.TOWARD) 20) (QUOTE
 (HELDFN IV.RIGHT))) (LIST* (QUOTE LABEL) IV.ROTX (QUOTE HIGHLIGHT) IV.ROTX.HIGHLIGHT (QUOTE LEFT) (
IPLUS (BITMAPWIDTH IV.TOWARD) (IQUOTIENT (BITMAPWIDTH IV.ROTZ) 2) (BITMAPWIDTH IV.ROTATE)) (QUOTE 
BOTTOM) (IPLUS (BITMAPHEIGHT IV.ROTZ) (BITMAPHEIGHT IV.TOWARD)) (QUOTE (HELDFN IV.ROTX))) (LIST* (
QUOTE LABEL) IV.UP (QUOTE HIGHLIGHT) IV.UP.HIGHLIGHT (QUOTE LEFT) (IPLUS (BITMAPWIDTH IV.TOWARD) (
IQUOTIENT (BITMAPWIDTH IV.ROTZ) 2) 10) (QUOTE BOTTOM) (IPLUS (BITMAPHEIGHT IV.TOWARD) (BITMAPHEIGHT 
IV.ROTZ) (BITMAPHEIGHT IV.ROTATE) (BITMAPHEIGHT IV.ROTY) -5) (QUOTE (HELDFN IV.UP))) (LIST (QUOTE 
LABEL) (QUOTE "2D-Home") (QUOTE DOWNFN) (QUOTE IV.2D.HOME) (QUOTE LEFT) (FIX (TIMES 2.5 (BITMAPWIDTH 
IV.ROTZ))) (QUOTE BOTTOM) (BITMAPHEIGHT IV.TOWARD)) (LIST (QUOTE LABEL) (QUOTE "Home") (QUOTE DOWNFN) 
(QUOTE IV.HOME) (QUOTE LEFT) (FIX (TIMES 2.5 (BITMAPWIDTH IV.ROTZ))) (QUOTE BOTTOM) (IPLUS -15 (
BITMAPHEIGHT IV.TOWARD))) (LIST (QUOTE LABEL) (QUOTE "Acute-Home") (QUOTE DOWNFN) (QUOTE IV.PHOME) (
QUOTE LEFT) (FIX (TIMES 2.5 (BITMAPWIDTH IV.ROTZ))) (QUOTE BOTTOM) (IPLUS -30 (BITMAPHEIGHT IV.TOWARD)
)) (LIST* (QUOTE LABEL) IV.ROTY (QUOTE HIGHLIGHT) IV.ROTY.HIGHLIGHT (QUOTE LEFT) (IPLUS (BITMAPWIDTH 
IV.TOWARD) (IQUOTIENT (BITMAPWIDTH IV.ROTZ) 2) 5) (QUOTE BOTTOM) (IPLUS (BITMAPHEIGHT IV.TOWARD) (
BITMAPHEIGHT IV.ROTZ) (BITMAPHEIGHT IV.ROTATE)) (QUOTE (HELDFN IV.ROTY))))))
(CL:PROCLAIM (QUOTE (CL:SPECIAL *IV-MENUDESC*)))
(SETQ *IV-MENUDESC* (LIST (QUOTE (PROPS FORMAT ROW BOX 4)) (QUOTE ((TYPE DISPLAY LABEL 
"IRIS View Controller" HJUSTIFY CENTER FONT (MODERN 10 BOLD)))) (APPEND *IV-POSITIONING-MENU-DESC* (
LIST (LIST (QUOTE GROUP) (QUOTE (PROPS FORMAT COLUMN)) *IV-COMMANDS-MENUDESC*)))))
(PUTPROPS IRISVIEW FILETYPE :FAKE-COMPILE-FILE)
(PUTPROPS IRISVIEW COPYRIGHT ("Xerox Corporation" 1985 1987))
NIL