(FILECREATED " 4-Jun-85 19:12:25" {ERIS}<LISPCORE>DEMO>DEMOSETUP.;3 12799
changes to: (FNS DEMOSETUP DEMOSETUP.JLISP)
(VARS DEMOSETUPCOMS)
previous date: " 9-Apr-85 12:43:46" {ERIS}<LISPCORE>DEMO>DEMOSETUP.;1)
(* Copyright (c) 1983, 1984, 1985 by Xerox Corporation. All rights reserved.)
(PRETTYCOMPRINT DEMOSETUPCOMS)
(RPAQQ DEMOSETUPCOMS ((DECLARE: DONTEVAL@LOAD DOCOPY (ADDVARS (NLAMA PARSE)))
(FNS DEMOSETUP DEMOSETUP.BACKGROUNDS DEMOSETUP.FIXFONTS DEMOSETUP.JLISP
DEMOSETUP.LAFITE DEMOSETUP.LAYOUT DEMOSETUP.PROGRAMMER DEMOSETUP.TEXT
DEMOSETUP.KITCHENSINK DEMOSETUP.SLIDESHOW)
(VARS KNOWNFONTS)))
(DECLARE: DONTEVAL@LOAD DOCOPY
(ADDTOVAR NLAMA PARSE)
)
(DEFINEQ
(DEMOSETUP
[LAMBDA (JLISP?) (* jds " 4-Jun-85 19:11")
(CNDIR (QUOTE {ERIS}<LISPCORE>DEMO>))
(push LISPUSERSDIRECTORIES (QUOTE {eris}<lispcore>demo>))
(push LISPUSERSDIRECTORIES (QUOTE {ERIS}<LISPCORE>LIBRARY>))
(push LISPUSERSDIRECTORIES (QUOTE {ERIS}<LISP>INTERMEZZO>LIBRARY>))
(push DIRECTORIES (QUOTE {eris}<lispcore>demo>))
(push DIRECTORIES (QUOTE {ERIS}<LISPCORE>LIBRARY>))
(push DIRECTORIES (QUOTE {ERIS}<LISP>INTERMEZZO>LIBRARY>))
(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)
(COND
(JLISP? (* Only add in the JLISP demo stuff if it is asked
for.)
(DEMOSETUP.JLISP)))
(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.JLISP
[LAMBDA NIL (* jds " 4-Jun-85 19:11")
(PROG [(OFONT (DSPFONT (QUOTE (CLASSIC 12))
\TopLevelTtyWindow))
(TTYSTREAM (WINDOWPROP \TopLevelTtyWindow (QUOTE DSP]
(COPYFILE (QUOTE {ERIS}<IKEO.FX>MAINDICT.LOOKUP)
(QUOTE {DEMO}MAINDICT.LOOKUP)) (* Copy the Kanji dictionaries onto CORE, for speed of
access)
(COPYFILE (QUOTE {ERIS}<IKEO.FX>MAINDICT.INDEX)
(QUOTE {DEMO}MAINDICT.INDEX))
(PUSH DIRECTORIES (QUOTE {DEMO}))
(PUSH DIRECTORIES (QUOTE {ERIS}<IKEO.FX>))
(LOAD (QUOTE {ERIS}<IKEO.FX>NSJSYSTEM.DCOM))
(JIN T)
(LOAD (QUOTE {ERIS}<IKEO.FX>NSJTTYIN.DCOM))
(LOAD (QUOTE {ERIS}<IKEO.FX>NSJTEDIT.DCOM))
(for CSET from 33 to 39 do (\OUTCHAR TTYSTREAM (IPLUS (LLSH CSET 8)
65)))
(* Touch every character set, so that fonts work
quickly)
(for CSET from 48 to 115 do (\OUTCHAR TTYSTREAM (IPLUS (LLSH CSET 8)
65)))
(for CSET from 161 to 182 do (\OUTCHAR TTYSTREAM (IPLUS (LLSH CSET 8)
65)))
(DSPFONT OFONT \TopLevelTtyWindow) (* And for the default font, too)
(for CSET from 33 to 39 do (\OUTCHAR TTYSTREAM (IPLUS (LLSH CSET 8)
65)))
(for CSET from 48 to 115 do (\OUTCHAR TTYSTREAM (IPLUS (LLSH CSET 8)
65)))
(for CSET from 161 to 182 do (\OUTCHAR TTYSTREAM (IPLUS (LLSH CSET 8)
65)))
[KEYACTION (QUOTE AGAIN)
(QUOTE ((10 10 NOLOCKSHIFT) . IGNORE] (* Set the AGAIN key to be the Kanji conversion key)
])
(DEMOSETUP.LAFITE
[LAMBDA NIL (* rrb " 9-Apr-85 12:13")
(* * 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)
(* couldn't find this font and it was killing the load up so I commented it out -
rrb 9-apr-85. (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))
(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 (* rrb " 9-Apr-85 12:43")
(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)
(SETQ DEFAULTRENAMEMETHOD (QUOTE MASTERSCOPE))
(%. 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 (* rrb " 9-Apr-85 11:40")
(* * Set up the text demo)
(FILESLOAD (SYSLOAD FROM {PHYLUM}<PAPERWORKS>)
ANNO)
(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 1985))
(DECLARE: DONTCOPY
(FILEMAP (NIL (730 12515 (DEMOSETUP 740 . 2149) (DEMOSETUP.BACKGROUNDS 2151 . 2936) (
DEMOSETUP.FIXFONTS 2938 . 3532) (DEMOSETUP.JLISP 3534 . 5563) (DEMOSETUP.LAFITE 5565 . 6535) (
DEMOSETUP.LAYOUT 6537 . 10248) (DEMOSETUP.PROGRAMMER 10250 . 11008) (DEMOSETUP.TEXT 11010 . 11672) (
DEMOSETUP.KITCHENSINK 11674 . 11914) (DEMOSETUP.SLIDESHOW 11916 . 12513)))))
STOP