Hi
I'm trying to write a simple script to offset a curve muliptle times (using a 'for loop') but I don't know the vb dotNet syntax. I'm sure lines 84, 88 & 89 are wrong. Any ideas.
Thanks. P
Added by Paul Wintour at 8:25am on September 28, 2010
exact formula is inside /lib/skybright.cal if this can help you to find the name.
{ RCSid: $Id$ } { Sky brightness function for sunny and cloudy skies.
Additional arguments required for calculation of skybright:
A1 - 1 for CIE clear, 2 for CIE overcast, 3 for uniform, 4 for CIE intermediate A2 - zenith brightness A3 - ground plane brightness A4 - normalization factor based on sun direction A5,A6,A7 - sun direction }
cosgamma = Dx*A5 + Dy*A6 + Dz*A7;
gamma = Acos(cosgamma); { angle from sun to this point in sky }
zt = Acos(A7); { angle from zenith to sun }
eta = Acos(Dz); { angle from zenith to this point in sky }
wmean(a, x, b, y) : (a*x + b*y) / (a + b);
skybr = wmean((Dz+1.01)^10, select(A1, sunnysky, cloudysky, unifsky, intersky), (Dz+1.01)^-10, A3);
sunnysky = A2 * (.91 + 10*exp(-3*gamma) + .45*cosgamma*cosgamma) * if( Dz - .01, 1.0 - exp(-.32/Dz), 1.0) / A4;
cloudysky = A2 * (1 + 2*Dz)/3;
unifsky = A2;
intersky = A2 * ( (1.35*sin(5.631-3.59*eta)+3.12)*sin(4.396-2.6*zt) + 6.37 - eta ) / 2.326 * exp(gamma*-.563*((2.629-eta)*(1.562-zt)+.812)) / A4;
…
nt to multiply the number of items in the list A, so at the end I will end up with the same number of elements in each lists.
e.g. (for branch 1 in list A I want to have two times the same curve, and the same for the branch 2 and so on )
List A (Data with 88 branches)
{0} N=1
{1} N=1
{2} N=1
{3} N=1...
List B (Data with 88 branches)
{0} N=1
{1} N=2
{2} N=2
{3} N=1...
NEW List A (Data with 88 branches)
{0} N=1
{1} N=2
{2} N=2
{3} N=1...
Any suggestions about how to do this?
Thank you,
Martha
…
18): 'Rhino.Geometry.AnnotationBase.Text' is obsolete: 'Use RichText or PlainText' (line 88)
2. Warning (CS0618): 'Rhino.Geometry.AnnotationBase.FontIndex' is obsolete: 'Use Font property instead' (line 92)
3. Warning (CS0618): 'Rhino.RhinoDoc.Fonts' is obsolete: 'Use DimStyles table instead' (line 92)
1. Error (CS1061): 'Rhino.Geometry.TextEntity' does not contain a definition for 'AnnotativeScalingEnabled' and no extension method 'AnnotativeScalingEnabled' accepting a first argument of type 'Rhino.Geometry.TextEntity' could be found (are you missing a using directive or an assembly reference?) (line 94)
Wondering, if perhaps, you will be updating for Rhino 6 compatibility?
Cheers
Lyndon
…