enЗvХos STARBG 2 4 1 STARBG 1 4 By: Gregg Foster (Foster.PA@Xerox.COM) Upgraded for Medley by Larry Masinter (Masinter.PA@Xerox.COM) STARBG creates a random star field for your screen background and and a little flying saucer to follow your cursor when it's in space (so it doesn't get lost). It also supplies an alternate IDLE function, Cosmos. The star field will look something like this: ЌdџџџџџџПџџџџџџџџџџџџџ№џџџџџџџџџџџџџџџџџџџџџ№џџџџџџџџћџџџџџџџџџџџџ№џџџџџџџџџџџџџџџџџџџџџ№џџџџџџџџџџџџџџџџџџџџџ№џџџџџџџџџчџџџџџџџџџџџ№џџџџџџџџџчџџџџџџџџџџџ№џџџџџџџџџџџџџџџџџџџџџ№џџџџџџџџџџџџџџџџџџџџџ№пџџџџџџџџџџџџџџџџџџџџ№џџџџџџџџџџџџџџџџџџџџџ№џџџџџџџџџџџџџџџџџџџџџ№џџџџџџџџџџџџџџџџџџџџџ№џџџџПџџџџџџџџџџџџџџџџ№џџџџџџџџџџџџџџџџџџџџџ№џџџџџџџџџџџџџџџџџџџџѓ№џџџџџџџџџџџџџџџџџџѓ№џџџџџџџџџџџџўџџџїћџџџРџџџџџџџџџџџџџџџџџџџџџРџџџџџџџџџџџџџџџџџџџџџ№џџџџџџџџџџџџџџџџџџџџ№џџџџџџџџџџџџџџџџџџџџп№џџџџџџџџџџўџџџџџџџџџџ№џџџџџџџџџџџџџџџџџџџџџ№џџџџџџџџџџџџџџџџџџџџџ№џџџџџџџџџџџџџџџџџџџџџ№џџџџџџџџџџџџџџџџџџџџџ№џџџџџџџџџџџџџџџџџљџџљ№џџџџџџџџџџџџџџџќџљџџљ№џџџџџџџџџџџџџџџќџџџџџ№џџџџџџџџџџџџџџџџџџџї№џџџџџџџџџџџџџџџџџџџџџ№џџџџџџџŸџџџџџџџџџџџџџ№џџџџџџџŸџџџџџџџџџџџџџ№џџџџџџџџџџџћџџџџџџпџџ№џџџџџџџџџПџџџџџџџџџџ№џџџџџџџџџџџџџџџџџџџџџ№џџџџџџџџџџџџџџџџџџџџџ№џџџџџџџџџџџџџџџџџџџџџ№џџџџџџџџџџџџџџџџџџџџџ№џџџџџџџџџџџџџџџџџџџџџ№џџџџџџџџџџџџџџџџџџџџџ№џџџџџџџџџџџџџџџџ§џїџ№џџџџџџџџџџџџџџџџџџџџџ№џџџџџџџџџџџџџџџџџџџџџ№џџџџџџџџџўџПџџџџџџџџ№џџџџџџџџџџџџџџџџџўПџџ№џџџџџџџџџџџџџџџџџџџџ№џџџџџџџџџџџџџџџїџџџџџ№џџџџџџџџџџџџџџџџџџџџџ№џџџџџџџџџџўџџџџџџџџџџ№џџџџџџџџџџќП§џџџџџџџ№џџџџџџџџџџј?џџџџўџџџџ№џџџџџџџџџџќџџџџџџџџџ№џџџџџџџџџџўџџџџџџяўџ№џџџџџџџџџџџџџџџџџџіџ№џџџџџџџџџџџџџџџџџџўџ№џџџџџџџџџџџџџџџџџ§чџџ№џџџџџџџџџџџџџџџџџџчџџ№џџџџџџџџџџџџџџџџџџџџџ№џџџџџџџџџџџџџџџўПџџџ№џџџџџџџџџџџџџџџџџџ§џџрџџџџџџџџџџџџўџџџџћџџџ№џџџџџџџџџћџџџџџџџџџџџ№џџџџџџџџџџџџџџџџџяџџџ№џџџџџџџџџџџџџџџџџŸџџџ№џџџџџџџџџџџџџџџџџŸџџџ№џџџџџџџџџџџџџџџџџџџџџ№џџџџџџџџџџџџяяџџџџџџџ№џџџџџџџџџџџџџџџџџџџџџ№џџџџџџџџџџџџџџџџџџџџџ№џџџџџџџџџџџџџџџѓџяџџ№џџџџџџџџџџџџџџџџ№џяџџ№џџџџџџџџџџџџџўџџјџџџџ№џџџџџџџџџџџџїџџџ№?џџџ№џџџџџяџџџџџџџџџџјџџ§џ№џџџџџзџџџпџџџџџџїчпїџаџџџџџяџџџџџџџџЯџучџћџ№џџџџџџџџџџџџџџЭ§Сџџёџ№џџџџїџџџџџџџџџПџтџњрџ№џџџџџџџџџџџџџџџџїYџёџ№џџџџџџџџџџџџџџџ§џ џЛџ№џџџџџџџџџџџџ§џџџџџћп№џџџџџџџџџџџџџџџџя№џџџџџџџџŸџџџџџџџџпџЯpџџџџџџџџŸпџџџџџэПџџЮ№џџџџџџџџџџџџџџџћўџџп№џџџџџџџџџџџџџџћџџыџџЯ№џџџџџџџџџџџџџўџїћћџџpџџџџџџџџџџџџџњ}џў?џў0џџџџџџџџџћ?џџчџџџ?џќџџџџџџџџџџ?ѓџчџџџwЛџў0џџчџџџџџџџџѓџџџџћџџџџpџџчџџџџџџџџџП§џџё§пџџџџџџџџџџџџџџџџџрўЯяџ№џџџџџџџџџџџџџїџџёџПџп№џџџџїџџџџџџџџџџяћўПџџpџџџџџџџџџџџџџџџџџџџwџ№џяџџџџџџџџџџџџџџџџџџџ№џџџџџџџџџџџџџџџџџпџџџ№ The saucer will look like this: C)џџџџџџџџрџџџџџџџџрџџџџџџџџрџџџџџџџџрџџџџџџџџрџџџџџџџџрџџџџџџџџрџџџџџџџџрџџџџџџџџрџџџџџџџџрџџџџџџџџрџџўŸџЇџџрџ§ўџџПџџрџџџпџїџџрџџђзџџрџџѓўџџџрџџџќџџџрџпџ§УџџџрџџџЩA?џџрџџџ СџџрџџўџџрџџџџџрџџўСј?џџрџџџИяџџРџџ?яўПпџрџџ?њЋџџџрџџџџџџџџрџџџџџџџџрџџџџџџџџрџџџџџџџџрџџџџџџџџрџџџџџџџџрџџџџџџџџрљџџџџџџџрљџџџџџџџрџџџџџџџџрџџџџџџџџрџџџџџџџџрџџџџџџџџрџџџџџџџџрџџџџџџџџр USAGE (STARBG) [Function] STARBG fills a screensized bitmap with random stars, turns the saucer on, and calls CHANGEBACKGROUND. If you don't like the star pattern you get, try it again. (Cosmos window) [Function] Cosmos is puts an evolving universe in a window. It's intended as an IDLE function, but will entertain you for hours in any decently sized window. (SaucerOn) [Function] SaucerOn turns the saucer on by changing the CURSORBACKGROUND*FNs. (SaucerOff) [Function] SaucerOff turns the saucer off and sets the BACKGROUNDCURSOR*FNs to NIL. CUSTOMIZATION There are lots of user-settable parameters, all of which have reasonable defaults. Here are some of the interesting ones: STARBGParameters [Variable] is a list of settable parameters. Most are dotted pairs specifying ranges (e.g. stars3 defaults to (6 . 70) meaning that STARBG will make 6 to 70 type-3 stars). The others are bitmaps. BM1, ..., BM5 [Variables] The star bitmaps used to BLT the stars. BM1 must be a single bit. SBM [Variable] The starry screen bitmap. This is reused in subsequent calls to STARBG. stars1, ..., stars5 [Variables] Ranges for the 5 kinds of stars. constellations [Variable] Range for number of constellations. A constellation is a group of bright stars. clusters [Variable] Range for number of clusters. Clusters are tightly globular. superClusters [Variable] Range for number of superClusters. SuperClusters are clusters of clusters. eventPause [Variable] Number of milliseconds to block between events. Larger numbers have the effect of slowing down the rate of evolution.. changeStars [Variable] Will use the IDLE-ing star field as your new background. (LIST ((PAGE NIL (PAPERSIZE LETTER FOLIOINFO (ARABIC "" "") STARTINGPAGE# 253) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC "" "")) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE NIL . LETTER) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO NIL) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE NIL . LETTER) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO NIL) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))))) 3ШШT-ШT3ШШT2ШШ,Ш ,Ш,ŠŠ8,Ш ,ŠŠ8HШШ PAGEHEADING RUNNINGHEADCLASSICCLASSICCLASSICMODERN MODERN MODERN MODERN   HRULE.GETFNMODERN   HRULE.GETFNMODERN   HRULE.GETFNMODERN  HRULE.GETFNMODERN   HRULE.GETFNMODERN (>ж.Є BMOBJ.GETFN3MODERN !І BMOBJ.GETFN3Ё–CJ |ЛCJ!!Q?Lx9‡izК