Ombra di uno gnomone
Author: Stocco E.

Ses Solstizio estivo
Sin  Solstizio invernale
Q     Sole riflesso a soffitto

Muovi il Sole per visualizzare l'ombra prodotta da HP sulla linea meridiana.
Muovi slider per variare la latitudine.

A = Point(xAxis)
H' = Point(yAxis)
P = Intersect(xAxis, yAxis)
a = Line(P, A)
b = Line(P, H')
c = Circle(P, A)
Lat = 45.9 (slider from 0 to 90, step 0.1)
B' = Rotate(H', -(Lat°), P)
α = Angle(B', P, H')
d = Ray(P, B')
Equinozi = Intersect(c, d, 1)
SolstizioEstivo = Rotate(Equinozi, 23.5*°, P)
β = Angle(Equinozi, P, SolstizioEstivo)
SolstizioInvernale = Rotate(Equinozi, 336.5*°, P)
γ = Angle(SolstizioInvernale, P, Equinozi)
e = CircleArc(P, SolstizioInvernale, SolstizioEstivo)
Sole = Point(e)
f = Circle(Sole, 0.7)
D = Point(xAxis)
D' = Mirror(D, P)
specchio = Segment(D, D')
h = Line(Sole, P)
h' = Mirror(h, b)
i = OrthogonalLine(H', b)
Q' = Intersect(h', i)
j = Segment(Sole, P)
p = Circle(Q', 0.3)
δ = Angle(Sole, P, H')
ε = Angle(H', P, Q')
altezzasolare = Angle(A, P, Sole)
H = Mirror(H', a)
Q'_1 = Mirror(Q', a)
piano = Ray(H, Q'_1)
P' = Mirror(P, a)
Q = Mirror(Q', a)
k' = Segment(P', Q)
g = Segment(P, H)
B = Point(a)
l = Ray(P, B)
k = Segment(H, Q)
m = Line(Equinozi, P)
n = Line(SolstizioEstivo, P)
q = Line(SolstizioInvernale, P)
C = Intersect(q, piano)
Dicembre = Intersect(q, piano)
MarzoSettembre = Intersect(m, piano)
Giugno = Intersect(n, piano)