<<Moebius.m
<<Tessellate.m

poly = RegularPolygon[6, Pi/3]
gen = MGenFromPolygon[poly,{{1,4},{4,1},{2,5},{5,2},{3,6},{6,3}}]
tess = ApplyMGenList[gen,poly]

graf = DrawHypPolygons[tess, Diagonals -> True, Colored -> False]

(* For saving the picture as PostScript: *)
(* Display["picture", graf] *)
