事例3_はしご車n

はしごの角度

f: y = 2
A = Point(f)
B_{1} = Point(f)
a = 0.5235987755982988 (slider from 0 to (pi / 180 * 75), step pi / 180)
B' = Rotate(B_{1}, a, A)
α = Angle(B_{1}, A, B')
g = Line(A, B')
c = Circle(A, 35)
C_{1}, B_{2} = Intersect(c, g)
h = Segment(A, B_{2})
E = Point(f)
i = OrthogonalLine(E, f)
F = Point(i)
j = Segment(E, F)
G = Point(f)
k = OrthogonalLine(G, f)
H = Point(k)
l = Segment(G, H)
B = Point(h)
m = Segment(A, B)
n = OrthogonalLine(B, f)
C = Intersect(n, f)
p = Segment(B, C)