(FILECREATED "17-Jul-84 12:13:47" {ERIS}<LISPCORE>DEMO>DEMOSETUP.;8 7603
changes to: (VARS DEMOSETUPCOMS)
(FNS DEMOSETUP.LAFITE DEMOSETUP.SLIDESHOW DO.SLIDESHOW)
previous date: "16-Jul-84 18:20:19" {ERIS}<LISPCORE>DEMO>DEMOSETUP.;7)
(* Copyright (c) 1983, 1984 by Xerox Corporation. All rights reserved.)
(PRETTYCOMPRINT DEMOSETUPCOMS)
(RPAQQ DEMOSETUPCOMS ((DECLARE: DONTEVAL@LOAD DOCOPY (ADDVARS (NLAMA PARSE)))
(FNS DEMOSETUP DEMOSETUP.BACKGROUNDS DEMOSETUP.FIXFONTS DEMOSETUP.LAFITE
DEMOSETUP.LAYOUT DEMOSETUP.SLIDESHOW DO.SLIDESHOW)
(VARS KNOWNFONTS)))
(DECLARE: DONTEVAL@LOAD DOCOPY
(ADDTOVAR NLAMA PARSE)
)
(DEFINEQ
(DEMOSETUP
[LAMBDA NIL (* edited: "16-Jul-84 18:17")
(SETQ SYSOUTGAG T)
(FILESLOAD (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES)
BIG LOGOCLOCK SOLITAIRE GRAPHER BROWSER NOTEPAD LATTICER TREEDISPLAY BITMAPFNS)
(FILESLOAD (SYSLOAD FROM <LISPCORE>DEMO)
DEMOS HISTMENU)
(FILESLOAD (SYSLOAD FROM {PHYLUM}<PAPERWORKS>)
ANNO EDITMARK)
(COPYFILE (QUOTE {ERIS}<LISPCORE>DEMO>AITEXT.TEDIT)
(QUOTE {CORE}AITEXT))
(DEMOSETUP.BACKGROUNDS) (* Load various backgrounds and apply castle to
background.)
(DEMOSETUP.LAYOUT) (* Arrange window layout for maximum space.)
(DEMOSETUP.FIXFONTS) (* Make font bigger.)
(DEMOSETUP.LAFITE) (* Put up Lafite on a mailfile that is copied into
core.)
(DEMOSETUP.SLIDESHOW) (* Put up slideshow menu.)
(FILESLOAD (SYSLOAD FROM <LISPCORE>DEMO)
ICONFNS)
(GETWORLD) (* Put up world map.)
(SETQ PARSE (PARSE MY UNCLE'S STORY ABOUT THE WAR WILL BORE YOU TO TEARS))
(ADDSPELL (QUOTE PARSE)
SPELLINGS3)
(SETQ MSPRINTFLG NIL)
(SETQ CLISPIFTRANFLG T)
(SETQ DWIMWAIT 100)
(SETQ CLOSEBREAKWINDOWFLG (QUOTE ALL))
(RESETVARS (FILEPKGFLG)
(LOAD (QUOTE <LISPUSERS>LATTICER)
(QUOTE PROP))
(LOAD (QUOTE <LISPUSERS>TREEDISPLAY)
(QUOTE PROP)))
(%. ANALYZE ANY ON (LATTICER TREEDISPLAY))
(SETQQ FILELST (LATTICER TREEDISPLAY))
(ENDLOADUP])
(DEMOSETUP.BACKGROUNDS
[LAMBDA NIL (* edited: "16-Jul-84 18:19")
(* The originals for these backgrounds are found on
{igor}<hacks>10.0>source>rootpicture>pictures>*)
(* (SETQ RHINE (READPRESS (QUOTE
<LISPCORE>DEMO>RHINE.PRESS))))
(SETQ STEINHEIM (READPRESS (QUOTE <LISPCORE>DEMO>STEINHEIM.PRESS)))
(SETQ TIFFANY (READPRESS (QUOTE <LISPCORE>DEMO>TIFFANY.PRESS)))
(SETQ TWODOLLAR (READPRESS (QUOTE <LISPCORE>DEMO>TWODOLLAR.PRESS)))
(CHANGEBACKGROUND STEINHEIM])
(DEMOSETUP.FIXFONTS
[LAMBDA NIL (* edited: "16-Jul-84 17:31")
(* All the necessary fonts can be found on this
directory.)
(NEWFONT (QUOTE SMALL)) (* Run NEWFONT on all fonts to insure that fonts are
installed on KNOWNFONTS.)
(NEWFONT (QUOTE STANDARD))
(NEWFONT (QUOTE MEDIUM))
(NEWFONT (QUOTE HUGE))
(NEWFONT (QUOTE BIG)) (* Make the final font big enough to see in a demo.)
])
(DEMOSETUP.LAFITE
[LAMBDA NIL (* edited: "17-Jul-84 12:13")
(COREDEVICE (QUOTE DEMOMAIL))
(COPYFILE (QUOTE <LISPCORE>DEMO>ACTIVE.MAIL!1)
(QUOTE {DEMOMAIL}ACTIVE.MAIL))
(COPYFILE (QUOTE <LISPCORE>DEMO>LAFITE.PROFILE)
(QUOTE {DEMOMAIL}LAFITE.PROFILE))
(SETQ LAFITEDEFAULTHOST&DIR (QUOTE {DEMOMAIL}))
(SETQ DEFAULTMAILFOLDERNAME (QUOTE {DEMOMAIL}ACTIVE.MAIL))
(ADDMENU [create MENU
ITEMS ←(QUOTE ((Lafite (LAFITE (QUOTE ON))
Will% start% Lafite.]
NIL LAFITE.BUTTON.POSITION])
(DEMOSETUP.LAYOUT
[LAMBDA NIL (* hts: "13-Jan-84 12:19")
(PROG ((LOGOHEIGHT 180)
(LOGOWIDTH 343)
(LAFITEHEIGHT 56)
(LAFITEWIDTH 227)
(PROMPTHEIGHT 75)
(HISTORYWIDTH 172)
(HISTORYHEIGHT 602))
(PROG [(PROMPTWIDTH (IDIFFERENCE SCREENWIDTH LOGOWIDTH))
(TTYHEIGHT (IDIFFERENCE (IPLUS LOGOHEIGHT LAFITEHEIGHT)
PROMPTHEIGHT))
(TTYWIDTH (IDIFFERENCE SCREENWIDTH (IPLUS LOGOWIDTH HISTORYWIDTH]
(* hts: "17-AUG-83 01:02")
(MOVEW LOGOW (IDIFFERENCE SCREENWIDTH LOGOWIDTH)
(IDIFFERENCE SCREENHEIGHT LOGOHEIGHT))
(SHAPEW PROMPTWINDOW
(create REGION
HEIGHT ← PROMPTHEIGHT
WIDTH ← PROMPTWIDTH
LEFT ← 0
BOTTOM ←(IDIFFERENCE SCREENHEIGHT PROMPTHEIGHT)))
[SHAPEW \TopLevelTtyWindow
(create REGION
HEIGHT ← TTYHEIGHT
WIDTH ← TTYWIDTH
LEFT ← 0
BOTTOM ←(IDIFFERENCE SCREENHEIGHT (IPLUS PROMPTHEIGHT TTYHEIGHT]
[HistoryIcon 40 (create POSITION
XCOORD ← TTYWIDTH
YCOORD ←(IDIFFERENCE SCREENHEIGHT (IPLUS PROMPTHEIGHT
HISTORYHEIGHT)))
(create POSITION
XCOORD ← TTYWIDTH
YCOORD ←(IDIFFERENCE SCREENHEIGHT (IPLUS PROMPTHEIGHT 64]
[SETQ LAFITESTATUSWINDOWPOSITION (create POSITION
XCOORD ←(IDIFFERENCE SCREENWIDTH
(IPLUS (LRSH LOGOWIDTH
1)
(LRSH
LAFITEWIDTH 1)))
YCOORD ←(IDIFFERENCE SCREENHEIGHT
(IPLUS LOGOHEIGHT
LAFITEHEIGHT]
(SETQ LAFITEEDITORREGION
(create REGION
BOTTOM ← 0
HEIGHT ← 255
WIDTH ← 600
LEFT ← 424))
(SETQ LAFITEDISPLAYREGION (create REGION
HEIGHT ←(IDIFFERENCE SCREENHEIGHT
(IPLUS 255 LAFITEHEIGHT
LOGOHEIGHT))
WIDTH ← 600
BOTTOM ← 255
LEFT ← 349))
(SETQ LAFITE.BUTTON.POSITION LAFITESTATUSWINDOWPOSITION)
(SETQ SLIDESHOWMENUPOS (create POSITION
YCOORD ←(IDIFFERENCE (fetch YCOORD of
LAFITE.BUTTON.POSITION)
167)
XCOORD ←(IDIFFERENCE SCREENWIDTH 235)))
(SETQ DEditLinger NIL) (* Make DEdit window go away once used.)
])
(DEMOSETUP.SLIDESHOW
[LAMBDA NIL (* edited: "17-Jul-84 12:10")
(FILESLOAD (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES)
BANNER)
(FILESLOAD (SYSLOAD)
(QUOTE {ERIS}<LISPCORE>DEMO>SLIDES))
(FONTCREATE (QUOTE TIMESROMAND)
24) (* Make sure the necessary fonts are loaded.)
])
(DO.SLIDESHOW
[LAMBDA NIL (* edited: "17-Jul-84 12:09")
(SLIDESHOW T T SLIDESHOWMENUPOS])
)
(RPAQQ KNOWNFONTS ((TIMESROMAND 36)
(HELVETICAD 24)
(HELVETICA 18)
(HELVETICA 14)
(HELVETICA 12)
(HELVETICA 8)
(HELVETICA 10)
(GACHA 8)
(GACHA 10)))
(PUTPROPS DEMOSETUP COPYRIGHT ("Xerox Corporation" 1983 1984))
(DECLARE: DONTCOPY
(FILEMAP (NIL (680 7324 (DEMOSETUP 690 . 2450) (DEMOSETUP.BACKGROUNDS 2452 . 3148) (DEMOSETUP.FIXFONTS
3150 . 3783) (DEMOSETUP.LAFITE 3785 . 4378) (DEMOSETUP.LAYOUT 4380 . 6764) (DEMOSETUP.SLIDESHOW 6766
. 7170) (DO.SLIDESHOW 7172 . 7322)))))
STOP