cube = Diagram {
    points = [ Point 1 (-100) 100    (-100) "blue"   "A"
             , Point 2 100    100    (-100) "green"  "B"
             , Point 3 100    (-100) (-100) "black"  "C"
             , Point 4 (-100) (-100) (-100) "brown"  "D"
             , Point 5 (-100) 100    100    "red"    "E"
             , Point 6 100    100    100    "red"    "F"
             , Point 7 100    (-100) 100    "red"    "G"
             , Point 8 (-100) (-100) 100    "red"    "H"
             ]
  , edges  = [ Edge 1 2 "red"    "f"
             , Edge 2 3 "blue"   "g"
             , Edge 3 4 "yellow" "h"
             , Edge 4 1 "black"  "k"
             , Edge 5 6 "red"    "l"
             , Edge 6 7 "blue"   "m"
             , Edge 7 8 "yellow" "n"
             , Edge 8 5 "black"  "o"
             , Edge 1 5 "magenta" "p"
             , Edge 2 6 "magenta" "q"
             , Edge 3 7 "magenta" "r"
             , Edge 4 8 "magenta" "s"
             ]
}
cube = Diagram {
    points = [ Point 1 (-100) 100    (-100) "blue"   "A"
             , Point 2 100    100    (-100) "green"  "B"
             , Point 3 100    (-100) (-100) "black"  "C"
             , Point 4 (-100) (-100) (-100) "brown"  "D"
             , Point 5 (-100) 100    100    "red"    "E"
             , Point 6 100    100    100    "red"    "F"
             , Point 7 100    (-100) 100    "red"    "G"
             , Point 8 (-100) (-100) 100    "red"    "H"
             ]
  , edges  = [ Edge 1 2 "red"    "f"
             , Edge 2 3 "blue"   "g"
             , Edge 3 4 "yellow" "h"
             , Edge 4 1 "black"  "k"
             , Edge 5 6 "red"    "l"
             , Edge 6 7 "blue"   "m"
             , Edge 7 8 "yellow" "n"
             , Edge 8 5 "black"  "o"
             , Edge 1 5 "magenta" "p"
             , Edge 2 6 "magenta" "q"
             , Edge 3 7 "magenta" "r"
             , Edge 4 8 "magenta" "s"
             ]
}
cube = Diagram {
    points = [ Point 1 (-100) 100    (-100) "blue"   "A"
             , Point 2 100    100    (-100) "green"  "B"
             , Point 3 100    (-100) (-100) "black"  "C"
             , Point 4 (-100) (-100) (-100) "brown"  "D"
             , Point 5 (-100) 100    100    "red"    "E"
             , Point 6 100    100    100    "red"    "F"
             , Point 7 100    (-100) 100    "red"    "G"
             , Point 8 (-100) (-100) 100    "red"    "H"
             ]
  , edges  = [ Edge 1 2 "red"    "f"
             , Edge 2 3 "blue"   "g"
             , Edge 3 4 "yellow" "h"
             , Edge 4 1 "black"  "k"
             , Edge 5 6 "red"    "l"
             , Edge 6 7 "blue"   "m"
             , Edge 7 8 "yellow" "n"
             , Edge 8 5 "black"  "o"
             , Edge 1 5 "magenta" "p"
             , Edge 2 6 "magenta" "q"
             , Edge 3 7 "magenta" "r"
             , Edge 4 8 "magenta" "s"
             ]
}