m b1 As Brep = Nothing
If (heights(b) > heights(b+1)) Then
b0 = breps(b+1)
b1 = breps(b)
Else
b0 = breps(b)
b1 = breps(b+1)
End If
Dim bDiff As Brep() = Brep.CreateBooleanDifference(b0, b1, 0.1)
If (bDiff IsNot Nothing) AndAlso (bDiff.Length > 0) Then
breps(b) = bDiff(0)
End If
--
David Rutten
david@mcneel.com
Poprad, Slovakia…
Added by David Rutten at 7:32am on October 16, 2012
0.533000void brightfunc skyfunc2 skybright perezlum.cal010 1.382e+00 3.201e-01 1.066879 -0.754821 0.015485 -0.048998 -0.089403 0.066341 -0.860010 0.505947
The values in bold are then evaluated using the equations in the file perezlum.cal inside the RAYPATH directory in Radiance..
{ All-weather Angular Sky Luminance Distribution . Additional arguments required for calculation of skybright: A1 - diffus normalization A2 - ground brightness A3,A4,A5,A6,A7 - coefficients for the Perez model A8,A9,A10 - sun direction}skybright = wmean((Dz+1.01)^10, intersky, (Dz+1.01)^-10, A2 );wmean(a, x, b, y) = (a*x+b*y)/(a+b);intersky = if( (Dz-0.01), A1 * (1 + A3*Exp(A4/Dz) ) * ( 1 + A5*Exp(A6*gamma) + A7*cos(gamma)*cos(gamma) ), A1 * (1 + A3*Exp(A4/0.01) ) * ( 1 + A5*Exp(A6*gamma) + A7*cos(gamma)*cos(gamma) ) );
This data is then mapped to the "glow" material that represents the celestial hemisphere...You can edit the climate based sky produced by Honeybee and enter your own values. The other option would be to just use gendaylit from DOS Prompt.…