Comprueba

t = 0 (slider from 0 to 1, step 0.0010)
A0 = (0.2, 5.6000000000000005)
G = (9.32, 0.16)
D = (6.28, -2.24)
d = Line(D, G)
F = (5.7, 0.64)
r = Line(D, F)
escena = 1 (slider from 1 to 4, step 1)
B0: A0 + (0.2, -0.2) + (13, 0) * t
e = 2.718281828459045
n = 290
puntoEsc = Sequence(B0 + (0, (-k) / 30), k, 1, n)
azules: {Sequence[e^(-abs(Distance[F, G] * (Distance[F, G] / Distance[Element[puntoEsc, k], F] - 1))), k, 1, n], Sequence[e^(-abs(Distance[Element[puntoEsc, k], G] * (Distance[Element[puntoEsc, k], G] / Distance[Element[puntoEsc, k], F] - 1))), k, 1, n], Sequence[e^(-abs(Distance[Element[puntoEsc, k], d] * (Distance[Element[puntoEsc, k], d] / Distance[Element[puntoEsc, k], r] - 1))), k, 1, n], Sequence[e^(-abs(Distance[Element[puntoEsc, k], d] * (Distance[Element[puntoEsc, k], d] / Distance[Element[puntoEsc, k], F] - 1))), k, 1, n]}
verdes: {Sequence[e^(-abs(Distance[F, G] - Distance[Element[puntoEsc, k], F])), k, 1, n], Sequence[e^(-abs(Distance[Element[puntoEsc, k], G] - Distance[Element[puntoEsc, k], F])), k, 1, n], Sequence[e^(-abs(Distance[Element[puntoEsc, k], d] - Distance[Element[puntoEsc, k], r])), k, 1, n], Sequence[e^(-abs(Distance[Element[puntoEsc, k], d] - Distance[Element[puntoEsc, k], F])), k, 1, n]}
rojos: {Sequence[e^(-abs(Distance[Element[puntoEsc, k], F] * (Distance[Element[puntoEsc, k], F] / Distance[F, G] - 1))), k, 1, n], Sequence[e^(-abs(Distance[Element[puntoEsc, k], F] * (Distance[Element[puntoEsc, k], F] / Distance[Element[puntoEsc, k], G] - 1))), k, 1, n], Sequence[e^(-abs(Distance[Element[puntoEsc, k], r] * (Distance[Element[puntoEsc, k], r] / Distance[Element[puntoEsc, k], d] - 1))), k, 1, n], Sequence[e^(-abs(Distance[Element[puntoEsc, k], F] * (Distance[Element[puntoEsc, k], F] / Distance[Element[puntoEsc, k], d] - 1))), k, 1, n]}
A1 = 1
A2 = 2
A3: 2 * A2 - A1
A4: 2 * A3 - A2
A5: 2 * A4 - A3
A6: 2 * A5 - A4
A7: 2 * A6 - A5
A8: 2 * A7 - A6
A9: 2 * A8 - A7
A10: 2 * A9 - A8
A11: 2 * A10 - A9
A12: 2 * A11 - A10
A13: 2 * A12 - A11
A14: 2 * A13 - A12
A15: 2 * A14 - A13
A16: 2 * A15 - A14
A17: 2 * A16 - A15
A18: 2 * A17 - A16
A19: 2 * A18 - A17
A20: 2 * A19 - A18
A21: 2 * A20 - A19
A22: 2 * A21 - A20
A23: 2 * A22 - A21
A24: 2 * A23 - A22
A25: 2 * A24 - A23
A26: 2 * A25 - A24
A27: 2 * A26 - A25
A28: 2 * A27 - A26
A29: 2 * A28 - A27
A30: 2 * A29 - A28
A31: 2 * A30 - A29
A32: 2 * A31 - A30
A33: 2 * A32 - A31
A34: 2 * A33 - A32
A35: 2 * A34 - A33
A36: 2 * A35 - A34
A37: 2 * A36 - A35
A38: 2 * A37 - A36
A39: 2 * A38 - A37
A40: 2 * A39 - A38
A41: 2 * A40 - A39
A42: 2 * A41 - A40
A43: 2 * A42 - A41
A44: 2 * A43 - A42
A45: 2 * A44 - A43
A46: 2 * A45 - A44
A47: 2 * A46 - A45
A48: 2 * A47 - A46
A49: 2 * A48 - A47
A50: 2 * A49 - A48
A51: 2 * A50 - A49
A52: 2 * A51 - A50
A53: 2 * A52 - A51
A54: 2 * A53 - A52
A55: 2 * A54 - A53
A56: 2 * A55 - A54
A57: 2 * A56 - A55
A58: 2 * A57 - A56
A59: 2 * A58 - A57
A60: 2 * A59 - A58
A61: 2 * A60 - A59
A62: 2 * A61 - A60
A63: 2 * A62 - A61
A64: 2 * A63 - A62
A65: 2 * A64 - A63
A66: 2 * A65 - A64
A67: 2 * A66 - A65
A68: 2 * A67 - A66
A69: 2 * A68 - A67
A70: 2 * A69 - A68
A71: 2 * A70 - A69
A72: 2 * A71 - A70
A73: 2 * A72 - A71
A74: 2 * A73 - A72
A75: 2 * A74 - A73
A76: 2 * A75 - A74
A77: 2 * A76 - A75
A78: 2 * A77 - A76
A79: 2 * A78 - A77
A80: 2 * A79 - A78
A81: 2 * A80 - A79
A82: 2 * A81 - A80
A83: 2 * A82 - A81
A84: 2 * A83 - A82
A85: 2 * A84 - A83
A86: 2 * A85 - A84
A87: 2 * A86 - A85
A88: 2 * A87 - A86
A89: 2 * A88 - A87
A90: 2 * A89 - A88
A91: 2 * A90 - A89
A92: 2 * A91 - A90
A93: 2 * A92 - A91
A94: 2 * A93 - A92
A95: 2 * A94 - A93
A96: 2 * A95 - A94
A97: 2 * A96 - A95
A98: 2 * A97 - A96
A99: 2 * A98 - A97
A100: 2 * A99 - A98
B1 = Element(puntoEsc, A1)
B2 = Element(puntoEsc, A2)
B3 = Element(puntoEsc, A3)
B4 = Element(puntoEsc, A4)
B5 = Element(puntoEsc, A5)
B6 = Element(puntoEsc, A6)
B7 = Element(puntoEsc, A7)
B8 = Element(puntoEsc, A8)
B9 = Element(puntoEsc, A9)
B10 = Element(puntoEsc, A10)
B11 = Element(puntoEsc, A11)
B12 = Element(puntoEsc, A12)
B13 = Element(puntoEsc, A13)
B14 = Element(puntoEsc, A14)
B15 = Element(puntoEsc, A15)
B16 = Element(puntoEsc, A16)
B17 = Element(puntoEsc, A17)
B18 = Element(puntoEsc, A18)
B19 = Element(puntoEsc, A19)
B20 = Element(puntoEsc, A20)
B21 = Element(puntoEsc, A21)
B22 = Element(puntoEsc, A22)
B23 = Element(puntoEsc, A23)
B24 = Element(puntoEsc, A24)
B25 = Element(puntoEsc, A25)
B26 = Element(puntoEsc, A26)
B27 = Element(puntoEsc, A27)
B28 = Element(puntoEsc, A28)
B29 = Element(puntoEsc, A29)
B30 = Element(puntoEsc, A30)
B31 = Element(puntoEsc, A31)
B32 = Element(puntoEsc, A32)
B33 = Element(puntoEsc, A33)
B34 = Element(puntoEsc, A34)
B35 = Element(puntoEsc, A35)
B36 = Element(puntoEsc, A36)
B37 = Element(puntoEsc, A37)
B38 = Element(puntoEsc, A38)
B39 = Element(puntoEsc, A39)
B40 = Element(puntoEsc, A40)
B41 = Element(puntoEsc, A41)
B42 = Element(puntoEsc, A42)
B43 = Element(puntoEsc, A43)
B44 = Element(puntoEsc, A44)
B45 = Element(puntoEsc, A45)
B46 = Element(puntoEsc, A46)
B47 = Element(puntoEsc, A47)
B48 = Element(puntoEsc, A48)
B49 = Element(puntoEsc, A49)
B50 = Element(puntoEsc, A50)
B51 = Element(puntoEsc, A51)
B52 = Element(puntoEsc, A52)
B53 = Element(puntoEsc, A53)
B54 = Element(puntoEsc, A54)
B55 = Element(puntoEsc, A55)
B56 = Element(puntoEsc, A56)
B57 = Element(puntoEsc, A57)
B58 = Element(puntoEsc, A58)
B59 = Element(puntoEsc, A59)
B60 = Element(puntoEsc, A60)
B61 = Element(puntoEsc, A61)
B62 = Element(puntoEsc, A62)
B63 = Element(puntoEsc, A63)
B64 = Element(puntoEsc, A64)
B65 = Element(puntoEsc, A65)
B66 = Element(puntoEsc, A66)
B67 = Element(puntoEsc, A67)
B68 = Element(puntoEsc, A68)
B69 = Element(puntoEsc, A69)
B70 = Element(puntoEsc, A70)
B71 = Element(puntoEsc, A71)
B72 = Element(puntoEsc, A72)
B73 = Element(puntoEsc, A73)
B74 = Element(puntoEsc, A74)
B75 = Element(puntoEsc, A75)
B76 = Element(puntoEsc, A76)
B77 = Element(puntoEsc, A77)
B78 = Element(puntoEsc, A78)
B79 = Element(puntoEsc, A79)
B80 = Element(puntoEsc, A80)
B81 = Element(puntoEsc, A81)
B82 = Element(puntoEsc, A82)
B83 = Element(puntoEsc, A83)
B84 = Element(puntoEsc, A84)
B85 = Element(puntoEsc, A85)
B86 = Element(puntoEsc, A86)
B87 = Element(puntoEsc, A87)
B88 = Element(puntoEsc, A88)
B89 = Element(puntoEsc, A89)
B90 = Element(puntoEsc, A90)
B91 = Element(puntoEsc, A91)
B92 = Element(puntoEsc, A92)
B93 = Element(puntoEsc, A93)
B94 = Element(puntoEsc, A94)
B95 = Element(puntoEsc, A95)
B96 = Element(puntoEsc, A96)
B97 = Element(puntoEsc, A97)
B98 = Element(puntoEsc, A98)
B99 = Element(puntoEsc, A99)
B100 = Element(puntoEsc, A100)
D1_1 = 0
A101: 2 * A100 - A99
A102: 2 * A101 - A100
A103: 2 * A102 - A101
A104: 2 * A103 - A102
A105: 2 * A104 - A103
A106: 2 * A105 - A104
A107: 2 * A106 - A105
A108: 2 * A107 - A106
A109: 2 * A108 - A107
A110: 2 * A109 - A108
A111: 2 * A110 - A109
A112: 2 * A111 - A110
A113: 2 * A112 - A111
A114: 2 * A113 - A112
A115: 2 * A114 - A113
A116: 2 * A115 - A114
A117: 2 * A116 - A115
A118: 2 * A117 - A116
A119: 2 * A118 - A117
A120: 2 * A119 - A118
A121: 2 * A120 - A119
A122: 2 * A121 - A120
A123: 2 * A122 - A121
A124: 2 * A123 - A122
A125: 2 * A124 - A123
A126: 2 * A125 - A124
A127: 2 * A126 - A125
A128: 2 * A127 - A126
A129: 2 * A128 - A127
A130: 2 * A129 - A128
A131: 2 * A130 - A129
A132: 2 * A131 - A130
A133: 2 * A132 - A131
A134: 2 * A133 - A132
A135: 2 * A134 - A133
A136: 2 * A135 - A134
A137: 2 * A136 - A135
A138: 2 * A137 - A136
A139: 2 * A138 - A137
A140: 2 * A139 - A138
A141: 2 * A140 - A139
A142: 2 * A141 - A140
A143: 2 * A142 - A141
A144: 2 * A143 - A142
A145: 2 * A144 - A143
A146: 2 * A145 - A144
A147: 2 * A146 - A145
A148: 2 * A147 - A146
A149: 2 * A148 - A147
A150: 2 * A149 - A148
A151: 2 * A150 - A149
A152: 2 * A151 - A150
A153: 2 * A152 - A151
A154: 2 * A153 - A152
A155: 2 * A154 - A153
A156: 2 * A155 - A154
A157: 2 * A156 - A155
A158: 2 * A157 - A156
A159: 2 * A158 - A157
A160: 2 * A159 - A158
A161: 2 * A160 - A159
A162: 2 * A161 - A160
A163: 2 * A162 - A161
A164: 2 * A163 - A162
A165: 2 * A164 - A163
A166: 2 * A165 - A164
A167: 2 * A166 - A165
A168: 2 * A167 - A166
A169: 2 * A168 - A167
A170: 2 * A169 - A168
A171: 2 * A170 - A169
A172: 2 * A171 - A170
A173: 2 * A172 - A171
A174: 2 * A173 - A172
A175: 2 * A174 - A173
A176: 2 * A175 - A174
A177: 2 * A176 - A175
A178: 2 * A177 - A176
A179: 2 * A178 - A177
A180: 2 * A179 - A178
A181: 2 * A180 - A179
A182: 2 * A181 - A180
A183: 2 * A182 - A181
A184: 2 * A183 - A182
A185: 2 * A184 - A183
A186: 2 * A185 - A184
A187: 2 * A186 - A185
A188: 2 * A187 - A186
A189: 2 * A188 - A187
A190: 2 * A189 - A188
A191: 2 * A190 - A189
A192: 2 * A191 - A190
A193: 2 * A192 - A191
A194: 2 * A193 - A192
A195: 2 * A194 - A193
A196: 2 * A195 - A194
A197: 2 * A196 - A195
A198: 2 * A197 - A196
A199: 2 * A198 - A197
A200: 2 * A199 - A198
A201: 2 * A200 - A199
A202: 2 * A201 - A200
A203: 2 * A202 - A201
A204: 2 * A203 - A202
A205: 2 * A204 - A203
A206: 2 * A205 - A204
A207: 2 * A206 - A205
A208: 2 * A207 - A206
A209: 2 * A208 - A207
A210: 2 * A209 - A208
A211: 2 * A210 - A209
A212: 2 * A211 - A210
A213: 2 * A212 - A211
A214: 2 * A213 - A212
A215: 2 * A214 - A213
A216: 2 * A215 - A214
A217: 2 * A216 - A215
A218: 2 * A217 - A216
A219: 2 * A218 - A217
A220: 2 * A219 - A218
A221: 2 * A220 - A219
A222: 2 * A221 - A220
A223: 2 * A222 - A221
A224: 2 * A223 - A222
A225: 2 * A224 - A223
A226: 2 * A225 - A224
A227: 2 * A226 - A225
A228: 2 * A227 - A226
A229: 2 * A228 - A227
A230: 2 * A229 - A228
A231: 2 * A230 - A229
A232: 2 * A231 - A230
A233: 2 * A232 - A231
A234: 2 * A233 - A232
A235: 2 * A234 - A233
A236: 2 * A235 - A234
A237: 2 * A236 - A235
A238: 2 * A237 - A236
A239: 2 * A238 - A237
A240: 2 * A239 - A238
A241: 2 * A240 - A239
A242: 2 * A241 - A240
A243: 2 * A242 - A241
A244: 2 * A243 - A242
A245: 2 * A244 - A243
A246: 2 * A245 - A244
A247: 2 * A246 - A245
A248: 2 * A247 - A246
A249: 2 * A248 - A247
A250: 2 * A249 - A248
A251: 2 * A250 - A249
A252: 2 * A251 - A250
A253: 2 * A252 - A251
A254: 2 * A253 - A252
A255: 2 * A254 - A253
A256: 2 * A255 - A254
A257: 2 * A256 - A255
A258: 2 * A257 - A256
A259: 2 * A258 - A257
A260: 2 * A259 - A258
A261: 2 * A260 - A259
A262: 2 * A261 - A260
A263: 2 * A262 - A261
A264: 2 * A263 - A262
A265: 2 * A264 - A263
A266: 2 * A265 - A264
A267: 2 * A266 - A265
A268: 2 * A267 - A266
A269: 2 * A268 - A267
A270: 2 * A269 - A268
A271: 2 * A270 - A269
A272: 2 * A271 - A270
A273: 2 * A272 - A271
A274: 2 * A273 - A272
A275: 2 * A274 - A273
A276: 2 * A275 - A274
A277: 2 * A276 - A275
A278: 2 * A277 - A276
A279: 2 * A278 - A277
A280: 2 * A279 - A278
A281: 2 * A280 - A279
A282: 2 * A281 - A280
A283: 2 * A282 - A281
A284: 2 * A283 - A282
A285: 2 * A284 - A283
A286: 2 * A285 - A284
A287: 2 * A286 - A285
A288: 2 * A287 - A286
A289: 2 * A288 - A287
A290: 2 * A289 - A288
B101 = Element(puntoEsc, A101)
B102 = Element(puntoEsc, A102)
B103 = Element(puntoEsc, A103)
B104 = Element(puntoEsc, A104)
B105 = Element(puntoEsc, A105)
B106 = Element(puntoEsc, A106)
B107 = Element(puntoEsc, A107)
B108 = Element(puntoEsc, A108)
B109 = Element(puntoEsc, A109)
B110 = Element(puntoEsc, A110)
B111 = Element(puntoEsc, A111)
B112 = Element(puntoEsc, A112)
B113 = Element(puntoEsc, A113)
B114 = Element(puntoEsc, A114)
B115 = Element(puntoEsc, A115)
B116 = Element(puntoEsc, A116)
B117 = Element(puntoEsc, A117)
B118 = Element(puntoEsc, A118)
B119 = Element(puntoEsc, A119)
B120 = Element(puntoEsc, A120)
B121 = Element(puntoEsc, A121)
B122 = Element(puntoEsc, A122)
B123 = Element(puntoEsc, A123)
B124 = Element(puntoEsc, A124)
B125 = Element(puntoEsc, A125)
B126 = Element(puntoEsc, A126)
B127 = Element(puntoEsc, A127)
B128 = Element(puntoEsc, A128)
B129 = Element(puntoEsc, A129)
B130 = Element(puntoEsc, A130)
B131 = Element(puntoEsc, A131)
B132 = Element(puntoEsc, A132)
B133 = Element(puntoEsc, A133)
B134 = Element(puntoEsc, A134)
B135 = Element(puntoEsc, A135)
B136 = Element(puntoEsc, A136)
B137 = Element(puntoEsc, A137)
B138 = Element(puntoEsc, A138)
B139 = Element(puntoEsc, A139)
B140 = Element(puntoEsc, A140)
B141 = Element(puntoEsc, A141)
B142 = Element(puntoEsc, A142)
B143 = Element(puntoEsc, A143)
B144 = Element(puntoEsc, A144)
B145 = Element(puntoEsc, A145)
B146 = Element(puntoEsc, A146)
B147 = Element(puntoEsc, A147)
B148 = Element(puntoEsc, A148)
B149 = Element(puntoEsc, A149)
B150 = Element(puntoEsc, A150)
B151 = Element(puntoEsc, A151)
B152 = Element(puntoEsc, A152)
B153 = Element(puntoEsc, A153)
B154 = Element(puntoEsc, A154)
B155 = Element(puntoEsc, A155)
B156 = Element(puntoEsc, A156)
B157 = Element(puntoEsc, A157)
B158 = Element(puntoEsc, A158)
B159 = Element(puntoEsc, A159)
B160 = Element(puntoEsc, A160)
B161 = Element(puntoEsc, A161)
B162 = Element(puntoEsc, A162)
B163 = Element(puntoEsc, A163)
B164 = Element(puntoEsc, A164)
B165 = Element(puntoEsc, A165)
B166 = Element(puntoEsc, A166)
B167 = Element(puntoEsc, A167)
B168 = Element(puntoEsc, A168)
B169 = Element(puntoEsc, A169)
B170 = Element(puntoEsc, A170)
B171 = Element(puntoEsc, A171)
B172 = Element(puntoEsc, A172)
B173 = Element(puntoEsc, A173)
B174 = Element(puntoEsc, A174)
B175 = Element(puntoEsc, A175)
B176 = Element(puntoEsc, A176)
B177 = Element(puntoEsc, A177)
B178 = Element(puntoEsc, A178)
B179 = Element(puntoEsc, A179)
B180 = Element(puntoEsc, A180)
B181 = Element(puntoEsc, A181)
B182 = Element(puntoEsc, A182)
B183 = Element(puntoEsc, A183)
B184 = Element(puntoEsc, A184)
B185 = Element(puntoEsc, A185)
B186 = Element(puntoEsc, A186)
B187 = Element(puntoEsc, A187)
B188 = Element(puntoEsc, A188)
B189 = Element(puntoEsc, A189)
B190 = Element(puntoEsc, A190)
B191 = Element(puntoEsc, A191)
B192 = Element(puntoEsc, A192)
B193 = Element(puntoEsc, A193)
B194 = Element(puntoEsc, A194)
B195 = Element(puntoEsc, A195)
B196 = Element(puntoEsc, A196)
B197 = Element(puntoEsc, A197)
B198 = Element(puntoEsc, A198)
B199 = Element(puntoEsc, A199)
B200 = Element(puntoEsc, A200)
B201 = Element(puntoEsc, A201)
B202 = Element(puntoEsc, A202)
B203 = Element(puntoEsc, A203)
B204 = Element(puntoEsc, A204)
B205 = Element(puntoEsc, A205)
B206 = Element(puntoEsc, A206)
B207 = Element(puntoEsc, A207)
B208 = Element(puntoEsc, A208)
B209 = Element(puntoEsc, A209)
B210 = Element(puntoEsc, A210)
B211 = Element(puntoEsc, A211)
B212 = Element(puntoEsc, A212)
B213 = Element(puntoEsc, A213)
B214 = Element(puntoEsc, A214)
B215 = Element(puntoEsc, A215)
B216 = Element(puntoEsc, A216)
B217 = Element(puntoEsc, A217)
B218 = Element(puntoEsc, A218)
B219 = Element(puntoEsc, A219)
B220 = Element(puntoEsc, A220)
B221 = Element(puntoEsc, A221)
B222 = Element(puntoEsc, A222)
B223 = Element(puntoEsc, A223)
B224 = Element(puntoEsc, A224)
B225 = Element(puntoEsc, A225)
B226 = Element(puntoEsc, A226)
B227 = Element(puntoEsc, A227)
B228 = Element(puntoEsc, A228)
B229 = Element(puntoEsc, A229)
B230 = Element(puntoEsc, A230)
B231 = Element(puntoEsc, A231)
B232 = Element(puntoEsc, A232)
B233 = Element(puntoEsc, A233)
B234 = Element(puntoEsc, A234)
B235 = Element(puntoEsc, A235)
B236 = Element(puntoEsc, A236)
B237 = Element(puntoEsc, A237)
B238 = Element(puntoEsc, A238)
B239 = Element(puntoEsc, A239)
B240 = Element(puntoEsc, A240)
B241 = Element(puntoEsc, A241)
B242 = Element(puntoEsc, A242)
B243 = Element(puntoEsc, A243)
B244 = Element(puntoEsc, A244)
B245 = Element(puntoEsc, A245)
B246 = Element(puntoEsc, A246)
B247 = Element(puntoEsc, A247)
B248 = Element(puntoEsc, A248)
B249 = Element(puntoEsc, A249)
B250 = Element(puntoEsc, A250)
B251 = Element(puntoEsc, A251)
B252 = Element(puntoEsc, A252)
B253 = Element(puntoEsc, A253)
B254 = Element(puntoEsc, A254)
B255 = Element(puntoEsc, A255)
B256 = Element(puntoEsc, A256)
B257 = Element(puntoEsc, A257)
B258 = Element(puntoEsc, A258)
B259 = Element(puntoEsc, A259)
B260 = Element(puntoEsc, A260)
B261 = Element(puntoEsc, A261)
B262 = Element(puntoEsc, A262)
B263 = Element(puntoEsc, A263)
B264 = Element(puntoEsc, A264)
B265 = Element(puntoEsc, A265)
B266 = Element(puntoEsc, A266)
B267 = Element(puntoEsc, A267)
B268 = Element(puntoEsc, A268)
B269 = Element(puntoEsc, A269)
B270 = Element(puntoEsc, A270)
B271 = Element(puntoEsc, A271)
B272 = Element(puntoEsc, A272)
B273 = Element(puntoEsc, A273)
B274 = Element(puntoEsc, A274)
B275 = Element(puntoEsc, A275)
B276 = Element(puntoEsc, A276)
B277 = Element(puntoEsc, A277)
B278 = Element(puntoEsc, A278)
B279 = Element(puntoEsc, A279)
B280 = Element(puntoEsc, A280)
B281 = Element(puntoEsc, A281)
B282 = Element(puntoEsc, A282)
B283 = Element(puntoEsc, A283)
B284 = Element(puntoEsc, A284)
B285 = Element(puntoEsc, A285)
B286 = Element(puntoEsc, A286)
B287 = Element(puntoEsc, A287)
B288 = Element(puntoEsc, A288)
B289 = Element(puntoEsc, A289)
B290 = Element(puntoEsc, A290)
xGoma = -3.6800000000000006 (slider from -3.9 to -3.4, step 0.01)
rojo = Element(rojos, escena)
verde = Element(verdes, escena)
azul = Element(azules, escena)
yGoma = 5.339999999999998 (slider from 5.3 to 5.55, step 0.01)
C: (xGoma, yGoma)
a = Segment(B0, B0 + (0, (-29) / 3))
areaEsc: {Segment[A0, A0 + (13.4, 0)], Segment[A0 + (13.4, 0), A0 + (13.4, (-29) / 3 - 0.4)], Segment[A0 + (13.4, (-29) / 3 - 0.4), A0 + (0, (-29) / 3 - 0.4)], Segment[A0, A0 + (0, (-29) / 3 - 0.4)]}
comprobar = false
texto1: "Escena " + escena
c = Circle(F, G)
A = Point(c)
f = Segment(F, A)
b = LineBisector(F, G)
B = Point(b)
g = Segment(F, B)
h = Segment(B, G)
i, j = AngularBisector(r, d)
E = Point(i)
H = Point(j)
k = OrthogonalLine(E, r)
l = OrthogonalLine(E, d)
m = OrthogonalLine(H, r)
p = OrthogonalLine(H, d)
I = Intersect(d, p)
J = Intersect(r, m)
K = Intersect(r, k)
L_1 = Intersect(l, d)
q = Segment(K, E)
s = Segment(E, L_1)
t_1 = Segment(H, J)
a_1 = Segment(H, I)
c_1 = Parabola(F, d)
M = Point(c_1)
b_1 = Segment(M, F)
d_1 = OrthogonalLine(M, d)
N = Intersect(d, d_1)
e_1 = Segment(M, N)
L = (-2.26, 2.62)
lista1: {Polygon[L, L - (20, 0), L + (-20, 20), L + (0, 20)]}