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));
​