| Revision: | 1.1 |
| Committed: | Mon Feb 6 20:26:07 2006 UTC (20 years, 8 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 |