Rolling Spiral

Rolling Spiral
1
a = Dictionary.ValueAtKey(DateTime.Components(d), "second")*12;
2
​
3
x1 = (0..(Math.PiTimes2)..#500);
4
y1 = Math.Sin(a..(a+360)*3..#500);
5
z1 = Math.Cos(a..(a+360)*3..#500);
6
n1 = NurbsCurve.ByPoints(Point.ByCoordinates(x1,y1+4));
7
n2 = NurbsCurve.ByPoints(Point.ByCoordinates(x1,0,z1+4));
8
n3 = NurbsCurve.ByPoints(Point.ByCoordinates(x1,y1+4,z1+4));
9
l1 = Line.ByStartPointEndPoint(n1.StartPoint,n3.StartPoint);
10
l2 = Line.ByStartPointEndPoint(n2.StartPoint,n3.StartPoint);
11
c1 = GeometryColor.ByGeometryColor([n1,l1],Color.ByARGB(255,0,0,255));
12
c2 = GeometryColor.ByGeometryColor([n2,l2],Color.ByARGB(255,255,0,0));
Copied!
rollingSpiral.zip
2KB
Binary
​

Motion - Previous

Manakin

Next - Motion

Tan Curve

Last modified 9mo ago

Copy link