Star Trek: The IDLE function...

Article View: comp.sys.xerox

Article #23

#23

From: Matt Heffron
Date: Sat, 15 Jul 1989 01:40

39 lines
2522 bytes

The file below will define the necessary bitmaps to make a USS Enterprise
image replace the FlyingSaucer from the STARBG lispusers package.
Enjoy!!
-Matt Heffron			BEC.HEFFRON@ECLA.USC.EDU
(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")
(FILECREATED "16-Jun-89 17:55:32" {DSK}<LISPFILES>MATT>TREKIDLE.\;5 3441

      |changes| |to:|  (VARS TREKIDLECOMS TREKHALO)

      |previous| |date:| "13-Jul-88 18:00:14" {DSK}<LISPFILES>MATT>TREKIDLE.\;4)


; Copyright (c) 1988, 1989 by Matt Heffron.  All rights reserved.

(PRETTYCOMPRINT TREKIDLECOMS)

(RPAQQ TREKIDLECOMS ((FILES (FROM LISPUSERS) STARBG) (BITMAPS DARKTREK TREK TREKHALO TREKMASK) (VARS (|saucerMask| TREKMASK) (|darkSaucer| DARKTREK) (|cursorFollower| (ICONW TREK TREKMASK (CREATEPOSITION 0 0) T))))
)

(FILESLOAD (FROM LISPUSERS) STARBG)

(RPAQQ DARKTREK #*(68 28)@@@@@@@@GOOOOOOOO@@@@@@@@@@@OGOOOOOGN@@@@@@@@@@@OGOOOOOGL@@@@@@@@@@@OGOOOOOGL@@@@@@@@@@@OGOOOOOGL@@@@@@AH@@@GOOOOOOOL@@@@@@BD@@@@CG@@@@@@@@@@@@OO@@@@CG@@@@@@@@@@@COOL@@@CG@@@@@@@@@COOOOOOL@CG@@@@@@@@@GOOOOOON@CG@@@@@@@@@NJ

(RPAQQ TREK #*(68 28)@@@@@@@@GOOOOOOOO@@@@@@@@@@@HH@@@@@HF@@@@@@@@@@@HH@@@@@HD@@@@@@@@@@@HH@@@@@HD@@@@@@@@@@@HH@@@@@HD@@@@@@AH@@@GOOOOOOOL@@@@@@BD@@@@BA@@@@@@@@@@@@MK@@@@BI@@@@@@@@@@@C@@L@@@BI@@@@@@@@@COL@@COL@BI@@@@@@@@@D@@@@@@B@BI@@@@@@@@@IEEEEE

(RPAQQ TREKHALO #*(80 39)OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOL@@@@@@@@AOOOOOOOOOOIOOOOOOOOMOOOOOOOOOOJB@@@@@BAIOOOOOOOOOOJB@@@@@BCCOOOOOOOOOOJB@@@@@BBGOOOOOO@OOOJB@@@@@BBOOOO

(RPAQQ TREKMASK #*(68 28)@@@@@@@@GOOOOOOOO@@@@@@@@@@@OOOOOOOON@@@@@@@@@@@OOOOOOOOL@@@@@@@@@@@OOOOOOOOL@@@@@@@@@@@OOOOOOOOL@@@@@@AH@@@GOOOOOOOL@@@@@@CL@@@@CO@@@@@@@@@@@@OO@@@@CO@@@@@@@@@@@COOL@@@CO@@@@@@@@@COOOOOOL@CO@@@@@@@@@GOOOOOON@CO@@@@@@@@@OO

(RPAQ |saucerMask| TREKMASK)

(RPAQ |darkSaucer| DARKTREK)

(RPAQ |cursorFollower| (ICONW TREK TREKMASK (CREATEPOSITION 0 0) T))
(PUTPROPS TREKIDLE COPYRIGHT ("Matt Heffron" 1988 1989))
(DECLARE\: DONTCOPY
  (FILEMAP (NIL)))
STOP
-------

Technical Details

Message-ID: <12510054348.15.BEC.HEFFRON@ECLA.USC.EDU.Internet>

Path:

arc1-ca.pugleaf.net!utzoo!utgpu!jarvis.csri.toronto.edu!rutgers!cs.utexas.edu!tut.cis.ohio-state.edu!OBERON.USC.EDU!BEC.HEFFRON%ECLA.usc.edu

Show Full Headers

Complete Article Headers

Path: arc1-ca.pugleaf.net!utzoo!utgpu!jarvis.csri.toronto.edu!rutgers!cs.utexas.edu!tut.cis.ohio-state.edu!OBERON.USC.EDU!BEC.HEFFRON%ECLA.usc.edu
From: BEC.HEFFRON%ECLA.usc.edu@OBERON.USC.EDU (Matt Heffron)
Newsgroups: comp.sys.xerox
Subject: Star Trek: The IDLE function...
Message-ID: <12510054348.15.BEC.HEFFRON@ECLA.USC.EDU.Internet>
Date: 15 Jul 89 01:40:58 GMT
Sender: news@tut.cis.ohio-state.edu
Organization: Info-1100 Mailing List
Lines: 39