(* Copyright (c) 1992 The Geometry Center; University of Minnesota 1300 South Second Street; Minneapolis, MN 55454, USA; This file is part of CirclePack. CirclePack is free software; you can redistribute it and/or modify it only under the terms given in the file COPYING, which you should have received along with this file. This and other software may be obtained via anonymous ftp from geom.umn.edu; email: software@geom.umn.edu. *) (* Author: Oliver Goodman *) (* $Id: cpexamples.m,v 1.2 1992/07/17 16:09:52 oag Exp $ *) genus2 = Triangulation[{{1,2,9},{2,3,9},{9,3,11},{3,4,11},{4,5,11},{11,5,12}, {12,5,6},{6,7,12},{12,7,10},{7,8,10},{8,1,10},{10,1,9},{10,9,11},{10,11,12}}, {{{1,8},{2,3}}, {{2,1},{3,4}}, {{4,5},{7,6}}, {{5,6},{8,7}}}]; oct = Triangulation[{{1,2,3},{1,4,2},{2,4,5},{2,5,3}, {3,5,6},{3,6,1},{1,6,4},{6,5,4}}, {}] tetra = Triangulation[{{1,2,3},{1,3,4},{1,4,2},{2,4,3}},{}] icos = Triangulation[{{1,2,3},{1,3,4},{1,4,5},{1,5,6},{1,6,2}, {3,2,7},{3,7,8},{4,3,8},{4,8,9},{5,4,9},{5,9,10},{6,5,10},{6,10,11}, {2,6,11},{2,11,7},{7,12,8},{8,12,9},{9,12,10},{10,12,11},{11,12,7}}, {}] torus = Triangulation[{{1,2,3},{1,3,4},{4,3,5},{4,5,6}}, {{{1,2},{5,6}},{{1,4},{2,3}},{{4,6},{3,5}}}] hextor = Triangulation[{ {1,7,2},{1,2,3},{1,3,4},{1,4,5},{1,5,6},{1,6,7}}, {{{7,2},{5,4}},{{2,3},{6,5}},{{4,3},{6,7}}}];