00000000
00000018
00000030
00000048
00000060
00000078
00000090
000000A8
000000C0
000000D8
000000F0
00000108
00000120
00000138
00000150
00000168
00000180
00000198
000001B0
000001C8
000001E0
000001F8
00000210
00000228
00000240
00000258
00000270
00000288
000002A0
000002B8
000002D0
000002E8
00000300
00000318
00000330
00000348
00000360
00000378
00000390
| 23 21 2F 75 73 72 2F 62 69 6E 2F 70 65 72 6C 20 2D 77 0A 23 23 23 23 23
23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23
23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23
23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23
23 0A 23 20 20 54 68 69 73 20 69 73 20 6E 6F 74 68 69 6E 67 20 62 75 74
20 61 20 63 6F 6D 70 61 74 69 62 69 6C 69 74 79 20 69 6E 74 65 72 66 61
63 65 20 66 6F 72 20 50 6E 6D 71 75 61 6E 74 2E 0A 23 20 20 41 6E 20 6F
6C 64 20 70 72 6F 67 72 61 6D 20 63 6F 64 65 64 20 74 6F 20 63 61 6C 6C
20 50 70 6D 71 75 61 6E 74 20 77 69 6C 6C 20 63 6F 6E 74 69 6E 75 65 20
77 6F 72 6B 69 6E 67 20 62 65 63 61 75 73 65 0A 23 20 20 74 68 69 73 20
69 6E 74 65 72 66 61 63 65 20 65 78 69 73 74 73 2E 20 20 41 6C 6C 20 6E
65 77 20 28 6F 72 20 6E 65 77 6C 79 20 6D 6F 64 69 66 69 65 64 29 20 70
72 6F 67 72 61 6D 73 20 73 68 6F 75 6C 64 0A 23 20 20 63 61 6C 6C 20 50
6E 6D 71 75 61 6E 74 20 6F 72 20 50 6E 6D 72 65 6D 61 70 20 69 6E 73 74
65 61 64 2E 0A 23 0A 23 20 20 49 6E 20 64 61 79 73 20 70 61 73 74 2C 20
50 6E 6D 71 75 61 6E 74 20 61 6E 64 20 50 6E 6D 72 65 6D 61 70 20 64 69
64 20 6E 6F 74 20 65 78 69 73 74 2E 20 20 50 70 6D 71 75 61 6E 74 20 64
69 64 0A 23 20 20 74 68 65 20 6A 6F 62 20 6F 66 20 62 6F 74 68 20 50 6E
6D 72 65 6D 61 70 20 61 6E 64 20 50 6E 6D 71 75 61 6E 74 2C 20 62 75 74
20 6F 6E 6C 79 20 6F 6E 20 50 50 4D 20 69 6D 61 67 65 73 2E 0A 23 23 23
23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23
23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23
23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23
23 23 23 0A 0A 75 73 65 20 73 74 72 69 63 74 3B 0A 0A 75 73 65 20 47 65
74 6F 70 74 3A 3A 4C 6F 6E 67 3B 0A 0A 6D 79 20 24 54 52 55 45 3D 31 3B
20 6D 79 20 24 46 41 4C 53 45 20 3D 20 30 3B 0A 0A 6D 79 20 40 70 70 6D
71 75 61 6E 74 41 72 67 76 20 3D 20 40 41 52 47 56 3B 0A 0A 47 65 74 6F
70 74 3A 3A 4C 6F 6E 67 3A 3A 43 6F 6E 66 69 67 75 72 65 28 27 70 61 73
73 5F 74 68 72 6F 75 67 68 27 29 3B 0A 0A 6D 79 20 24 76 61 6C 69 64 4F
70 74 69 6F 6E 73 20 3D 20 47 65 74 4F 70 74 69 6F 6E 73 28 27 6D 61 70
66 69 6C 65 27 20 3D 3E 20 5C 6D 79 20 24 6D 61 70 66 69 6C 65 6F 70 74
29 3B 0A 0A 6D 79 20 24 6D 61 70 66 69 6C 65 4F 70 74 69 6F 6E 50 72 65
73 65 6E 74 20 3D 20 28 24 76 61 6C 69 64 4F 70 74 69 6F 6E 73 20 26 26
20 24 6D 61 70 66 69 6C 65 6F 70 74 29 3B 0A 0A 69 66 20 28 24 6D 61 70
66 69 6C 65 4F 70 74 69 6F 6E 50 72 65 73 65 6E 74 29 20 7B 0A 20 20 20
20 73 79 73 74 65 6D 28 27 70 6E 6D 72 65 6D 61 70 27 2C 20 40 70 70 6D
71 75 61 6E 74 41 72 67 76 29 3B 0A 7D 20 65 6C 73 65 20 7B 0A 20 20 20
20 73 79 73 74 65 6D 28 27 70 6E 6D 71 75 61 6E 74 27 2C 20 40 70 70 6D
71 75 61 6E 74 41 72 67 76 29 3B 0A 7D 0A | #!/usr/bin/perl -w #####
########################
########################
########################
# # This is nothing but
a compatibility interfa
ce for Pnmquant. # An o
ld program coded to call
Ppmquant will continue
working because # this
interface exists. All n
ew (or newly modified) p
rograms should # call P
nmquant or Pnmremap inst
ead. # # In days past,
Pnmquant and Pnmremap di
d not exist. Ppmquant d
id # the job of both Pn
mremap and Pnmquant, but
only on PPM images. ###
########################
########################
########################
### use strict; use Ge
topt::Long; my $TRUE=1;
my $FALSE = 0; my @ppm
quantArgv = @ARGV; Geto
pt::Long::Configure('pas
s_through'); my $validO
ptions = GetOptions('map
file' => \my $mapfileopt
); my $mapfileOptionPre
sent = ($validOptions &&
$mapfileopt); if ($map
fileOptionPresent) {
system('pnmremap', @ppm
quantArgv); } else {
system('pnmquant', @ppm
quantArgv); } |