50 setxunit
autocrop

/X {4 mul Cos} def
/Y {3 mul Sin} def

/fillstyle {cyan fill} def
1.7 setlinewidth

pi -3 div 
dup neg
{X} {Y} Courbeparam*