natural = Diagram {
    points = [ Point 0 (-100) 100    0      "black"    "a"
    
             , Point 1 150    100    150    "blue"     "F a"
             , Point 2 150    100    0      "magenta"  "G a"
             , Point 3 150    100    (-150) "red"      "H a"

             , Point 4 (-100) (-100) 0      "black"    "b"
             
             , Point 5 150    (-100) 150    "blue"     "F b"
             , Point 6 150    (-100) 0      "magenta"  "G b"
             , Point 7 150    (-100) (-150) "red"      "H b"
             ]
  , edges  = [ Edge 0 1 "blue"    "F"
             , Edge 0 2 "magenta" "G"
             , Edge 0 3 "red"     "H"

             , Edge 4 5 "blue"    "F"
             , Edge 4 6 "magenta" "G"
             , Edge 4 7 "red"     "H"

             , Edge 0 4 "black"   "f"
             , Edge 1 5 "blue"    "F f"
             , Edge 2 6 "magenta" "G f"
             , Edge 3 7 "red"     "H f"

             , Edge 1 2 "green"   "αa"
             , Edge 2 3 "green"   "βa"
             , Edge 5 6 "green"   "αb"
             , Edge 6 7 "green"   "βb"
             ]
}

ey
natural = Diagram {
    points = [ Point 0 (-100) 100    0      "black"    "a"
    
             , Point 1 150    100    150    "blue"     "F a"
             , Point 2 150    100    0      "magenta"  "G a"
             , Point 3 150    100    (-150) "red"      "H a"

             , Point 4 (-100) (-100) 0      "black"    "b"
             
             , Point 5 150    (-100) 150    "blue"     "F b"
             , Point 6 150    (-100) 0      "magenta"  "G b"
             , Point 7 150    (-100) (-150) "red"      "H b"
             ]
  , edges  = [ Edge 0 1 "blue"    "F"
             , Edge 0 2 "magenta" "G"
             , Edge 0 3 "red"     "H"

             , Edge 4 5 "blue"    "F"
             , Edge 4 6 "magenta" "G"
             , Edge 4 7 "red"     "H"

             , Edge 0 4 "black"   "f"
             , Edge 1 5 "blue"    "F f"
             , Edge 2 6 "magenta" "G f"
             , Edge 3 7 "red"     "H f"

             , Edge 1 2 "green"   "αa"
             , Edge 2 3 "green"   "βa"
             , Edge 5 6 "green"   "αb"
             , Edge 6 7 "green"   "βb"
             ]
}
natural = Diagram {
    points = [ Point 0 (-100) 100    0      "black"    "a"
    
             , Point 1 150    100    150    "blue"     "F a"
             , Point 2 150    100    0      "magenta"  "G a"
             , Point 3 150    100    (-150) "red"      "H a"

             , Point 4 (-100) (-100) 0      "black"    "b"
             
             , Point 5 150    (-100) 150    "blue"     "F b"
             , Point 6 150    (-100) 0      "magenta"  "G b"
             , Point 7 150    (-100) (-150) "red"      "H b"
             ]
  , edges  = [ Edge 0 1 "blue"    "F"
             , Edge 0 2 "magenta" "G"
             , Edge 0 3 "red"     "H"

             , Edge 4 5 "blue"    "F"
             , Edge 4 6 "magenta" "G"
             , Edge 4 7 "red"     "H"

             , Edge 0 4 "black"   "f"
             , Edge 1 5 "blue"    "F f"
             , Edge 2 6 "magenta" "G f"
             , Edge 3 7 "red"     "H f"

             , Edge 1 2 "green"   "αa"
             , Edge 2 3 "green"   "βa"
             , Edge 5 6 "green"   "αb"
             , Edge 6 7 "green"   "βb"
             ]
}