# Dual Axis Illusion 2

Author:
Thijs
Topic:
Rotation
Setup Script CurH = Curve((cos(2φ), cos(3φ), sin(3φ)), φ, 0°, 361°) CurV = Curve((sin(2φ), cos(3φ),-cos(2φ)), φ, 0°, 361°) α = Slider(-720°,720°,2°, 0.25, 200, true, true, true) k = 2 + floor(α / (360°)) hor = (k==1 || k==3) RotH = Rotate(CurH, abs(α) * 1.5, xAxis) RotV = Rotate(CurV, abs(α) - 90°, yAxis) opac(α) = ((1-cos(α))/2)^1.2 CylH = (y^2+z^2=0.5) CylV = (x^2+z^2=0.5) #============================================= # Setting #============================================= SetActiveView(-1) SetBackgroundColor("Black") SetViewDirection((0,0,-1)) ShowAxes(-1,false) ShowGrid(-1,false) ZoomIn(-1.3,-1.3,-1.3, 1.3, 1.3, 1.3) SetConditionToShowObject(CurH,false) SetConditionToShowObject(CurV,false) SetConditionToShowObject(opac,false) SetConditionToShowObject(RotH, hor) SetConditionToShowObject(RotV,!hor) SetColor(RotH,"White") SetColor(RotV,"White") SetLineThickness(RotH,20) SetLineThickness(RotV,20) SetConditionToShowObject(CylH, hor) SetConditionToShowObject(CylV,!hor) SetDynamicColor(CylH, 1,0.4,0, If( hor,opac(α),0)) SetDynamicColor(CylV, 0,0.4,1, If(!hor,opac(α),0)) SetValue(α,0) StartAnimation(α,True) #============================================= # After Setup: #============================================= # α : Set repeat: Increasing # RotH: Set Hidden Line Style: Unchanged # RotV: Set Hidden Line Style: Unchanged # If curve isn't clear white then use Setup again