! *********************************************************************************************************************************
!  Created 12-MAY-1988 14:23:22  by  VAX-11 SDL V3.0-1     Source: 12-MAY-1988 14:22:40 DUA0:[BRIAN.DECUS.EXAMPLES.MANDELZOOM]STRUC 
! *********************************************************************************************************************************
 
 
!*** MODULE _structs ***
! 
! 	Header definition
! 
literal hdr_k_version = 1;              !  Current version of the program
literal hdr_k_length = 512;             !  Size of this structure
literal hdr_s_time = 8;
FIELD hdr_hdrdef_FIELDSET =
  SET
  hdr_l_version = [0,0,32,0] ,          !  Version of the program that wrote this file
  hdr_f_center_r = [4,0,32,0] ,         !  Center point, real part
  hdr_f_center_i = [8,0,32,0] ,         !  Center point, imaginary part
  hdr_f_scale_r = [12,0,32,0] ,         !  Scale, real part
  hdr_f_scale_i = [16,0,32,0] ,         !  Scale, imaginary part
  hdr_l_hsize = [20,0,32,0] ,           !  Horizontal size in pixels
  hdr_l_vsize = [24,0,32,0] ,           !  Vertical size in pixels
  hdr_q_time = [28,0,0,0] ,             !  Time/date when image was computed
  hdr_l_pixel_size = [36,0,32,0] ,      !  Bytes per pixel
  hdr_l_max_value = [40,0,32,0]         !  Maximum pixel value
  TES;
literal hdr_s_hdrdef = 44;
MACRO hdrdef = BLOCK [hdr_s_hdrdef,byte] FIELD (hdr_hdrdef_FIELDSET) %;
! 
! 	Color table definition
! 
FIELD ctbl_ctbldef_FIELDSET =
  SET
  ctbl_b_red = [0,0,8,0] ,              !  Red component
  ctbl_b_grn = [1,0,8,0] ,              !  Green component
  ctbl_b_blu = [2,0,8,0] ,              !  Blue component
  ctbl_b_spare = [3,0,8,0]              !  Spare, to fill out structure to a longword
  TES;
literal ctbl_s_ctbldef = 4;
MACRO ctbldef = BLOCK [ctbl_s_ctbldef,byte] FIELD (ctbl_ctbldef_FIELDSET) %;