ancho: x(Corner[3.0] - Corner[4.0])
alto: y(Corner[4.0] - Corner[1.0])
inc = Min(ancho / 50.0, alto / 50.0)
a = Segment((0.0, 0.0), (10.0, 0.0))
b = Ray((0.0, 0.0), (0.0, 1.0))
B = Point(b)
C = Point(Segment[B / 2.0, B / 2.0 + (3.141592653589793 * y(B), 0.0)])
D: (x(C), 0.0)
E = Rotate(D, -2.0 * x(D) / y(B), C)
c = Circle(C, y(B) / 2.0)
d = Segment(C, E)
e = Segment((0.0, 0.0), D)
f = If(x(C) > 0.0, CircleArc[C, D, E], Circle[C, D])
g = Segment(B, B - (inc, 0.0))
h = Segment(D, D - (0.0, inc))
polígono1, k, l, m, n = Polygon((-1.0 * 1.0 * 1.0 * inc, y(B) - 0.75 * inc), (-1.0 * 1.0 * 1.0 * inc, y(B) + 0.75 * inc), (-1.0 * 1.0 * 1.0 * 4.0 * inc, y(B) + 0.75 * inc), (-1.0 * 1.0 * 1.0 * 4.0 * inc, y(B) - 0.75 * inc))
polígono2, i, j, p, q = Polygon((x(D) - 1.5 * inc, -1.0 * 1.0 * inc), (x(D) - 1.5 * inc, -1.0 * 1.0 * 2.5 * inc), (x(D) + 1.5 * inc, -1.0 * 1.0 * 2.5 * inc), (x(D) + 1.5 * inc, -1.0 * 1.0 * inc))
texto2: "" + (y(B))
texto1: "" + (x(C))
T2: B + (-1.0 * 1.0 * 3.75 * inc, -1.0 * 1.0 * 0.3 * inc)
T1: D + (-1.0 * 1.25 * inc, -1.0 * 2.1 * inc)