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     ;
 draw zaaab   withpen qaaag   ;
 picture Paaap ;
 Paaap:=btex $O$  etex ;
pair zaaaq ;
 zaaaq = ( 0 , -1.0 ) ;
pair zaaar ;
 zaaar = 3bp * zaaaq;
picture Paaas ;
 Paaas:=Paaap shifted zaaab ;
pair zaaat ;
 zaaat = ulcorner Paaap ;
pair zaaau ;
 zaaau = urcorner Paaap ;
pair zaaav ;
 zaaav = ( 0.5 ) [ zaaat , zaaau ] ;
pair zaaaw ;
 zaaaw = -1.0 * zaaav;
picture Paaax ;
 Paaax:=Paaas shifted zaaaw ;
picture Paaay ;
 Paaay:=Paaax shifted zaaar ;
draw Paaay     ;
 pair zaaaz ;
 zaaaz = 0 * zaaae;
pair zaaba ;
 zaaba = zaaaz / 10.0;
pair zaabb ;
 zaabb = -1.0 * zaaba;
path paabc ;
 paabc:=paaad shifted zaabb ;
drawarrow paabc  withcolor red    ;
 numeric xaabd ;
 xaabd = 0 * 90.0;
numeric xaabe ;
 xaabe = xaabd / 10.0;
pair zaabf ;
 zaabf = -1.0 * zaaae;
path paabg ;
 paabg:=paaad shifted zaabf ;
path paabh ;
 paabh:=paabg rotated xaabe ;
drawarrow paabh  withcolor green    ;
 path paabi ;
 paabi:=paabg rotated 90.0 ;
path paabj ;
 paabj:=paabi shifted zaaba ;
drawarrow paabj  withcolor blue    ;
 pair zaabk ;
 zaabk = 1.0 * zaaae;
pair zaabl ;
 zaabl = zaabk / 10.0;
pair zaabm ;
 zaabm = -1.0 * zaabl;
path paabn ;
 paabn:=paaad shifted zaabm ;
drawarrow paabn  withcolor red    ;
 numeric xaabo ;
 xaabo = 1.0 * 90.0;
numeric xaabp ;
 xaabp = xaabo / 10.0;
path paabq ;
 paabq:=paabg rotated xaabp ;
drawarrow paabq  withcolor green    ;
 path paabr ;
 paabr:=paabi shifted zaabl ;
drawarrow paabr  withcolor blue    ;
 pair zaabs ;
 zaabs = 2.0 * zaaae;
pair zaabt ;
 zaabt = zaabs / 10.0;
pair zaabu ;
 zaabu = -1.0 * zaabt;
path paabv ;
 paabv:=paaad shifted zaabu ;
drawarrow paabv  withcolor red    ;
 numeric xaabw ;
 xaabw = 2.0 * 90.0;
numeric xaabx ;
 xaabx = xaabw / 10.0;
path paaby ;
 paaby:=paabg rotated xaabx ;
drawarrow paaby  withcolor green    ;
 path paabz ;
 paabz:=paabi shifted zaabt ;
drawarrow paabz  withcolor blue    ;
 pair zaaca ;
 zaaca = 3.0 * zaaae;
pair zaacb ;
 zaacb = zaaca / 10.0;
pair zaacc ;
 zaacc = -1.0 * zaacb;
path paacd ;
 paacd:=paaad shifted zaacc ;
drawarrow paacd  withcolor red    ;
 numeric xaace ;
 xaace = 3.0 * 90.0;
numeric xaacf ;
 xaacf = xaace / 10.0;
path paacg ;
 paacg:=paabg rotated xaacf ;
drawarrow paacg  withcolor green    ;
 path paach ;
 paach:=paabi shifted zaacb ;
drawarrow paach  withcolor blue    ;
 pair zaaci ;
 zaaci = 4.0 * zaaae;
pair zaacj ;
 zaacj = zaaci / 10.0;
pair zaack ;
 zaack = -1.0 * zaacj;
path paacl ;
 paacl:=paaad shifted zaack ;
drawarrow paacl  withcolor red    ;
 numeric xaacm ;
 xaacm = 4.0 * 90.0;
numeric xaacn ;
 xaacn = xaacm / 10.0;
path paaco ;
 paaco:=paabg rotated xaacn ;
drawarrow paaco  withcolor green    ;
 path paacp ;
 paacp:=paabi shifted zaacj ;
drawarrow paacp  withcolor blue    ;
 pair zaacq ;
 zaacq = 5.0 * zaaae;
pair zaacr ;
 zaacr = zaacq / 10.0;
pair zaacs ;
 zaacs = -1.0 * zaacr;
path paact ;
 paact:=paaad shifted zaacs ;
drawarrow paact  withcolor red    ;
 numeric xaacu ;
 xaacu = 5.0 * 90.0;
numeric xaacv ;
 xaacv = xaacu / 10.0;
path paacw ;
 paacw:=paabg rotated xaacv ;
drawarrow paacw  withcolor green    ;
 path paacx ;
 paacx:=paabi shifted zaacr ;
drawarrow paacx  withcolor blue    ;
 pair zaacy ;
 zaacy = 6.0 * zaaae;
pair zaacz ;
 zaacz = zaacy / 10.0;
pair zaada ;
 zaada = -1.0 * zaacz;
path paadb ;
 paadb:=paaad shifted zaada ;
drawarrow paadb  withcolor red    ;
 numeric xaadc ;
 xaadc = 6.0 * 90.0;
numeric xaadd ;
 xaadd = xaadc / 10.0;
path paade ;
 paade:=paabg rotated xaadd ;
drawarrow paade  withcolor green    ;
 path paadf ;
 paadf:=paabi shifted zaacz ;
drawarrow paadf  withcolor blue    ;
 pair zaadg ;
 zaadg = 7.0 * zaaae;
pair zaadh ;
 zaadh = zaadg / 10.0;
pair zaadi ;
 zaadi = -1.0 * zaadh;
path paadj ;
 paadj:=paaad shifted zaadi ;
drawarrow paadj  withcolor red    ;
 numeric xaadk ;
 xaadk = 7.0 * 90.0;
numeric xaadl ;
 xaadl = xaadk / 10.0;
path paadm ;
 paadm:=paabg rotated xaadl ;
drawarrow paadm  withcolor green    ;
 path paadn ;
 paadn:=paabi shifted zaadh ;
drawarrow paadn  withcolor blue    ;
 pair zaado ;
 zaado = 8.0 * zaaae;
pair zaadp ;
 zaadp = zaado / 10.0;
pair zaadq ;
 zaadq = -1.0 * zaadp;
path paadr ;
 paadr:=paaad shifted zaadq ;
drawarrow paadr  withcolor red    ;
 numeric xaads ;
 xaads = 8.0 * 90.0;
numeric xaadt ;
 xaadt = xaads / 10.0;
path paadu ;
 paadu:=paabg rotated xaadt ;
drawarrow paadu  withcolor green    ;
 path paadv ;
 paadv:=paabi shifted zaadp ;
drawarrow paadv  withcolor blue    ;
 pair zaadw ;
 zaadw = 9.0 * zaaae;
pair zaadx ;
 zaadx = zaadw / 10.0;
pair zaady ;
 zaady = -1.0 * zaadx;
path paadz ;
 paadz:=paaad shifted zaady ;
drawarrow paadz  withcolor red    ;
 numeric xaaea ;
 xaaea = 9.0 * 90.0;
numeric xaaeb ;
 xaaeb = xaaea / 10.0;
path paaec ;
 paaec:=paabg rotated xaaeb ;
drawarrow paaec  withcolor green    ;
 path paaed ;
 paaed:=paabi shifted zaadx ;
drawarrow paaed  withcolor blue    ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;