Внести изменения в программу написанную в Wolfram Mathematica

Ниже приведен код программы, моделирующий теорему Дезарга :
Если два треугольника расположены на плоскости таким образом, что прямые, соединяющие соответственные вершины треугольников, проходят через одну точку, то три точки, в которых пересекаются продолжения трёх пар соответственных сторон треугольников, лежат на одной прямой.

В коде программы необходимо заменить один локатор на Slider2D

TT = {AA, BB, CC, AA1, BB1, CC1};
Dynamic[If[
PP4 === EmptyRegion[2] PP5 === EmptyRegion[2]
PP6 === EmptyRegion[2],
Text["Ошибка: не выполняется условие теоремы (существование точки \
пересечения)"],
If[PP1 === EmptyRegion[2] PP2 === EmptyRegion[2]
PP3 === EmptyRegion[2],
Text["Существуют не все точки пересечения"],
Manipulate[
Graphics[{GraphicsComplex[TT, Line[{1, 2, 3, 1}]],
GraphicsComplex[TT, Line[{4, 5, 6, 4}]], Thick, Red,
InfiniteLine[{TT[[1]], TT[[4]]}],
InfiniteLine[{TT[[2]], TT[[5]]}],
InfiniteLine[{TT[[3]], TT[[6]]}], Blue,
Text["A", TT[[1]] + {0, 3}], Blue, Text["B", TT[[2]] + {0, 3}],
Blue, Text["C", TT[[3]] + {0, 3}], Blue,
Text["A1", TT[[4]] + {0, 3}], Blue,
Text["B1", TT[[5]] + {0, 3}], Blue,
Text["C1", TT[[6]] + {0, 3}], Green, PointSize[0.02],
PP1 = RegionIntersection[InfiniteLine[{TT[[1]], TT[[3]]}],
InfiniteLine[{TT[[4]], TT[[6]]}]], Green,
PP2 = RegionIntersection[InfiniteLine[{TT[[2]], TT[[3]]}],
InfiniteLine[{TT[[5]], TT[[6]]}]], Green,
PP3 = RegionIntersection[InfiniteLine[{TT[[1]], TT[[2]]}],
InfiniteLine[{TT[[4]], TT[[5]]}]], Yellow,
InfiniteLine[{Part[Part[Dynamic[PP1], 1], 1],
Part[Part[Dynamic[PP2], 1], 1]}], Gray,
PP4 = RegionIntersection[InfiniteLine[{TT[[1]], TT[[4]]}],
InfiniteLine[{TT[[2]], TT[[5]]}]],
PP5 = RegionIntersection[InfiniteLine[{TT[[1]], TT[[4]]}],
InfiniteLine[{TT[[3]], TT[[6]]}]],
PP6 = RegionIntersection[InfiniteLine[{TT[[2]], TT[[5]]}],
InfiniteLine[{TT[[3]], TT[[6]]}]]}, Axes -> True,
PlotRange ->
50.0], {{TT, {{-5, 10}, {-38, 27}, {-1, 19}, {-10, -10}, {12,
8}, {30, -20}}}, Locator}]]]]