Hauteur du Soleil

B          suspension
C          trou
F          Début graduation, h=0°
G         fin graduation, h=90°
DE      quart de cercle gradué de construction
FIG      demi-cercle de graduation

PhM - Juillet 2016 -- CRAL Obs. Lyon - France

O: (((-sqrt(2))) / 2, ((-sqrt(2))) / 2)
h = 0.5061454830783556 rad (slider from 0 to 90°, step 0.017453292519943295)
d_S = Line((0, 0), (cos(h), sin(h)))
c_A = Circle((((-sqrt(2))) / 2, ((-sqrt(2))) / 2), 1)
I_1, I_2 = Intersect(c_A, d_S)
I: I_1
a_C = Arc(Circle[(0, 0), 2], (-2, 0), (0, -2))
D: (-2, 0)
E: (0, -2)
h_1 = Angle(D, (0, 0), I)
F = Intersect(c_A, xAxis, 2)
R_1 = Segment(O, F)
R_2 = Segment(O, I)
h_2 = Angle(F, O, I)
C: (0, 0)
G = Intersect(c_A, yAxis, 1)
B = Intersect(c_A, x = ((-sqrt(2))) / 2, 1)
tr00 = Segment(D, D + (-0.04, 0))
tr01 = Segment(B, B + (0, -0.04))
str00 = Sequence(Rotate[tr00, i°], i, 0, 90, 1)
tr00b = Segment(D, D + (-0.06, 0))
tr00c = Segment(D, D + (-0.08, 0))
str00b = Sequence(Rotate[tr00b, i°], i, 0, 90, 5)
str00c = Sequence(Rotate[tr00c, i°], i, 0, 90, 10)
tr01c = Segment(B, B + (0, -0.08))
tr01b = Segment(B, B + (0, -0.06))
str01 = Sequence(Rotate[tr01, i°, O], i, 45, 225, 1)
str01b = Sequence(Rotate[tr01b, i°, O], i, 45, 225, 5)
str01c = Sequence(Rotate[tr01c, i°, O], i, 45, 225, 10)
Soleil = Point(d_S)
R_3 = Segment(O, G)