#!/bin/perl
$width=1024;
$height=768;

$slice=192; 

$k=$height/$slice; # Must be an integer, no check done

for ($i = 0 ; $i < $k; $i++ ) {
	$start = $i * $slice+1;
	$end =  ($i +1 ) * $slice;
	$text = sprintf ("+Iscenes/advanced/chess2.pov +Linclude/ +FP +H$height +W$width -D +SR%d +ER%d +Ochess2_%0.4d.ppm",$start,$end,$i) ;
	print `echo "$text" > $i.ini`;
}