diff options
| author | Henning Makholm <henning@makholm.net> | 2006-01-27 18:00:00 (EST) |
|---|---|---|
| committer | Julien Jorge <julien.jorge@stuff-o-matic.com> | 2013-01-10 16:00:40 (EST) |
| commit | 7b7cd6da61b1fcc0f2a3ecce2cb9e6c42782c717 (patch) | |
| tree | 98d2772f50aaddb02ac94492d2b8b151aa3e9465 /test/source/mktile0.pl | |
| download | xcftools-7b7cd6da61b1fcc0f2a3ecce2cb9e6c42782c717.zip xcftools-7b7cd6da61b1fcc0f2a3ecce2cb9e6c42782c717.tar.gz xcftools-7b7cd6da61b1fcc0f2a3ecce2cb9e6c42782c717.tar.bz2 | |
Import of release 0.7
Diffstat (limited to 'test/source/mktile0.pl')
| -rw-r--r-- | test/source/mktile0.pl | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/test/source/mktile0.pl b/test/source/mktile0.pl new file mode 100644 index 0000000..b932ed0 --- /dev/null +++ b/test/source/mktile0.pl @@ -0,0 +1,15 @@ +$L = 64 ; +print "P3 $L $L 255\n" ; +for $y ( 0 .. $L-1 ) { + for $x ( 0 .. $L-1 ) { + $m = int($y / 4)*16 + int($x/4) ; + if( $m < 216 ) { + print( 51 * ($m % 6), " ", + 51 * (int($m/6) % 6), " ", + 51 * (int($m/36)), "\n" ); + } else { + $m = ($m-216) * 6 + 10 ; + print( "$m $m $m\n" ); + } + } +} |