rolling_pull
Author: EKFE Kallipolis
Date: 17 Φεβρουάριος 2015

κύλιση

restart

πάνω

κάτω

s = 1
h = 3 (slider from 1 to 3, step 2)
t = 0 (slider from 0 to 6.28, step 0.05)
m = 2
cm: (m * t, 2)
r = 1
Β: (2 * cos(r * t) + x(cm), -2 * sin(r * t) + y(cm))
c = Circle(cm, Β)
a = Line(Β, cm)
b = OrthogonalLine(cm, a)
Γ, Δ = Intersect(c, b)
Ε, Ζ = Intersect(c, a)
d = Segment(Ζ, Β)
e = Segment(Γ, Δ)
g = Circle(cm, 1)
Α: (x(cm), h)
Η: (x(cm) + 10 - 2 * h + s * t, h)
i = Segment(Α, Η)