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 |
# | User | Rev | Content |
---|---|---|---|
1 | root | 1.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 |