%%BoundingBox: xmin ymin xmax ymax
%%BeginProlog
/Times-Roman findfont % get the basic font
24 scalefont % scale the font to 12 points
setfont % make it the current font

/arrowhead {% stack: s x1 y1, current point: x0 y0
gsave
currentpoint % s x1 y1 x0 y0
4 2 roll exch % s x0 y0 y1 x1
4 -1 roll exch % s y0 y1 x0 x1
sub 3 1 roll % s x1-x2 y0 y1
sub exch % s y0-y1 x1-x2
atan rotate % rotate over arctan((y0-y1)/(x1-x2))
dup scale % scale by factor s
-7 2 rlineto 1 -2 rlineto -1 -2 rlineto
closepath fill % fill arrowhead
grestore
newpath
} def

%%EndProlog


250 800 20 0 360 arc closepath
stroke
150 650 20 0 360 arc closepath
stroke
350 650 20 0 360 arc closepath
stroke
250 500 20 0 360 arc closepath
stroke
50 500 20 0 360 arc closepath
stroke
500 500 20 0 360 arc closepath
stroke

newpath
244 792 moveto
(1) show

newpath
144 642 moveto
(2) show

newpath
343 642 moveto
(3) show

newpath
44 494 moveto
(4) show

newpath
242 494 moveto
(5) show

newpath
494 494 moveto
(6) show


newpath
237 784 moveto 158 668 lineto stroke
newpath 158 668 moveto 3 2000 3500 arrowhead

newpath
265 785 moveto 343 668 lineto stroke
newpath 343 668 moveto 3 -3000 5500 arrowhead

newpath
137 634 moveto 60 518 lineto stroke
newpath 60 518 moveto 3 2000 3500 arrowhead

newpath
164 635 moveto 240 518 lineto stroke
newpath 240 518 moveto 3 -3000 5500 arrowhead

newpath
169 645 moveto 480 503 lineto stroke
newpath 480 503 moveto 3 -3000 2100 arrowhead

newpath
332 641 moveto 68 506 lineto stroke
newpath 68 506 moveto 3 2000 1500 arrowhead

newpath
341 631 moveto 263 515 lineto stroke
newpath 263 515 moveto 3 2000 3000 arrowhead

newpath
365 635 moveto 491 518 lineto stroke
newpath 491 518 moveto 3 -3000 3700 arrowhead