input TEX;
prologues := 1;
%if scantokens(mpversion) < 1.200:
%   filenametemplate
%else:
%   outputtemplate :=
%fi
% "%j.eps";

beginfig(1)
pair zaaab ;
 zaaab = ( 0 , 0 ) ;
pair zaaac ;
 zaaac = ( 1cm , 0 ) ;
path paaad ;
 paaad:=zaaab -- zaaac ;
pair zaaae ;
 zaaae = ( 1cm , -1cm ) ;
pen qaaaf ;
 qaaaf = pencircle scaled 1bp ;
drawarrow paaad   withpen qaaaf   ;
 pen qaaag ;
 qaaag = pencircle scaled 4bp ;
draw zaaae   withpen qaaag   ;
 picture Paaah ;
 Paaah:=btex $A$  etex ;
pair zaaai ;
 zaaai = ( -0.6999969482421875 , 0.6999969482421875 ) ;
pair zaaaj ;
 zaaaj = 3bp * zaaai;
picture Paaak ;
 Paaak:=Paaah shifted zaaae ;
pair zaaal ;
 zaaal = lrcorner Paaah ;
pair zaaam ;
 zaaam = -1.0 * zaaal;
picture Paaan ;
 Paaan:=Paaak shifted zaaam ;
picture Paaao ;
 Paaao:=Paaan shifted zaaaj ;
draw Paaao     ;
 pair zaaap ;
 pen qaaaq ;
 draw zaaab   withpen qaaag   ;
 picture Paaar ;
 Paaar:=btex $O$  etex ;
pair zaaas ;
 pair zaaat ;
 zaaat = ( 0 , -1.0 ) ;
pair zaaau ;
 zaaau = 3bp * zaaat;
picture Paaav ;
 Paaav:=Paaar shifted zaaab ;
pair zaaaw ;
 zaaaw = ulcorner Paaar ;
pair zaaax ;
 zaaax = urcorner Paaar ;
pair zaaay ;
 zaaay = ( 0.5 ) [ zaaaw , zaaax ] ;
pair zaaaz ;
 zaaaz = -1.0 * zaaay;
picture Paaba ;
 Paaba:=Paaav shifted zaaaz ;
picture Paabb ;
 Paabb:=Paaba shifted zaaau ;
draw Paabb     ;
 pair zaabc ;
 zaabc = 0 * zaaae;
pair zaabd ;
 zaabd = zaabc / 10.0;
pair zaabe ;
 zaabe = -1.0 * zaabd;
path paabf ;
 paabf:=paaad shifted zaabe ;
drawarrow paabf  withcolor red    ;
 numeric xaabg ;
 xaabg = 0 * 90.0;
numeric xaabh ;
 xaabh = xaabg / 10.0;
pair zaabi ;
 zaabi = -1.0 * zaaae;
path paabj ;
 paabj:=paaad shifted zaabi ;
path paabk ;
 paabk:=paabj rotated xaabh ;
drawarrow paabk  withcolor green    ;
 pair zaabl ;
 pair zaabm ;
 pair zaabn ;
 path paabo ;
 path paabp ;
 paabp:=paabj rotated 90.0 ;
path paabq ;
 paabq:=paabp shifted zaabd ;
drawarrow paabq  withcolor blue    ;
 pair zaabr ;
 zaabr = 1.0 * zaaae;
pair zaabs ;
 zaabs = zaabr / 10.0;
pair zaabt ;
 zaabt = -1.0 * zaabs;
path paabu ;
 paabu:=paaad shifted zaabt ;
drawarrow paabu  withcolor red    ;
 numeric xaabv ;
 xaabv = 1.0 * 90.0;
numeric xaabw ;
 xaabw = xaabv / 10.0;
pair zaabx ;
 path paaby ;
 path paabz ;
 paabz:=paabj rotated xaabw ;
drawarrow paabz  withcolor green    ;
 pair zaaca ;
 pair zaacb ;
 pair zaacc ;
 path paacd ;
 path paace ;
 path paacf ;
 paacf:=paabp shifted zaabs ;
drawarrow paacf  withcolor blue    ;
 pair zaacg ;
 zaacg = 2.0 * zaaae;
pair zaach ;
 zaach = zaacg / 10.0;
pair zaaci ;
 zaaci = -1.0 * zaach;
path paacj ;
 paacj:=paaad shifted zaaci ;
drawarrow paacj  withcolor red    ;
 numeric xaack ;
 xaack = 2.0 * 90.0;
numeric xaacl ;
 xaacl = xaack / 10.0;
pair zaacm ;
 path paacn ;
 path paaco ;
 paaco:=paabj rotated xaacl ;
drawarrow paaco  withcolor green    ;
 pair zaacp ;
 pair zaacq ;
 pair zaacr ;
 path paacs ;
 path paact ;
 path paacu ;
 paacu:=paabp shifted zaach ;
drawarrow paacu  withcolor blue    ;
 pair zaacv ;
 zaacv = 3.0 * zaaae;
pair zaacw ;
 zaacw = zaacv / 10.0;
pair zaacx ;
 zaacx = -1.0 * zaacw;
path paacy ;
 paacy:=paaad shifted zaacx ;
drawarrow paacy  withcolor red    ;
 numeric xaacz ;
 xaacz = 3.0 * 90.0;
numeric xaada ;
 xaada = xaacz / 10.0;
pair zaadb ;
 path paadc ;
 path paadd ;
 paadd:=paabj rotated xaada ;
drawarrow paadd  withcolor green    ;
 pair zaade ;
 pair zaadf ;
 pair zaadg ;
 path paadh ;
 path paadi ;
 path paadj ;
 paadj:=paabp shifted zaacw ;
drawarrow paadj  withcolor blue    ;
 pair zaadk ;
 zaadk = 4.0 * zaaae;
pair zaadl ;
 zaadl = zaadk / 10.0;
pair zaadm ;
 zaadm = -1.0 * zaadl;
path paadn ;
 paadn:=paaad shifted zaadm ;
drawarrow paadn  withcolor red    ;
 numeric xaado ;
 xaado = 4.0 * 90.0;
numeric xaadp ;
 xaadp = xaado / 10.0;
pair zaadq ;
 path paadr ;
 path paads ;
 paads:=paabj rotated xaadp ;
drawarrow paads  withcolor green    ;
 pair zaadt ;
 pair zaadu ;
 pair zaadv ;
 path paadw ;
 path paadx ;
 path paady ;
 paady:=paabp shifted zaadl ;
drawarrow paady  withcolor blue    ;
 pair zaadz ;
 zaadz = 5.0 * zaaae;
pair zaaea ;
 zaaea = zaadz / 10.0;
pair zaaeb ;
 zaaeb = -1.0 * zaaea;
path paaec ;
 paaec:=paaad shifted zaaeb ;
drawarrow paaec  withcolor red    ;
 numeric xaaed ;
 xaaed = 5.0 * 90.0;
numeric xaaee ;
 xaaee = xaaed / 10.0;
pair zaaef ;
 path paaeg ;
 path paaeh ;
 paaeh:=paabj rotated xaaee ;
drawarrow paaeh  withcolor green    ;
 pair zaaei ;
 pair zaaej ;
 pair zaaek ;
 path paael ;
 path paaem ;
 path paaen ;
 paaen:=paabp shifted zaaea ;
drawarrow paaen  withcolor blue    ;
 pair zaaeo ;
 zaaeo = 6.0 * zaaae;
pair zaaep ;
 zaaep = zaaeo / 10.0;
pair zaaeq ;
 zaaeq = -1.0 * zaaep;
path paaer ;
 paaer:=paaad shifted zaaeq ;
drawarrow paaer  withcolor red    ;
 numeric xaaes ;
 xaaes = 6.0 * 90.0;
numeric xaaet ;
 xaaet = xaaes / 10.0;
pair zaaeu ;
 path paaev ;
 path paaew ;
 paaew:=paabj rotated xaaet ;
drawarrow paaew  withcolor green    ;
 pair zaaex ;
 pair zaaey ;
 pair zaaez ;
 path paafa ;
 path paafb ;
 path paafc ;
 paafc:=paabp shifted zaaep ;
drawarrow paafc  withcolor blue    ;
 pair zaafd ;
 zaafd = 7.0 * zaaae;
pair zaafe ;
 zaafe = zaafd / 10.0;
pair zaaff ;
 zaaff = -1.0 * zaafe;
path paafg ;
 paafg:=paaad shifted zaaff ;
drawarrow paafg  withcolor red    ;
 numeric xaafh ;
 xaafh = 7.0 * 90.0;
numeric xaafi ;
 xaafi = xaafh / 10.0;
pair zaafj ;
 path paafk ;
 path paafl ;
 paafl:=paabj rotated xaafi ;
drawarrow paafl  withcolor green    ;
 pair zaafm ;
 pair zaafn ;
 pair zaafo ;
 path paafp ;
 path paafq ;
 path paafr ;
 paafr:=paabp shifted zaafe ;
drawarrow paafr  withcolor blue    ;
 pair zaafs ;
 zaafs = 8.0 * zaaae;
pair zaaft ;
 zaaft = zaafs / 10.0;
pair zaafu ;
 zaafu = -1.0 * zaaft;
path paafv ;
 paafv:=paaad shifted zaafu ;
drawarrow paafv  withcolor red    ;
 numeric xaafw ;
 xaafw = 8.0 * 90.0;
numeric xaafx ;
 xaafx = xaafw / 10.0;
pair zaafy ;
 path paafz ;
 path paaga ;
 paaga:=paabj rotated xaafx ;
drawarrow paaga  withcolor green    ;
 pair zaagb ;
 pair zaagc ;
 pair zaagd ;
 path paage ;
 path paagf ;
 path paagg ;
 paagg:=paabp shifted zaaft ;
drawarrow paagg  withcolor blue    ;
 pair zaagh ;
 zaagh = 9.0 * zaaae;
pair zaagi ;
 zaagi = zaagh / 10.0;
pair zaagj ;
 zaagj = -1.0 * zaagi;
path paagk ;
 paagk:=paaad shifted zaagj ;
drawarrow paagk  withcolor red    ;
 numeric xaagl ;
 xaagl = 9.0 * 90.0;
numeric xaagm ;
 xaagm = xaagl / 10.0;
pair zaagn ;
 path paago ;
 path paagp ;
 paagp:=paabj rotated xaagm ;
drawarrow paagp  withcolor green    ;
 pair zaagq ;
 pair zaagr ;
 pair zaags ;
 path paagt ;
 path paagu ;
 path paagv ;
 paagv:=paabp shifted zaagi ;
drawarrow paagv  withcolor blue    ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;