[b]Setup Script[/b] [br][br]CurH = Curve((cos(2φ), cos(3φ), sin(3φ)), φ, 0°, 361°)[br]CurV = Curve((sin(2φ), cos(3φ),-cos(2φ)), φ, 0°, 361°)[br][br]α = Slider(-720°,720°,2°, 0.25, 200, true, true, true)[br]αh = abs(α)/2[br]αRH= abs(α)*1.5[br]αRV= abs(α)-90°[br][br]k = 2 + floor(α / (360°))[br]hor= (k==1 || k==3)[br]cH = Rotate(CurH, αRH, xAxis)[br]cV = Rotate(CurV, αRV, yAxis)[br][br]LφH= {30°-αh, 150°-αh, 270°-αh, 30°, 120°, 210°, 300°}[br]LφV= {30°, 150°, 270°, 30°+αh, 210°+αh, 240°+αh, 60°+αh}[br][br]LsH= Zip(Sphere(Rotate(CurH(φH), αRH, xAxis), 0.1), φH,LφH)[br]LsV= Zip(Sphere(Rotate(CurV(φV), αRV, yAxis), 0.1), φV,LφV)[br][br]opac(α) = ((1-cos(α))/2)^0.8[br]cylH = (y^2+z^2=0.5)[br]cylV = (x^2+z^2=0.5)[br][br]#=============================================[br]# Setting[br]#=============================================[br]SetActiveView(-1)[br]SetBackgroundColor("Black")[br]SetViewDirection((0,0,-1))[br]ShowAxes(-1,false)[br]ShowGrid(-1,false)[br]ZoomIn(-1.3,-1.3,-1.3, 1.3, 1.3, 1.3)[br][br]SetConditionToShowObject(CurH, false)[br]SetConditionToShowObject(CurV, false)[br]SetConditionToShowObject(opac, false)[br][br]SetConditionToShowObject(cH, hor)[br]SetConditionToShowObject(cV, !hor)[br][br]ShowLabel(cH, false)[br]ShowLabel(cV, false)[br][br]SetColor(cH, "White")[br]SetColor(cV, "White")[br][br]SetLineThickness(cH, 20)[br]SetLineThickness(cV, 20)[br][br]SetConditionToShowObject(LsH, hor)[br]SetConditionToShowObject(LsV, !hor)[br][br]SetColor(LsH, "White")[br]SetColor(LsV, "White")[br][br]ShowLabel(cylH, false)[br]ShowLabel(cylV, false)[br][br]SetConditionToShowObject(cylH, hor)[br]SetConditionToShowObject(cylV, !hor)[br][br]SetDynamicColor(cylH, 1,0.4,0, If( hor, opac(α), 0))[br]SetDynamicColor(cylV, 0,0.4,1, If(!hor, opac(α), 0))[br][br]SetValue(α, 0)[br]StartAnimation(α, True)[br][br]#=============================================[br]# After Setup:[br]#=============================================[br]# α : Set repeat: Increasing[br]# cH: Set Hidden Line Style: Unchanged[br]# cV: Set Hidden Line Style: Unchanged[br]# cH,cV, LsH,LsV, cylH,cylV: Set Selection Allowed: False[br]# If curve isn't clear white then use Setup again[br]