Testing Waters

Search…

Projects

Patterns

Geometry

Lists

Rolling Spiral

Sin and Cos

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

Last modified 1yr ago

Copy link