Muestra Rastro

r = 0.2 (slider from 0 to 5, step 0.1)
a = 3 (slider from 0 to 5, step 0.1)
b = 4 (slider from 0 to 5, step 0.1)
A = (-2.08, -0.9200000000000046)
c = Circle(A, a)
B = (1.6600000000000001, -0.06000000000000455)
d = LineBisector(A, B)
C = Intersect(c, d, 2.0)
D: A + (a + b) * UnitVector[Vector[A, C]]
B' = If(Defined[C], B, A + 2.0 * a * UnitVector[Vector[A, B]])
E: D + Distance[A, D] * UnitVector[Vector[C, B]]
F: D + Vector[C, B]
D' = If(Defined[C], D, A + (a + b) * UnitVector[Vector[A, B']])
F' = If(Defined[C], F, A + (2.0 * a + b) * UnitVector[Vector[A, B']])
E' = If(Defined[C], E, A + 2.0 * (a + b) * UnitVector[Vector[A, B']])
C' = If(Defined[C], C, A + a * UnitVector[Vector[A, B]])
e = Segment(A - 0.2 * UnitVector[Vector[A, C']], D' + 0.2 * UnitVector[Vector[A, C']])
i = Segment(A, C)
j = Segment(C, D')
g = Segment(C' - 0.2 * UnitVector[Vector[C', B']], B' + 0.2 * UnitVector[Vector[C', B']])
h = Segment(B' - 0.2 * UnitVector[Vector[A, C']], F' + 0.2 * UnitVector[Vector[A, C']])
f = Segment(D' - 0.2 * UnitVector[Vector[C', B']], E' + 0.2 * UnitVector[Vector[C', B']])
verRastro = true
B'': B'
E'': E'