/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 3 / 3304

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 3a 20 77 6f | 6c 6c 6d 61 6e 40 65 6d |From: wo|llman@em|
|00000010| 69 6c 79 2e 75 76 6d 2e | 65 64 75 20 28 47 61 72 |ily.uvm.|edu (Gar|
|00000020| 72 65 74 74 20 57 6f 6c | 6c 6d 61 6e 29 0a 4e 65 |rett Wol|lman).Ne|
|00000030| 77 73 67 72 6f 75 70 73 | 3a 20 63 6f 6d 70 2e 73 |wsgroups|: comp.s|
|00000040| 79 73 2e 73 67 69 2c 61 | 6c 74 2e 73 6f 75 72 63 |ys.sgi,a|lt.sourc|
|00000050| 65 73 0a 53 75 62 6a 65 | 63 74 3a 20 70 70 6d 74 |es.Subje|ct: ppmt|
|00000060| 6f 69 72 69 73 20 2d 20 | 63 6f 6e 76 65 72 74 20 |oiris - |convert |
|00000070| 50 50 4d 20 66 69 6c 65 | 73 20 74 6f 20 49 6d 61 |PPM file|s to Ima|
|00000080| 67 65 6c 69 62 20 52 47 | 42 20 66 6f 72 6d 61 74 |gelib RG|B format|
|00000090| 0a 4d 65 73 73 61 67 65 | 2d 49 44 3a 20 3c 31 39 |.Message|-ID: <19|
|000000a0| 39 31 4d 61 79 38 2e 31 | 34 35 39 30 37 2e 31 33 |91May8.1|45907.13|
|000000b0| 38 30 36 40 75 76 6d 2e | 65 64 75 3e 0a 44 61 74 |806@uvm.|edu>.Dat|
|000000c0| 65 3a 20 38 20 4d 61 79 | 20 39 31 20 31 34 3a 35 |e: 8 May| 91 14:5|
|000000d0| 39 3a 30 37 20 47 4d 54 | 0a 0a 48 65 72 65 20 69 |9:07 GMT|..Here i|
|000000e0| 73 20 61 20 70 72 6f 67 | 72 61 6d 20 49 20 77 72 |s a prog|ram I wr|
|000000f0| 6f 74 65 20 28 62 61 73 | 65 64 20 69 6e 20 74 68 |ote (bas|ed in th|
|00000100| 65 20 73 6b 65 6c 65 74 | 6f 6e 20 69 6e 20 34 64 |e skelet|on in 4d|
|00000110| 67 69 66 74 73 29 20 77 | 68 69 63 68 0a 72 65 61 |gifts) w|hich.rea|
|00000120| 64 73 20 69 6e 20 61 20 | 50 50 4d 20 66 69 6c 65 |ds in a |PPM file|
|00000130| 20 61 6e 64 20 77 72 69 | 74 65 73 20 6f 75 74 20 | and wri|tes out |
|00000140| 61 6e 20 49 6d 61 67 65 | 6c 69 62 20 66 69 6c 65 |an Image|lib file|
|00000150| 2e 20 20 4e 6f 74 65 20 | 74 68 61 74 20 74 68 69 |.  Note |that thi|
|00000160| 73 0a 69 73 20 73 6f 6d | 65 77 68 61 74 20 62 61 |s.is som|ewhat ba|
|00000170| 64 20 66 6f 72 6d 20 69 | 6e 20 74 68 61 74 20 69 |d form i|n that i|
|00000180| 74 20 64 6f 65 73 6e 27 | 74 20 72 65 61 64 20 66 |t doesn'|t read f|
|00000190| 72 6f 6d 20 74 68 65 20 | 73 74 61 6e 64 61 72 64 |rom the |standard|
|000001a0| 20 69 6e 70 75 74 0a 6c | 69 6b 65 20 6d 6f 73 74 | input.l|ike most|
|000001b0| 20 50 42 4d 50 4c 55 53 | 20 75 74 69 6c 69 74 69 | PBMPLUS| utiliti|
|000001c0| 65 73 2e 20 20 50 6f 73 | 73 69 62 6c 79 20 6f 74 |es.  Pos|sibly ot|
|000001d0| 68 65 72 20 70 65 6f 70 | 6c 65 20 68 61 76 65 20 |her peop|le have |
|000001e0| 77 72 69 74 74 65 6e 0a | 73 69 6d 69 6c 61 72 20 |written.|similar |
|000001f0| 75 74 69 6c 69 74 69 65 | 73 3b 20 74 68 65 20 72 |utilitie|s; the r|
|00000200| 65 61 73 6f 6e 20 49 20 | 77 72 6f 74 65 20 74 68 |eason I |wrote th|
|00000210| 69 73 20 6f 6e 65 20 69 | 73 20 62 65 63 61 75 73 |is one i|s becaus|
|00000220| 65 20 74 68 65 0a 66 72 | 6f 6d 74 61 72 67 61 20 |e the.fr|omtarga |
|00000230| 70 72 6f 67 72 61 6d 20 | 64 6f 65 73 6e 27 74 20 |program |doesn't |
|00000240| 75 6e 64 65 72 73 74 61 | 6e 64 20 54 41 52 47 41 |understa|nd TARGA|
|00000250| 2d 31 36 20 66 69 6c 65 | 73 20 67 65 6e 65 72 61 |-16 file|s genera|
|00000260| 74 65 64 20 62 79 20 6f | 6c 64 65 72 0a 76 65 72 |ted by o|lder.ver|
|00000270| 73 69 6f 6e 73 20 6f 66 | 20 46 72 61 63 74 69 6e |sions of| Fractin|
|00000280| 74 2e 20 20 55 73 65 20 | 69 74 20 61 73 20 79 6f |t.  Use |it as yo|
|00000290| 75 20 77 69 6c 6c 3b 20 | 49 27 76 65 20 66 6f 75 |u will; |I've fou|
|000002a0| 6e 64 20 74 68 61 74 20 | 69 74 20 77 6f 72 6b 73 |nd that |it works|
|000002b0| 0a 6e 69 63 65 6c 79 20 | 66 6f 72 20 62 6f 74 68 |.nicely |for both|
|000002c0| 20 50 50 4d 73 20 61 6e | 64 20 50 47 4d 73 2e 20 | PPMs an|d PGMs. |
|000002d0| 20 49 6e 20 70 61 72 74 | 69 63 75 6c 61 72 2c 20 | In part|icular, |
|000002e0| 49 20 68 61 76 65 20 75 | 73 65 64 20 69 74 20 74 |I have u|sed it t|
|000002f0| 6f 0a 63 6f 6e 76 65 72 | 74 20 54 61 72 67 61 2c |o.conver|t Targa,|
|00000300| 20 47 69 66 2c 20 61 6e | 64 20 46 49 54 53 20 28 | Gif, an|d FITS (|
|00000310| 61 73 74 72 6f 6e 6f 6d | 69 63 61 6c 29 20 69 6d |astronom|ical) im|
|00000320| 61 67 65 73 20 66 6f 72 | 20 64 69 73 70 6c 61 79 |ages for| display|
|00000330| 2e 20 20 53 6f 6d 65 0a | 6f 66 20 74 68 65 20 4d |.  Some.|of the M|
|00000340| 61 67 65 6c 6c 61 6e 20 | 70 69 63 74 75 72 65 73 |agellan |pictures|
|00000350| 20 61 74 20 4e 41 53 41 | 20 41 6d 65 73 20 6d 61 | at NASA| Ames ma|
|00000360| 6b 65 20 6e 69 63 65 20 | 72 6f 6f 74 73 21 0a 0a |ke nice |roots!..|
|00000370| 2d 47 41 57 6f 6c 6c 6d | 61 6e 0a 0a 23 21 20 2f |-GAWollm|an..#! /|
|00000380| 62 69 6e 2f 73 68 0a 23 | 20 54 68 69 73 20 69 73 |bin/sh.#| This is|
|00000390| 20 61 20 73 68 65 6c 6c | 20 61 72 63 68 69 76 65 | a shell| archive|
|000003a0| 2e 20 20 52 65 6d 6f 76 | 65 20 61 6e 79 74 68 69 |.  Remov|e anythi|
|000003b0| 6e 67 20 62 65 66 6f 72 | 65 20 74 68 69 73 20 6c |ng befor|e this l|
|000003c0| 69 6e 65 2c 20 74 68 65 | 6e 20 75 6e 70 61 63 6b |ine, the|n unpack|
|000003d0| 0a 23 20 69 74 20 62 79 | 20 73 61 76 69 6e 67 20 |.# it by| saving |
|000003e0| 69 74 20 69 6e 74 6f 20 | 61 20 66 69 6c 65 20 61 |it into |a file a|
|000003f0| 6e 64 20 74 79 70 69 6e | 67 20 22 73 68 20 66 69 |nd typin|g "sh fi|
|00000400| 6c 65 22 2e 20 20 54 6f | 20 6f 76 65 72 77 72 69 |le".  To| overwri|
|00000410| 74 65 20 65 78 69 73 74 | 69 6e 67 0a 23 20 66 69 |te exist|ing.# fi|
|00000420| 6c 65 73 2c 20 74 79 70 | 65 20 22 73 68 20 66 69 |les, typ|e "sh fi|
|00000430| 6c 65 20 2d 63 22 2e 20 | 20 59 6f 75 20 63 61 6e |le -c". | You can|
|00000440| 20 61 6c 73 6f 20 66 65 | 65 64 20 74 68 69 73 20 | also fe|ed this |
|00000450| 61 73 20 73 74 61 6e 64 | 61 72 64 20 69 6e 70 75 |as stand|ard inpu|
|00000460| 74 20 76 69 61 0a 23 20 | 75 6e 73 68 61 72 2c 20 |t via.# |unshar, |
|00000470| 6f 72 20 62 79 20 74 79 | 70 69 6e 67 20 22 73 68 |or by ty|ping "sh|
|00000480| 20 3c 66 69 6c 65 22 2c | 20 65 2e 67 2e 2e 20 20 | <file",| e.g..  |
|00000490| 49 66 20 74 68 69 73 20 | 61 72 63 68 69 76 65 20 |If this |archive |
|000004a0| 69 73 20 63 6f 6d 70 6c | 65 74 65 2c 20 79 6f 75 |is compl|ete, you|
|000004b0| 0a 23 20 77 69 6c 6c 20 | 73 65 65 20 74 68 65 20 |.# will |see the |
|000004c0| 66 6f 6c 6c 6f 77 69 6e | 67 20 6d 65 73 73 61 67 |followin|g messag|
|000004d0| 65 20 61 74 20 74 68 65 | 20 65 6e 64 3a 0a 23 09 |e at the| end:.#.|
|000004e0| 09 22 45 6e 64 20 6f 66 | 20 73 68 65 6c 6c 20 61 |."End of| shell a|
|000004f0| 72 63 68 69 76 65 2e 22 | 0a 23 20 43 6f 6e 74 65 |rchive."|.# Conte|
|00000500| 6e 74 73 3a 20 20 70 70 | 6d 74 6f 69 72 69 73 2e |nts:  pp|mtoiris.|
|00000510| 63 0a 23 20 57 72 61 70 | 70 65 64 20 62 79 20 77 |c.# Wrap|ped by w|
|00000520| 6f 6c 6c 6d 61 6e 40 65 | 6d 69 6c 79 20 6f 6e 20 |ollman@e|mily on |
|00000530| 57 65 64 20 4d 61 79 20 | 20 38 20 30 39 3a 31 38 |Wed May | 8 09:18|
|00000540| 3a 30 35 20 31 39 39 31 | 0a 50 41 54 48 3d 2f 62 |:05 1991|.PATH=/b|
|00000550| 69 6e 3a 2f 75 73 72 2f | 62 69 6e 3a 2f 75 73 72 |in:/usr/|bin:/usr|
|00000560| 2f 75 63 62 20 3b 20 65 | 78 70 6f 72 74 20 50 41 |/ucb ; e|xport PA|
|00000570| 54 48 0a 69 66 20 74 65 | 73 74 20 2d 66 20 27 70 |TH.if te|st -f 'p|
|00000580| 70 6d 74 6f 69 72 69 73 | 2e 63 27 20 2d 61 20 22 |pmtoiris|.c' -a "|
|00000590| 24 7b 31 7d 22 20 21 3d | 20 22 2d 63 22 20 3b 20 |${1}" !=| "-c" ; |
|000005a0| 74 68 65 6e 20 0a 20 20 | 65 63 68 6f 20 73 68 61 |then .  |echo sha|
|000005b0| 72 3a 20 57 69 6c 6c 20 | 6e 6f 74 20 63 6c 6f 62 |r: Will |not clob|
|000005c0| 62 65 72 20 65 78 69 73 | 74 69 6e 67 20 66 69 6c |ber exis|ting fil|
|000005d0| 65 20 5c 22 27 70 70 6d | 74 6f 69 72 69 73 2e 63 |e \"'ppm|toiris.c|
|000005e0| 27 5c 22 0a 65 6c 73 65 | 0a 65 63 68 6f 20 73 68 |'\".else|.echo sh|
|000005f0| 61 72 3a 20 45 78 74 72 | 61 63 74 69 6e 67 20 5c |ar: Extr|acting \|
|00000600| 22 27 70 70 6d 74 6f 69 | 72 69 73 2e 63 27 5c 22 |"'ppmtoi|ris.c'\"|
|00000610| 20 5c 28 31 38 38 37 20 | 63 68 61 72 61 63 74 65 | \(1887 |characte|
|00000620| 72 73 5c 29 0a 73 65 64 | 20 22 73 2f 5e 58 2f 2f |rs\).sed| "s/^X//|
|00000630| 22 20 3e 27 70 70 6d 74 | 6f 69 72 69 73 2e 63 27 |" >'ppmt|oiris.c'|
|00000640| 20 3c 3c 27 45 4e 44 5f | 4f 46 5f 46 49 4c 45 27 | <<'END_|OF_FILE'|
|00000650| 0a 58 2f 2a 20 42 41 53 | 45 44 20 4f 4e 2e 2e 2e |.X/* BAS|ED ON...|
|00000660| 20 2a 2f 0a 58 2f 2a 0a | 58 20 2a 09 77 72 69 74 | */.X/*.|X *.writ|
|00000670| 65 69 6d 67 20 2d 0a 58 | 20 2a 09 09 57 72 69 74 |eimg -.X| *..Writ|
|00000680| 65 20 6f 75 74 20 61 6e | 20 52 47 42 20 69 6d 61 |e out an| RGB ima|
|00000690| 67 65 20 66 69 6c 65 2e | 20 20 54 68 69 73 20 65 |ge file.|  This e|
|000006a0| 78 61 6d 70 6c 65 20 75 | 73 65 73 20 74 68 72 65 |xample u|ses thre|
|000006b0| 65 20 66 75 6e 63 74 69 | 6f 6e 73 0a 58 20 2a 09 |e functi|ons.X *.|
|000006c0| 66 72 6f 6d 20 74 68 65 | 20 69 6d 61 67 65 20 6c |from the| image l|
|000006d0| 69 62 72 61 72 79 3a 20 | 0a 58 20 2a 0a 58 20 2a |ibrary: |.X *.X *|
|000006e0| 09 09 69 6f 70 65 6e 2c | 20 70 75 74 72 6f 77 2c |..iopen,| putrow,|
|000006f0| 20 61 6e 64 20 69 63 6c | 6f 73 65 2e 09 0a 58 20 | and icl|ose...X |
|00000700| 2a 0a 58 20 2a 20 09 54 | 68 65 20 66 75 6e 63 74 |*.X * .T|he funct|
|00000710| 69 6f 6e 20 69 6f 70 65 | 6e 20 69 73 20 63 61 6c |ion iope|n is cal|
|00000720| 6c 65 64 20 74 6f 20 64 | 65 73 63 72 69 62 65 20 |led to d|escribe |
|00000730| 74 68 65 20 78 73 69 7a | 65 20 61 6e 64 20 79 73 |the xsiz|e and ys|
|00000740| 69 7a 65 20 6f 66 20 74 | 68 65 20 0a 58 20 2a 09 |ize of t|he .X *.|
|00000750| 52 47 42 20 69 6d 61 67 | 65 20 74 6f 20 62 65 20 |RGB imag|e to be |
|00000760| 77 72 69 74 74 65 6e 20 | 6f 75 74 2e 20 20 0a 58 |written |out.  .X|
|00000770| 20 2a 0a 58 20 2a 09 54 | 68 65 20 66 75 6e 63 74 | *.X *.T|he funct|
|00000780| 69 6f 6e 20 70 75 74 72 | 6f 77 20 77 72 69 74 65 |ion putr|ow write|
|00000790| 73 20 61 20 72 6f 77 20 | 6f 66 20 69 6d 61 67 65 |s a row |of image|
|000007a0| 20 64 61 74 61 20 74 6f | 20 74 68 65 20 69 6d 61 | data to| the ima|
|000007b0| 67 65 20 66 69 6c 65 2e | 20 49 74 20 69 73 0a 58 |ge file.| It is.X|
|000007c0| 20 2a 09 63 61 6c 6c 65 | 64 20 77 69 74 68 20 61 | *.calle|d with a|
|000007d0| 6e 20 61 72 72 61 79 20 | 6f 66 20 73 68 6f 72 74 |n array |of short|
|000007e0| 73 20 77 69 74 68 20 76 | 61 6c 75 65 73 20 69 6e |s with v|alues in|
|000007f0| 20 74 68 65 20 72 61 6e | 67 65 20 5b 30 2e 2e 32 | the ran|ge [0..2|
|00000800| 35 35 5d 2e 0a 58 20 2a | 09 0a 58 20 2a 09 54 68 |55]..X *|..X *.Th|
|00000810| 65 20 66 75 6e 63 74 69 | 6f 6e 20 69 63 6c 6f 73 |e functi|on iclos|
|00000820| 65 20 69 73 20 63 61 6c | 6c 65 64 20 74 6f 20 63 |e is cal|led to c|
|00000830| 6c 6f 73 65 20 74 68 65 | 20 69 6d 61 67 65 20 66 |lose the| image f|
|00000840| 69 6c 65 2e 0a 58 20 2a | 0a 58 20 2a 09 57 68 79 |ile..X *|.X *.Why|
|00000850| 20 6e 6f 74 20 6d 6f 64 | 69 66 79 20 74 68 69 73 | not mod|ify this|
|00000860| 20 70 72 6f 67 72 61 6d | 20 74 6f 20 62 65 20 61 | program| to be a|
|00000870| 20 66 69 6c 74 65 72 20 | 74 68 61 74 20 63 6f 6e | filter |that con|
|00000880| 76 65 72 74 73 20 66 72 | 6f 6d 20 79 6f 75 72 20 |verts fr|om your |
|00000890| 6f 77 6e 0a 58 20 2a 09 | 69 6d 61 67 65 20 66 69 |own.X *.|image fi|
|000008a0| 6c 65 20 66 6f 72 6d 61 | 74 20 74 6f 20 49 52 49 |le forma|t to IRI|
|000008b0| 53 20 69 6d 61 67 65 73 | 3f 20 0a 58 20 2a 0a 58 |S images|? .X *.X|
|000008c0| 20 2a 09 09 09 09 50 61 | 75 6c 20 48 61 65 62 65 | *....Pa|ul Haebe|
|000008d0| 72 6c 69 20 2d 20 31 39 | 38 37 0a 58 20 2a 0a 58 |rli - 19|87.X *.X|
|000008e0| 20 2a 2f 0a 58 0a 58 2f | 2a 0a 58 20 2a 20 70 70 | */.X.X/|*.X * pp|
|000008f0| 6d 74 6f 69 72 69 73 20 | 2d 20 47 61 72 72 65 74 |mtoiris |- Garret|
|00000900| 74 20 41 2e 20 57 6f 6c | 6c 6d 61 6e 20 2d 20 77 |t A. Wol|lman - w|
|00000910| 6f 6c 6c 6d 61 6e 40 6e | 65 77 74 6f 6e 20 2d 20 |ollman@n|ewton - |
|00000920| 4a 61 6e 75 61 72 79 20 | 31 39 39 31 0a 58 20 2a |January |1991.X *|
|00000930| 20 61 6c 73 6f 20 62 61 | 73 65 64 20 6f 6e 20 70 | also ba|sed on p|
|00000940| 70 6d 63 73 63 61 6c 65 | 2e 63 20 62 79 20 4a 65 |pmcscale|.c by Je|
|00000950| 66 20 50 6f 73 6b 61 6e | 7a 65 72 20 28 43 6f 70 |f Poskan|zer (Cop|
|00000960| 79 72 69 67 68 74 20 31 | 39 38 39 29 0a 58 20 2a |yright 1|989).X *|
|00000970| 0a 58 20 2a 20 43 6f 6e | 76 65 72 74 20 61 20 50 |.X * Con|vert a P|
|00000980| 6f 72 74 61 62 6c 65 20 | 50 69 78 65 6c 4d 61 70 |ortable |PixelMap|
|00000990| 20 74 6f 20 49 72 69 73 | 20 66 6f 72 6d 61 74 2e | to Iris| format.|
|000009a0| 0a 58 20 2a 2f 0a 58 0a | 58 23 69 6e 63 6c 75 64 |.X */.X.|X#includ|
|000009b0| 65 20 3c 73 74 64 69 6f | 2e 68 3e 0a 58 23 69 6e |e <stdio|.h>.X#in|
|000009c0| 63 6c 75 64 65 20 22 70 | 70 6d 2e 68 22 0a 58 23 |clude "p|pm.h".X#|
|000009d0| 69 6e 63 6c 75 64 65 20 | 22 69 6d 61 67 65 2e 68 |include |"image.h|
|000009e0| 22 0a 58 0a 75 6e 73 69 | 67 6e 65 64 20 73 68 6f |".X.unsi|gned sho|
|000009f0| 72 74 20 72 62 75 66 5b | 34 30 39 36 5d 3b 0a 75 |rt rbuf[|4096];.u|
|00000a00| 6e 73 69 67 6e 65 64 20 | 73 68 6f 72 74 20 67 62 |nsigned |short gb|
|00000a10| 75 66 5b 34 30 39 36 5d | 3b 0a 75 6e 73 69 67 6e |uf[4096]|;.unsign|
|00000a20| 65 64 20 73 68 6f 72 74 | 20 62 62 75 66 5b 34 30 |ed short| bbuf[40|
|00000a30| 39 36 5d 3b 0a 58 0a 6d | 61 69 6e 28 61 72 67 63 |96];.X.m|ain(argc|
|00000a40| 2c 61 72 67 76 29 0a 69 | 6e 74 20 61 72 67 63 3b |,argv).i|nt argc;|
|00000a50| 0a 63 68 61 72 20 2a 2a | 61 72 67 76 3b 0a 58 7b |.char **|argv;.X{|
|00000a60| 0a 58 20 20 20 20 49 4d | 41 47 45 20 2a 69 6d 61 |.X    IM|AGE *ima|
|00000a70| 67 65 3b 0a 58 20 20 20 | 20 46 49 4c 45 20 2a 69 |ge;.X   | FILE *i|
|00000a80| 66 64 3b 0a 58 20 20 20 | 20 72 65 67 69 73 74 65 |fd;.X   | registe|
|00000a90| 72 20 70 69 78 65 6c 20 | 2a 70 69 78 65 6c 72 6f |r pixel |*pixelro|
|00000aa0| 77 2c 20 2a 70 50 3b 0a | 58 20 20 20 20 69 6e 74 |w, *pP;.|X    int|
|00000ab0| 20 72 6f 77 73 2c 63 6f | 6c 73 2c 66 6f 72 6d 61 | rows,co|ls,forma|
|00000ac0| 74 2c 72 6f 77 3b 0a 58 | 20 20 20 20 72 65 67 69 |t,row;.X|    regi|
|00000ad0| 73 74 65 72 20 69 6e 74 | 20 63 6f 6c 3b 0a 58 20 |ster int| col;.X |
|00000ae0| 20 20 20 70 69 78 76 61 | 6c 20 6d 61 78 76 61 6c |   pixva|l maxval|
|00000af0| 3b 0a 58 20 20 20 20 69 | 6e 74 20 69 3b 0a 58 0a |;.X    i|nt i;.X.|
|00000b00| 58 20 20 20 20 70 6d 5f | 70 72 6f 67 6e 61 6d 65 |X    pm_|progname|
|00000b10| 20 3d 20 61 72 67 76 5b | 30 5d 3b 0a 58 20 20 20 | = argv[|0];.X   |
|00000b20| 20 69 66 28 61 72 67 63 | 3c 33 29 20 7b 0a 58 09 | if(argc|<3) {.X.|
|00000b30| 66 70 72 69 6e 74 66 28 | 73 74 64 65 72 72 2c 22 |fprintf(|stderr,"|
|00000b40| 75 73 61 67 65 20 70 70 | 6d 74 6f 69 72 69 73 20 |usage pp|mtoiris |
|00000b50| 69 6e 20 6f 75 74 5c 6e | 22 29 3b 0a 58 09 65 78 |in out\n|");.X.ex|
|00000b60| 69 74 28 31 29 3b 0a 58 | 20 20 20 20 7d 0a 58 20 |it(1);.X|    }.X |
|00000b70| 20 20 20 0a 58 20 20 20 | 20 69 66 64 20 3d 20 70 |   .X   | ifd = p|
|00000b80| 6d 5f 6f 70 65 6e 72 28 | 61 72 67 76 5b 31 5d 29 |m_openr(|argv[1])|
|00000b90| 3b 0a 58 20 20 20 20 0a | 58 20 20 20 20 70 70 6d |;.X    .|X    ppm|
|00000ba0| 5f 72 65 61 64 70 70 6d | 69 6e 69 74 28 69 66 64 |_readppm|init(ifd|
|00000bb0| 2c 26 63 6f 6c 73 2c 26 | 72 6f 77 73 2c 26 6d 61 |,&cols,&|rows,&ma|
|00000bc0| 78 76 61 6c 2c 26 66 6f | 72 6d 61 74 29 3b 0a 58 |xval,&fo|rmat);.X|
|00000bd0| 20 20 20 20 70 69 78 65 | 6c 72 6f 77 20 3d 20 70 |    pixe|lrow = p|
|00000be0| 70 6d 5f 61 6c 6c 6f 63 | 72 6f 77 28 63 6f 6c 73 |pm_alloc|row(cols|
|00000bf0| 29 3b 0a 58 0a 58 20 20 | 20 20 69 6d 61 67 65 20 |);.X.X  |  image |
|00000c00| 3d 20 69 6f 70 65 6e 28 | 61 72 67 76 5b 32 5d 2c |= iopen(|argv[2],|
|00000c10| 22 77 22 2c 52 4c 45 28 | 31 29 2c 33 2c 63 6f 6c |"w",RLE(|1),3,col|
|00000c20| 73 2c 72 6f 77 73 2c 33 | 29 3b 0a 58 20 20 20 20 |s,rows,3|);.X    |
|00000c30| 66 6f 72 20 28 72 6f 77 | 3d 30 3b 20 72 6f 77 3c |for (row|=0; row<|
|00000c40| 72 6f 77 73 3b 20 72 6f | 77 2b 2b 29 20 7b 0a 58 |rows; ro|w++) {.X|
|00000c50| 20 20 20 20 20 20 70 70 | 6d 5f 72 65 61 64 70 70 |      pp|m_readpp|
|00000c60| 6d 72 6f 77 28 69 66 64 | 2c 70 69 78 65 6c 72 6f |mrow(ifd|,pixelro|
|00000c70| 77 2c 63 6f 6c 73 2c 6d | 61 78 76 61 6c 2c 66 6f |w,cols,m|axval,fo|
|00000c80| 72 6d 61 74 29 3b 0a 58 | 20 20 20 20 20 20 66 6f |rmat);.X|      fo|
|00000c90| 72 28 63 6f 6c 20 3d 20 | 30 2c 20 70 50 20 3d 20 |r(col = |0, pP = |
|00000ca0| 70 69 78 65 6c 72 6f 77 | 3b 20 63 6f 6c 20 3c 20 |pixelrow|; col < |
|00000cb0| 63 6f 6c 73 3b 20 63 6f | 6c 2b 2b 2c 70 50 2b 2b |cols; co|l++,pP++|
|00000cc0| 29 20 7b 0a 58 09 72 62 | 75 66 5b 63 6f 6c 5d 20 |) {.X.rb|uf[col] |
|00000cd0| 3d 20 50 50 4d 5f 47 45 | 54 52 28 2a 70 50 29 3b |= PPM_GE|TR(*pP);|
|00000ce0| 0a 58 09 67 62 75 66 5b | 63 6f 6c 5d 20 3d 20 50 |.X.gbuf[|col] = P|
|00000cf0| 50 4d 5f 47 45 54 47 28 | 2a 70 50 29 3b 0a 58 09 |PM_GETG(|*pP);.X.|
|00000d00| 62 62 75 66 5b 63 6f 6c | 5d 20 3d 20 50 50 4d 5f |bbuf[col|] = PPM_|
|00000d10| 47 45 54 42 28 2a 70 50 | 29 3b 0a 58 20 20 20 20 |GETB(*pP|);.X    |
|00000d20| 20 20 7d 0a 58 20 20 20 | 20 20 20 70 75 74 72 6f |  }.X   |   putro|
|00000d30| 77 28 69 6d 61 67 65 2c | 72 62 75 66 2c 72 6f 77 |w(image,|rbuf,row|
|00000d40| 2c 30 29 3b 09 09 2f 2a | 20 72 65 64 20 72 6f 77 |,0);../*| red row|
|00000d50| 20 2a 2f 0a 58 20 20 20 | 20 20 20 70 75 74 72 6f | */.X   |   putro|
|00000d60| 77 28 69 6d 61 67 65 2c | 67 62 75 66 2c 72 6f 77 |w(image,|gbuf,row|
|00000d70| 2c 31 29 3b 09 09 2f 2a | 20 67 72 65 65 6e 20 72 |,1);../*| green r|
|00000d80| 6f 77 20 2a 2f 0a 58 20 | 20 20 20 20 20 70 75 74 |ow */.X |     put|
|00000d90| 72 6f 77 28 69 6d 61 67 | 65 2c 62 62 75 66 2c 72 |row(imag|e,bbuf,r|
|00000da0| 6f 77 2c 32 29 3b 09 09 | 2f 2a 20 62 6c 75 65 20 |ow,2);..|/* blue |
|00000db0| 72 6f 77 20 2a 2f 0a 58 | 20 20 20 20 7d 0a 58 20 |row */.X|    }.X |
|00000dc0| 20 20 20 69 63 6c 6f 73 | 65 28 69 6d 61 67 65 29 |   iclos|e(image)|
|00000dd0| 3b 0a 58 20 20 20 20 70 | 6d 5f 63 6c 6f 73 65 28 |;.X    p|m_close(|
|00000de0| 69 66 64 29 3b 0a 58 20 | 20 20 20 65 78 69 74 28 |ifd);.X |   exit(|
|00000df0| 30 29 3b 0a 58 7d 0a 45 | 4e 44 5f 4f 46 5f 46 49 |0);.X}.E|ND_OF_FI|
|00000e00| 4c 45 0a 69 66 20 74 65 | 73 74 20 31 38 38 37 20 |LE.if te|st 1887 |
|00000e10| 2d 6e 65 20 60 77 63 20 | 2d 63 20 3c 27 70 70 6d |-ne `wc |-c <'ppm|
|00000e20| 74 6f 69 72 69 73 2e 63 | 27 60 3b 20 74 68 65 6e |toiris.c|'`; then|
|00000e30| 0a 20 20 20 20 65 63 68 | 6f 20 73 68 61 72 3a 20 |.    ech|o shar: |
|00000e40| 5c 22 27 70 70 6d 74 6f | 69 72 69 73 2e 63 27 5c |\"'ppmto|iris.c'\|
|00000e50| 22 20 75 6e 70 61 63 6b | 65 64 20 77 69 74 68 20 |" unpack|ed with |
|00000e60| 77 72 6f 6e 67 20 73 69 | 7a 65 21 0a 66 69 0a 23 |wrong si|ze!.fi.#|
|00000e70| 20 65 6e 64 20 6f 66 20 | 27 70 70 6d 74 6f 69 72 | end of |'ppmtoir|
|00000e80| 69 73 2e 63 27 0a 66 69 | 0a 65 63 68 6f 20 73 68 |is.c'.fi|.echo sh|
|00000e90| 61 72 3a 20 45 6e 64 20 | 6f 66 20 73 68 65 6c 6c |ar: End |of shell|
|00000ea0| 20 61 72 63 68 69 76 65 | 2e 0a 65 78 69 74 20 30 | archive|..exit 0|
|00000eb0| 0a 0a 47 61 72 72 65 74 | 74 20 41 2e 20 57 6f 6c |..Garret|t A. Wol|
|00000ec0| 6c 6d 61 6e 20 2d 20 77 | 6f 6c 6c 6d 61 6e 40 65 |lman - w|ollman@e|
|00000ed0| 6d 69 6c 79 2e 75 76 6d | 2e 65 64 75 0a 0a 44 69 |mily.uvm|.edu..Di|
|00000ee0| 73 63 6c 61 69 6d 65 72 | 3a 20 20 49 27 6d 20 6e |sclaimer|:  I'm n|
|00000ef0| 6f 74 20 65 76 65 6e 20 | 73 75 72 65 20 74 68 69 |ot even |sure thi|
|00000f00| 73 20 72 65 70 72 65 73 | 65 6e 74 73 20 2a 6d 79 |s repres|ents *my|
|00000f10| 2a 20 6f 70 69 6e 69 6f | 6e 2c 20 6e 65 76 65 72 |* opinio|n, never|
|00000f20| 0a 6d 69 6e 64 20 55 56 | 4d 27 73 2c 20 45 4d 42 |.mind UV|M's, EMB|
|00000f30| 41 27 73 2c 20 45 4d 42 | 41 2d 43 46 27 73 2c 20 |A's, EMB|A-CF's, |
|00000f40| 6f 72 20 69 6e 64 65 65 | 64 20 61 6e 79 6f 6e 65 |or indee|d anyone|
|00000f50| 20 65 6c 73 65 27 73 2e | 0a                      | else's.|.       |
+--------+-------------------------+-------------------------+--------+--------+