read `GeometryMiracles.txt`:

plotsetup(gif,plotoutput=`oGeometryMiracles8.gif`,plotoptions=`portrait,noborder`):


LiP:=RanLiPrat(4,100);

C:=RanObjF4(LiP,4,100)[1][1]:

lprint(C);

DrawObj(LiP,C,P,2);


quit: