%% auteur : 
usecolor
tracerepere
quadrillage
marks
/G{1 2} def
G point
/H{2 0} def
H times2
magenta
{-2 mul 4 add} courbe

/fillstyle {AliceBlue fill} def
0 90 G 2 Cercle*