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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
#!/usr/bin/perl -T -w
# This is used to add life to life
# This is a QUICK hack to convert life files to xlock's life format.
# Patterns MUST have <= 64 pts at start for life.c to use the data generated
# Below is an example of a life file without the first initial #'s
# Call the file piston.life and run it like xlocklife.pl < piston.life
#piston.life
##P -10 -3 Treated as a comment, program finds own center
#..........*...........
#..........****........
#**.........****.......
#**.........*..*.....**
#...........****.....**
#..........****........
#..........*...........
local($PTS, $X, $Y);
print "
Drop these points in life.c, within the 'patterns' array.
Note if the number of points > 64, one must increase points NUMPTS;
also to fit most screens and especially the iconified window,
one should have the size < 32x32.\n\n";
&search;
print "\npoints = $PTS; size = ${X}x$Y\n";
sub search {
local ($row, $col, $firstrow, $firstcol);
local ($i, $j, $found, $c, $tempx, $tempy);
local (@array);
$row = $col = 0;
$firstrow = -1;
$firstcol = 80;
$PTS = $X = $Y = 0;
while (<>) {
if (!($_ =~ /^#/))
{
@chars = split(//);
$col = 0;
foreach $c (@chars) {
$col++;
if ($c =~ /[\*0Oo]/) {
if ($firstrow < 0) {
$row = $firstrow = 1;
}
if ($col < $firstcol) {
$firstcol = $col;
}
if ($row > $Y) {
$Y = $row;
}
if ($col > $X) {
$X = $col;
}
$array{$col, $row} = 1;
$PTS++;
}
}
$row++;
}
}
$col = $X - $firstcol + 1;
$row = $Y;
print "\t{\t\t/* */\n\t\t";
for ($j = 0; $j <= $Y; $j++) {
$found = 0;
for ($i = 0; $i <= $X; $i++) {
if ($array{$i, $j}) {
if ($found) {
printf " ";
}
$found = 1;
$tempx = $i - int(($col + 2) / 2) - $firstcol + 1;
$tempy = $j - int(($row + 2) / 2);
printf "$tempx, $tempy,";
}
}
if ($found) {
print "\n\t\t";
}
}
print "127\n\t},\n";
$X = $col;
}
|
