Comment on page

# Rolling Spiral

Sin and Cos

Rolling Spiral

a = Dictionary.ValueAtKey(DateTime.Components(d), "second")*12;

x1 = (0..(Math.PiTimes2)..#500);

y1 = Math.Sin(a..(a+360)*3..#500);

z1 = Math.Cos(a..(a+360)*3..#500);

n1 = NurbsCurve.ByPoints(Point.ByCoordinates(x1,y1+4));

n2 = NurbsCurve.ByPoints(Point.ByCoordinates(x1,0,z1+4));

n3 = NurbsCurve.ByPoints(Point.ByCoordinates(x1,y1+4,z1+4));

l1 = Line.ByStartPointEndPoint(n1.StartPoint,n3.StartPoint);

l2 = Line.ByStartPointEndPoint(n2.StartPoint,n3.StartPoint);

c1 = GeometryColor.ByGeometryColor([n1,l1],Color.ByARGB(255,0,0,255));

c2 = GeometryColor.ByGeometryColor([n2,l2],Color.ByARGB(255,255,0,0));

rollingSpiral.zip

2KB

Binary

Last modified 2yr ago