path k;
 path l;
 path p;
 transform A;
 u:=1cm;
 k=(-1.5u,0u)--(1.5u,0u);
 l= (0u,1.5u)--(0u,-1.5u);
 p:=fullcircle scaled 2u;
 pickup pencircle scaled 0.3pt;
 drawarrow k;
 drawarrow l;
 xxpart A=-1;
 xypart A=-2;
 yypart A=1;
 yxpart A=1;
 xpart A=0;
 ypart A=0;
 pickup pencircle scaled 0.1pt;
 draw p withcolor (1,0,0);
 draw p transformed A withcolor (0,1,0);
 pickup pencircle scaled 0.2pt;
 for i=1 upto 10:
 drawarrow (0,0)--(-((sind 20i) + 2*cosd 20i)*u,((cosd 20i)+sind 20i)*u) withcolor (0.5,0.5,0.5);
 endfor;
endfig;