#! /bin/sh
file="bm.output"
>$file

	# 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.

echo "imp << EOI" >> $file
echo "-6" >> $file
echo "a" >> $file

echo "query	u_cpt	no_of_zones" >&1;  read junk1 junk2 junk3 nz <&0

i=0
while i=` expr 0${i} + 1 `  &&  [ $i -le ${nz:=0} ] 
do
echo "query	u_cpt	zone	$i	shape_type" >&1; read junk junk junk junk junk zsht <&0
   if test X${zsht} = Xrec
   then
echo       "c" >> $file
echo       "rec" >> $file
echo "query	u_cpt	zone	$i	origin" >&1; read junk junk junk junk junk zo <&0
echo       "${zo:='0	0	0'}" >> $file
echo "query	u_cpt	zone	$i	rec_dimensions" >&1; read junk junk junk junk junk zlwh <&0
echo       "${zlwh}" >> $file
echo "query	u_cpt	zone	$i	orientation" >&1; read junk junk junk junk junk zor <&0
echo       "${zor:='0'}" >> $file
      nsur=6
   elif test X${zsht} = Xreg
   then
echo       "c" >> $file
echo       "reg" >> $file
echo "query	u_cpt	zone	$i	no_vert_walls" >&1; read junk junk junk junk junk nw <&0
echo       "${nw:=0}" >> $file
echo "query	u_cpt	zone	$i	floor_ceiling_height" >&1; read junk junk junk junk junk f_ch <&0
echo       "${f_ch}" >> $file
echo "query	u_cpt	zone	$i	angle_rotation" >&1; read junk junk junk junk junk angrot <&0
echo       "${angrot:=0}" >> $file
j=0
while j=` expr 0${j:=1} + 1 `  &&  [ $j -le ${nw} ] 
      do
echo "query	u_cpt	zone	$i	wall	$j" >&1; read junk junk junk junk junk junk xy <&0
echo          "${xy}" >> $file
      done
      nsur=` expr 0$nw + 2 `
   elif test X${zsht} = Xgen
   then
echo       "c" >> $file
echo       "gen" >> $file
echo "query	u_cpt	zone	$i	no_vertices" >&1; read junk junk junk junk junk nver <&0
echo       "${nver:=0}" >> $file
echo "query	u_cpt	zone	$i	no_surfaces" >&1; read junk junk junk junk junk nsur <&0
echo       "${nsur:=0}" >> $file
echo "query	u_cpt	zone	$i	angle_rotation" >&1; read junk junk junk junk junk angrot <&0
echo       "${angrot:=0}" >> $file

j=0
while j=` expr 0${j:=1} + 1 `  &&  [ $j -le ${nver} ] 
      do
echo "query	u_cpt	zone	$i	vertex	$j" >&1; read junk junk junk junk junk junk junk xyz <&0
echo          "${xyz}" >> $file
      done

j=0
while j=` expr 0${j:=1} + 1 `  &&  [ $j -le ${nsur} ] 
      do
echo "query	u_cpt	zone	$i	surface	$j	no_vertices" >&1; read junk junk junk junk junk junk junk snver <&0
echo "query	u_cpt	zone	$i	surface	$j	vertex_list" >&1; read junk junk junk junk junk junk junk ver_order <&0
echo          "${snver} ${ver_listr}" >> $file
      done
   else
      echo "Invalid or unknown shape type" >&2
      break
   fi

   total_no_wins=0
   no_windows=
j=0
while j=` expr 0${j:=1} + 1 `  &&  [ $j -le ${nsur} ] 
   do
echo "query	u_cpt	zone	$i	surface	$j	no_windows" >&1; read junk junk junk junk junk junk junk no_win <&0
      total_no_wins=` expr $total_no_wins + 0${no_win:=0} `
      no_windows="${no_windows}$no_win "
   done
echo    "$no_windows" >> $file
   if test 0${total_no_wins} -gt 0
   then
j=0
while j=` expr 0${j:=1} + 1 `  &&  [ $j -le ${nsur} ] 
      do
echo "query	u_cpt	zone	$i	surface	$j	no_windows" >&1; read junk junk junk junk junk junk junk no_win <&0
         if test 0${no_win} -gt 0
         then
k=0
while k=` expr 0${k:=1} + 1 `  &&  [ $k -le ${no_win} ] 
            do
echo "query	u_cpt	zone	$i	surface	$j	window	$k	dimensions" >&1; read junk junk junk junk junk junk junk junk junk win_xzdxdz <&0
echo                "${win_xzdxdz}" >> $file
            done
         fi
      done
   fi
   total_no_doors=0
   no_doors=
j=0
while j=` expr 0${j:=1} + 1 `  &&  [ $j -le ${nsur} ] 
   do
echo "query	u_cpt	zone	$i	surface	$j	no_doors" >&1; read junk junk junk junk junk junk junk no_dr <&0
      total_no_doors=` expr $total_no_doors + ${no_dr:=0} `
      no_doors="${no_doors}$no_dr "
   done
echo    "$no_doors" >> $file
   if test 0${total_no_doors} -gt 0
   then
j=0
while j=` expr 0${j:=1} + 1 `  &&  [ $j -le ${nsur} ] 
      do
echo "query	u_cpt	zone	$i	surface	$j	no_doors" >&1; read junk junk junk junk junk junk junk no_dr <&0
         if test 0${no_dr} -gt 0
         then
k=0
while k=` expr 0${k:=1} + 1 `  &&  [ $k -le ${no_dr} ] 
            do
echo "query	u_cpt	zone	$i	surface	$j	door	$k	dimensions" >&1; read junk junk junk junk junk junk junk junk junk door_xzdxdz <&0
echo                "${door_xzdxdz}" >> $file
            done
         fi
      done
   fi
echo "query	u_cpt	zone	$i	insolation_data" >&1; read junk junk junk junk junk insolation_data <&0
echo    "${insolation_data}" >> $file
echo    "ife_z$i.geo" >> $file
echo    "-" >> $file
done
echo "-" >> $file
echo "f" >> $file
echo "EOI" >> $file
