Isometria juaan Setup
- Author:
- Thijs
- Topic:
- Rotation
This is a Setup version of Isometria by juaan.
Setup
a(u) = If(abs(u) ≠ 25, abs(u / 50))
f(u) = If(a(u) < 0.5, 0.5, 1 - a(u)) *50*sqrt(3)
Ls = Zip(Segment((u, -f(u)), (u, f(u))), u, -50…50)
α = Slider(0°,360°,1°,0.35,200,true,true,true,false)
LsRotate = {Rotate(Ls, α), Rotate(Ls, -α)}
#=====================================
# Settings
#=====================================
SetBackgroundColor( "Black" )
ShowAxes(false)
ShowGrid(false)
Ratio=x(Corner(5))/y(Corner(5))
ZoomIn(-55*Ratio, -55, 55*Ratio, 55)
Delete(Ratio)
SetVisibleInView(a,1,false)
SetVisibleInView(f,1,false)
SetVisibleInView(Ls,1,false)
SetColor(LsRotate,"White")
SetLineThickness(LsRotate,10)
SetLineStyle(LsRotate,1)
SetValue(α,0°)
SetColor(α,"White")
SetCoords(α, 50, y(Corner(5))-15)
StartAnimation(α,true)