(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP") (FILECREATED "17-Nov-93 17:59:49" ("compiled on " |{DSK}export>lispcore>lispusers>canvasconverter.;1|) "11-Nov-93 16:58:33" |bcompl'd| |in| "Medley 11-Nov-93 ..." |dated| "11-Nov-93 17:07:44") (FILECREATED "13-Oct-87 16:32:42" |{ABLAGE2:49/89/636/13:SIEMENS AG}TOOLS>CANVASCONVERTER.;4| |previous| |date:| " 7-Sep-87 11:16:38" |{ABLAGE2:49/89/636/13:SIEMENS AG}TOOLS>CANVASCONVERTER.;2|) FETCHCANVAS :D8 (P 3 |result| P 2 |bmhigth| P 1 |bmwidth| P 0 |saveinput| I 0 |file|) @@ X@l8 o@ ` h nh nYo@ ` h nh nZo@ ` oIoJ ` @d l o@ ` IJ [H @ K(211 CLOSEF 205 INPUT 198 READBINARYBITMAP 191 PRINT 181 CONCAT 176 GETFILEPTR 165 SETFILEPTR 157 GETFILEPTR 150 PRINT 140 CONCAT 123 PRINT 113 CONCAT 108 GETFILEPTR 83 PRINT 73 CONCAT 68 GETFILEPTR 43 PRINT 33 CONCAT 28 GETFILEPTR 17 SETFILEPTR 8 INFILE) (186 PROMPTWINDOW 145 PROMPTWINDOW 118 PROMPTWINDOW 78 PROMPTWINDOW 38 PROMPTWINDOW) ( 170 "FILEPTR > " 134 " heigth: " 128 "width: " 102 "FILEPTR > " 62 "FILEPTR > " 22 "FILEPTR > ") VECLENGTH :D8 (I 1 HEIGHT I 0 WIDTH) lA@ll l lNIL NIL () CALCULATEBYTES :D8 (L (0 N) F 0 FIRSTBYTE F 1 SECONDBYTE F 2 THIRDBYTE) @oc@nnc@lcNIL NIL ( 5 65536) CALCULATEWIDTHBYTES :D8 (F 0 BMWIDTH F 1 FIRSTWIDTHBYTE F 2 SECONDWIDTHBYTE) PncPlcNIL NIL () CANVAS-FROM-WINDOW :D8 (P 3 COPYBITMAP P 2 WIDTH P 1 HEIGHT P 0 WINDOWREGION I 1 FILE I 0 WINDOW) 1@ !HHZI @jdK KA (46 WRITECANVAS 39 BKBITBLT 27 BITMAPCREATE 5 \\INSUREWINDOW) NIL () CALCULATEHEIGHTFACTOR1 :D8 (F 0 BMHEIGHT) PnnNIL NIL () CALCULATEHEIGHTFACTOR2 :D8 (F 0 BMHEIGHT) PnPnnnNIL NIL () CALCULATEWIDTHFACTOR1 :D8 (F 0 BMWIDTH) PnnNIL NIL () CALCULATEWIDTHFACTOR2 :D8 (F 0 BMWIDTH) PnPnnnNIL NIL () WRITECANVAS :D8 (P 13 I P 12 SECONDWIDTHBYTE P 11 FIRSTWIDTHBYTE P 10 THIRDBYTE P 9 SECONDBYTE P 8 FIRSTBYTE P 7 OUTFILE P 6 WIDTHFACTOR2 P 5 WIDTHFACTOR1 P 4 HEIGHTFACTOR2 P 3 HEIGHTFACTOR1 P 2 BMWIDTH P 1 BMHEIGHT P 0 COPYBITMAP I 1 FILE I 0 BITMAP)  @ Y@ Zdll l I X@jdH [\]^JI Ag _od OO OM ON OK OL Ol Ol OK OL OM ON od OO OK OL od OO OO OO OO Oj Ok OO OO HO od OO O AgnL o(384 SETFILEINFO 370 CLOSEF 358 BOUT 338 WRITEBINARYBITMAP 330 BOUT 321 BOUT 312 BOUT 304 BOUT 296 BOUT 287 BOUT 278 BOUT 264 BOUT 244 BOUT 236 BOUT 223 BOUT 203 BOUT 195 BOUT 187 BOUT 179 BOUT 171 BOUT 162 BOUT 153 BOUT 145 BOUT 137 BOUT 129 BOUT 116 BOUT 94 OPENSTREAM 83 CALCULATEWIDTHBYTES 78 CALCULATEBYTES 73 VECLENGTH 65 CALCULATEWIDTHFACTOR2 59 CALCULATEWIDTHFACTOR1 53 CALCULATEHEIGHTFACTOR2 47 CALCULATEHEIGHTFACTOR1 42 BKBITBLT 32 BITMAPCREATE 15 BITMAPWIDTH 8 BITMAPHEIGHT) (376 TYPE 89 OUTPUT) ( 389 "Canvas has been written." 343 (161 194 15 160 15 161 15 160 15 163 161 27 197 5 120 101 114 111 120 197 10 71 114 97 121 76 105 110 101 97 114 15 162 161 27 161 166 160 231 197 4 110 97 109 101 193 10 66 105 103 65 80 83 73 99 111 110 197 12 99 114 101 97 116 105 111 110 84 105 109 101 193 25 49 57 56 55 32 48 56 32 48 51 32 49 53 58 52 55 58 50 51 45 48 53 58 48 48 15 164 161 27 66 190 160 103) 249 (160 162 160 165 233) 208 (15 161 15 161 15 160 15 70 160 163 15 160) 101 (73 110 116 101 114 112 114 101 115 115 47 88 101 114 111 120 47 50 46 49 47 82 97 115 116 101 114 69 110 99 111 100 105 110 103 47 49 46 48 32 160 102 196 6 0 0 254 10 252 128 160 181 15 162 161 27)) SNAPBM :D8 (P 1 REG P 0 BM) + YdI XIIH H(39 BKBITBLT 28 SCREENBITMAP 22 BITMAPCREATE 7 GETREGION) NIL () (PRETTYCOMPRINT CANVASCONVERTERCOMS) (RPAQQ CANVASCONVERTERCOMS ((FNS FETCHCANVAS VECLENGTH CALCULATEBYTES CALCULATEWIDTHBYTES CANVAS-FROM-WINDOW CALCULATEHEIGHTFACTOR1 CALCULATEHEIGHTFACTOR2 CALCULATEWIDTHFACTOR1 CALCULATEWIDTHFACTOR2 WRITECANVAS SNAPBM) (VARS BYTESPERWORD) (FILES BITMAPFNS))) (RPAQQ BYTESPERWORD 2) (FILESLOAD BITMAPFNS) (PUTPROPS CANVASCONVERTER COPYRIGHT ("Steve Knowles" 1987)) NIL