I'm trying to intersect two circles in a GeometricScene
.
segmentMidPoint=.;segmentMidPoint=Function[{a,b},
Block[{steps,l,c1,c2,i1},
steps={};
l=Line@{a,b};
c1=Circle[a,EuclideanDistance[a,b]];
AppendTo[steps,GeometricScene[{a,b},{l,c1}]];
c2=Circle[b,EuclideanDistance[a,b]];
AppendTo[steps,GeometricScene[{a,b},{l,c1,c2}]];
i1=First@RegionIntersection[c1,c2];
Print@RegionIntersection[c1,c2]
]];
Print@segmentMidPoint[a, b];
Up to the second GeometricScene
, the scene is interpreted correctly.
Then, the intersection seems not to be interpreted.
I was able to create the intersection with specified points:
Block[{a, b, l, c1, c2, ml},
a = {1, 0};
b = {4, 0};
l = Line@{a, b};
c1 = Circle[a, EuclideanDistance[a, b]];
c2 = Circle[b, EuclideanDistance[a, b]];
Graphics@Line@RegionIntersection[c1, c2][[1]]
]
But I wish to do it with symbolic points (a
, b
, etc.).