ptimization of any kind. If I were to add a space voxelization algorithm to it I could probably do away with 90% of the force vectors in a large particle cloud.
http://www.youtube.com/watch?v=RmsbzTf79bc
--
David Rutten
david@mcneel.com
Poprad, Slovakia…
Added by David Rutten at 5:35am on December 16, 2009
Chris,
Again the number of curves which SubCrv gives me is different from the actual curve on the surface! for example it gives me 80 curves in which there are 20 curves!
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.…