Werner's Miscellanea
Sign in or create your account | Project List | Help
Werner's Miscellanea Git Source Tree
Root/
Source at commit e0063a90c557863e7733660a44065c4c75874221 created 9 years 8 months ago. By Werner Almesberger, ircstat/ML: update for 2014-05 | |
---|---|
1 | #!/usr/bin/perl |
2 | |
3 | if ($ARGV[0] eq "-r") { |
4 | shift @ARGV; |
5 | $reverse = 1; |
6 | } |
7 | |
8 | $x0 = shift @ARGV; |
9 | $y0 = shift @ARGV; |
10 | $x1 = shift @ARGV; |
11 | $y1 = shift @ARGV; |
12 | |
13 | while (<>) { |
14 | $z{$1} = 1 if /\s+(-?\d+(\.\d*)?)\s*$/; |
15 | $zmax = $1 if $1 > $zmax || !defined $zmax; |
16 | } |
17 | |
18 | if ($reverse) { |
19 | ($x0, $y0) = ($y0, $x0); |
20 | ($x1, $y1) = ($y1, $x1); |
21 | } |
22 | |
23 | for (keys %z) { |
24 | print "$x0 $y0 $_\n"; |
25 | print "$x1 $y0 $_\n"; |
26 | print "$x1 $y1 $_\n"; |
27 | print "$x0 $y1 $_\n"; |
28 | print "$x0 $y0 $_\n\n"; |
29 | } |
30 |
Branches:
master