Revision: | 1.1 |
Committed: | Mon Feb 6 20:26:07 2006 UTC (18 years, 5 months ago) by root |
Content type: | application/x-csh |
Branch point for: | UPSTREAM, MAIN |
Log Message: | Initial revision |
# | Content |
---|---|
1 | #!/bin/csh |
2 | |
3 | set x=0 |
4 | set y=0 |
5 | |
6 | cp 3x3.ppm work.ppm |
7 | |
8 | while ($y<3) |
9 | while ($x<3) |
10 | @ f =$x + $y * 3 + 1 |
11 | @ y1 = $y * 24 |
12 | @ x1 = $x * 24 |
13 | set filename = "big_wiz.$f""13.xpm" |
14 | xpmtoppm $filename > tmp.ppm |
15 | pnmpaste tmp.ppm $x1 $y1 work.ppm > tmp2.ppm |
16 | mv tmp2.ppm work.ppm |
17 | echo "x1 = $x1 y1=$y1 file = $filename" |
18 | @ x ++ |
19 | end |
20 | set x=0 |
21 | @ y ++ |
22 | end |