I draw the following graph in Metapost. How to make the vertices of the subgraph with red edges not connect to arrows. The graph I obtained is
I want the vertices looks like the following picture (there is small space between a vertex and the arrows connnected to it). Thank you very much.
beginfig(1) ;
pair A[],L[],R[],N[],q[];
path p[];
A[1] := (0,2cm);
for i=2 upto 5:
A[i] := A[i-1] rotated -360/5;
endfor;
label.top(btex 1 etex, A[1]);
label.rt(btex 2 etex, A[2]);
label.bot(btex 3 etex, A[3]);
label.bot(btex 4 etex, A[4]);
label.lft(btex 5 etex, A[5]);
for i=1 upto 5:
q[i]:=A[i] rotated -36;
endfor;
q[6]:=0.5[A[1], A[4]];
for i=1 upto 6:
draw q[i] withpen pencircle scaled 2bp;
endfor;
for i=1 upto 5:
draw A[i] withpen pencircle scaled 2bp;
endfor;
N[1]:=0.5[A[1],A[4]];
N[2]:=1.5[A[5],N[1]];
N[3]:=0.5[A[5],N[1]];
p[1]:=A[1]..N[2]..A[4];
p[2]:=A[4]..N[3]..A[1];
draw p[1];
draw p[2];
drawarrow subpath(0,1) of p[1];
drawarrow subpath(0,0.2) of p[1];
drawarrow subpath(0,1.8) of p[1];
drawarrow subpath(0,1) of p[2];
drawarrow subpath(0,0.2) of p[2];
drawarrow subpath(0,1.8) of p[2];
N[1]:=0.5[A[2],A[5]];
N[2]:=0.5[A[1],N[1]];
p[3]:=A[2]..N[2]..A[5];
draw p[3];
drawarrow subpath(0,1.3) of p[3];
drawarrow subpath(0,0.5) of p[3];
drawarrow subpath(0,1.8) of p[3];
N[1]:=0.5[A[5],A[3]];
N[2]:=0.5[A[4],N[1]];
p[4]:=A[5]..N[2]..A[3];
draw p[4];
drawarrow subpath(0,0.8) of p[4];
drawarrow subpath(0,0.3) of p[4];
drawarrow subpath(0,1.8) of p[4];
p[5]:=A[3]..A[2];
draw p[5];
drawarrow subpath(0,0.5) of p[5];
drawarrow q[2]..A[2]..q[1] withcolor red;
drawarrow q[5]..A[1]..q[1] withcolor red;
drawarrow q[5]..A[5]..q[4] withcolor red;
drawarrow q[3]..A[4]..q[4] withcolor red;
drawarrow q[3]..A[3]..q[2] withcolor red;
drawarrow q[1].. p[1] intersectionpoint p[3] ..q[6] withcolor red;
drawarrow q[6].. p[3] intersectionpoint p[2] ..q[5] withcolor red;
drawarrow q[4].. p[4] intersectionpoint p[2] ..q[6] withcolor red;
drawarrow q[6].. p[4] intersectionpoint p[1] ..q[3] withcolor red;
endfig;
end