> FLOWERS  23,1,1;0;0;0;:  1  23,1,0;0;0;0;  ellplot=&CD ( cirplot=&9D 2 flower(640,512,100,30) < flower(320,256,50,15) F flower(320,768,50,15) P flower(960,768,50,15) Z flower(960,256,50,15) d n x flower(cx%,cy%,sx%,sy%)  petals(3,0)  petals(2,45)  petals(1,22.50)  petals(1,67.50) 0,2  cx%,cy%  cirplot,cx%+sx%/2,cy%    petals(col%,angle) 0,col%  n%=0 3  x%=sx%*((90*n%+angle))  y%=sx%*((90*n%+angle)) . ell(cx%+x%,cy%+y%,sx%,sy%,90*n%+angle)  " , 6" ell(cx%,cy%,maj%,min%,ang%) @ cosang=((ang%)) J sinang=((ang%)) T- maxy%=((min%*cosang)^2+(maj%*sinang)^2) ^6 shearx%=(maj%*maj%-min%*min%)*cosang*sinang/maxy% h slicew%=maj%*min%/maxy% r cx%,cy% | cx%+slicew%,cy% $ ellplot,cx%+shearx%,cy%+maxy%