PostScript::Graph::Style 1.02

SYNOPSIS

Simplest

Each time a new object is created the default style will be slightly different.

use PostScript::File;
use PostScript::Graph::Style;

my $file = new PostScript::File();
my $seq = new PostScript::Graph::Sequence();

while (...) {
my $style = new PostScript::Graph::Style(
sequence => $seq,
point => {}
);
$style->write($file);

$file->add_to_page( <<END_OF_CODE );
% code using point variables...

% setting colour or grey shade
gpaperdict begin
pocolor gpapercolor
end

% choosing a line width
powidth setlinewidth

% scaled relative to point sizing
0 ppsize rlineto

% showing the chosen point shape
100 200 ppshape
END_OF_CODE
}