(FILECREATED "23-Sep-84 18:44:30" {ERIS}<LISPCORE>DEMO>DEMOSETUP.;28 10207
changes to: (FNS DEMOSETUP.PROGRAMMER)
previous date: "23-Sep-84 17:20:28" {ERIS}<LISPCORE>DEMO>DEMOSETUP.;27)
(* 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.PROGRAMMER DEMOSETUP.TEXT DEMOSETUP.KITCHENSINK
DEMOSETUP.SLIDESHOW)
(VARS KNOWNFONTS)))
(DECLARE: DONTEVAL@LOAD DOCOPY
(ADDTOVAR NLAMA PARSE)
)
(DEFINEQ
(DEMOSETUP
[LAMBDA NIL (* hts: "25-Jul-84 11:22")
(CNDIR (QUOTE {ERIS}<LISPCORE>DEMO>))
(push LISPUSERSDIRECTORIES (QUOTE {eris}<lispcore>demo>))
(COREDEVICE (QUOTE DEMO))
(DEMOSETUP.FIXFONTS) (* Make font bigger.)
(DEMOSETUP.BACKGROUNDS) (* Load various backgrounds and apply castle to
background.)
(DEMOSETUP.LAYOUT) (* Arrange window layout)
(DEMOSETUP.TEXT)
(DEMOSETUP.LAFITE) (* Put up Lafite on a mailfile that is copied into
core.)
(DEMOSETUP.PROGRAMMER)
(DEMOSETUP.KITCHENSINK)
(SETQ SYSOUTGAG T)
(ENDLOADUP])
(DEMOSETUP.BACKGROUNDS
[LAMBDA NIL (* edited: "31-Jul-84 13:37")
(* * Set up a bunch of backgrounds for the demo)
(* * The originals for these backgrounds are found on {igor}<hacks>10.0>source>rootpicture>pictures>*)
(FILESLOAD (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES)
BITMAPFNS STARBG)
(SETQ STARBG (GENERATE.STARSCAPE))
(SETQ RHINE (READPRESS (QUOTE RHINE.PRESS)))
(SETQ STEINHEIM (READPRESS (QUOTE STEINHEIM.PRESS)))
(SETQ TIFFANY (READPRESS (QUOTE TIFFANY.PRESS)))
(SETQ TWODOLLAR (READPRESS (QUOTE TWODOLLAR.PRESS)))
(CHANGEBACKGROUNDBORDER BLACKSHADE)
(CHANGEBACKGROUND RHINE])
(DEMOSETUP.FIXFONTS
[LAMBDA NIL (* edited: "20-Jul-84 13:35")
(* * Load the BIG package to change fonts; run NEWFONT on all font families provided by BIG to ensure that all
necessary fonts are in core; and make the final font big enough to see in a demo.)
(FILESLOAD (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES)
BIG)
(NEWFONT (QUOTE SMALL))
(NEWFONT (QUOTE STANDARD))
(NEWFONT (QUOTE MEDIUM))
(NEWFONT (QUOTE HUGE))
(NEWFONT (QUOTE BIG])
(DEMOSETUP.LAFITE
[LAMBDA NIL (* edited: " 2-Aug-84 09:22")
(* * Set up Lafite for the demos)
(* * Load mail file and profile and appropriate fonts)
(COPYFILE (QUOTE <LISPCORE>DEMO>ACTIVE.MAIL)
(QUOTE {DEMO}ACTIVE.MAIL))
(FONTCREATE (QUOTE TIMESROMAN)
18)
(FONTCREATE (QUOTE CREAM)
12
(QUOTE ITALIC))
(FONTCREATE (QUOTE TIMESROMAN)
18
(QUOTE BOLD))
(COPYFILE (QUOTE <LISPCORE>DEMO>LAFITE.PROFILE)
(QUOTE {DEMO}LAFITE.PROFILE))
(SETQ LAFITEDEFAULTHOST&DIR (QUOTE {DEMO}))
(SETQ DEFAULTMAILFOLDERNAME (QUOTE {DEMO}ACTIVE.MAIL))
(FILESLOAD (SYSLOAD)
LAFITENULLMODE)
(LAFITEMODE (QUOTE NULL))
[OR (GETD (QUOTE \LAFITE.GETNEWMAIL))
(ADVISE (QUOTE (DSPFONT IN LAB.CREATEWINDOW))
(QUOTE AFTER)
(QUOTE (CLEARW STREAM]
(LAFITE (QUOTE ON)
NIL])
(DEMOSETUP.LAYOUT
[LAMBDA NIL (* hts: "25-Jul-84 11:15")
(PROG ((LAFITE.HEIGHT 56)
(LAFITE.WIDTH 227)
(TTY.HEIGHT 277)
(HISTORY.ICON.HEIGHT 64)
(HISTORY.ICON.WIDTH 64)
(LAFITE.LEFT 24)
(LAFITE.BOTTOM 24)
(LOGOHEIGHT 180)
(LOGOWIDTH 343))
(* * Set up Logoclock (yuk!) in upper right corner of screen)
(MOVEW LOGOW (IDIFFERENCE SCREENWIDTH LOGOWIDTH)
(IDIFFERENCE SCREENHEIGHT LOGOHEIGHT))
(FILESLOAD (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES)
LOGOCLOCK)
(* * Position prompt window)
(WINDOWPROP PROMPTWINDOW (QUOTE TITLE)
NIL)
(SHAPEW PROMPTWINDOW (create REGION
HEIGHT ← LAFITE.HEIGHT
WIDTH ← LAFITE.WIDTH
LEFT ← 0
BOTTOM ←(IDIFFERENCE SCREENHEIGHT LAFITE.HEIGHT)))
(* * Position top level typescript window)
[SHAPEW \TopLevelTtyWindow (create REGION
HEIGHT ← TTY.HEIGHT
WIDTH ←(IPLUS LAFITE.WIDTH LAFITE.WIDTH)
LEFT ← 0
BOTTOM ←(IDIFFERENCE SCREENHEIGHT (IPLUS LAFITE.HEIGHT
TTY.HEIGHT]
(* * Set up pointing icon)
(FILESLOAD (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES)
ANIMATE)
(BIGCW (create POSITION
XCOORD ←(IDIFFERENCE SCREENWIDTH (IPLUS LOGOWIDTH (BITMAPWIDTH
BigArrowShadow)))
YCOORD ←(IDIFFERENCE SCREENHEIGHT (BITMAPHEIGHT BigArrowShadow)))
BigArrowIcon BigArrowShadow)
(BIGCW [create POSITION
XCOORD ←(IDIFFERENCE SCREENWIDTH (IPLUS LOGOWIDTH (BITMAPWIDTH HandShadow)))
YCOORD ←(IDIFFERENCE SCREENHEIGHT (IPLUS (BITMAPHEIGHT BigArrowShadow)
(BITMAPHEIGHT HandShadow]
Hand HandShadow)
(* * Set up history icon)
(FILESLOAD (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES)
HISTMENU)
(HistoryIcon 50 (create POSITION
XCOORD ←(IPLUS LAFITE.WIDTH LAFITE.WIDTH)
YCOORD ←(IDIFFERENCE SCREENHEIGHT 752))
(create POSITION
XCOORD ←(IPLUS LAFITE.WIDTH LAFITE.WIDTH)
YCOORD ←(IDIFFERENCE SCREENHEIGHT HISTORY.ICON.HEIGHT)))
(* * Set up places for all the relevant Lafite windows)
(SETQ LAFITESTATUSWINDOWPOSITION (create POSITION
XCOORD ← LAFITE.WIDTH
YCOORD ←(IDIFFERENCE SCREENHEIGHT LAFITE.HEIGHT)))
(SETQ LAFITEBROWSERREGION
(create REGION
BOTTOM ← LAFITE.BOTTOM
LEFT ← LAFITE.LEFT
WIDTH ← 600
HEIGHT ← 200))
(SETQ LAFITEDISPLAYREGION (create REGION
HEIGHT ← 250
WIDTH ← 600
BOTTOM ←(IPLUS 200 LAFITE.BOTTOM)
LEFT ← LAFITE.LEFT))
(SETQ LAFITEEDITORREGION
(create REGION
BOTTOM ← LAFITE.BOTTOM
HEIGHT ← 450
WIDTH ← 400
LEFT ←(IPLUS LAFITE.LEFT 600)))
(* * Set up first TEdit window)
(SETQ TEDITW (CREATEW (CREATEREGION 500 0 524 (IPLUS 450 LAFITE.BOTTOM))
(QUOTE FOO)))
(TEDIT NIL TEDITW)
(TEDIT.QUIT (TEXTSTREAM TEDITW))
(* * Make DEdit window go away once used.)
(SETQ DEditLinger NIL)
(* * Set up a position for the slideshow menu)
(SETQ SLIDESHOWMENUPOS (create POSITION
YCOORD ←(IDIFFERENCE SCREENHEIGHT (IPLUS LOGOHEIGHT 167))
XCOORD ←(IDIFFERENCE SCREENWIDTH 235])
(DEMOSETUP.PROGRAMMER
[LAMBDA NIL (* edited: "23-Sep-84 18:44")
(FILESLOAD (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES)
GRAPHER BROWSER LATTICER TREEDISPLAY SPY GRAPHCALLS)
(LOAD (QUOTE LATTICER)
(QUOTE PROP))
(LOAD (QUOTE TREEDISPLAY)
(QUOTE PROP))
(SETQ DWIMWAIT 100)
(SETQ MSPRINTFLG NIL)
(SETQ CLISPIFTRANFLG T)
(%. ANALYZE ANY ON (LATTICER TREEDISPLAY))
(SETQ PARSE (PARSE PROGRAMMING AND PERFORMANCE TOOLS IN INTERLISP-D WILL AMAZE YOU))
(ADDSPELL (QUOTE PARSE)
SPELLINGS3)
(SETQQ FILELST (LATTICER TREEDISPLAY])
(DEMOSETUP.TEXT
[LAMBDA NIL (* edited: "31-Jul-84 13:49")
(* * Set up the text demo)
(FILESLOAD (SYSLOAD FROM {PHYLUM}<PAPERWORKS>)
ANNO EDITMARK)
(SETQQ ANNO.SUMMARY.FONT (HELVETICA 14))
(SETQQ ANNO.GRAPH.FONT (HELVETICA 14))
(SETQQ ANNO.MARK.FONT (HELVETICA 10 BOLD))
(COPYFILE (QUOTE <LISPCORE>DEMO>AITEXT.TEDIT)
(QUOTE {DEMO}AITEXT.TEDIT))
(* * Load the necessary fonts)
(TEDIT (QUOTE {DEMO}AITEXT.TEDIT)
TEDITW)
(TEDIT.QUIT (TEXTSTREAM TEDITW))
(SETQ TEDIT.DEFAULT.WINDOW TEDITW])
(DEMOSETUP.KITCHENSINK
[LAMBDA NIL (* edited: "20-Jul-84 21:20")
(FILESLOAD (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES)
SOLITAIRE DEMOS)
(DEMOSETUP.SLIDESHOW])
(DEMOSETUP.SLIDESHOW
[LAMBDA NIL (* edited: "20-Jul-84 14:21")
(* * Sets up a slideshow: menu which when poked puts up slides which say out-of-date things about the Interlisp-D
system.)
(FILESLOAD (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES)
BANNER SLIDES) (* Make sure the necessary fonts are loaded.)
(FONTCREATE (QUOTE TIMESROMAND)
24)
(* * Now to run the slideshow, all you need do is type (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 (679 9928 (DEMOSETUP 689 . 1566) (DEMOSETUP.BACKGROUNDS 1568 . 2353) (DEMOSETUP.FIXFONTS
2355 . 2949) (DEMOSETUP.LAFITE 2951 . 3990) (DEMOSETUP.LAYOUT 3992 . 7703) (DEMOSETUP.PROGRAMMER 7705
. 8408) (DEMOSETUP.TEXT 8410 . 9085) (DEMOSETUP.KITCHENSINK 9087 . 9327) (DEMOSETUP.SLIDESHOW 9329 .
9926)))))
STOP