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