Option Explicit Call Main() Sub Main() Dim arrAttractorsCrvs : arrAttractorsCrvs = Rhino.GetObjects(“pls select the attractors”,4) Dim arrShadowPolySrfs : arrShadowPolySrfs = Rhino.GetObjects(“pls select the buildings and the shadow volumes”,16) Dim arrOrigin : arrOrigin = Rhino.GetPoint(“clikc on the origin for the environment grid”) Call CheckAttractorNamesForHotness(arrAttractorsCrvs) Dim i ReDim arrAttractors(Ubound(arrAttractorsCrvs)) ‘dimarei ton arrAttractors wste na exei oses theseis [...]