#!/usr/bin/perl -W 

system "mkiraf -t xterm -i -q";

system "ls kmtc*.fits > o.list";
@klist = `cat o.list`;

open(my $fo, '>', 'hedit.cl');

for ($i=0;$i<$#klist+1;$i++){
    chomp $klist[$i];

		printf $fo "hedit %s[im0] detsize [1:18892,1:19397] add+ upd+ ver-\n", $klist[$i];

    for ($k=1;$k<33;$k++){
	if($k>0 && $k<9){
		printf $fo "hedit %s[im%d] ltv1 %d add+ upd+ ver-\n", $klist[$i], $k, 1-(1152*($k-1)+217);
		printf $fo "hedit %s[im%d] ltv2 -9232 add+ upd+ ver-\n", $klist[$i], $k;
		printf $fo "hedit %s[im%d] dtv1 -256 add+ upd+ ver-\n", $klist[$i], $k;
		printf $fo "hedit %s[im%d] dtv2 933 add+ upd+ ver-\n", $klist[$i], $k;
		printf $fo "hedit %s[im%d] crpix1 %d add+ upd+ ver-\n", $klist[$i], $k, 9446-(1152*($k-1)+1);
		printf $fo "hedit %s[im%d] crpix2 -468 add+ upd+ ver-\n", $klist[$i], $k;
	}
	if($k>8 && $k<17){
		printf $fo "hedit %s[im%d] ltv1 %d add+ upd+ ver-\n", $klist[$i], $k, 1-(1152*($k-9)+9945);
		printf $fo "hedit %s[im%d] ltv2 -9232 add+ upd+ ver-\n", $klist[$i], $k;
		printf $fo "hedit %s[im%d] dtv1 -229 add+ upd+ ver-\n", $klist[$i], $k;
		printf $fo "hedit %s[im%d] dtv2 933 add+ upd+ ver-\n", $klist[$i], $k;
		printf $fo "hedit %s[im%d] crpix1 %d add+ upd+ ver-\n", $klist[$i], $k, 9446-(1152*($k-9)+9677);
		printf $fo "hedit %s[im%d] crpix2 -468 add+ upd+ ver-\n", $klist[$i], $k;
	}
	if($k>16 && $k<25){
		printf $fo "hedit %s[im%d] ltv1 %d add+ upd+ ver-\n", $klist[$i], $k, 1-(1152*($k-17)+257);
		printf $fo "hedit %s[im%d] ltv2 0 add+ upd+ ver-\n", $klist[$i], $k;
		printf $fo "hedit %s[im%d] dtv1 -256 add+ upd+ ver-\n", $klist[$i], $k;
		printf $fo "hedit %s[im%d] dtv2 0 add+ upd+ ver-\n", $klist[$i], $k;
		printf $fo "hedit %s[im%d] crpix1 %d add+ upd+ ver-\n", $klist[$i], $k, 9446-(1152*($k-17)+1);
		printf $fo "hedit %s[im%d] crpix2 9697 add+ upd+ ver-\n", $klist[$i], $k;
	}
	if($k>24 && $k<33){
		printf $fo "hedit %s[im%d] ltv1 %d add+ upd+ ver-\n", $klist[$i], $k, 1-(1152*($k-25)+9905);
		printf $fo "hedit %s[im%d] ltv2 0 add+ upd+ ver-\n", $klist[$i], $k;
		printf $fo "hedit %s[im%d] dtv1 -229 add+ upd+ ver-\n", $klist[$i], $k;
		printf $fo "hedit %s[im%d] dtv2 0 add+ upd+ ver-\n", $klist[$i], $k;
		printf $fo "hedit %s[im%d] crpix1 %d add+ upd+ ver-\n", $klist[$i], $k, 9446-(1152*($k-25)+9677);
		printf $fo "hedit %s[im%d] crpix2 9697 add+ upd+ ver-\n", $klist[$i], $k;
	}
		#printf $fo "hedit %s[im%d] cdelt1 -0.00011 add+ upd+ ver-\n", $klist[$i], $k; 

		printf $fo "hedit %s[im%d] WAT0_001 \'system=image\' add+ upd+ ver-\n", $klist[$i], $k;
		printf $fo "hedit %s[im%d] WAT1_001 \'wtype=tan axtype=ra\' add+ upd+ ver-\n", $klist[$i], $k;
		printf $fo "hedit %s[im%d] WAT2_001 \'wtype=tan axtype=dec\' add+ upd+ ver-\n", $klist[$i], $k;
		printf $fo "hedit %s[im%d] ctype1 RA---TAN add+ upd+ ver-\n", $klist[$i], $k;
		printf $fo "hedit %s[im%d] ctype2 DEC--TAN add+ upd+ ver-\n", $klist[$i], $k; 
		printf $fo "hedit %s[im%d] cd1_1 -0.00011 add+ upd+ ver-\n", $klist[$i], $k; 
		printf $fo "hedit %s[im%d] cd2_2 0.00011 add+ upd+ ver-\n", $klist[$i], $k; 
		printf $fo "hedit %s[im%d] ltm1_1  1 add+ upd+ ver-\n", $klist[$i], $k; 
		printf $fo "hedit %s[im%d] ltm2_2  1 add+ upd+ ver-\n", $klist[$i], $k; 
		printf $fo "hedit %s[im%d] dtm1_1  1 add+ upd+ ver-\n", $klist[$i], $k; 
		printf $fo "hedit %s[im%d] dtm2_2  1 add+ upd+ ver-\n", $klist[$i], $k; 
		printf $fo "hedit %s[im%d] crval1 0 add+ upd+ ver-\n", $klist[$i], $k; 
		printf $fo "hedit %s[im%d] crval2 0 add+ upd+ ver-\n", $klist[$i], $k; 
    }
}
close $fo;

system "cl < hedit.cl";