Visualizing a Small Network (Desargues Graph)

Needs["DiscreteMath`GraphPlot`"]

DesarguesGraph = {1 -> 2, 1 -> 3, 1 -> 19, 
          2 -> 8, 2 -> 16, 3 -> 4, 3 -> 5, 4 -> 10, 
          4 -> 18, 5 -> 6, 5 -> 7, 6 -> 12, 6 -> 20, 
          7 -> 8, 7 -> 9, 8 -> 14, 9 -> 10, 9 -> 11, 
          10 -> 16, 11 -> 12, 11 -> 13, 12 -> 18, 
          13 -> 14, 13 -> 15, 14 -> 20, 15 -> 16, 
          15 -> 17, 17 -> 18, 17 -> 19, 
          19 -> 20};

GraphPlot[DesarguesGraph]

GraphPlot3D[DesarguesGraph]