#  Copyright (c) 1997-2004
#  Ewgenij Gawrilow, Michael Joswig (Technische Universitaet Berlin, Germany)
#  http://www.math.tu-berlin.de/polymake,  mailto:polymake@math.tu-berlin.de
#
#  This program is free software; you can redistribute it and/or modify it
#  under the terms of the GNU General Public License as published by the
#  Free Software Foundation; either version 2, or (at your option) any
#  later version: http://www.gnu.org/licenses/gpl.txt.
#
#  This program is distributed in the hope that it will be useful,
#  but WITHOUT ANY WARRANTY; without even the implied warranty of
#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#  GNU General Public License for more details.
#-----------------------------------------------------------------------------
#  $Project: polymake $$Id: geomview.rules 7045 2006-02-21 20:24:24Z gawrilow $


CONFIGURE : common::

package Geomview::Viewer;

global_method geomview.geometry: draw(Visual::Polyhedron, @) {
   my ($self, $P)=@_;
   my $geom=new Geomview::OFF( name => $P->Name,
			       points => $P->Vertices,
			       dim => $P->Dim,
			       facets => [ map { [ /\d+/g ] } @{$P->Facets} ],
			       facet_colors($P, scalar(@{$P->Facets})),
                               appearance($P, !$P->Closed)
			     );
   $self->append($geom);
}


# Local Variables:
# mode: perl
# c-basic-offset:3
# End: