INICIO

largo = 6.28 (slider from 0 to 120)
A = Intersect(xAxis, yAxis)
c = Circle(A, largo)
B, C = Intersect(c, xAxis)
h: (120 - largo) / 2
d = Circle(A, h)
D, E = Intersect(d, yAxis)
f = OrthogonalLine(E, yAxis)
g = OrthogonalLine(C, xAxis)
F = Intersect(g, f)
c1, ancho, e, f_1, largo_1 = Polygon(A, E, F, C)
areagalli: (largo * f_1)
distanciaAC = Distance(A, C)
ll: largo + 35
L: (Random[5, largo - 5], Random[5, ancho - 5])
H: (Random[5, largo - 5], Random[5, ancho - 5])
K: (Random[5, largo - 5], Random[5, ancho - 5])
O: (Random[5, largo - 5], Random[5, ancho - 5])
M: (Random[5, largo - 5], Random[5, ancho - 5])
N: (Random[5, largo - 5], Random[5, ancho - 5])
areatot: (largo * (120 - largo) / 2)
areagalli2(largo) = ((largo * (120 - largo) / 2) * 0.03)
texto1: "AreaGallinero=" + areagalli + ""
G = Intersect(ancho, largo_1)
J: (120, 0)
I: (120, -1)
P: (0, -1)
c2, g_1, j, i, p = Polygon(G, J, I, P)