/ Garbo / Garbo.cdr / mac / graphics / mactonxt.sit / pix_trans5.p

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0c 70 69 78 5f 74 72 | 61 6e 73 35 2e 70 00 00 |..pix_tr|ans5.p..|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 23 26 00 | 00 01 7e a0 46 fe 12 a0 |.....#&.|..~.F...|
|00000060| 46 fe 12 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |F.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 d2 69 00 00 |........|.....i..|
|00000080| 70 72 6f 67 72 61 6d 20 | 70 69 78 5f 74 72 61 6e |program |pix_tran|
|00000090| 73 34 3b 0d 7b 0d 09 43 | 6f 70 79 72 69 67 68 74 |s4;.{..C|opyright|
|000000a0| 20 a9 20 31 39 38 39 20 | 41 6c 62 65 72 74 20 4c | . 1989 |Albert L|
|000000b0| 75 6e 64 65 2c 20 4e 6f | 72 74 68 77 65 73 74 65 |unde, No|rthweste|
|000000c0| 72 6e 20 55 6e 69 76 65 | 72 73 69 74 79 0d 09 41 |rn Unive|rsity..A|
|000000d0| 6c 6c 20 52 69 67 68 74 | 73 20 52 65 73 65 72 76 |ll Right|s Reserv|
|000000e0| 65 64 0d 7d 0d 0d 75 73 | 65 73 20 6d 65 6d 74 79 |ed.}..us|es memty|
|000000f0| 70 65 73 2c 71 75 69 63 | 6b 64 72 61 77 2c 6f 73 |pes,quic|kdraw,os|
|00000100| 69 6e 74 66 2c 74 6f 6f | 6c 69 6e 74 66 2c 0d 20 |intf,too|lintf,. |
|00000110| 20 20 20 20 66 69 78 6d | 61 74 68 2c 70 61 63 6b |    fixm|ath,pack|
|00000120| 69 6e 74 66 2c 53 41 4e | 45 2c 70 69 78 69 6f 75 |intf,SAN|E,pixiou|
|00000130| 6e 69 74 2c 62 69 74 70 | 61 63 6b 75 6e 69 74 2c |nit,bitp|ackunit,|
|00000140| 66 73 70 61 63 6b 75 6e | 69 74 2c 0d 09 20 65 72 |fspackun|it,.. er|
|00000150| 72 6f 72 75 6e 69 74 2c | 73 68 6f 72 74 66 69 78 |rorunit,|shortfix|
|00000160| 75 6e 69 74 2c 72 65 64 | 75 63 65 75 6e 69 74 3b |unit,red|uceunit;|
|00000170| 0d 09 20 0d 63 6f 6e 73 | 74 20 76 65 72 73 69 6f |.. .cons|t versio|
|00000180| 6e 73 74 72 69 6e 67 3d | 27 76 20 30 2e 35 30 20 |nstring=|'v 0.50 |
|00000190| 20 20 20 28 33 2f 31 37 | 2f 38 39 29 27 3b 0d 0d |   (3/17|/89)';..|
|000001a0| 76 61 72 09 6d 61 69 6e | 77 69 6e 64 6f 77 3a 67 |var.main|window:g|
|000001b0| 72 61 66 70 74 72 3b 0d | 20 20 20 20 69 73 65 65 |rafptr;.|    isee|
|000001c0| 64 3a 6c 6f 6e 67 69 6e | 74 3b 0d 09 0d 76 61 72 |d:longin|t;...var|
|000001d0| 20 64 69 74 68 65 72 5f | 62 75 66 66 65 72 3a 62 | dither_|buffer:b|
|000001e0| 75 66 66 65 72 72 65 63 | 6f 72 64 3b 0d 0d 74 79 |ufferrec|ord;..ty|
|000001f0| 70 65 09 20 63 75 73 74 | 6f 6d 5f 6d 65 73 73 61 |pe. cust|om_messa|
|00000200| 67 65 3d 6f 62 6a 65 63 | 74 28 6d 65 73 73 61 67 |ge=objec|t(messag|
|00000210| 65 5f 6d 65 74 68 6f 64 | 73 29 0d 09 09 09 70 72 |e_method|s)....pr|
|00000220| 6f 63 65 64 75 72 65 20 | 63 6c 65 61 6e 75 70 5f |ocedure |cleanup_|
|00000230| 61 6e 64 5f 65 78 69 74 | 3b 6f 76 65 72 72 69 64 |and_exit|;overrid|
|00000240| 65 3b 0d 09 09 09 65 6e | 64 3b 0d 0d 76 61 72 20 |e;....en|d;..var |
|00000250| 63 75 73 74 6f 6d 5f 6d | 65 73 73 61 67 65 5f 76 |custom_m|essage_v|
|00000260| 61 72 3a 63 75 73 74 6f | 6d 5f 6d 65 73 73 61 67 |ar:custo|m_messag|
|00000270| 65 3b 0d 09 09 09 09 09 | 09 09 0d 0d 70 72 6f 63 |e;......|....proc|
|00000280| 65 64 75 72 65 20 63 75 | 73 74 6f 6d 5f 6d 65 73 |edure cu|stom_mes|
|00000290| 73 61 67 65 2e 63 6c 65 | 61 6e 75 70 5f 61 6e 64 |sage.cle|anup_and|
|000002a0| 5f 65 78 69 74 3b 0d 7b | 75 73 65 72 20 73 75 70 |_exit;.{|user sup|
|000002b0| 70 6c 69 65 64 20 63 6c | 65 61 6e 75 70 7d 0d 62 |plied cl|eanup}.b|
|000002c0| 65 67 69 6e 0d 63 6c 6f | 73 65 5f 61 6c 6c 3b 0d |egin.clo|se_all;.|
|000002d0| 77 72 69 74 65 6c 6e 28 | 27 50 72 6f 67 72 61 6d |writeln(|'Program|
|000002e0| 20 65 6e 64 65 64 20 77 | 69 74 68 20 61 6e 20 65 | ended w|ith an e|
|000002f0| 72 72 6f 72 2c 20 70 72 | 65 73 73 20 72 65 74 75 |rror, pr|ess retu|
|00000300| 72 6e 20 74 6f 20 63 6f | 6e 74 69 6e 75 65 27 29 |rn to co|ntinue')|
|00000310| 3b 0d 72 65 61 64 6c 6e | 3b 0d 68 61 6c 74 3b 0d |;.readln|;.halt;.|
|00000320| 65 6e 64 3b 0d 70 72 6f | 63 65 64 75 72 65 20 73 |end;.pro|cedure s|
|00000330| 68 6f 77 5f 68 65 61 64 | 65 72 3b 0d 62 65 67 69 |how_head|er;.begi|
|00000340| 6e 0d 77 72 69 74 65 6c | 6e 28 27 20 20 20 20 20 |n.writel|n('     |
|00000350| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000360| 3d 20 3d 20 3d 20 49 6d | 61 67 65 20 46 69 6c 65 |= = = Im|age File|
|00000370| 20 43 6f 6e 76 65 72 74 | 65 72 20 20 3d 20 3d 20 | Convert|er  = = |
|00000380| 3d 27 29 3b 0d 77 72 69 | 74 65 6c 6e 28 27 20 20 |=');.wri|teln('  |
|00000390| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000003a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 27 2c 76 |        |     ',v|
|000003b0| 65 72 73 69 6f 6e 73 74 | 72 69 6e 67 29 3b 20 20 |ersionst|ring);  |
|000003c0| 0d 77 72 69 74 65 6c 6e | 28 27 43 6f 70 79 72 69 |.writeln|('Copyri|
|000003d0| 67 68 74 20 a9 20 31 39 | 38 39 20 41 6c 62 65 72 |ght . 19|89 Alber|
|000003e0| 74 20 4c 75 6e 64 65 2c | 20 4e 6f 72 74 68 77 65 |t Lunde,| Northwe|
|000003f0| 73 74 65 72 6e 20 55 6e | 69 76 65 72 73 69 74 79 |stern Un|iversity|
|00000400| 27 29 3b 0d 77 72 69 74 | 65 6c 6e 28 27 50 65 72 |');.writ|eln('Per|
|00000410| 6d 69 73 73 69 6f 6e 20 | 69 73 20 67 72 61 6e 74 |mission |is grant|
|00000420| 65 64 20 66 6f 72 20 6e | 6f 6e 2d 63 6f 6d 6d 65 |ed for n|on-comme|
|00000430| 72 63 69 61 6c 20 64 69 | 73 74 72 69 62 75 74 69 |rcial di|stributi|
|00000440| 6f 6e 20 6f 6e 6c 79 2e | 27 29 3b 20 20 0d 77 72 |on only.|');  .wr|
|00000450| 69 74 65 6c 6e 28 27 52 | 65 73 61 6c 65 20 69 73 |iteln('R|esale is|
|00000460| 20 6e 6f 74 20 61 6c 6c | 6f 77 65 64 2e 20 20 4e | not all|owed.  N|
|00000470| 65 69 74 68 65 72 20 74 | 68 65 20 61 75 74 68 6f |either t|he autho|
|00000480| 72 2c 20 41 6c 62 65 72 | 74 20 4c 75 6e 64 65 2c |r, Alber|t Lunde,|
|00000490| 20 6e 6f 72 20 68 69 73 | 27 29 3b 20 0d 77 72 69 | nor his|'); .wri|
|000004a0| 74 65 6c 6e 28 27 65 6d | 70 6c 6f 79 65 72 2c 20 |teln('em|ployer, |
|000004b0| 4e 6f 72 74 68 77 65 73 | 74 65 72 6e 20 55 6e 69 |Northwes|tern Uni|
|000004c0| 76 65 72 73 69 74 79 2c | 20 6d 61 6b 65 20 61 6e |versity,| make an|
|000004d0| 79 20 77 61 72 72 61 6e | 74 79 2c 20 20 65 69 74 |y warran|ty,  eit|
|000004e0| 68 65 72 20 27 29 3b 0d | 77 72 69 74 65 6c 6e 28 |her ');.|writeln(|
|000004f0| 27 65 78 70 72 65 73 73 | 20 6f 72 20 69 6d 70 6c |'express| or impl|
|00000500| 69 65 64 2c 20 77 69 74 | 68 20 72 65 73 70 65 63 |ied, wit|h respec|
|00000510| 74 20 74 6f 20 74 68 69 | 73 20 73 6f 66 74 77 61 |t to thi|s softwa|
|00000520| 72 65 2e 20 27 29 3b 0d | 75 73 65 72 5f 70 61 75 |re. ');.|user_pau|
|00000530| 73 65 3b 0d 65 6e 64 3b | 7b 70 72 6f 63 7d 0d 0d |se;.end;|{proc}..|
|00000540| 70 72 6f 63 65 64 75 72 | 65 20 63 6f 70 79 5f 66 |procedur|e copy_f|
|00000550| 69 6c 65 3b 0d 0d 6c 61 | 62 65 6c 20 38 38 2c 33 |ile;..la|bel 88,3|
|00000560| 33 3b 0d 76 61 72 20 63 | 61 6e 63 65 6c 2c 64 6f |3;.var c|ancel,do|
|00000570| 6e 65 2c 6d 61 6b 65 6e | 65 78 74 2c 6d 61 6b 65 |ne,maken|ext,make|
|00000580| 31 62 69 74 2c 73 65 6c | 65 63 74 36 34 2c 69 6e |1bit,sel|ect64,in|
|00000590| 76 65 72 74 3a 62 6f 6f | 6c 65 61 6e 3b 0d 20 20 |vert:boo|lean;.  |
|000005a0| 20 20 70 68 6f 74 6f 2c | 6f 75 74 62 69 74 73 3a |  photo,|outbits:|
|000005b0| 69 6e 74 65 67 65 72 3b | 0d 20 20 20 20 72 6f 77 |integer;|.    row|
|000005c0| 3a 6c 6f 6e 67 69 6e 74 | 3b 0d 09 63 6f 70 79 62 |:longint|;..copyb|
|000005d0| 75 66 66 65 72 2c 63 6f | 70 79 32 62 75 66 66 65 |uffer,co|py2buffe|
|000005e0| 72 2c 72 65 64 75 63 65 | 62 75 66 66 65 72 2c 72 |r,reduce|buffer,r|
|000005f0| 65 64 75 63 65 32 62 75 | 66 66 65 72 3a 62 75 66 |educe2bu|ffer:buf|
|00000600| 66 65 72 72 65 63 6f 72 | 64 3b 0d 09 63 6f 70 79 |ferrecor|d;..copy|
|00000610| 62 79 74 65 73 2c 63 6f | 70 79 32 62 79 74 65 73 |bytes,co|py2bytes|
|00000620| 2c 72 65 64 75 63 65 62 | 79 74 65 73 2c 72 65 64 |,reduceb|ytes,red|
|00000630| 75 63 65 32 62 79 74 65 | 73 3a 6c 6f 6e 67 69 6e |uce2byte|s:longin|
|00000640| 74 3b 0d 09 66 69 72 73 | 74 72 6f 77 2c 6c 61 73 |t;..firs|trow,las|
|00000650| 74 72 6f 77 2c 66 69 72 | 73 74 63 6f 6c 2c 6c 61 |trow,fir|stcol,la|
|00000660| 73 74 63 6f 6c 3a 6c 6f | 6e 67 69 6e 74 3b 7b 73 |stcol:lo|ngint;{s|
|00000670| 65 6c 65 63 74 69 6f 6e | 7d 0d 09 6c 61 73 74 73 |election|}..lasts|
|00000680| 6f 75 72 63 65 72 6f 77 | 3a 6c 6f 6e 67 69 6e 74 |ourcerow|:longint|
|00000690| 3b 0d 09 6c 65 6e 67 74 | 68 2c 77 69 64 74 68 3a |;..lengt|h,width:|
|000006a0| 6c 6f 6e 67 69 6e 74 3b | 0d 09 63 6f 70 79 74 79 |longint;|..copyty|
|000006b0| 70 65 3a 69 6e 74 65 67 | 65 72 3b 0d 09 75 73 65 |pe:integ|er;..use|
|000006c0| 66 73 2c 64 6f 72 65 64 | 75 63 65 3a 62 6f 6f 6c |fs,dored|uce:bool|
|000006d0| 65 61 6e 3b 0d 09 64 72 | 61 77 61 74 3a 70 6f 69 |ean;..dr|awat:poi|
|000006e0| 6e 74 3b 0d 09 6e 72 65 | 64 75 63 65 3a 69 6e 74 |nt;..nre|duce:int|
|000006f0| 65 67 65 72 3b 0d 09 77 | 72 69 74 65 64 65 73 74 |eger;..w|ritedest|
|00000700| 72 6f 77 3a 62 6f 6f 6c | 65 61 6e 3b 0d 09 64 65 |row:bool|ean;..de|
|00000710| 73 74 72 6f 77 3a 6c 6f | 6e 67 69 6e 74 3b 0d 09 |strow:lo|ngint;..|
|00000720| 64 65 73 74 61 76 65 63 | 6f 75 6e 74 3a 69 6e 74 |destavec|ount:int|
|00000730| 65 67 65 72 3b 0d 62 65 | 67 69 6e 0d 63 61 6e 63 |eger;.be|gin.canc|
|00000740| 65 6c 3a 3d 66 61 6c 73 | 65 3b 0d 33 33 3a 0d 57 |el:=fals|e;.33:.W|
|00000750| 72 69 74 65 6c 6e 28 27 | 4f 70 74 69 6f 6e 73 20 |riteln('|Options |
|00000760| 74 6f 20 63 6f 6e 76 65 | 72 74 20 4d 61 63 50 61 |to conve|rt MacPa|
|00000770| 69 6e 74 20 61 6e 64 20 | 4d 6f 74 6f 72 6f 6c 61 |int and |Motorola|
|00000780| 20 54 49 46 46 20 66 69 | 6c 65 73 3a 27 29 3b 0d | TIFF fi|les:');.|
|00000790| 57 72 69 74 65 6c 6e 28 | 27 20 20 20 45 6e 74 65 |Writeln(|'   Ente|
|000007a0| 72 20 30 20 74 6f 20 63 | 6f 70 79 20 61 74 20 73 |r 0 to c|opy at s|
|000007b0| 61 6d 65 20 72 65 73 6f | 6c 75 74 69 6f 6e 20 28 |ame reso|lution (|
|000007c0| 66 6f 72 20 74 65 73 74 | 69 6e 67 29 27 29 3b 0d |for test|ing)');.|
|000007d0| 77 72 69 74 65 6c 6e 28 | 27 43 6f 70 79 20 61 6e |writeln(|'Copy an|
|000007e0| 64 20 64 69 73 63 61 72 | 64 20 62 69 74 73 2f 70 |d discar|d bits/p|
|000007f0| 61 64 20 62 69 74 73 20 | 74 6f 20 74 61 72 67 65 |ad bits |to targe|
|00000800| 74 20 66 69 6c 65 3a 27 | 29 3b 0d 77 72 69 74 65 |t file:'|);.write|
|00000810| 6c 6e 28 27 20 20 20 45 | 6e 74 65 72 20 31 20 74 |ln('   E|nter 1 t|
|00000820| 6f 20 63 6f 70 79 20 74 | 6f 20 4e 65 58 54 20 32 |o copy t|o NeXT 2|
|00000830| 20 62 69 74 20 54 49 46 | 46 27 29 3b 0d 77 72 69 | bit TIF|F');.wri|
|00000840| 74 65 6c 6e 28 27 20 20 | 20 45 6e 74 65 72 20 32 |teln('  | Enter 2|
|00000850| 20 74 6f 20 70 69 63 6b | 20 36 34 20 78 20 36 34 | to pick| 64 x 64|
|00000860| 20 73 65 63 74 69 6f 6e | 20 61 6e 64 20 63 6f 70 | section| and cop|
|00000870| 79 20 74 6f 20 4e 65 58 | 54 20 54 49 46 46 27 29 |y to NeX|T TIFF')|
|00000880| 3b 0d 77 72 69 74 65 6c | 6e 28 27 44 69 74 68 65 |;.writel|n('Dithe|
|00000890| 72 20 75 73 69 6e 67 20 | 46 6c 6f 79 64 2d 53 74 |r using |Floyd-St|
|000008a0| 65 69 6e 62 65 72 67 20 | 65 72 72 6f 72 20 64 69 |einberg |error di|
|000008b0| 73 74 72 69 62 75 74 69 | 6f 6e 3a 27 29 3b 0d 77 |stributi|on:');.w|
|000008c0| 72 69 74 65 6c 6e 28 27 | 20 20 20 45 6e 74 65 72 |riteln('|   Enter|
|000008d0| 20 33 20 74 6f 20 46 2f | 53 20 63 6f 70 79 20 74 | 3 to F/|S copy t|
|000008e0| 6f 20 4e 65 58 54 20 32 | 20 62 69 74 20 54 49 46 |o NeXT 2| bit TIF|
|000008f0| 46 27 29 3b 0d 77 72 69 | 74 65 6c 6e 28 27 20 20 |F');.wri|teln('  |
|00000900| 20 45 6e 74 65 72 20 34 | 20 74 6f 20 46 2f 53 20 | Enter 4| to F/S |
|00000910| 63 6f 70 79 20 74 6f 20 | 31 20 62 69 74 20 69 6d |copy to |1 bit im|
|00000920| 61 67 65 27 29 3b 0d 77 | 72 69 74 65 6c 6e 28 27 |age');.w|riteln('|
|00000930| 52 65 64 75 63 65 20 61 | 6e 64 20 64 69 74 68 65 |Reduce a|nd dithe|
|00000940| 72 3a 27 29 3b 0d 77 72 | 69 74 65 6c 6e 28 27 20 |r:');.wr|iteln(' |
|00000950| 20 20 45 6e 74 65 72 20 | 35 20 74 6f 20 72 65 64 |  Enter |5 to red|
|00000960| 75 63 65 27 29 3b 0d 72 | 65 61 64 6c 6e 28 63 6f |uce');.r|eadln(co|
|00000970| 70 79 74 79 70 65 29 3b | 0d 69 66 20 28 63 6f 70 |pytype);|.if (cop|
|00000980| 79 74 79 70 65 20 3c 20 | 2d 32 29 20 6f 72 20 28 |ytype < |-2) or (|
|00000990| 63 6f 70 79 74 79 70 65 | 3e 35 29 20 74 68 65 6e |copytype|>5) then|
|000009a0| 20 67 6f 74 6f 20 33 33 | 3b 0d 69 66 20 28 63 6f | goto 33|;.if (co|
|000009b0| 70 79 74 79 70 65 3d 2d | 31 29 20 74 68 65 6e 0d |pytype=-|1) then.|
|000009c0| 09 62 65 67 69 6e 0d 09 | 09 73 75 70 70 72 65 73 |.begin..|.suppres|
|000009d0| 73 5f 64 65 62 75 67 5f | 6d 65 73 73 61 67 65 73 |s_debug_|messages|
|000009e0| 3a 3d 66 61 6c 73 65 3b | 0d 09 09 67 6f 74 6f 20 |:=false;|...goto |
|000009f0| 33 33 3b 0d 09 65 6e 64 | 0d 65 6c 73 65 20 69 66 |33;..end|.else if|
|00000a00| 20 28 63 6f 70 79 74 79 | 70 65 3d 2d 32 29 20 74 | (copyty|pe=-2) t|
|00000a10| 68 65 6e 0d 09 62 65 67 | 69 6e 0d 09 09 64 65 62 |hen..beg|in...deb|
|00000a20| 75 67 67 65 72 3b 0d 09 | 09 67 6f 74 6f 20 33 33 |ugger;..|.goto 33|
|00000a30| 3b 0d 09 65 6e 64 3b 0d | 0d 09 0d 75 73 65 66 73 |;..end;.|...usefs|
|00000a40| 3a 3d 28 63 6f 70 79 74 | 79 70 65 3e 3d 33 29 3b |:=(copyt|ype>=3);|
|00000a50| 0d 6d 61 6b 65 6e 65 78 | 74 3a 3d 28 63 6f 70 79 |.makenex|t:=(copy|
|00000a60| 74 79 70 65 3e 30 29 20 | 61 6e 64 20 28 63 6f 70 |type>0) |and (cop|
|00000a70| 79 74 79 70 65 3c 3d 33 | 29 3b 0d 6d 61 6b 65 31 |ytype<=3|);.make1|
|00000a80| 62 69 74 3a 3d 28 63 6f | 70 79 74 79 70 65 3d 34 |bit:=(co|pytype=4|
|00000a90| 29 3b 0d 73 65 6c 65 63 | 74 36 34 3a 3d 28 63 6f |);.selec|t64:=(co|
|00000aa0| 70 79 74 79 70 65 3d 32 | 29 3b 0d 64 6f 72 65 64 |pytype=2|);.dored|
|00000ab0| 75 63 65 3a 3d 28 63 6f | 70 79 74 79 70 65 3d 35 |uce:=(co|pytype=5|
|00000ac0| 29 3b 0d 69 66 20 64 6f | 72 65 64 75 63 65 20 74 |);.if do|reduce t|
|00000ad0| 68 65 6e 0d 09 62 65 67 | 69 6e 0d 09 09 77 72 69 |hen..beg|in...wri|
|00000ae0| 74 65 6c 6e 28 27 45 6e | 74 65 72 20 69 6e 74 65 |teln('En|ter inte|
|00000af0| 67 65 72 20 72 65 64 75 | 63 74 69 6f 6e 20 66 61 |ger redu|ction fa|
|00000b00| 63 74 6f 72 3a 27 29 3b | 0d 09 09 72 65 61 64 6c |ctor:');|...readl|
|00000b10| 6e 28 6e 72 65 64 75 63 | 65 29 3b 0d 09 09 77 72 |n(nreduc|e);...wr|
|00000b20| 69 74 65 6c 6e 28 27 45 | 6e 74 65 72 20 6f 75 74 |iteln('E|nter out|
|00000b30| 70 75 74 20 62 69 74 20 | 72 65 73 6f 6c 75 74 69 |put bit |resoluti|
|00000b40| 6f 6e 27 29 3b 0d 09 09 | 72 65 61 64 6c 6e 28 6f |on');...|readln(o|
|00000b50| 75 74 62 69 74 73 29 3b | 0d 09 65 6e 64 0d 65 6c |utbits);|..end.el|
|00000b60| 73 65 0d 09 62 65 67 69 | 6e 0d 09 6e 72 65 64 75 |se..begi|n..nredu|
|00000b70| 63 65 3a 3d 31 3b 0d 09 | 6f 75 74 62 69 74 73 3a |ce:=1;..|outbits:|
|00000b80| 3d 31 3b 0d 09 65 6e 64 | 3b 0d 6e 65 77 5f 62 75 |=1;..end|;.new_bu|
|00000b90| 66 66 65 72 28 63 6f 70 | 79 62 75 66 66 65 72 29 |ffer(cop|ybuffer)|
|00000ba0| 3b 0d 6e 65 77 5f 62 75 | 66 66 65 72 28 63 6f 70 |;.new_bu|ffer(cop|
|00000bb0| 79 32 62 75 66 66 65 72 | 29 3b 0d 6e 65 77 5f 62 |y2buffer|);.new_b|
|00000bc0| 75 66 66 65 72 28 72 65 | 64 75 63 65 62 75 66 66 |uffer(re|ducebuff|
|00000bd0| 65 72 29 3b 0d 6e 65 77 | 5f 62 75 66 66 65 72 28 |er);.new|_buffer(|
|00000be0| 72 65 64 75 63 65 32 62 | 75 66 66 65 72 29 3b 0d |reduce2b|uffer);.|
|00000bf0| 0d 73 65 6c 65 63 74 5f | 69 6e 70 75 74 5f 70 69 |.select_|input_pi|
|00000c00| 78 66 69 6c 65 28 69 6e | 70 75 74 66 69 6c 65 2c |xfile(in|putfile,|
|00000c10| 63 61 6e 63 65 6c 29 3b | 0d 63 6f 70 79 62 79 74 |cancel);|.copybyt|
|00000c20| 65 73 3a 3d 0d 09 28 28 | 28 69 6e 70 75 74 66 69 |es:=..((|(inputfi|
|00000c30| 6c 65 2e 69 6d 61 67 65 | 77 69 64 74 68 29 2a 28 |le.image|width)*(|
|00000c40| 69 6e 70 75 74 66 69 6c | 65 2e 62 69 74 73 70 65 |inputfil|e.bitspe|
|00000c50| 72 73 61 6d 70 6c 65 29 | 2b 33 31 29 20 64 69 76 |rsample)|+31) div|
|00000c60| 20 33 32 29 2a 33 32 3b | 0d 61 6c 6c 6f 63 61 74 | 32)*32;|.allocat|
|00000c70| 65 5f 62 75 66 66 65 72 | 28 63 6f 70 79 62 75 66 |e_buffer|(copybuf|
|00000c80| 66 65 72 2c 63 6f 70 79 | 62 79 74 65 73 29 3b 0d |fer,copy|bytes);.|
|00000c90| 6c 6f 63 6b 5f 62 75 66 | 66 65 72 28 63 6f 70 79 |lock_buf|fer(copy|
|00000ca0| 62 75 66 66 65 72 29 3b | 0d 69 66 20 6e 6f 74 20 |buffer);|.if not |
|00000cb0| 63 61 6e 63 65 6c 20 74 | 68 65 6e 0d 20 20 20 62 |cancel t|hen.   b|
|00000cc0| 65 67 69 6e 0d 20 20 20 | 69 66 20 64 6f 72 65 64 |egin.   |if dored|
|00000cd0| 75 63 65 20 74 68 65 6e | 0d 20 20 20 09 09 62 65 |uce then|.   ..be|
|00000ce0| 67 69 6e 0d 09 09 6d 61 | 6b 65 6e 65 78 74 3a 3d |gin...ma|kenext:=|
|00000cf0| 28 6f 75 74 62 69 74 73 | 3d 32 29 3b 0d 09 20 20 |(outbits|=2);..  |
|00000d00| 20 20 69 66 20 6d 61 6b | 65 6e 65 78 74 20 74 68 |  if mak|enext th|
|00000d10| 65 6e 0d 09 09 20 20 62 | 65 67 69 6e 0d 09 09 09 |en...  b|egin....|
|00000d20| 20 20 7b 66 6f 72 63 65 | 20 74 6f 20 6c 6f 6f 6b |  {force| to look|
|00000d30| 20 6c 69 6b 65 20 4e 65 | 58 54 20 6d 61 63 68 69 | like Ne|XT machi|
|00000d40| 6e 65 20 74 69 66 66 73 | 7d 0d 09 09 09 20 20 70 |ne tiffs|}....  p|
|00000d50| 68 6f 74 6f 3a 3d 31 3b | 0d 09 09 09 20 20 6f 75 |hoto:=1;|....  ou|
|00000d60| 74 62 69 74 73 3a 3d 32 | 3b 0d 09 09 09 20 20 73 |tbits:=2|;....  s|
|00000d70| 75 70 70 72 65 73 73 5f | 6e 6f 6e 5f 6e 65 78 74 |uppress_|non_next|
|00000d80| 5f 74 61 67 73 3a 3d 74 | 72 75 65 3b 0d 09 09 20 |_tags:=t|rue;... |
|00000d90| 20 65 6e 64 0d 09 09 65 | 6c 73 65 0d 09 09 20 20 | end...e|lse...  |
|00000da0| 62 65 67 69 6e 0d 09 09 | 20 20 20 20 20 20 70 68 |begin...|      ph|
|00000db0| 6f 74 6f 3a 3d 69 6e 70 | 75 74 66 69 6c 65 2e 70 |oto:=inp|utfile.p|
|00000dc0| 68 6f 74 6f 6d 65 74 72 | 69 63 69 6e 74 65 72 70 |hotometr|icinterp|
|00000dd0| 72 65 74 61 74 69 6f 6e | 3b 0d 09 09 09 20 20 73 |retation|;....  s|
|00000de0| 75 70 70 72 65 73 73 5f | 6e 6f 6e 5f 6e 65 78 74 |uppress_|non_next|
|00000df0| 5f 74 61 67 73 3a 3d 66 | 61 6c 73 65 3b 0d 09 09 |_tags:=f|alse;...|
|00000e00| 20 20 65 6e 64 3b 0d 09 | 09 20 20 0d 09 09 66 69 |  end;..|.  ...fi|
|00000e10| 72 73 74 72 6f 77 3a 3d | 31 3b 0d 09 09 66 69 72 |rstrow:=|1;...fir|
|00000e20| 73 74 63 6f 6c 3a 3d 31 | 3b 0d 09 09 6c 61 73 74 |stcol:=1|;...last|
|00000e30| 72 6f 77 3a 3d 72 65 64 | 75 63 65 64 5f 73 69 7a |row:=red|uced_siz|
|00000e40| 65 28 69 6e 70 75 74 66 | 69 6c 65 2e 69 6d 61 67 |e(inputf|ile.imag|
|00000e50| 65 6c 65 6e 67 74 68 2c | 6e 72 65 64 75 63 65 29 |elength,|nreduce)|
|00000e60| 3b 0d 09 09 6c 61 73 74 | 63 6f 6c 3a 3d 72 65 64 |;...last|col:=red|
|00000e70| 75 63 65 64 5f 73 69 7a | 65 28 69 6e 70 75 74 66 |uced_siz|e(inputf|
|00000e80| 69 6c 65 2e 69 6d 61 67 | 65 77 69 64 74 68 2c 6e |ile.imag|ewidth,n|
|00000e90| 72 65 64 75 63 65 29 3b | 0d 09 09 6c 61 73 74 73 |reduce);|...lasts|
|00000ea0| 6f 75 72 63 65 72 6f 77 | 3a 3d 69 6e 70 75 74 66 |ourcerow|:=inputf|
|00000eb0| 69 6c 65 2e 69 6d 61 67 | 65 6c 65 6e 67 74 68 3b |ile.imag|elength;|
|00000ec0| 0d 09 20 20 20 20 6c 65 | 6e 67 74 68 3a 3d 6c 61 |..    le|ngth:=la|
|00000ed0| 73 74 72 6f 77 2d 66 69 | 72 73 74 72 6f 77 2b 31 |strow-fi|rstrow+1|
|00000ee0| 3b 0d 09 20 20 20 20 77 | 69 64 74 68 3a 3d 6c 61 |;..    w|idth:=la|
|00000ef0| 73 74 63 6f 6c 2d 66 69 | 72 73 74 63 6f 6c 2b 31 |stcol-fi|rstcol+1|
|00000f00| 3b 0d 09 09 75 73 65 66 | 73 3a 3d 74 72 75 65 3b |;...usef|s:=true;|
|00000f10| 0d 09 09 65 6e 64 0d 20 | 20 20 65 6c 73 65 0d 09 |...end. |  else..|
|00000f20| 20 20 20 62 65 67 69 6e | 0d 09 20 20 20 7b 6e 6f |   begin|..   {no|
|00000f30| 6e 2d 72 65 64 75 63 74 | 69 6f 6e 20 63 61 73 65 |n-reduct|ion case|
|00000f40| 7d 0d 09 20 20 20 6e 72 | 65 64 75 63 65 3a 3d 31 |}..   nr|educe:=1|
|00000f50| 3b 0d 09 20 20 20 69 66 | 20 6d 61 6b 65 6e 65 78 |;..   if| makenex|
|00000f60| 74 20 74 68 65 6e 0d 09 | 09 20 20 62 65 67 69 6e |t then..|.  begin|
|00000f70| 0d 09 09 09 20 20 7b 66 | 6f 72 63 65 20 74 6f 20 |....  {f|orce to |
|00000f80| 6c 6f 6f 6b 20 6c 69 6b | 65 20 4e 65 58 54 20 6d |look lik|e NeXT m|
|00000f90| 61 63 68 69 6e 65 20 74 | 69 66 66 73 7d 0d 09 09 |achine t|iffs}...|
|00000fa0| 09 20 20 70 68 6f 74 6f | 3a 3d 31 3b 0d 09 09 09 |.  photo|:=1;....|
|00000fb0| 20 20 6f 75 74 62 69 74 | 73 3a 3d 32 3b 0d 09 09 |  outbit|s:=2;...|
|00000fc0| 09 20 20 73 75 70 70 72 | 65 73 73 5f 6e 6f 6e 5f |.  suppr|ess_non_|
|00000fd0| 6e 65 78 74 5f 74 61 67 | 73 3a 3d 74 72 75 65 3b |next_tag|s:=true;|
|00000fe0| 0d 09 09 20 20 65 6e 64 | 0d 09 20 20 20 65 6c 73 |...  end|..   els|
|00000ff0| 65 20 69 66 20 6d 61 6b | 65 31 62 69 74 20 74 68 |e if mak|e1bit th|
|00001000| 65 6e 0d 09 09 20 20 62 | 65 67 69 6e 0d 09 09 09 |en...  b|egin....|
|00001010| 20 20 7b 66 6f 72 63 65 | 20 74 6f 20 6f 6e 65 20 |  {force| to one |
|00001020| 62 69 74 20 6f 74 68 65 | 72 77 69 73 65 20 61 73 |bit othe|rwise as|
|00001030| 20 69 73 7d 0d 09 09 09 | 20 20 70 68 6f 74 6f 3a | is}....|  photo:|
|00001040| 3d 69 6e 70 75 74 66 69 | 6c 65 2e 70 68 6f 74 6f |=inputfi|le.photo|
|00001050| 6d 65 74 72 69 63 69 6e | 74 65 72 70 72 65 74 61 |metricin|terpreta|
|00001060| 74 69 6f 6e 3b 0d 09 09 | 09 20 20 6f 75 74 62 69 |tion;...|.  outbi|
|00001070| 74 73 3a 3d 31 3b 0d 09 | 09 09 20 20 73 75 70 70 |ts:=1;..|..  supp|
|00001080| 72 65 73 73 5f 6e 6f 6e | 5f 6e 65 78 74 5f 74 61 |ress_non|_next_ta|
|00001090| 67 73 3a 3d 66 61 6c 73 | 65 3b 0d 09 09 20 20 65 |gs:=fals|e;...  e|
|000010a0| 6e 64 0d 09 20 20 20 65 | 6c 73 65 0d 09 09 20 20 |nd..   e|lse...  |
|000010b0| 62 65 67 69 6e 0d 09 09 | 09 20 20 7b 63 6f 70 79 |begin...|.  {copy|
|000010c0| 20 61 74 74 72 69 62 75 | 74 65 73 20 61 73 20 69 | attribu|tes as i|
|000010d0| 73 7d 0d 09 09 09 20 20 | 70 68 6f 74 6f 3a 3d 69 |s}....  |photo:=i|
|000010e0| 6e 70 75 74 66 69 6c 65 | 2e 70 68 6f 74 6f 6d 65 |nputfile|.photome|
|000010f0| 74 72 69 63 69 6e 74 65 | 72 70 72 65 74 61 74 69 |tricinte|rpretati|
|00001100| 6f 6e 3b 0d 09 09 09 20 | 20 6f 75 74 62 69 74 73 |on;.... | outbits|
|00001110| 3a 3d 69 6e 70 75 74 66 | 69 6c 65 2e 62 69 74 73 |:=inputf|ile.bits|
|00001120| 70 65 72 73 61 6d 70 6c | 65 3b 0d 09 09 09 20 20 |persampl|e;....  |
|00001130| 73 75 70 70 72 65 73 73 | 5f 6e 6f 6e 5f 6e 65 78 |suppress|_non_nex|
|00001140| 74 5f 74 61 67 73 3a 3d | 66 61 6c 73 65 3b 0d 09 |t_tags:=|false;..|
|00001150| 09 20 20 65 6e 64 3b 0d | 09 20 20 20 69 66 20 73 |.  end;.|.   if s|
|00001160| 65 6c 65 63 74 36 34 20 | 74 68 65 6e 0d 09 09 20 |elect64 |then... |
|00001170| 20 62 65 67 69 6e 0d 09 | 09 09 20 20 7b 74 68 69 | begin..|..  {thi|
|00001180| 73 20 63 6f 64 65 20 77 | 69 6c 6c 20 6e 6f 74 20 |s code w|ill not |
|00001190| 77 6f 72 6b 20 77 69 74 | 68 20 74 68 65 20 66 73 |work wit|h the fs|
|000011a0| 20 63 6f 70 79 7d 0d 09 | 09 09 20 20 77 72 69 74 | copy}..|..  writ|
|000011b0| 65 6c 6e 28 27 45 6e 74 | 65 72 20 66 69 72 73 74 |eln('Ent|er first|
|000011c0| 20 72 6f 77 20 31 20 74 | 6f 20 27 2c 69 6e 70 75 | row 1 t|o ',inpu|
|000011d0| 74 66 69 6c 65 2e 69 6d | 61 67 65 6c 65 6e 67 74 |tfile.im|agelengt|
|000011e0| 68 2d 36 33 29 3b 0d 09 | 09 09 20 20 72 65 61 64 |h-63);..|..  read|
|000011f0| 6c 6e 28 66 69 72 73 74 | 72 6f 77 29 3b 0d 09 09 |ln(first|row);...|
|00001200| 09 20 20 77 72 69 74 65 | 6c 6e 28 27 45 6e 74 65 |.  write|ln('Ente|
|00001210| 72 20 66 69 72 73 74 20 | 63 6f 6c 75 6d 6e 20 31 |r first |column 1|
|00001220| 20 74 6f 20 27 2c 69 6e | 70 75 74 66 69 6c 65 2e | to ',in|putfile.|
|00001230| 69 6d 61 67 65 77 69 64 | 74 68 2d 36 33 29 3b 0d |imagewid|th-63);.|
|00001240| 09 09 09 20 20 72 65 61 | 64 6c 6e 28 66 69 72 73 |...  rea|dln(firs|
|00001250| 74 63 6f 6c 29 3b 0d 09 | 09 09 20 20 6c 61 73 74 |tcol);..|..  last|
|00001260| 72 6f 77 3a 3d 66 69 72 | 73 74 72 6f 77 2b 36 33 |row:=fir|strow+63|
|00001270| 3b 0d 09 09 09 20 20 6c | 61 73 74 63 6f 6c 3a 3d |;....  l|astcol:=|
|00001280| 66 69 72 73 74 63 6f 6c | 2b 36 33 3b 0d 09 09 09 |firstcol|+63;....|
|00001290| 20 20 75 73 65 66 73 3a | 3d 66 61 6c 73 65 3b 0d |  usefs:|=false;.|
|000012a0| 09 09 20 20 65 6e 64 0d | 09 09 65 6c 73 65 0d 09 |..  end.|..else..|
|000012b0| 09 20 20 62 65 67 69 6e | 0d 09 09 09 20 20 66 69 |.  begin|....  fi|
|000012c0| 72 73 74 72 6f 77 3a 3d | 31 3b 0d 09 09 09 20 20 |rstrow:=|1;....  |
|000012d0| 66 69 72 73 74 63 6f 6c | 3a 3d 31 3b 0d 09 09 09 |firstcol|:=1;....|
|000012e0| 20 20 6c 61 73 74 72 6f | 77 3a 3d 69 6e 70 75 74 |  lastro|w:=input|
|000012f0| 66 69 6c 65 2e 69 6d 61 | 67 65 6c 65 6e 67 74 68 |file.ima|gelength|
|00001300| 3b 0d 09 09 09 20 20 6c | 61 73 74 63 6f 6c 3a 3d |;....  l|astcol:=|
|00001310| 69 6e 70 75 74 66 69 6c | 65 2e 69 6d 61 67 65 77 |inputfil|e.imagew|
|00001320| 69 64 74 68 3b 0d 09 09 | 20 20 65 6e 64 3b 0d 09 |idth;...|  end;..|
|00001330| 20 20 20 6c 65 6e 67 74 | 68 3a 3d 6c 61 73 74 72 |   lengt|h:=lastr|
|00001340| 6f 77 2d 66 69 72 73 74 | 72 6f 77 2b 31 3b 0d 09 |ow-first|row+1;..|
|00001350| 20 20 20 77 69 64 74 68 | 3a 3d 6c 61 73 74 63 6f |   width|:=lastco|
|00001360| 6c 2d 66 69 72 73 74 63 | 6f 6c 2b 31 3b 0d 09 20 |l-firstc|ol+1;.. |
|00001370| 20 20 6c 61 73 74 73 6f | 75 72 63 65 72 6f 77 3a |  lastso|urcerow:|
|00001380| 3d 6c 61 73 74 72 6f 77 | 3b 0d 09 20 20 20 65 6e |=lastrow|;..   en|
|00001390| 64 3b 0d 20 20 20 73 65 | 6c 65 63 74 5f 6f 75 74 |d;.   se|lect_out|
|000013a0| 70 75 74 5f 5f 70 69 78 | 66 69 6c 65 28 20 6c 65 |put__pix|file( le|
|000013b0| 6e 67 74 68 2c 0d 20 20 | 20 20 20 20 20 20 20 20 |ngth,.  |        |
|000013c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000013d0| 20 77 69 64 74 68 2c 0d | 20 20 20 20 20 20 20 20 | width,.|        |
|000013e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000013f0| 20 20 20 6f 75 74 62 69 | 74 73 2c 0d 20 20 20 20 |   outbi|ts,.    |
|00001400| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001410| 20 20 20 20 20 20 20 69 | 6e 70 75 74 66 69 6c 65 |       i|nputfile|
|00001420| 2e 78 72 65 73 6f 6c 75 | 74 69 6f 6e 2c 0d 20 20 |.xresolu|tion,.  |
|00001430| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001440| 20 20 20 20 20 20 20 20 | 20 69 6e 70 75 74 66 69 |        | inputfi|
|00001450| 6c 65 2e 79 72 65 73 6f | 6c 75 74 69 6f 6e 2c 0d |le.yreso|lution,.|
|00001460| 09 09 09 09 09 09 20 20 | 20 70 68 6f 74 6f 2c 0d |......  | photo,.|
|00001470| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001480| 20 20 20 20 20 20 20 20 | 20 20 20 63 6f 6e 63 61 |        |   conca|
|00001490| 74 28 27 43 6f 70 79 20 | 6f 66 20 27 2c 69 6e 70 |t('Copy |of ',inp|
|000014a0| 75 74 66 69 6c 65 2e 66 | 69 6c 65 6e 61 6d 65 29 |utfile.f|ilename)|
|000014b0| 2c 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |,.      |        |
|000014c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 6f 75 74 |        |     out|
|000014d0| 70 75 74 66 69 6c 65 2c | 0d 20 20 20 20 20 20 20 |putfile,|.       |
|000014e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000014f0| 20 20 20 20 63 61 6e 63 | 65 6c 29 3b 0d 20 20 20 |    canc|el);.   |
|00001500| 69 66 20 6e 6f 74 20 63 | 61 6e 63 65 6c 20 74 68 |if not c|ancel th|
|00001510| 65 6e 0d 20 20 20 20 20 | 20 62 65 67 69 6e 0d 20 |en.     | begin. |
|00001520| 20 20 20 20 20 20 69 6e | 76 65 72 74 3a 3d 28 69 |      in|vert:=(i|
|00001530| 6e 70 75 74 66 69 6c 65 | 2e 70 68 6f 74 6f 6d 65 |nputfile|.photome|
|00001540| 74 72 69 63 69 6e 74 65 | 72 70 72 65 74 61 74 69 |tricinte|rpretati|
|00001550| 6f 6e 3c 3e 0d 09 09 09 | 20 20 09 6f 75 74 70 75 |on<>....|  .outpu|
|00001560| 74 66 69 6c 65 2e 70 68 | 6f 74 6f 6d 65 74 72 69 |tfile.ph|otometri|
|00001570| 63 69 6e 74 65 72 70 72 | 65 74 61 74 69 6f 6e 29 |cinterpr|etation)|
|00001580| 3b 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |;.      |        |
|00001590| 20 20 20 20 20 20 20 20 | 0d 20 20 20 20 20 20 64 |        |.      d|
|000015a0| 6f 6e 65 3a 3d 66 61 6c | 73 65 3b 0d 09 20 20 63 |one:=fal|se;..  c|
|000015b0| 6f 70 79 32 62 79 74 65 | 73 3a 3d 0d 09 28 28 28 |opy2byte|s:=..(((|
|000015c0| 6f 75 74 70 75 74 66 69 | 6c 65 2e 69 6d 61 67 65 |outputfi|le.image|
|000015d0| 77 69 64 74 68 29 2a 28 | 6f 75 74 70 75 74 66 69 |width)*(|outputfi|
|000015e0| 6c 65 2e 62 69 74 73 70 | 65 72 73 61 6d 70 6c 65 |le.bitsp|ersample|
|000015f0| 29 2b 33 31 29 20 64 69 | 76 20 33 32 29 2a 33 32 |)+31) di|v 32)*32|
|00001600| 3b 0d 09 20 20 69 66 20 | 63 6f 70 79 32 62 79 74 |;..  if |copy2byt|
|00001610| 65 73 3c 37 32 20 74 68 | 65 6e 20 63 6f 70 79 32 |es<72 th|en copy2|
|00001620| 62 79 74 65 73 3a 3d 37 | 32 3b 20 7b 66 69 6c 6c |bytes:=7|2; {fill|
|00001630| 20 66 6f 72 20 6d 70 20 | 66 69 6c 65 73 7d 0d 20 | for mp |files}. |
|00001640| 20 20 20 20 20 61 6c 6c | 6f 63 61 74 65 5f 62 75 |     all|ocate_bu|
|00001650| 66 66 65 72 28 63 6f 70 | 79 32 62 75 66 66 65 72 |ffer(cop|y2buffer|
|00001660| 2c 63 6f 70 79 32 62 79 | 74 65 73 29 3b 0d 20 20 |,copy2by|tes);.  |
|00001670| 20 20 20 20 6c 6f 63 6b | 5f 62 75 66 66 65 72 28 |    lock|_buffer(|
|00001680| 63 6f 70 79 32 62 75 66 | 66 65 72 29 3b 0d 09 20 |copy2buf|fer);.. |
|00001690| 20 0d 09 20 20 69 66 20 | 64 6f 72 65 64 75 63 65 | ..  if |doreduce|
|000016a0| 20 74 68 65 6e 0d 09 20 | 20 09 62 65 67 69 6e 0d | then.. | .begin.|
|000016b0| 09 09 72 65 64 75 63 65 | 62 79 74 65 73 3a 3d 69 |..reduce|bytes:=i|
|000016c0| 6e 70 75 74 66 69 6c 65 | 2e 69 6d 61 67 65 77 69 |nputfile|.imagewi|
|000016d0| 64 74 68 2a 73 68 6f 72 | 74 66 69 78 62 79 74 65 |dth*shor|tfixbyte|
|000016e0| 73 3b 0d 09 09 61 6c 6c | 6f 63 61 74 65 5f 62 75 |s;...all|ocate_bu|
|000016f0| 66 66 65 72 28 72 65 64 | 75 63 65 62 75 66 66 65 |ffer(red|ucebuffe|
|00001700| 72 2c 72 65 64 75 63 65 | 62 79 74 65 73 29 3b 0d |r,reduce|bytes);.|
|00001710| 09 09 6c 6f 63 6b 5f 62 | 75 66 66 65 72 28 72 65 |..lock_b|uffer(re|
|00001720| 64 75 63 65 62 75 66 66 | 65 72 29 3b 0d 09 09 72 |ducebuff|er);...r|
|00001730| 65 64 75 63 65 32 62 79 | 74 65 73 3a 3d 6f 75 74 |educe2by|tes:=out|
|00001740| 70 75 74 66 69 6c 65 2e | 69 6d 61 67 65 77 69 64 |putfile.|imagewid|
|00001750| 74 68 2a 73 68 6f 72 74 | 66 69 78 62 79 74 65 73 |th*short|fixbytes|
|00001760| 2b 32 3b 7b 32 20 69 73 | 20 73 61 66 65 79 20 6d |+2;{2 is| safey m|
|00001770| 61 72 67 69 6e 7d 0d 09 | 09 61 6c 6c 6f 63 61 74 |argin}..|.allocat|
|00001780| 65 5f 62 75 66 66 65 72 | 28 72 65 64 75 63 65 32 |e_buffer|(reduce2|
|00001790| 62 75 66 66 65 72 2c 72 | 65 64 75 63 65 32 62 79 |buffer,r|educe2by|
|000017a0| 74 65 73 29 3b 0d 09 09 | 6c 6f 63 6b 5f 62 75 66 |tes);...|lock_buf|
|000017b0| 66 65 72 28 72 65 64 75 | 63 65 62 75 66 66 65 72 |fer(redu|cebuffer|
|000017c0| 29 3b 0d 09 09 65 6e 64 | 3b 0d 09 09 0d 09 20 20 |);...end|;.....  |
|000017d0| 69 66 20 75 73 65 66 73 | 20 74 68 65 6e 0d 09 09 |if usefs| then...|
|000017e0| 09 62 65 67 69 6e 0d 09 | 09 09 7b 63 6f 6c 75 6d |.begin..|..{colum|
|000017f0| 6e 20 73 65 6c 65 63 74 | 69 6f 6e 20 64 6f 65 73 |n select|ion does|
|00001800| 6e 74 20 77 6f 72 6b 20 | 79 65 74 7d 0d 09 09 09 |nt work |yet}....|
|00001810| 09 66 73 70 61 63 6b 5f | 73 65 74 75 70 28 6c 61 |.fspack_|setup(la|
|00001820| 73 74 63 6f 6c 2c 66 69 | 72 73 74 63 6f 6c 2c 6c |stcol,fi|rstcol,l|
|00001830| 61 73 74 63 6f 6c 2c 0d | 09 09 09 09 09 09 69 6e |astcol,.|......in|
|00001840| 70 75 74 66 69 6c 65 2e | 62 69 74 73 70 65 72 73 |putfile.|bitspers|
|00001850| 61 6d 70 6c 65 2c 0d 09 | 09 09 09 09 09 6f 75 74 |ample,..|.....out|
|00001860| 70 75 74 66 69 6c 65 2e | 62 69 74 73 70 65 72 73 |putfile.|bitspers|
|00001870| 61 6d 70 6c 65 2c 0d 09 | 09 09 09 09 09 6e 6f 74 |ample,..|.....not|
|00001880| 20 64 6f 72 65 64 75 63 | 65 2c 74 72 75 65 2c 0d | doreduc|e,true,.|
|00001890| 09 09 09 09 09 09 69 6e | 76 65 72 74 29 3b 0d 09 |......in|vert);..|
|000018a0| 09 09 65 6e 64 3b 0d 20 | 20 20 20 20 20 64 65 73 |..end;. |     des|
|000018b0| 74 72 6f 77 3a 3d 30 3b | 0d 7b 3c 3c 3c 3c 3c 3c |trow:=0;|.{<<<<<<|
|000018c0| 6e 65 65 64 73 20 62 65 | 74 74 65 72 20 63 6f 64 |needs be|tter cod|
|000018d0| 65 20 74 6f 20 73 6b 69 | 70 20 74 6f 20 74 68 65 |e to ski|p to the|
|000018e0| 20 72 69 67 68 74 20 72 | 6f 77 7d 0d 20 20 20 20 | right r|ow}.    |
|000018f0| 20 20 66 6f 72 20 72 6f | 77 3a 3d 31 20 74 6f 20 |  for ro|w:=1 to |
|00001900| 6c 61 73 74 73 6f 75 72 | 63 65 72 6f 77 20 64 6f |lastsour|cerow do|
|00001910| 0d 20 20 20 20 20 20 20 | 20 20 20 62 65 67 69 6e |.       |   begin|
|00001920| 0d 09 09 20 20 77 72 69 | 74 65 64 65 73 74 72 6f |...  wri|tedestro|
|00001930| 77 3a 3d 74 72 75 65 3b | 0d 09 09 20 20 28 2a 0d |w:=true;|...  (*.|
|00001940| 20 20 20 20 20 20 20 20 | 20 20 69 66 20 28 28 28 |        |  if (((|
|00001950| 72 6f 77 2b 31 30 29 3e | 3d 69 6e 70 75 74 66 69 |row+10)>|=inputfi|
|00001960| 6c 65 2e 69 6d 61 67 65 | 6c 65 6e 67 74 68 29 20 |le.image|length) |
|00001970| 6f 72 20 28 28 72 6f 77 | 20 6d 6f 64 20 31 30 29 |or ((row| mod 10)|
|00001980| 3d 30 29 20 29 0d 09 09 | 20 20 74 68 65 6e 0d 09 |=0) )...|  then..|
|00001990| 09 20 20 62 65 67 69 6e | 0d 09 09 20 20 73 79 73 |.  begin|...  sys|
|000019a0| 62 65 65 70 28 31 29 3b | 0d 20 20 20 20 20 20 20 |beep(1);|.       |
|000019b0| 20 20 20 77 72 69 74 65 | 6c 6e 28 72 6f 77 2c 27 |   write|ln(row,'|
|000019c0| 20 27 2c 69 6e 70 75 74 | 66 69 6c 65 2e 63 75 72 | ',input|file.cur|
|000019d0| 72 65 6e 74 72 6f 77 2c | 27 20 27 2c 6f 75 74 70 |rentrow,|' ',outp|
|000019e0| 75 74 66 69 6c 65 2e 63 | 75 72 72 65 6e 74 72 6f |utfile.c|urrentro|
|000019f0| 77 29 3b 0d 09 09 20 20 | 65 6e 64 3b 0d 09 09 20 |w);...  |end;... |
|00001a00| 20 2a 29 0d 09 09 20 0d | 09 20 20 7b 67 65 74 20 | *)... .|.  {get |
|00001a10| 69 6e 70 75 74 20 72 6f | 77 7d 0d 20 20 20 20 20 |input ro|w}.     |
|00001a20| 20 67 65 74 5f 62 69 74 | 72 6f 77 5f 70 69 78 66 | get_bit|row_pixf|
|00001a30| 69 6c 65 28 69 6e 70 75 | 74 66 69 6c 65 2c 63 6f |ile(inpu|tfile,co|
|00001a40| 70 79 62 75 66 66 65 72 | 2e 64 61 74 61 5e 2c 0d |pybuffer|.data^,.|
|00001a50| 09 20 20 63 6f 70 79 62 | 75 66 66 65 72 2e 62 79 |.  copyb|uffer.by|
|00001a60| 74 65 73 69 7a 65 2c 64 | 6f 6e 65 29 3b 0d 09 20 |tesize,d|one);.. |
|00001a70| 20 0d 09 20 20 69 66 20 | 72 6f 77 3e 3d 66 69 72 | ..  if |row>=fir|
|00001a80| 73 74 72 6f 77 20 74 68 | 65 6e 0d 09 20 20 62 65 |strow th|en..  be|
|00001a90| 67 69 6e 0d 09 20 20 0d | 09 20 20 69 66 20 75 73 |gin..  .|.  if us|
|00001aa0| 65 66 73 20 74 68 65 6e | 0d 09 20 20 09 62 65 67 |efs then|..  .beg|
|00001ab0| 69 6e 0d 09 09 09 69 66 | 20 64 6f 72 65 64 75 63 |in....if| doreduc|
|00001ac0| 65 20 74 68 65 6e 0d 09 | 09 09 09 62 65 67 69 6e |e then..|...begin|
|00001ad0| 0d 09 09 09 09 7b 72 65 | 64 75 63 74 69 6f 6e 20 |.....{re|duction |
|00001ae0| 62 79 20 6e 72 65 64 75 | 63 65 7d 0d 09 09 09 09 |by nredu|ce}.....|
|00001af0| 7b 75 6e 70 61 63 6b 20 | 74 6f 20 73 68 6f 72 74 |{unpack |to short|
|00001b00| 20 66 69 78 65 64 7d 0d | 09 09 09 09 72 65 64 75 | fixed}.|....redu|
|00001b10| 63 65 5f 75 6e 70 61 63 | 6b 28 63 6f 70 79 62 75 |ce_unpac|k(copybu|
|00001b20| 66 66 65 72 2e 64 61 74 | 61 5e 2c 0d 09 09 09 09 |ffer.dat|a^,.....|
|00001b30| 09 09 09 69 6e 70 75 74 | 66 69 6c 65 2e 62 69 74 |...input|file.bit|
|00001b40| 73 70 65 72 73 61 6d 70 | 6c 65 2c 0d 09 09 09 09 |spersamp|le,.....|
|00001b50| 09 09 09 69 6e 70 75 74 | 66 69 6c 65 2e 69 6d 61 |...input|file.ima|
|00001b60| 67 65 77 69 64 74 68 2c | 0d 09 09 09 09 09 09 09 |gewidth,|........|
|00001b70| 72 65 64 75 63 65 62 75 | 66 66 65 72 2e 64 61 74 |reducebu|ffer.dat|
|00001b80| 61 5e 2c 0d 09 09 09 09 | 09 09 09 72 65 64 75 63 |a^,.....|...reduc|
|00001b90| 65 62 75 66 66 65 72 2e | 62 79 74 65 73 69 7a 65 |ebuffer.|bytesize|
|00001ba0| 29 3b 0d 09 09 09 09 7b | 61 76 65 72 61 67 65 7d |);.....{|average}|
|00001bb0| 0d 09 09 09 09 72 65 64 | 75 63 65 5f 66 69 78 5f |.....red|uce_fix_|
|00001bc0| 6d 65 61 6e 28 72 65 64 | 75 63 65 62 75 66 66 65 |mean(red|ucebuffe|
|00001bd0| 72 2e 64 61 74 61 5e 2c | 0d 09 09 09 09 09 09 09 |r.data^,|........|
|00001be0| 72 65 64 75 63 65 32 62 | 75 66 66 65 72 2e 64 61 |reduce2b|uffer.da|
|00001bf0| 74 61 5e 2c 0d 09 09 09 | 09 09 09 09 72 65 64 75 |ta^,....|....redu|
|00001c00| 63 65 32 62 75 66 66 65 | 72 2e 62 79 74 65 73 69 |ce2buffe|r.bytesi|
|00001c10| 7a 65 2c 0d 09 09 09 09 | 09 09 09 6e 72 65 64 75 |ze,.....|...nredu|
|00001c20| 63 65 2c 0d 09 09 09 09 | 09 09 09 69 6e 70 75 74 |ce,.....|...input|
|00001c30| 66 69 6c 65 2e 69 6d 61 | 67 65 77 69 64 74 68 2c |file.ima|gewidth,|
|00001c40| 0d 09 09 09 09 09 09 09 | 69 6e 70 75 74 66 69 6c |........|inputfil|
|00001c50| 65 2e 69 6d 61 67 65 6c | 65 6e 67 74 68 2c 0d 09 |e.imagel|ength,..|
|00001c60| 09 09 09 09 09 09 72 6f | 77 2c 0d 09 09 09 09 09 |......ro|w,......|
|00001c70| 09 09 64 65 73 74 72 6f | 77 2c 0d 09 09 09 09 09 |..destro|w,......|
|00001c80| 09 09 64 65 73 74 61 76 | 65 63 6f 75 6e 74 2c 0d |..destav|ecount,.|
|00001c90| 09 09 09 09 09 09 09 77 | 72 69 74 65 64 65 73 74 |.......w|ritedest|
|00001ca0| 72 6f 77 29 3b 0d 09 09 | 09 09 69 66 20 77 72 69 |row);...|..if wri|
|00001cb0| 74 65 64 65 73 74 72 6f | 77 20 74 68 65 6e 0d 09 |tedestro|w then..|
|00001cc0| 09 09 09 66 73 70 61 63 | 6b 5f 63 6f 6e 76 65 72 |...fspac|k_conver|
|00001cd0| 74 28 72 65 64 75 63 65 | 32 62 75 66 66 65 72 2e |t(reduce|2buffer.|
|00001ce0| 64 61 74 61 5e 2c 0d 09 | 09 09 09 09 09 09 63 6f |data^,..|......co|
|00001cf0| 70 79 32 62 75 66 66 65 | 72 2e 64 61 74 61 5e 2c |py2buffe|r.data^,|
|00001d00| 0d 09 09 09 09 09 09 09 | 63 6f 70 79 32 62 75 66 |........|copy2buf|
|00001d10| 66 65 72 2e 62 79 74 65 | 73 69 7a 65 29 3b 0d 09 |fer.byte|size);..|
|00001d20| 09 09 09 65 6e 64 0d 09 | 09 09 65 6c 73 65 0d 09 |...end..|..else..|
|00001d30| 09 09 09 62 65 67 69 6e | 0d 09 09 09 09 66 73 70 |...begin|.....fsp|
|00001d40| 61 63 6b 5f 63 6f 6e 76 | 65 72 74 28 63 6f 70 79 |ack_conv|ert(copy|
|00001d50| 62 75 66 66 65 72 2e 64 | 61 74 61 5e 2c 0d 09 09 |buffer.d|ata^,...|
|00001d60| 09 09 09 09 09 63 6f 70 | 79 32 62 75 66 66 65 72 |.....cop|y2buffer|
|00001d70| 2e 64 61 74 61 5e 2c 0d | 09 09 09 09 09 09 09 63 |.data^,.|.......c|
|00001d80| 6f 70 79 32 62 75 66 66 | 65 72 2e 62 79 74 65 73 |opy2buff|er.bytes|
|00001d90| 69 7a 65 29 3b 0d 09 09 | 09 09 09 09 09 64 65 73 |ize);...|.....des|
|00001da0| 74 72 6f 77 3a 3d 64 65 | 73 74 72 6f 77 2b 31 3b |trow:=de|strow+1;|
|00001db0| 0d 09 09 09 09 65 6e 64 | 0d 09 09 65 6e 64 0d 09 |.....end|...end..|
|00001dc0| 20 20 65 6c 73 65 0d 09 | 09 20 20 62 65 67 69 6e |  else..|.  begin|
|00001dd0| 0d 09 09 20 20 7b 73 74 | 72 69 70 20 62 69 74 73 |...  {st|rip bits|
|00001de0| 20 77 69 74 68 20 6e 6f | 20 65 72 72 6f 72 20 63 | with no| error c|
|00001df0| 6f 72 72 65 63 74 69 6f | 6e 7d 0d 09 09 09 20 20 |orrectio|n}....  |
|00001e00| 73 74 72 69 70 62 69 74 | 73 28 63 6f 70 79 62 75 |stripbit|s(copybu|
|00001e10| 66 66 65 72 2e 64 61 74 | 61 5e 2c 0d 09 09 09 09 |ffer.dat|a^,.....|
|00001e20| 09 09 69 6e 70 75 74 66 | 69 6c 65 2e 62 69 74 73 |..inputf|ile.bits|
|00001e30| 70 65 72 73 61 6d 70 6c | 65 2c 0d 09 09 09 09 09 |persampl|e,......|
|00001e40| 09 63 6f 70 79 62 75 66 | 66 65 72 2e 62 79 74 65 |.copybuf|fer.byte|
|00001e50| 73 69 7a 65 2c 0d 09 09 | 09 09 09 09 63 6f 70 79 |size,...|....copy|
|00001e60| 32 62 75 66 66 65 72 2e | 64 61 74 61 5e 2c 0d 09 |2buffer.|data^,..|
|00001e70| 09 09 09 09 09 6f 75 74 | 70 75 74 66 69 6c 65 2e |.....out|putfile.|
|00001e80| 62 69 74 73 70 65 72 73 | 61 6d 70 6c 65 2c 0d 09 |bitspers|ample,..|
|00001e90| 09 09 09 09 09 63 6f 70 | 79 32 62 75 66 66 65 72 |.....cop|y2buffer|
|00001ea0| 2e 62 79 74 65 73 69 7a | 65 2c 0d 09 09 09 09 09 |.bytesiz|e,......|
|00001eb0| 09 66 69 72 73 74 63 6f | 6c 2c 6c 61 73 74 63 6f |.firstco|l,lastco|
|00001ec0| 6c 2c 0d 09 09 09 09 09 | 09 69 6e 76 65 72 74 29 |l,......|.invert)|
|00001ed0| 3b 0d 09 09 09 64 65 73 | 74 72 6f 77 3a 3d 64 65 |;....des|trow:=de|
|00001ee0| 73 74 72 6f 77 2b 31 3b | 0d 09 09 20 20 65 6e 64 |strow+1;|...  end|
|00001ef0| 3b 0d 09 20 20 69 66 20 | 62 75 74 74 6f 6e 20 74 |;..  if |button t|
|00001f00| 68 65 6e 20 67 6f 74 6f | 20 38 38 3b 0d 09 20 20 |hen goto| 88;..  |
|00001f10| 69 66 20 77 72 69 74 65 | 64 65 73 74 72 6f 77 20 |if write|destrow |
|00001f20| 74 68 65 6e 0d 09 20 20 | 20 20 20 62 65 67 69 6e |then..  |   begin|
|00001f30| 0d 09 09 09 64 72 61 77 | 5f 6f 6e 65 5f 70 69 78 |....draw|_one_pix|
|00001f40| 72 6f 77 28 6d 61 69 6e | 77 69 6e 64 6f 77 2c 6f |row(main|window,o|
|00001f50| 75 74 70 75 74 66 69 6c | 65 2c 0d 09 09 09 09 09 |utputfil|e,......|
|00001f60| 09 09 63 6f 70 79 32 62 | 75 66 66 65 72 2e 64 61 |..copy2b|uffer.da|
|00001f70| 74 61 5e 2c 64 65 73 74 | 72 6f 77 2c 74 72 75 65 |ta^,dest|row,true|
|00001f80| 2c 64 72 61 77 61 74 29 | 3b 0d 09 09 09 0d 09 09 |,drawat)|;.......|
|00001f90| 09 70 75 74 5f 62 69 74 | 72 6f 77 5f 70 69 78 66 |.put_bit|row_pixf|
|00001fa0| 69 6c 65 28 6f 75 74 70 | 75 74 66 69 6c 65 2c 63 |ile(outp|utfile,c|
|00001fb0| 6f 70 79 32 62 75 66 66 | 65 72 2e 64 61 74 61 5e |opy2buff|er.data^|
|00001fc0| 2c 0d 09 09 09 09 63 6f | 70 79 32 62 75 66 66 65 |,.....co|py2buffe|
|00001fd0| 72 2e 62 79 74 65 73 69 | 7a 65 2c 64 6f 6e 65 29 |r.bytesi|ze,done)|
|00001fe0| 3b 0d 09 20 20 20 20 20 | 65 6e 64 3b 0d 0d 09 20 |;..     |end;... |
|00001ff0| 20 65 6e 64 3b 0d 20 20 | 20 20 20 20 20 20 20 20 | end;.  |        |
|00002000| 65 6e 64 3b 0d 20 20 20 | 20 20 20 65 6e 64 3b 0d |end;.   |   end;.|
|00002010| 09 20 20 38 38 3a 0d 09 | 20 20 69 66 20 75 73 65 |.  88:..|  if use|
|00002020| 66 73 20 74 68 65 6e 0d | 09 20 20 62 65 67 69 6e |fs then.|.  begin|
|00002030| 0d 09 09 66 73 70 61 63 | 6b 5f 64 6f 6e 65 3b 0d |...fspac|k_done;.|
|00002040| 09 20 20 65 6e 64 3b 0d | 0d 20 20 20 20 20 20 75 |.  end;.|.      u|
|00002050| 6e 6c 6f 63 6b 5f 62 75 | 66 66 65 72 28 63 6f 70 |nlock_bu|ffer(cop|
|00002060| 79 32 62 75 66 66 65 72 | 29 3b 0d 20 20 20 20 20 |y2buffer|);.     |
|00002070| 20 72 65 6c 65 61 73 65 | 5f 62 75 66 66 65 72 28 | release|_buffer(|
|00002080| 63 6f 70 79 32 62 75 66 | 66 65 72 29 3b 0d 20 20 |copy2buf|fer);.  |
|00002090| 20 65 6e 64 3b 0d 75 6e | 6c 6f 63 6b 5f 62 75 66 | end;.un|lock_buf|
|000020a0| 66 65 72 28 63 6f 70 79 | 62 75 66 66 65 72 29 3b |fer(copy|buffer);|
|000020b0| 0d 72 65 6c 65 61 73 65 | 5f 62 75 66 66 65 72 28 |.release|_buffer(|
|000020c0| 63 6f 70 79 62 75 66 66 | 65 72 29 3b 0d 63 6c 6f |copybuff|er);.clo|
|000020d0| 73 65 5f 61 6c 6c 3b 0d | 65 6e 64 3b 7b 70 72 6f |se_all;.|end;{pro|
|000020e0| 63 7d 0d 0d 70 72 6f 63 | 65 64 75 72 65 20 69 6e |c}..proc|edure in|
|000020f0| 69 74 69 61 6c 69 7a 65 | 3b 0d 76 61 72 20 77 62 |itialize|;.var wb|
|00002100| 6f 75 6e 64 73 3a 72 65 | 63 74 3b 0d 20 20 20 20 |ounds:re|ct;.    |
|00002110| 66 6f 6e 74 6e 75 6d 3a | 69 6e 74 65 67 65 72 3b |fontnum:|integer;|
|00002120| 0d 62 65 67 69 6e 0d 70 | 69 78 69 6f 5f 69 6e 69 |.begin.p|ixio_ini|
|00002130| 74 69 61 6c 69 7a 65 3b | 0d 46 6c 75 73 68 45 76 |tialize;|.FlushEv|
|00002140| 65 6e 74 73 28 65 76 65 | 72 79 65 76 65 6e 74 2c |ents(eve|ryevent,|
|00002150| 30 29 3b 0d 49 6e 69 74 | 47 72 61 66 28 40 74 68 |0);.Init|Graf(@th|
|00002160| 65 50 6f 72 74 29 3b 0d | 49 6e 69 74 46 6f 6e 74 |ePort);.|InitFont|
|00002170| 73 3b 0d 49 6e 69 74 57 | 69 6e 64 6f 77 73 3b 0d |s;.InitW|indows;.|
|00002180| 49 6e 69 74 43 75 72 73 | 6f 72 3b 0d 54 45 49 6e |InitCurs|or;.TEIn|
|00002190| 69 74 3b 0d 0d 0d 77 69 | 74 68 20 77 62 6f 75 6e |it;...wi|th wboun|
|000021a0| 64 73 20 64 6f 0d 20 20 | 20 62 65 67 69 6e 0d 20 |ds do.  | begin. |
|000021b0| 20 20 20 74 6f 70 3a 3d | 32 30 3b 0d 20 20 20 20 |   top:=|20;.    |
|000021c0| 62 6f 74 74 6f 6d 3a 3d | 73 63 72 65 65 6e 62 69 |bottom:=|screenbi|
|000021d0| 74 73 2e 62 6f 75 6e 64 | 73 2e 62 6f 74 74 6f 6d |ts.bound|s.bottom|
|000021e0| 3b 0d 20 20 20 20 6c 65 | 66 74 3a 3d 73 63 72 65 |;.    le|ft:=scre|
|000021f0| 65 6e 62 69 74 73 2e 62 | 6f 75 6e 64 73 2e 6c 65 |enbits.b|ounds.le|
|00002200| 66 74 3b 0d 20 20 20 20 | 72 69 67 68 74 3a 3d 73 |ft;.    |right:=s|
|00002210| 63 72 65 65 6e 62 69 74 | 73 2e 62 6f 75 6e 64 73 |creenbit|s.bounds|
|00002220| 2e 72 69 67 68 74 3b 0d | 20 20 20 65 6e 64 3b 0d |.right;.|   end;.|
|00002230| 0d 6d 61 69 6e 77 69 6e | 64 6f 77 3a 3d 4e 65 77 |.mainwin|dow:=New|
|00002240| 57 69 6e 64 6f 77 28 6e | 69 6c 2c 77 62 6f 75 6e |Window(n|il,wboun|
|00002250| 64 73 2c 27 44 69 74 68 | 65 72 20 74 65 73 74 73 |ds,'Dith|er tests|
|00002260| 27 2c 74 72 75 65 2c 0d | 20 20 20 20 20 20 20 20 |',true,.|        |
|00002270| 64 62 6f 78 50 72 6f 63 | 2c 70 6f 69 6e 74 65 72 |dboxProc|,pointer|
|00002280| 28 2d 31 29 2c 66 61 6c | 73 65 2c 30 29 3b 0d 73 |(-1),fal|se,0);.s|
|00002290| 65 74 70 6f 72 74 28 6d | 61 69 6e 77 69 6e 64 6f |etport(m|ainwindo|
|000022a0| 77 29 3b 0d 67 65 74 66 | 6e 75 6d 28 27 4d 6f 6e |w);.getf|num('Mon|
|000022b0| 61 63 6f 27 2c 66 6f 6e | 74 6e 75 6d 29 3b 0d 74 |aco',fon|tnum);.t|
|000022c0| 65 78 74 66 6f 6e 74 28 | 66 6f 6e 74 6e 75 6d 29 |extfont(|fontnum)|
|000022d0| 3b 0d 74 65 78 74 73 69 | 7a 65 28 39 29 3b 0d 0d |;.textsi|ze(9);..|
|000022e0| 7b 65 72 72 6f 72 20 6d | 65 73 73 61 67 65 20 68 |{error m|essage h|
|000022f0| 61 6e 64 6c 65 72 20 66 | 6f 72 20 75 6e 69 74 73 |andler f|or units|
|00002300| 7d 0d 4e 65 77 28 63 75 | 73 74 6f 6d 5f 6d 65 73 |}.New(cu|stom_mes|
|00002310| 73 61 67 65 5f 76 61 72 | 29 3b 0d 6d 65 73 73 61 |sage_var|);.messa|
|00002320| 67 65 5f 69 6e 69 74 69 | 61 6c 69 7a 65 28 63 75 |ge_initi|alize(cu|
|00002330| 73 74 6f 6d 5f 6d 65 73 | 73 61 67 65 5f 76 61 72 |stom_mes|sage_var|
|00002340| 29 3b 0d 73 75 70 70 72 | 65 73 73 5f 64 65 62 75 |);.suppr|ess_debu|
|00002350| 67 5f 6d 65 73 73 61 67 | 65 73 3a 3d 74 72 75 65 |g_messag|es:=true|
|00002360| 3b 0d 0d 65 6e 64 3b 0d | 0d 62 65 67 69 6e 0d 69 |;..end;.|.begin.i|
|00002370| 6e 69 74 69 61 6c 69 7a | 65 3b 0d 73 68 6f 77 5f |nitializ|e;.show_|
|00002380| 68 65 61 64 65 72 3b 0d | 63 6f 70 79 5f 66 69 6c |header;.|copy_fil|
|00002390| 65 3b 0d 75 73 65 72 5f | 70 61 75 73 65 3b 0d 0d |e;.user_|pause;..|
|000023a0| 0d 0d 65 6e 64 2e 00 00 | 00 00 00 00 00 00 00 00 |..end...|........|
|000023b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000023c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000023d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000023e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000023f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002400| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00002410| 69 6e 0d 09 09 09 09 09 | 62 69 74 73 65 74 28 64 |in......|bitset(d|
|00002420| 65 73 74 2c 64 62 29 3b | 0d 09 09 09 09 65 6e 64 |est,db);|.....end|
|00002430| 0c 70 69 78 5f 74 72 61 | 6e 73 35 2e 70 2d 02 00 |.pix_tra|ns5.p-..|
|00002440| 00 00 54 45 58 54 4d 50 | 53 20 01 00 00 44 00 38 |..TEXTMP|S ...D.8|
|00002450| 00 00 54 45 58 54 4d 50 | 53 20 01 00 00 44 00 38 |..TEXTMP|S ...D.8|
|00002460| 00 00 45 65 00 00 00 00 | 00 00 00 00 00 00 00 00 |..Ee....|........|
|00002470| 00 00 a0 0f 82 24 00 00 | 23 26 00 00 01 7e 67 6f |.....$..|#&...~go|
|00002480| 74 6f 20 39 39 3b 0d 09 | 20 20 20 65 6e 64 3b 0d |to 99;..|   end;.|
|00002490| 09 20 64 62 3a 3d 64 62 | 2b 31 3b 0d 09 20 65 6e |. db:=db|+1;.. en|
|000024a0| 64 3b 0d 09 20 64 65 73 | 74 5f 69 74 65 6d 5f 63 |d;.. des|t_item_c|
|000024b0| 6f 75 6e 74 3a 3d 64 65 | 73 74 5f 69 74 65 6d 5f |ount:=de|st_item_|
|000024c0| 63 6f 75 6e 74 2b 31 3b | 0d 20 20 65 6e 64 3b 0d |count+1;|.  end;.|
|000024d0| 39 39 3a 7b 62 72 65 61 | 6b 6f 75 74 7d 0d 65 6e |99:{brea|kout}.en|
|000024e0| 64 3b 7b 70 72 6f 63 20 | 62 69 74 73 74 72 65 61 |d;{proc |bitstrea|
|000024f0| 6d 5f 70 61 63 6b 7d 0d | 0d 65 6e 64 2e 5f 6d 61 |m_pack}.|.end._ma|
|00002500| 00 00 00 48 00 0a 43 6f | 75 72 69 65 72 00 00 00 |...H..Co|urier...|
|00002510| 00 12 00 01 02 92 00 0a | 00 19 00 00 00 2f 01 d2 |........|...../..|
|00002520| 00 00 00 12 00 01 00 06 | 00 04 00 29 00 03 01 53 |........|...)...S|
|00002530| 01 fd 00 99 ff fe 01 56 | 01 fa a0 46 c5 d2 00 00 |.......V|...F....|
|00002540| 00 13 00 00 00 13 00 00 | 00 00 01 00 00 00 01 00 |........|........|
|00002550| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 02 2e b0 |...L...L|...2....|
|00002560| 03 ae 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.......2|..MPSR..|
|00002570| 00 0a 03 ed ff ff 00 00 | 00 00 00 03 30 3a 00 00 |........|....0:..|
+--------+-------------------------+-------------------------+--------+--------+