IDLE.PROFILE has LOGOUT and SAVEVM options; add some delays in IDLE hacks (#948)
* IFLE.PROFILE has LOGOUT and SAVEVM options; add some delays in IDLE hacks * add extra delays so the demos work more like intended * IDLEDEMO loads lispusers with idle hacks * make sure NOTIFY.EVENT \IDLING.OVER is called * clean up resetsave * slow down KINETIC * Redo logic to minimize diffs with 1992 version * minor tweaks to \IDLER for making sure mouse doesn't hang
This commit is contained in:
Larry Masinter
GitHub
@@ -1,13 +1,14 @@
|
||||
(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
|
||||
(FILECREATED "17-Aug-88 03:26:58" {ERINYES}<LISPUSERS>MEDLEY>STARBG.;2 16928
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
changes to%: (FNS Cosmos)
|
||||
(FILECREATED "24-Aug-2022 08:54:17" {DSK}<home>larry>medley>lispusers>STARBG.;2 16815
|
||||
|
||||
previous date%: "12-Oct-87 17:02:01" {ERINYES}<LISP>LYRIC>LISPUSERS>STARBG.;2)
|
||||
:CHANGES-TO (FNS Cosmos)
|
||||
|
||||
:PREVIOUS-DATE "17-Aug-88 03:26:58" {DSK}<home>larry>medley>lispusers>STARBG.;1)
|
||||
|
||||
|
||||
(* "
|
||||
Copyright (c) 1984, 1985, 1986, 1987, 1988 by Xerox Corporation. All rights reserved.
|
||||
(* ; "
|
||||
Copyright (c) 1984-1988 by Xerox Corporation.
|
||||
")
|
||||
|
||||
(PRETTYCOMPRINT STARBGCOMS)
|
||||
@@ -109,10 +110,10 @@ Copyright (c) 1984, 1985, 1986, 1987, 1988 by Xerox Corporation. All rights res
|
||||
|
||||
(RPAQQ supernova #*(13 13)OMOHOMOHOHOHN@CHN@CHL@AH@@@@L@AHN@CHN@CHOHOHOMOHOMOH)
|
||||
|
||||
(RPAQQ STARBGParameters (SBM BM1 BM2 BM3 BM4 BM5 nova supernova stars1 stars2 stars3 stars4
|
||||
stars5 changeStars eventPause clusters clusterRadius constellations
|
||||
starsInCluster superClusters superClusterRadius interiorClusters
|
||||
starsInterior))
|
||||
(RPAQQ STARBGParameters (SBM BM1 BM2 BM3 BM4 BM5 nova supernova stars1 stars2 stars3 stars4 stars5
|
||||
changeStars eventPause clusters clusterRadius constellations
|
||||
starsInCluster superClusters superClusterRadius interiorClusters
|
||||
starsInterior))
|
||||
|
||||
(RPAQQ trekNotes (<A+ D/ G+ F# E/ D/ D@/ C))
|
||||
(DEFINEQ
|
||||
@@ -140,39 +141,39 @@ Copyright (c) 1984, 1985, 1986, 1987, 1988 by Xerox Corporation. All rights res
|
||||
)
|
||||
|
||||
(Cosmos
|
||||
[LAMBDA (starWindow) (* ; "Edited 17-Aug-88 03:25 by EWEAVER")
|
||||
[LAMBDA (starWindow) (* ; "Edited 24-Aug-2022 08:05 by larry")
|
||||
(* ; "Edited 17-Aug-88 03:25 by EWEAVER")
|
||||
(OR starWindow (SETQ starWindow (CREATEW WHOLESCREEN NIL 0)))
|
||||
(if (VIDEOCOLOR)
|
||||
then (RESETLST
|
||||
(RESETSAVE voidShade WHITESHADE)
|
||||
(RESETSAVE starShade BLACKSHADE)
|
||||
(DSPFILL NIL voidShade 'REPLACE starWindow)
|
||||
(RESETSAVE BM1 (InvertBM BM1))
|
||||
(RESETSAVE BM2 (InvertBM BM2))
|
||||
(RESETSAVE BM3 (InvertBM BM3))
|
||||
(RESETSAVE BM4 (InvertBM BM4))
|
||||
(RESETSAVE BM5 (InvertBM BM5))
|
||||
(RESETSAVE cursorFollower (ICONW darkSaucer saucerMask (CREATEPOSITION 0 0)
|
||||
T))
|
||||
(RESETSAVE nova (InvertBM nova))
|
||||
(RESETSAVE supernova (InvertBM supernova))
|
||||
(RESETSAVE NIL (LIST [FUNCTION (LAMBDA (starWindow)
|
||||
(if changeStars
|
||||
then (BITBLT (InvertBM starWindow
|
||||
'inPlace)
|
||||
0 0 SBM)
|
||||
(CLOSEW starWindow)
|
||||
(CHANGEBACKGROUND SBM)
|
||||
(CLOSEW cursorFollower]
|
||||
starWindow))
|
||||
(DSPOPERATION 'REPLACE starWindow)
|
||||
(while T do (SomethingCosmic starWindow)
|
||||
(BLOCK eventPause)))
|
||||
(RESETSAVE voidShade WHITESHADE)
|
||||
(RESETSAVE starShade BLACKSHADE)
|
||||
(DSPFILL NIL voidShade 'REPLACE starWindow)
|
||||
(RESETSAVE BM1 (InvertBM BM1))
|
||||
(RESETSAVE BM2 (InvertBM BM2))
|
||||
(RESETSAVE BM3 (InvertBM BM3))
|
||||
(RESETSAVE BM4 (InvertBM BM4))
|
||||
(RESETSAVE BM5 (InvertBM BM5))
|
||||
(RESETSAVE cursorFollower (ICONW darkSaucer saucerMask (CREATEPOSITION 0 0)
|
||||
T))
|
||||
(RESETSAVE nova (InvertBM nova))
|
||||
(RESETSAVE supernova (InvertBM supernova))
|
||||
(RESETSAVE NIL (LIST [FUNCTION (LAMBDA (starWindow)
|
||||
(if changeStars
|
||||
then (BITBLT (InvertBM starWindow 'inPlace)
|
||||
0 0 SBM)
|
||||
(CLOSEW starWindow)
|
||||
(CHANGEBACKGROUND SBM)
|
||||
(CLOSEW cursorFollower]
|
||||
starWindow))
|
||||
(DSPOPERATION 'REPLACE starWindow)
|
||||
(while T do (SomethingCosmic starWindow)
|
||||
(BLOCK eventPause)))
|
||||
else (DSPFILL NIL voidShade 'REPLACE starWindow)
|
||||
(DSPOPERATION 'REPLACE starWindow)
|
||||
(while T do (SomethingCosmic starWindow)
|
||||
(BLOCK))
|
||||
(CLOSEW starWindow])
|
||||
(DSPOPERATION 'REPLACE starWindow)
|
||||
(while T do (SomethingCosmic starWindow)
|
||||
(BLOCK 100))
|
||||
(CLOSEW starWindow])
|
||||
|
||||
(InvertBM
|
||||
(LAMBDA (bm inPlace?) (* gsf " 2-Jan-86 14:32") (LET ((bitmap (if inPlace? then bm else (BITMAPCOPY bm)))) (BITBLT bm NIL NIL bitmap NIL NIL NIL NIL (QUOTE INVERT) (QUOTE REPLACE)) bitmap))
|
||||
@@ -267,12 +268,12 @@ Copyright (c) 1984, 1985, 1986, 1987, 1988 by Xerox Corporation. All rights res
|
||||
then (PUSH IDLE.FUNCTIONS '("Cosmos" 'Cosmos "Go where no one has gone before... "]
|
||||
(PUTPROPS STARBG COPYRIGHT ("Xerox Corporation" 1984 1985 1986 1987 1988))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (4118 16416 (Between 4128 . 4281) (BlackHole 4283 . 4570) (Catastrophe 4572 . 4838) (
|
||||
ChanceIn 4840 . 4926) (CloseFollower 4928 . 5008) (Constellation 5010 . 5560) (Cosmos 5562 . 7701) (
|
||||
InvertBM 7703 . 7904) (FillWithStars 7906 . 9356) (Marble 9358 . 9953) (OneChanceIn 9955 . 10022) (
|
||||
LowerBound 10024 . 10108) (OpenFollower 10110 . 10207) (PlusOrMinus 10209 . 10311) (RandGrey 10313 .
|
||||
10792) (SaucerOn 10794 . 11029) (SaucerOff 11031 . 11211) (STARBG 11213 . 11497) (StarCluster 11499 .
|
||||
12245) (SuperCluster 12247 . 12588) (SomethingCosmic 12590 . 14445) (StarFollowCursor 14447 . 14744) (
|
||||
StarryWindow 14746 . 15217) (Stomp 15219 . 15666) (TimePasses 15668 . 15775) (UFO 15777 . 16328) (
|
||||
UpperBound 16330 . 16414)))))
|
||||
(FILEMAP (NIL (4087 16303 (Between 4097 . 4250) (BlackHole 4252 . 4539) (Catastrophe 4541 . 4807) (
|
||||
ChanceIn 4809 . 4895) (CloseFollower 4897 . 4977) (Constellation 4979 . 5529) (Cosmos 5531 . 7588) (
|
||||
InvertBM 7590 . 7791) (FillWithStars 7793 . 9243) (Marble 9245 . 9840) (OneChanceIn 9842 . 9909) (
|
||||
LowerBound 9911 . 9995) (OpenFollower 9997 . 10094) (PlusOrMinus 10096 . 10198) (RandGrey 10200 .
|
||||
10679) (SaucerOn 10681 . 10916) (SaucerOff 10918 . 11098) (STARBG 11100 . 11384) (StarCluster 11386 .
|
||||
12132) (SuperCluster 12134 . 12475) (SomethingCosmic 12477 . 14332) (StarFollowCursor 14334 . 14631) (
|
||||
StarryWindow 14633 . 15104) (Stomp 15106 . 15553) (TimePasses 15555 . 15662) (UFO 15664 . 16215) (
|
||||
UpperBound 16217 . 16301)))))
|
||||
STOP
|
||||
|
||||
Reference in New Issue
Block a user