#  Copyright (c) 1997-2006
#  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: postscript.rules 7495 2006-12-11 11:03:05Z gawrilow $


package Postscript;

# a postscript file viewer, e.g. ghostscript
custom $viewer;

CONFIGURE {
  $viewer=find_via_path(qw( gv kghostview ggv ghostview ))
  or die "No known PostScript viewer program found,\n",
         "please specify your favorite viewer in the customization file.\n";
}

# topic: customize/Postscript
# All numeric constants defined here are in postscript points (1/72")

# height of DIN A4 sheet
custom $Hpaper=841;

# width of DIN A4 sheet
custom $Wpaper=595;

# vertical margin
custom $Hmargin=50;

# horizontal margin
custom $Wmargin=30;

# text labels
custom $fontname="Times-Roman";

# text labels
custom $fontsize=10;

# for circles representing single geometric points
custom $point_radius=4;

# normal line width
custom $line_width=1;

# spacing between points (lines) and labels
custom $text_spacing=3;

# options passed to the viewer
custom $viewer_options="";

use Postscript;

# Category: Visualization
# Create a PostScript (tm) drawing and show it with your favorite viewer.
label postscript

###########################################################################################
#
#  Basic class implementing the required back-end interface.
#

package Postscript::Viewer;
use BackgroundViewer;

use Struct [ '@ISA' => 'Poly::BackgroundViewer' ];

sub new {
   my $self=&_new;
   $self->graphics=new Postscript::File($self->tempfile.".ps");
   $self;
}

sub command {
   "$viewer $viewer_options " . shift->graphics->workfile;
}

sub new_drawing {
   my $self=shift;
   $self->graphics->new_page(@_);
   $self;
}

sub current_page {
   shift->graphics->pages->[-1];
}

global_method postscript.geometry: draw(Visual::PointSet, @) {
   my ($self, $P)=@_;
   $self->current_page->addPointSet(new Postscript::PointSet($P));
}

global_method postscript.geometry: draw(Visual::Polygon, @) {
   my ($self, $P)=@_;
   $self->current_page->addPointSet(new Postscript::Polygon($P));
}

global_method postscript.geometry: draw(Visual::Polygons, @) {
   my ($self, $P)=@_;
   $self->current_page->addPointSet(new Postscript::Polygons($P));
}


###########################################################################################
#
#  Writes a PS file without rendering
#

package Postscript::File::Writer;
import Visual::FileWriter(suffix => ".ps", multiple => 1);

###########################################################################################

package default;

# Category: Visualization
# Create a Postscript (tm) drawing with the given visual objects.
# args: VisualObject, ...
# option: File => "filename" | "AUTO"
#	  Only store the object in a @c .ps file, don't start the viewer.
#
#	  The @c .ps suffix is automatically added to the file name.
#
#	  Specify @a AUTO if you want the filename be automatically derived from the drawing title.
#
#         You can also use any expression allowed for the perl @c open function,
#         like "-" for terminal output, "&HANDLE" for an already opened file handle,
#         or "| program" for a pipe.

user_function postscript(Visual::Object+, { File => undef }) {
   visualize_explicit(@_, "Postscript");
}


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