mkimage and imdebug in 2.11 ??

Sergei O. Naoumov wrote on Aug 14, 1998

Hi!
I have a script that I wrote several years ago. The script took a data
cube and made it two-dimensional: basically I took each plane of the
cube and laied it one next to another which obviously formed a long stripe.

Then we upgraded to Iraf 2.11 and I found that it yells at me saying that
"imdebug" amd "mkimage" tasks (that I am using in the script) are not
found. Could someone, please, explain what happened to those tasks in 2.11
and it they disappeared to the blue, which ones I should use instead.

I am also attaching my script. Thanks in advance,

	Sergei
	
procedure layout (PDSim,Output)

# This script takes a cubic image and makes a 2D image out of it.
# It copies each plane if the cube and adds it at the
# tail of the previous.

string PDSim			{prompt="PDS image to crash"}
string Output			{prompt="Output image"}

begin
	int i
	int X,Y,Z,ii
	string Type
	imdebug
	
	imgets(PDSim,"i_naxis1")
	X=int(imgets.value)
	imgets(PDSim,"i_naxis2")
	Y=int(imgets.value)
	imgets(PDSim,"i_naxis3")
	Z=int(imgets.value)
	print("X=",X,"Y=",Y,"Z=",Z)
	imgets(PDSim,"i_pixtype")
	ii=int(imgets.value)
	switch(ii) {
            case 3 :     Type="short"
	    case 4 :     Type="int"
	    case 6 :     Type="real"
	   default :   error(1,"Unknown type of pixels")
        }	
	print("Making target image ",X,"x ",Z*Y)
	mkimage(Output,X,Z*Y,Type,"0",PDSim)
	print("Forming plane of scans ",Output," from ",PDSim);
	imcopy(PDSim//"[*,*,1]",Output//"[1:"//X//",1:"//Y//"]")
	for(i=2;i<=Z;i+=1) {
	    imcopy(PDSim//"[*,*,"//i//"]",
		   Output//"[1:"//X//","//(i-1)*35//":"//i*Y//"]")
	}
end

---

Last post on Aug 14, 1998