Network[{Node[1, NodePosition -> {164.255722, 135.206696}], 
   Node[2, NodePosition -> {74.59655800000001, 83.441879}], 
   Node[3, NodePosition -> {164.255722, 238.736176}], 
   Node[4, NodePosition -> {253.914948, 83.44191}], 
   Arc[{1, 2}, ArcCircleHeight -> 0., ArcLoopClockwise -> False, 
    ArcLoopAngle -> 3.141592653589793, ArcLoopSize -> 0.], 
   Arc[{2, 2}, ArcCircleHeight -> -1., ArcLoopClockwise -> True, 
    ArcLoopAngle -> -2.617997346410207, ArcLoopSize -> 60.66067900000001], 
   Arc[{3, 1}, ArcCircleHeight -> 0., ArcLoopClockwise -> False, 
    ArcLoopAngle -> 3.141592653589793, ArcLoopSize -> 0.], 
   Arc[{3, 3}, ArcCircleHeight -> -1., ArcLoopClockwise -> True, 
    ArcLoopAngle -> 1.570792653589793, ArcLoopSize -> 60.66067900000001], 
   Arc[{1, 4}, ArcCircleHeight -> 0., ArcLoopClockwise -> False, 
    ArcLoopAngle -> 3.141592653589793, ArcLoopSize -> 0.], 
   Arc[{4, 4}, ArcCircleHeight -> -1., ArcLoopClockwise -> True, 
    ArcLoopAngle -> -0.5235973464102069, ArcLoopSize -> 60.66067900000001]}, 
  ArcArrow -> False, ArcArrowAngle -> 0.4, ArcArrowColor -> GrayLevel[0.], 
  ArcArrowFlare -> 0.3, ArcArrowPosition -> 1., ArcArrowSize -> 17., 
  ArcBezierPath -> {{-0.333333, 0.}, {0.333333, 0.}}, 
  ArcColor -> GrayLevel[0.], ArcFlipped -> False, ArcLabel -> "", 
  ArcLabelColor -> GrayLevel[0], ArcLabelDistance -> 0., 
  ArcLabelPosition -> 0., ArcLabelSide -> Right, 
  ArcLoopBezierPath -> {{1.333333, -1.333333}, {-1.333333, -1.333333}}, 
  ArcLoopStyle -> Circle, ArcStyle -> Line, ArcThickness -> 1., 
  NodeAnnulusRatio -> 0.2, NodeColor -> GrayLevel[0.], NodeLabel -> None, 
  NodeLabelAngle -> 0.013578, NodeLabelColor -> GrayLevel[0], 
  NodeLabelDistance -> 0., NodeSize -> 3., NodeStyle -> Disk, 
  PlotRange -> {{0., 325.}, {330., 5.}}, ArcLabelFont :> $DefaultFont, 
  NodeLabelFont :> $DefaultFont]