Rodillo

u = Vector((4.0, 3.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)
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))
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)
h = Segment(D, D - (0.0, inc))
polígono1, k, l, m, n = Polygon((-(4.0) * inc, y(B) - 0.75 * inc), (-(4.0) * inc, y(B) + 0.75 * inc), (-1.0 * 7.0 * inc, y(B) + 0.75 * inc), (-1.0 * 7.0 * inc, y(B) - 0.75 * inc))
polígono2, i, j, p, q = Polygon((x(D) - 1.8 * inc, -1.0 * inc), (x(D) - 1.8 * inc, -1.0 * 2.5 * inc), (x(D) + 1.8 * inc, -1.0 * 2.5 * inc), (x(D) + 1.8 * inc, -1.0 * inc))
texto2: "" + (y(B))
texto1: "" + (x(C))
D1: (x(C) - y(B) / 2.0, 0.0)
D2: (x(C) + y(B) / 2.0, 0.0)
E1 = Rotate(D1, -2.0 * x(D) / y(B), C)
E2 = Rotate(D2, -2.0 * x(D) / y(B), C)
T1: D + (-1.0 * 1.35 * inc, -1.0 * 2.1 * inc)
T2: B + (-1.0 * 3.75 * inc - 3.0 * inc, -1.0 * 0.3 * inc)
g = Segment(B, B - (4.0 * inc, 0.0))
f'_1 = Circle(C, D)
f = CircleArc(C, D, E)
o = false
r = Circle(C, d)
imagen1' = Dilate(imagen1, 0.75, C)
imagen1'' = Translate(imagen1', u)
C' = Translate(C, u)
D' = Dilate(D, 0.75, C)
E' = Dilate(E, 0.75, C)
D'' = Translate(D', u)
E'' = Translate(E', u)
s = CircleArc(C', D'', E'')
O' = Dilate((0.0, 0.0), 0.75, B / 2.0)
O'' = Translate(O', u)
t = Segment(O'', D'')
a_1 = Segment(E'', C')
b_1 = Segment(C, C')
c_1 = Circle(C', D'')
polígono3, d_1, o'', d'', d_2 = Polygon((0.0, 0.0), O'', D'', D)
e_1 = Segment(E, E'')