FIRST, CREATE GLOBAL GLASS PARAMETERS:

N Glass
S Glass
E Glass
W Glass
DEFAULT GLASS

THE CONTENTS OF THESE CAN BE ADJUSTED EASILY IN THE PARAMETRIC RUNS


**********************************************************

IF((#P("AZIMUTH")+#P2("AZIMUTH")+#P3("AZIMUTH")+
 #G("BUILD-PARAMETERS","AZIMUTH"))==0)
 then SymIndex(#pa("N Glass"),"WINDOW","GLASS-TYPE")

  else if((MOD(#P("AZIMUTH")+#P2("AZIMUTH")+#P3("AZIMUTH")+
    #G("BUILD-PARAMETERS","AZIMUTH"),360)>=45)&&
    (MOD(#P("AZIMUTH")+#P2("AZIMUTH")+#P3("AZIMUTH")+
    #G("BUILD-PARAMETERS","AZIMUTH")+720,360)<135))
   then SymIndex(#pa("E Glass"),"WINDOW","GLASS-TYPE")

   else if((MOD(#P("AZIMUTH")+#P2("AZIMUTH")+#P3("AZIMUTH")+
     #G("BUILD-PARAMETERS","AZIMUTH"),360)>=135)&&
     (MOD(#P("AZIMUTH")+#P2("AZIMUTH")+#P3("AZIMUTH")+
     #G("BUILD-PARAMETERS","AZIMUTH")+720,360)<225))
    then SymIndex(#pa("S Glass"),"WINDOW","GLASS-TYPE")

    else if((MOD(#P("AZIMUTH")+#P2("AZIMUTH")+#P3("AZIMUTH")+
      #G("BUILD-PARAMETERS","AZIMUTH"),360)>=225)&&
      (MOD(#P("AZIMUTH")+#P2("AZIMUTH")+#P3("AZIMUTH")+
      #G("BUILD-PARAMETERS","AZIMUTH")+720,360)<315))
     then SymIndex(#pa("W Glass"),"WINDOW","GLASS-TYPE")

 else if((MOD(#P("AZIMUTH")+#P2("AZIMUTH")+#P3("AZIMUTH")+		
   #G("BUILD-PARAMETERS","AZIMUTH")+720,360)>=0)&&				
   (MOD(#P("AZIMUTH")+#P2("AZIMUTH")+#P3("AZIMUTH")+			
   #G("BUILD-PARAMETERS","AZIMUTH"),360)<45)||				
   (MOD(#P("AZIMUTH")+#P2("AZIMUTH")+#P3("AZIMUTH")+			
   #G("BUILD-PARAMETERS","AZIMUTH")+720,360)>=315)&&			
   (MOD(#P("AZIMUTH")+#P2("AZIMUTH")+#P3("AZIMUTH")+			
   #G("BUILD-PARAMETERS","AZIMUTH")+720,360)<360))				
  then SymIndex(#pa("N Glass"),"WINDOW","GLASS-TYPE")

else SymIndex(#pa("DEFAULT GLASS"),"WINDOW","GLASS-TYPE")
    endif
   endif
  endif
 endif
endif