(DEFINE-FILE-INFO §READTABLE "INTERLISP" §PACKAGE "INTERLISP") (FILECREATED "16-Dec-86 19:04:38" ("compiled on " {ERIS}LISPCORE>SCREENPAPER.;1) "16-Dec-86 12:11:24" bcompl'd in "Xerox Lisp 16-Dec-86 ..." dated "16-Dec-86 12:45:08") (FILECREATED "30-Nov-86 12:46:11" {ERIS}LISPCORE>SCREENPAPER.;1 10493 changes to%: (VARS SCREENPERIOD SCREENREPEAT SCREENPAPERCOMS SCREENPAPERSIZE) (FNS SCREENPAPER) previous date%: " 1-Jan-01 03:32:55" {ERIS}SCREENPAPER.;2) SCREENPAPERA0001 :D4 (I 1 Y I 0 X F 2 SIZE F 3 WINDOW F 4 BUF1 F 5 CNT F 6 SCREENREPEAT F 7 STREAM F 8 SCREENPERIOD) `S É@ATjdRd RkÙjdRkÙ jRkÙ kgW TSR UmÿÔc jó¬Wc VkYHó‘hSjdT ¿TSR ¿IkÔ°è(88 KALSHOW 81 BKBITBLT 50 KALSHOW 44 DRAWLINE 34 RAND 27 RAND 16 BKBITBLT 3 \INSUREWINDOW) (38 INVERT) () SCREENPAPER :D4 (P 13 POS P 12 CY P 11 CX P 10 BUF4 P 9 BUF3 P 8 BUF2 P 7 BUF1A P 6 PBT P 5 BIGBUF P 4 2SIZE P 3 BUF1 P 2 STREAM P 1 TRIANGLE P 0 CNT I 2 OPTION I 1 SIZE I 0 WINDOW F 14 SCREENPAPERSIZE F 15 SCREENPERIOD) ”@¥b¿A¤Wb¿WÁ Ad YAd [I ZoAdmÿAhnÿÿJ Ad _Ad _AdÔ\dd ]`^KJ Bgð²) Ad _¿OOKjdAd ¿K@A ¿°Þ@g (145 MAPN 135 KALSHOW 128 BKBITBLT 113 SCREENBITMAP 107 GETBOXPOSITION 92 DSPDESTINATION 81 BITMAPCREATE 70 BITMAPCREATE 63 BITMAPCREATE 58 FILLPOLYGON 35 DSPCREATE 30 BITMAPCREATE 24 BITMAPCREATE 4 CREATEW) (142 SCREENPAPERA0001 96 PICK 85 |PILOTBBTTYPE#|) ( 40 (-1 . -1)) KALSHOWA0001 :D4 (I 1 Y I 0 X F 0 2SIZE F 1 BIGBUF F 2 WINDOW F 3 CX F 4 CY) QhdRS@PÖÔTAPÖÔ (17 BKBITBLT) NIL () KALSHOW :D4 (P 3 J P 2 I P 1 CY P 0 CX I 2 SIZE I 1 WINDOW I 0 BUF1 F 4 BUF2 F 5 PBT F 6 BUF3 F 7 BIGBUF F 8 2SIZE F 9 TRIANGLE) ¼Whd@hddddg @TU TVU Vhd@hddddg  @hdWjB @TU ThdWBd @VU VhdWjd VTU ThdWBj Ag l×XAg l×YjJWHI ÔW×ýó² jKJó®gKJ ¿KkÔ[°ðJkÔZ°Õ(185 BLOCK 167 DOPOINT 143 MAX 127 GETWINDOWPROP 116 GETWINDOWPROP 109 BKBITBLT 98 INVERT.BITMAP.HORIZONTALLY 92 BKBITBLT 81 INVERT.BITMAP.VERTICALLY 75 BKBITBLT 64 INVERT.BITMAP.HORIZONTALLY 58 BKBITBLT 44 BKBITBLT 28 INVERT.BITMAP.VERTICALLY 22 ROTATE.BITMAP 16 BKBITBLT) (162 KALSHOWA0001 124 HEIGHT 113 WIDTH 40 PAINT 12 ERASE) () DOPOINT :D4 (I 2 Y I 1 X I 0 FN) 9BAó–@BA ¿ABkl@mÿAÕBkl@AmÿBÕkl@mÿAÕmÿBÕkl@(9 DOPOINT) NIL () MAPN :D4 (P 8 I P 6 STEPS P 5 NY P 4 NX P 3 Y P 2 X P 1 MAXY P 0 MAXX I 1 FN I 0 WINDOW F 9 SIZE) z @g WÕ@g WÕRjH ZjI [jH ¼jI ½LJÕ MKÕ Ôl×^jð³áNkOOó³$JLJÕOÖN×ÔKMKÕOÖN×ÔlA¿OkÔ_°ÛLºM»°¬(58 ABS 52 ABS 45 RAND 39 RAND 33 RAND 27 RAND 16 GETWINDOWPROP 6 GETWINDOWPROP) (13 HEIGHT 3 WIDTH) () INVERT.BITMAP.HORIZONTALLY :D4 (P 0 I I 2 PBT I 1 BM2 I 0 BITMAP) ¦A¦@ b¿Bµ`bAÈÍ¿BAÈÍ¿B@ÈÍ¿B@ÈÍ¿BAÈlÖnÿÿåÍ¿B@ÈlÖnÿÿåÍ¿Bn@Í ¿B@ÈÍ ¿BkÍ¿jH@Èýó²"BHÍ¿B@ÈkÙHÕÍ¿Bjv¿HkÔX°ÛA(5 BITMAPCOPY) (142 PILOTBBT 134 PILOTBBT 114 PILOTBBT 104 PILOTBBT 94 PILOTBBT 77 PILOTBBT 60 PILOTBBT 50 PILOTBBT 40 PILOTBBT 30 PILOTBBT 20 PILOTBBT 14 |PILOTBBTTYPE#|) () INVERT.BITMAP.VERTICALLY :D4 (P 0 I I 2 PBT I 1 BM2 I 0 BITMAP) ÏA¦@ b¿Bµ`bAÈÍ¿BAÈ@ÈkÙAÈÖÔÍ¿B@ÈÍ¿B@ÈÍ¿BAÈlÖnÿÿåÍ¿B@ÈlÖnÿÿåÍ¿BjÍ¿BjÍ¿Bn@Í ¿BkÍ ¿B@ÈÍ¿jH@Èýó²1Bjv¿BBÈ@ÈÔÍ¿BBÈAÈ ÔÍ¿HkÔX°ÌA(193 MINUS 5 BITMAPCOPY) (185 PILOTBBT 181 PILOTBBT 168 PILOTBBT 164 PILOTBBT 138 PILOTBBT 130 PILOTBBT 120 PILOTBBT 112 PILOTBBT 104 PILOTBBT 87 PILOTBBT 70 PILOTBBT 60 PILOTBBT 50 PILOTBBT 30 PILOTBBT 20 PILOTBBT 14 |PILOTBBTTYPE#|) () ROTATE.BITMAP :D4 (P 0 I I 2 PBT I 1 BM2 I 0 BITMAP) ½A«@È@È b¿Bµ`bAÈÍ¿BAÈÍ¿B@ÈÍ¿B@ÈÍ¿BAÈlÖnÿÿåÍ¿BkÍ¿BjÍ¿BAÈÍ¿BjÍ ¿BAÈÍ ¿BkÍ¿jH@Èýó²-BBÈmÿÔÍ¿Bjv¿BBÈ@ÈÔÍ¿HkÔX°ÐA(10 BITMAPCREATE) (170 PILOTBBT 166 PILOTBBT 150 PILOTBBT 146 PILOTBBT 126 PILOTBBT 116 PILOTBBT 108 PILOTBBT 98 PILOTBBT 90 PILOTBBT 82 PILOTBBT 65 PILOTBBT 55 PILOTBBT 45 PILOTBBT 35 PILOTBBT 25 PILOTBBT 19 |PILOTBBTTYPE#|) () (PRETTYCOMPRINT SCREENPAPERCOMS) (RPAQQ SCREENPAPERCOMS ((FNS SCREENPAPER KALSHOW DOPOINT MAPN) (ADDVARS (IDLE.FUNCTIONS ( "Screen wallpaper" (QUOTE SCREENPAPER)))) (* * faster versions of editbitmap functions) (FNS INVERT.BITMAP.HORIZONTALLY INVERT.BITMAP.VERTICALLY ROTATE.BITMAP) (VARS SCREENPAPERSIZE SCREENPERIOD SCREENREPEAT))) (ADDTOVAR IDLE.FUNCTIONS ("Screen wallpaper" (QUOTE SCREENPAPER))) (RPAQQ SCREENPAPERSIZE 64) (RPAQQ SCREENPERIOD 100) (RPAQQ SCREENREPEAT 0) (PUTPROPS SCREENPAPER COPYRIGHT ("Xerox Corporation" 1901 1986)) NIL