Re: [Dr. Geo] repo on selected problems in plane geometry

[Hilaire Fernandes]

This one is even more fun:

| fig c1 center radius |

fig := DrGeoSketch new.
c1 := fig circleCenter: 0@0 to: 4@0.
center := fig 
	point: 	c1 mathItem center + c1 mathItem radius  atRandom.
radius := fig
	value: [:circle |
		circle radius - (circle center dist: center coordinates) * 0.9]
	parent: c1.
fig circleCenter: center radius: radius.
(fig point: 4@0) show

Le 14/07/2024 à 11:39, Hilaire Fernandes a écrit :

> Yes! You
>       have to teach DrGeo.