(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) (FILECREATED "16-Nov-93 17:12:00" ("compiled on " |{DSK}export>lispcore>lispusers>AISBLT.;1|) "11-Nov-93 16:58:33" |bcompl'd| |in| "Medley 11-Nov-93 ..." |dated| "11-Nov-93 17:07:44") (FILECREATED "11-Nov-88 14:17:22" {ERINYES}LYRIC>AISBLT.\;1 35120 |previous| |date:| "23-Sep-88 20:28:25" {PHYLUM}MEDLEY>AISBLT.\;1) AISBLT.BITMAPA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 23 A0148 P 22 STREAM P 21 SOURCE-WIDTH P 20 SOURCE-RASTER-WIDTH P 19 SOURCE-PIXEL-OFFSET P 18 SOURCE-HEIGHT P 17 SOURCE-BITS-PER-PIXEL P 16 SCAN-DIRECTION P 15 S-TO-D-Y P 14 S-TO-D-X P 13 DESTINATION-WIDTH P 12 DESTINATION-RASTER-WIDTH P 11 DESTINATION-BITS-PER-PIXEL P 10 DESTINATION-BASE P 9 CLIP-WIDTH P 8 CLIP-TOP P 7 CLIP-RIGHT P 6 CLIP-LEFT P 5 CLIP-HEIGHT P 4 CLIP-BOTTOM P 3 PHOTOMETRY-SENSE P 2 PHOTOMETRY-PART P 1 RASTER-PART P 0 AIS-HEADER I 0 SI::*CLEANUP-FORMS* F 24 DESTINATION F 25 DESTINATION-LEFT F 26 DESTINATION-BOTTOM F 27 HOW F 28 FILE F 29 SOURCE-LEFT F 30 SOURCE-BOTTOM F 31 WIDTH F 32 HEIGHT F 33 SI::*RESETFORMS* F 34 AISDIRECTORIES) d W0W0 W:jc:WW2W>dOO_W@W4W@dOO_W2W:_W4W<_OdNN^OdLL\OO*dOO_OO$dOO_ON_OL]OjdjxOOW0O_O,d NO,kO.O(lO$OO NO_&O"dlOdlO,O&O(ONOOOM kW6dgdgO,O&O(ONOOOMK dgdg O,O&O(ONOOOMO"K lmOkW6dgdgO,O&O(ONOOOMO"K VdgdgO,O&O(ONOOOMO"K (%O"k OkO,O&O(ONOOOMK h(864 AISBLT1TO1.BITMAP 823 AISBLTNTO1TRUNCATE.BITMAP 777 AISBLTNTO1FSA.BITMAP 709 AISBLTNTO1TRUNCATE.BITMAP 662 AISBLT8TO1FSA.BITMAP 607 AISBLT8TO8.BITMAP 559 \\SETFILEPTR 248 ERROR 185 ERROR 146 AISFILEHEADER 138 ERROR 111 OPENSTREAM 84 FINDFILE 67 STREAMP 20 \\ILLEGAL.ARG) (794 :TRUNCATE 786 TRUNCATE 748 :FSA 740 FSA 680 :TRUNCATE 672 TRUNCATE 635 :FSA 627 FSA 527 FDEV 520 STREAM 503 BITMAP 338 BITMAP 319 BITMAP 308 BITMAP 297 BITMAP 286 BITMAP 265 :SENSE 254 :PHOTOMETRY 228 :SCAN-DIRECTION 219 :WORDS-PER-SCAN-LINE 210 :SCAN-COUNT 201 :SCAN-LENGTH 192 :BITS-PER-SAMPLE 179 :CODING-TYPE 163 :CODING-TYPE 152 :RASTER 100 INPUT 93 CLOSEF 57 FSA 12 BITMAP) ( 241 "Scan direction is not top-left to bottom-right(3) - " 173 "Can't AISBLT AIS files of raster coding type" 131 "Can't find file" 106 ((SEQUENTIAL T))) AISBLT.BITMAP :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 9 FILTER I 8 HOW I 7 HEIGHT I 6 WIDTH I 5 DESTINATION-BOTTOM I 4 DESTINATION-LEFT I 3 DESTINATION I 2 SOURCE-BOTTOM I 1 SOURCE-LEFT I 0 FILE F 3 LISPXHIST)  S!g $(23 SI::RESETUNWIND 18 \\MVLIST 13 AISBLT.BITMAPA0001) (8 SI::RESETUNWIND) () AISFILEHEADER :D8 (P 9 A0150 P 8 A0149 P 4 CODING-TYPE P 3 SCRATCH P 2 ATTRIBUTE-FILE-POINTER P 1 ATTRIBUTE-PART-HEADER P 0 HEADERLENGTH I 0 STREAM)  P@j @ @ nh@ @ lX0@ N@kOH@ @ Yjv@ N @kOIdkg@ @ g@ @ g@ @ g@ @ g@ @ \hLkbKg@ @ Kg@ @ Kg@ @ dnnk Kg@ @ dnnk gKhsdlCgg@ @ g@ @ g@ @ g@ @ hh,dlgg@ @ g@ @ g@ @ g@ @ dnnk@ @ dnnkg@ @ dnnk@ @ dnnkg@ @ dnnk@ @ dnnkg@ @ dnnkg@ @ dnnkg@ @ dnnkg@ @ g@ @ hhlh@JInkl _N Oh^kO&dM@H (715 \\SETFILEPTR 683 \\SETFILEPTR 284 LISTPUT 254 LISTPUT 224 LISTPUT 206 LISTPUT 9 \\SETFILEPTR) (626 :SAMPLE-MAX 615 :SAMPLE-MIN 592 :SPOT-LENGTH 569 :SPOT-WIDTH 546 :SPOT-TYPE 504 :SCALE-C 462 :SCALE-B 420 :SCALE-A 409 :SCALE 398 :SENSE 387 :SIGNAL 382 :PHOTOMETRY 347 :HEIGHT 336 :WIDTH 325 :BOTTOM 314 :LEFT 309 :PLACEMENT 290 :RASTER 261 :PADDING-PER-BLOCK 231 :SCAN-LINES-PER-BLOCK 213 :WORDS-PER-SCAN-LINE 195 :BITS-PER-SAMPLE 165 :CODING-TYPE 154 :SAMPLES-PER-PIXEL 143 :SCAN-DIRECTION 132 :SCAN-LENGTH 121 :SCAN-COUNT 92 FDEV 85 STREAM 48 FDEV 41 STREAM) () WRITEAIS :D8 (P 5 HEIGHT P 4 WIDTH P 3 RASTERWIDTH P 2 BITSPERPIXEL P 1 TEMP-BITMAP P 0 STREAM I 2 REGION I 1 FILE I 0 BITMAP)  @@ BB BB p@ZB #BBJ @BBI Ib@[@]@\Ag Xdl Hl Hl Hj Hl Hl HM HMl HL HLl Hj Hl Hj Hk Hj Hk HJ HJl HK HKl Hl Hl Hl Hl Hl Hl Hj Hj Hj Hk Hl Hl Hl Hl Hl Hl Hl Hl Hl Hl Hl Hl Hl Hl Hl Hl Hl Hl Hl Hl Hj Hj Hj Hk Hj Hj Hn H@MKl O @OOjOlNH (653 CLOSEF 600 \\SETFILEPTR 591 \\BOUT 583 \\BOUT 576 \\BOUT 568 \\BOUT 561 \\BOUT 553 \\BOUT 546 \\BOUT 537 \\BOUT 529 \\BOUT 520 \\BOUT 512 \\BOUT 503 \\BOUT 495 \\BOUT 486 \\BOUT 478 \\BOUT 469 \\BOUT 461 \\BOUT 452 \\BOUT 444 \\BOUT 435 \\BOUT 427 \\BOUT 418 \\BOUT 410 \\BOUT 401 \\BOUT 393 \\BOUT 384 \\BOUT 376 \\BOUT 368 \\BOUT 361 \\BOUT 353 \\BOUT 346 \\BOUT 337 \\BOUT 329 \\BOUT 320 \\BOUT 312 \\BOUT 303 \\BOUT 295 \\BOUT 284 \\BOUT 276 \\BOUT 265 \\BOUT 257 \\BOUT 249 \\BOUT 242 \\BOUT 234 \\BOUT 227 \\BOUT 218 \\BOUT 211 \\BOUT 200 \\BOUT 192 \\BOUT 181 \\BOUT 173 \\BOUT 164 \\BOUT 156 \\BOUT 148 \\BOUT 140 \\BOUT 131 \\BOUT 122 OPENSTREAM 79 BKBITBLT 66 BITMAPCREATE 49 REGIONP 30 \\ILLEGAL.ARG 21 REGIONP 12 \\ILLEGAL.ARG) (632 FDEV 625 STREAM 607 BITMAP 117 OUTPUT 108 BITMAP 99 BITMAP 90 BITMAP 40 BITMAP 5 BITMAP) () AISBLT1TO1.BITMAP :D8 (P 18 A0156 P 17 A0155 P 16 A0154 P 15 LINE-BASE P 14 FILE-POINTER P 13 ROW P 11 A0153 P 5 SCRATCH-BITMAP-BASE P 4 SCRATCH-BITMAP P 3 WIDTH-BYTES P 2 DESTINATION-BYTE-OFFSET P 1 PILOT-BBT P 0 SOURCE-BYTES-PER-LINE I 9 PHOTOMETRY-SENSE I 8 HEIGHT I 7 WIDTH I 6 DESTINATION-WIDTH I 5 DESTINATION-RASTER-WIDTH I 4 DESTINATION-PIXEL-OFFSET I 3 DESTINATION-BASE I 2 SOURCE-RASTER-WIDTH I 1 SOURCE-PIXEL-OFFSET I 0 STREAM)  Bl`bBE=Adj8Dj1GF+@CGH O >OOjOlNAljDljGljGdFDlGlGkAl@ N @kOCOOG@O @ >@OJKlO OdGOE_Ok_OH_Gkd \ILjGlCDEGkjidgg GlGkAl@ N@kO"COOe@O @ >@MjKlO$IhvOdG&OE__IOIOOk_OH_Gj+ICDECDEGGjhdgg Ihv(520 SETUPPILOTBBT 384 \\SETFILEPTR 320 SETUPPILOTBBT 259 BITMAPCREATE 185 \\SETFILEPTR) (514 REPLACE 509 INVERT 453 PILOTBBT 441 PILOTBBT 398 FDEV 391 STREAM 353 FDEV 346 STREAM 314 REPLACE 309 INPUT 275 BITMAP 265 BITMAP 199 FDEV 192 STREAM 154 FDEV 147 STREAM 58 FDEV 51 STREAM 8 |PILOTBBTTYPE#|) () AISBLT8TO1FSA.BITMAP :D8 (P 16 FILE-POINTER P 15 ROW P 13 A0157 P 12 COLUMN P 10 THREE-EIGHTHS-ERROR P 9 QUARTER-ERROR P 8 ERROR P 7 PIXEL P 6 ERROR-BASE P 5 ERROR-CURRENT-PIXEL P 4 INTERMEDIATE-WORD-BASE P 3 16-TO-1-PILOTBBT P 2 ERROR-TABLE P 1 INTERMEDIATE-WORD-BUFFER P 0 SOURCE-BYTES-PER-LINE I 9 PHOTOMETRY-SENSE I 8 HEIGHT I 7 WIDTH I 6 DESTINATION-WIDTH I 5 DESTINATION-RASTER-WIDTH I 4 DESTINATION-PIXEL-OFFSET I 3 DESTINATION-BASE I 2 SOURCE-RASTER-WIDTH I 1 SOURCE-PIXEL-OFFSET I 0 STREAM) U BGk Gk `t KIllCDkdGjidGjggg lGj OOJOjOl_GkA@ N @kOOO@O J^NjIGk OOlM@ _lLkOlوLjOj_nOn _nOOn@_N]OؽNdONONlоLkмOk_KCKCKhvCEbOk_O H_ JKjLlIGkA@ N@kMONh@O @ > @CDGlOOdGCEbOk_OH_(107 \\SETFILEPTR) (121 FDEV 114 STREAM 78 FDEV 71 STREAM 49 FDEV 42 STREAM) () AISBLTNTO1FSA.BITMAP :D8 (P 23 COLUMN P 21 A0161 P 20 ROW P 18 COLUMN P 16 ERROR P 15 QUARTER-ERROR P 14 THREE-EIGHTHS-ERROR P 13 THRESHOLD P 12 WHITE P 11 PIXEL P 10 BLACK P 9 16-TO-1-PILOTBBT P 8 N-TO-16-PILOTBBT P 7 ERROR-BASE P 6 ERROR-FRACTIONAL-POINT P 5 ERROR-TABLE P 4 INTERMEDIATE-WORD-BASE P 3 ERROR-CURRENT-PIXEL P 2 INTERMEDIATE-WORD-BUFFER P 1 SOURCE-LINE-BYTE-BUFFER-BASE P 0 SOURCE-BYTES-PER-LINE I 10 PHOTOMETRY-SENSE I 9 SOURCE-BITS-PER-PIXEL I 8 HEIGHT I 7 WIDTH I 6 DESTINATION-WIDTH I 5 DESTINATION-RASTER-WIDTH I 4 DESTINATION-PIXEL-OFFSET I 3 DESTINATION-BASE I 2 SOURCE-RASTER-WIDTH I 1 SOURCE-PIXEL-OFFSET I 0 STREAM)  BlBk Gk !Gk !l``! j_lG k OO1OIAGGJlGlGGjidgg OJllCDkdGjidGjggg lGjO$O"MO$jO$l_$GkO(O&@ >@IjHlO*OhvM_OjJGkO.O,sKL_OLkOOLjOO_ nO n _nO On@_O[OػOdOOOOl_LkмO.k_.OCOCOhvCEbO(k_("i(175 SETUPPILOTBBT 131 SETUPPILOTBBT 77 EXPT 40 \\ALLOCBLOCK 28 \\ALLOCBLOCK 15 \\ALLOCBLOCK) (418 PILOTBBT 406 PILOTBBT 238 FDEV 231 STREAM 169 REPLACE 164 INPUT 158 INVERT 125 REPLACE 120 INPUT 60 |PILOTBBTTYPE#| 51 |PILOTBBTTYPE#|) () AISBLTNTO1TRUNCATE.BITMAP :D8 (P 6 A0162 P 5 ROW P 3 16-TO-1-PILOTBBT P 2 HIGH-N-TO-1-PILOTBBT P 1 SOURCE-LINE-BYTE-BUFFER-BASE P 0 SOURCE-BYTES-PER-LINE I 10 PHOTOMETRY-SENSE I 9 SOURCE-BITS-PER-PIXEL I 8 HEIGHT I 7 WIDTH I 6 DESTINATION-WIDTH I 5 DESTINATION-RASTER-WIDTH I 4 DESTINATION-PIXEL-OFFSET I 3 DESTINATION-BASE I 2 SOURCE-RASTER-WIDTH I 1 SOURCE-PIXEL-OFFSET I 0 STREAM)  BlBk ``JIAGGCDkdGjidGjggg GkMLC@ >@IjHlNJCJCJhvCEbMk]i(80 SETUPPILOTBBT 15 \\ALLOCBLOCK) (136 PILOTBBT 125 PILOTBBT 105 FDEV 98 STREAM 74 REPLACE 69 INPUT 63 INVERT 32 |PILOTBBTTYPE#| 23 |PILOTBBTTYPE#|) () SETUPPILOTBBT :D8 (I 13 OPERATION I 12 SOURCE I 11 DISJOINT-ITEMS I 10 DISJOINT I 9 FLAGS I 8 HEIGHT I 7 WIDTH I 6 DESTINATION-BPL I 5 DESTINATION-BIT I 4 DESTINATION-BASE I 3 SOURCE-BPL I 2 SOURCE-BIT I 1 SOURCE-BASE I 0 PILOT-BBT) @D@D@E@Fn@A@A@B@Cn@G@G @G @GkjHI Ijh@GkjHI Ijh@j 0jdh@GdgkglGglj Q@GgGgjkHI @INIL (192 ERASE 184 INVERT 167 INVERT 155 PAINT 144 ERASE 49 PILOTBBT 38 PILOTBBT 16 PILOTBBT 5 PILOTBBT) () (PRETTYCOMPRINT AISBLTCOMS) (RPAQQ AISBLTCOMS ((* |;;| "") (* |;;| "The AISBLT module") (* |;;| "") (* |;;| "The exported interface is via the following functions") (FNS AISBLT.BITMAP AISFILEHEADER WRITEAIS) (* |;;| "Internal functions") (FNS AISBLT1TO1.BITMAP AISBLT8TO1FSA.BITMAP AISBLT8TO8.BITMAP AISBLTNTO1FSA.BITMAP AISBLTNTO1TRUNCATE.BITMAP SETUPPILOTBBT) (* |;;| "Useful constants") (COMS (* \; "AIS file identifying word") (VARIABLES AIS-PASSWORD)) (COMS (* \; "Attribute part header types") ( VARIABLES AIS-RASTER-TYPE AIS-PLACEMENT-TYPE AIS-PHOTOMETRY-TYPE AIS-COMMENT-TYPE)) (COMS (* \; "Raster coding types") (VARIABLES AIS-RASTER-CODING-UCA AIS-RASTER-CODING-CA)) (COMS (* \; "Photometry sense ") (VARIABLES AIS-PHOTOMETRY-SENSE-LARGER-DARKER AIS-PHOTOMETRY-SENSE-LARGER-LIGHTER )) (COMS (* \; "Photometry signal ") (VARIABLES AIS-PHOTOMETRY-SIGNAL-BLACK-AND-WHITE AIS-PHOTOMETRY-SIGNAL-RED-SEPARATION AIS-PHOTOMETRY-SIGNAL-BLUE-SEPARATION AIS-PHOTOMETRY-SIGNAL-GREEN-SEPARATION AIS-PHOTOMETRY-SIGNAL-CYAN-SEPARATION AIS-PHOTOMETRY-SIGNAL-MAGENTA-SEPARATION AIS-PHOTOMETRY-SIGNAL-YELLOW-SEPARATION AIS-PHOTOMETRY-SIGNAL-X-CIE AIS-PHOTOMETRY-SIGNAL-Y-CIE AIS-PHOTOMETRY-SIGNAL-IN-COMMENT AIS-PHOTOMETRY-SIGNAL-UNSPECIFIED)) (COMS (* \; "Photometry spot type") (VARIABLES AIS-PHOTOMETRY-SPOT-TYPE-RECTANGULAR AIS-PHOTOMETRY-SPOT-TYPE-CIRCULAR AIS-PHOTOMETRY-SPOT-TYPE-IN-COMMENTS AIS-PHOTOMETRY-SPOT-TYPE-UNSPECIFIED)) (COMS (* \; "Photometry scale") (VARIABLES AIS-PHOTOMETRY-SCALE-RELECTANCE-TRANSMITTANCE AIS-PHOTOMETRY-SCALE-OPTICAL-DENSITY AIS-PHOTOMETRY-SCALE-IN-COMMENT AIS-PHOTOMETRY-SCALE-UNSPECIFIED) ) (COMS (* \; "Photometry") (VARIABLES AIS-PHOTOMETRY-UNSPECIFIED)) (COMS (* \; "Header information when writing AIS format") (VARIABLES AIS-DEFAULT-HEADER-LENGTH)))) (CL:DEFCONSTANT AIS-PASSWORD 33962) (CL:DEFCONSTANT AIS-RASTER-TYPE 1) (CL:DEFCONSTANT AIS-PLACEMENT-TYPE 2) (CL:DEFCONSTANT AIS-PHOTOMETRY-TYPE 3) (CL:DEFCONSTANT AIS-COMMENT-TYPE 4) (CL:DEFCONSTANT AIS-RASTER-CODING-UCA 1) (CL:DEFCONSTANT AIS-RASTER-CODING-CA 2) (CL:DEFCONSTANT AIS-PHOTOMETRY-SENSE-LARGER-DARKER 1) (CL:DEFCONSTANT AIS-PHOTOMETRY-SENSE-LARGER-LIGHTER 0) (CL:DEFCONSTANT AIS-PHOTOMETRY-SIGNAL-BLACK-AND-WHITE 0 "Photometry signal is black and white") (CL:DEFCONSTANT AIS-PHOTOMETRY-SIGNAL-RED-SEPARATION 1 "Photometry signal is red separation") (CL:DEFCONSTANT AIS-PHOTOMETRY-SIGNAL-BLUE-SEPARATION 2 "Photometry signal is blue separation") (CL:DEFCONSTANT AIS-PHOTOMETRY-SIGNAL-GREEN-SEPARATION 3 "Photometry signal is green separation") (CL:DEFCONSTANT AIS-PHOTOMETRY-SIGNAL-CYAN-SEPARATION 4 "Photometry signal is cyan separation") (CL:DEFCONSTANT AIS-PHOTOMETRY-SIGNAL-MAGENTA-SEPARATION 5 "Photometry signal is magenta separation") (CL:DEFCONSTANT AIS-PHOTOMETRY-SIGNAL-YELLOW-SEPARATION 6 "Photometry signal is yellow separation") (CL:DEFCONSTANT AIS-PHOTOMETRY-SIGNAL-X-CIE 7 "Photometry signal is x signal (CIE)") (CL:DEFCONSTANT AIS-PHOTOMETRY-SIGNAL-Y-CIE 8 "Photometry signal is y signal (CIE)") (CL:DEFCONSTANT AIS-PHOTOMETRY-SIGNAL-IN-COMMENT (UNSIGNED -2 16) "Photometry signal specified in comment part") (CL:DEFCONSTANT AIS-PHOTOMETRY-SIGNAL-UNSPECIFIED (UNSIGNED -1 16) "Photometry signal unspecified") (CL:DEFCONSTANT AIS-PHOTOMETRY-SPOT-TYPE-RECTANGULAR 1 "Photometry spot type is rectangular") (CL:DEFCONSTANT AIS-PHOTOMETRY-SPOT-TYPE-CIRCULAR 2 "Photometry spot type is circular") (CL:DEFCONSTANT AIS-PHOTOMETRY-SPOT-TYPE-IN-COMMENTS (UNSIGNED -2 16) "Photometry spot type is specified in comments") (CL:DEFCONSTANT AIS-PHOTOMETRY-SPOT-TYPE-UNSPECIFIED (UNSIGNED -1 16) "Photometry spot type is unspecified") (CL:DEFCONSTANT AIS-PHOTOMETRY-SCALE-RELECTANCE-TRANSMITTANCE 1 "Photometry scale is reflectance or transmittance x 1000") (CL:DEFCONSTANT AIS-PHOTOMETRY-SCALE-OPTICAL-DENSITY 2 "Photometry scale is optical density x 1000") (CL:DEFCONSTANT AIS-PHOTOMETRY-SCALE-IN-COMMENT (UNSIGNED -2 16) "Photometry scale is specified in comments") (CL:DEFCONSTANT AIS-PHOTOMETRY-SCALE-UNSPECIFIED (UNSIGNED -1 16) "Photometry scale is unspecified") (CL:DEFCONSTANT AIS-PHOTOMETRY-UNSPECIFIED (UNSIGNED -1 16) "Photometry general unspecified value") (CL:DEFCONSTANT AIS-DEFAULT-HEADER-LENGTH (CL:* 1024 BYTESPERWORD) "Length in bytes of the header to write in AIS files") (PUTPROPS AISBLT COPYRIGHT ("Xerox Corporation" 1988)) NIL