pro define_struct, image

; define all structures used in prep.pro and mosaic.pro ,
; image_List1,2,3,4 , image_inven1,2  are same except for magnification factor
;  of images to get scaled images for display.
; Frank Varosi NASA/GSFC 1989
; F.V. 1991, added image_List0 for magnification 1/2.

  common define_struct, defined		;flag to indicate structures defined.

	info = headinfo( header )	;defines dummy structure for header info
	s = size( image )
 
	imbyt = bytarr( s(1)/2, s(2)/2 )
	print," defining structure {image_List0}"

	x = { image_List0,	Image:image, Imscaled:imbyt, max:0., min:0.,  $
				Name:"", info:info, history:"", sky:"",       $
				Factor:1.0,  Offset:0.0,                      $
				Level:0, group:0, Windo:0, Winame:"",	      $
				Xmin:0, Xmax:0, Ymin:0, Ymax:0,               $
				arcsx:0.0, arcsy:0.0, Locx:0.0, Locy:0.0      }

	print," defining structure {image_inven0}"
	x = { image_inven0,	Image:image, Imscaled:imbyt, max:0., min:0., $
				Name:"", info:info, history:"",	             $
				Level:0, Windo:0, Winame:"",		     $
				Xmin:0, Xmax:0, Ymin:0, Ymax:0               }

	imbyt = bytarr( s(1), s(2) )
	print," defining structure {image_List1}"

	x = { image_List1,	Image:image, Imscaled:imbyt, max:0., min:0.,  $
				Name:"", info:info, history:"", sky:"",       $
				Factor:1.0,  Offset:0.0,                      $
				Level:0, group:0, Windo:0, Winame:"",	      $
				Xmin:0, Xmax:0, Ymin:0, Ymax:0,               $
				arcsx:0.0, arcsy:0.0, Locx:0.0, Locy:0.0      }

	print," defining structure {image_inven1}"
	x = { image_inven1,	Image:image, Imscaled:imbyt, max:0., min:0., $
				Name:"", info:info, history:"",	             $
				Level:0, Windo:0, Winame:"",		     $
				Xmin:0, Xmax:0, Ymin:0, Ymax:0               }

	imbyt = bytarr( 2*s(1), 2*s(2) )
	print," defining structure {image_List2}"
	
	x = { image_List2, 	Image:image, Imscaled:imbyt, max:0., min:0.,  $
				Name:"", info:info, history:"", sky:"",       $
				Factor:1.0,  Offset:0.0,                      $
				Level:0, group:0, Windo:0, Winame:"",	      $
				Xmin:0, Xmax:0, Ymin:0, Ymax:0,               $
				arcsx:0.0, arcsy:0.0, Locx:0.0, Locy:0.0      }

	print," defining structure {image_inven2}"
	x = { image_inven2,	Image:image, Imscaled:imbyt, max:0., min:0., $
				Name:"", info:info, history:"",	             $
				Level:0, Windo:0, Winame:"",		     $
				Xmin:0, Xmax:0, Ymin:0, Ymax:0               }

	imbyt = bytarr( 3*s(1), 3*s(2) )
	print," defining structure {image_List3}"

	x = { image_List3,	Image:image, Imscaled:imbyt, max:0., min:0.,  $
				Name:"", info:info, history:"", sky:"",       $
				Factor:1.0,  Offset:0.0,                      $
				Level:0, group:0, Windo:0, Winame:"",	      $
				Xmin:0, Xmax:0, Ymin:0, Ymax:0,               $
				arcsx:0.0, arcsy:0.0, Locx:0.0, Locy:0.0      }

	imbyt = bytarr( 4*s(1), 4*s(2) )
	print," defining structure {image_List4}"

	x = { image_List4,	Image:image, Imscaled:imbyt, max:0., min:0.,  $
				Name:"", info:info, history:"", sky:"",       $
				Factor:1.0,  Offset:0.0,                      $
				Level:0, group:0, Windo:0, Winame:"",	      $
				Xmin:0, Xmax:0, Ymin:0, Ymax:0,               $
				arcsx:0.0, arcsy:0.0, Locx:0.0, Locy:0.0      }
	defined = 1
return
end