Init

Start

xAnzeige: -2.5
v3, f, g, h, i = Polygon((xAnzeige - 1, -10), (xAnzeige + 2, -10), (xAnzeige + 2, 10), (xAnzeige - 1, 10))
gl1: x = xAnzeige - 0.5
S = Point(gl1)
v2, j, k, l, m = Polygon((xAnzeige, -10), (xAnzeige + 1, -10), (xAnzeige + 1, y(S)), (xAnzeige, y(S)))
Nullniveau = Segment((xAnzeige, 0), (xAnzeige + 1, 0))
t = 5 (slider from -1 to 5, step 0.01)
aktiv = false
P = If(0 ≤ t ≤ 5, (t, y(S)))
lampe = Circle((-1, 0), 0.2)