P1 = (3.88, 5.84)
P2 = (5.96, 4.82)
r1 = Segment(P1, P2)
P3 = (2.36, 2.28)
P4 = (6.62, 4.26)
r2 = Ray(P3, P4)
parámetro = 0 (slider from 0 to 1, step 0.001)
C = Point(r2, parámetro)
B = Point(r1, parámetro)
boceto1: PenStroke[]
A = Point(boceto1, parámetro)
R1 = (1.66, 1.78)
R2 = (8.48, 3.28)
r3 = Line(R1, R2)
D = Point(r3, parámetro)
P5 = (3.16, 1.52)
P6 = (5.92, 2.5)
P7 = (8.64, 1.82)
P8 = (9.04, 1.22)
P9 = (6.06, 1.38)
p = PolyLine(P5, P6, P7, P8, P9)
E = Point(p, parámetro)
P10 = (7.92, 3.66)
P11 = (9.92, 5.28)
u = Vector(P10, P11)
F = Point(u, parámetro)
P12 = (-2.04, 2.16)
P13 = (-0.82, 4.14)
P14 = (1.78, 2.06)
P15 = (12.28, 5.4)
P16 = (12.88, 6.26)
cir = Circle(P15, P16)
H = Point(cir, parámetro)
t1, s1, s2, s3 = Polygon(P12, P13, P14)
G = Point(t1, parámetro)
P17 = (10.76, 2.76)
P18 = (11.44, 0.18)
P19 = (11.84, -0.26)
k = Ellipse(P17, P18, P19)
I = Point(k, parámetro)
f(x) = sin(x)
J = Point(f, parámetro)
l1: {(0, -1), (0.64, -0.7), (1.2, -0.92), (1.68, -0.58), (2.24, -1.02), (3.12, -1.46), (4.04, -1.32), (5.52, -1.28), (6.7, -0.7), (7.54, 0.26), (9.22, -1.04), (10.72, -1.54), (13.02, -0.76)}
K = Point(l1, parámetro)