clear 

	# ESP zone geometry file builder: version 1.0a of November 1988

	# Script to build ESP zone geometry input files
	# from data supplied by the IFE building model.

imp << EOI
-6
a

%nz = no_of_zones
for i in ${nz} do

   %zsht = zone$i_shape_type

   if test ${zsht} = rec
      then

      c
      rec
      %zo = zone$i_origin
      ${zo}
      %zlwh = zone$i_rec_dimensions
      ${zlwh}
      %zor = zone$i_orientation
      ${zor}
      %win? = does_zone$i_have_windows
      ${win?}

      if test ${win?} = yes
         then

         for j in 1 2 3 4 5 6 do
            %no._windows_$j = zone$i_surface$j_no._windows
            ${no._windows_$j}
         done

         for j in 1 2 3 4 5 6 do
            if test ${no._windows_$j} -gt 0
               then

               for k in ${no._windows_$j} do
                  %win_xzdxdz = zone$i_surface$j_window$k_dimensions
               done
            fi
         done
      fi

      %door? = does_zone$i_have_doors
      ${doors?}
      if test ${doors?} = yes
         then

         for j in 1 2 3 4 5 6 do
            %no._doors_$j = zone$i_surface$j_no._doors
            ${no._doors_$j}
         done

         for j in 1 2 3 4 5 6 do
            if test ${no._doors_$j} -gt 0
               then

               for k in ${no._doors_$j} do
                  %door_xzdxdz = zone$i_surface$j_door$k_dimensions
               done
            fi
         done
      fi

      %insolation_data = zone$i_insolation_data
      ${insolation_data}

      ife_z$i.geo
      -

   elif test ${zsht} = reg
      then
      c
      reg
      %nw = zone$i_no._vert._walls
      ${nw}
      %f&ch = zone$i_floor_ceiling_height
      ${f&ch}
      %angrot = zone$i_angle_rotation
      ${angrot}

      for j in ${nw} do
         %xy = zone$i_wall$j_xy
         ${xy}
      done

      %win? = does_zone$i_have_windows
      ${win?}

      if test ${win?} = yes
         then

         for j in $nw+2 do
            %no._windows_$j = zone$i_surface$j_no._windows
            ${no._windows_$j}
         done

         for j in $nw+2 do
            if test ${no._windows_$j} -gt 0
               then

               for k in ${no._windows_$j} do
                  %win_xzdxdz = zone$i_surface$j_window$k_dimensions
               done
            fi
         done
      fi

      %door? = does_zone$i_have_doors
      ${doors?}
      if test ${doors?} = yes
         then

         for j in $nw+2 do
            %no._doors_$j = zone$i_surface$j_no._doors
            ${no._doors_$j}
         done

         for j in $nw+2 do
            if test ${no._doors_$j} -gt 0
               then

               for k in ${no._doors_$j} do
                  %door_xzdxdz = zone$i_surface$j_door$k_dimensions
               done
            fi
         done
      fi

      %insolation_data = zone$i_insolation_data
      ${insolation_data}

      ife_z$i.geo
      -

   elif test ${zsht} = gen
      then
      c
      gen
      %nver = zone$i_no._vertices
      ${nver}
      %nsur = zone$i_no._surfaces
      ${nsur}
      %angrot = zone$i_angle_rotation
      ${angrot}

      for j in ${nver} do
         %xyz = zone$i_vertex$j_xyz
         ${xyz}
      done

      for j in ${nsur} do
         %snver = zone$i_surface$j_no._vertices
         %ver_order = zone$i_surface$j_vertex_order
         ${snver}${ver_order}
      done


      %win? = does_zone$i_have_windows
      ${win?}

      if test ${win?} = yes
         then

         for j in ${nsur} do
            %no._windows_$j = zone$i_surface$j_no._windows
            ${no._windows_$j}
         done

         for j in ${nsur} do
            if test ${no._windows_$j} -gt 0
               then

               for k in ${no._windows_$j} do
                  %win_xzdxdz = zone$i_surface$j_window$k_dimensions
               done
            fi
         done
      fi

      %door? = does_zone$i_have_doors
      ${doors?}
      if test ${doors?} = yes
         then

         for j in ${nsur} do
            %no._doors_$j = zone$i_surface$j_no._doors
            ${no._doors_$j}
         done

         for j in ${nsur} do
            if test ${no._doors_$j} -gt 0
               then

               for k in ${no._doors_$j} do
                  %door_xzdxdz = zone$i_surface$j_door$k_dimensions
               done
            fi
         done
      fi

      %insolation_data = zone$i_insolation_data
      ${insolation_data}

      ife_z$i.geo
      -

   fi

done

-
f
EOI
