1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
#!/usr/bin/perl
#
# Convert imagemagick text files to GAP matrices.
# (Thanks to Michael Orlitzky for improving this code.)
($file) = @ARGV;
# Read the last line of the file to obtain the dimensions of the
# matrix. We use "tail" for this because it would be inefficient to
# read all the way to the end of a large file just to obtain the first
# line of our output. It is assumed that "tail" can read backwards
# from the end of file efficiently.
#
# With ImageMagick, the dimensions are also contained in a comment on
# the first line of the file. With GraphicsMagick, however, there is
# no better way to obtain them than to look at the coordinates of the
# last pixel.
my $lastline = do {
open my $pipe, '-|', "tail", "-n 1", $file
or die "Can't spawn tail: $!\n";
<$pipe>;
};
@parts = split /(:|,)/, $lastline;
print("HAPAAA:=[\n ",$parts[0]+1,",",$parts[2]+1,",");
# Open the file and loop through it, reading each line into an array
# by splitting it on a few different separator characters.
open(INFO, $file);
while(<INFO>) {
# If this is an ImageMagick (not GraphicsMagick) file,
# skip the first line with the comment on it.
next if ( substr($_, 0, 1) eq "#" );
@parts = split m!(,|:|\(|\))!, $_;
# Format and print the array. We add one to the indices to convert
# them from zero-based (imagemagick) to one-based (gap). The
# separator characters also wind up in the array which is why the
# indices go up by two each time.
print(
"[",
1+$parts[0],
",",
1+$parts[2],
",",
$parts[6]+$parts[8]+$parts[10],
"],"
);
};
# Finally, print the end of the matrix, and close the input file.
print($my,"0];\n");
close(INFO);
|
