Generating postscript file

[BCC]

Does anyone know of a perl module like GD that will allow me to draw
with colors and shapes and save it as a postscript file? GD doesnt give
me that option unfortunately.

Looked in CPAN and didnt see anything.

Thanks

 

[Ala Qumsieh]

Does anyone know of a perl module like GD that will allow me to draw
with colors and shapes and save it as a postscript file? GD doesnt give
me that option unfortunately.

Could be overkill, but a Tk::Canvas allows you to dump the contents of
the canvas as a postscript file. It is part of Tk which is a GUI
toolkit, so you won't find all of the functionality offered by
graphics-specific modules like GD.

--Ala

 

[Jon Ericson]

Does anyone know of a perl module like GD that will allow me to draw
with colors and shapes and save it as a postscript file? GD doesnt
give me that option unfortunately.

Looked in CPAN and didnt see anything.

Not a Perl solution, but I use MetaPost
(http://cm.bell-labs.com/who/hobby/MetaPost.html).

It looks like there's a PostScript::Simple module
(http://search.cpan.org/~mcnewton/PostScript-Simple-0.06/).

Jon

 

[Ian Wilson]

Does anyone know of a perl module like GD that will allow me to draw
with colors and shapes and save it as a postscript file? GD doesnt give
me that option unfortunately.

Looked in CPAN and didnt see anything.

Thanks

#!/bin/perl
use warnings;
use strict;

my $text='Why not learn Postscript?';

print <<ENDPS;
%!PS
%
% define a handy subroutine to scale units
%
/inch { 72 mul } def
%
% draw a blue rectangle
%
0 0 1 setrgbcolor
1 inch 8 inch moveto
6 inch 8 inch lineto
6 inch 9 inch lineto
1 inch 9 inch lineto
closepath
fill
%
% write some text
%
1.8 inch 8.4 inch moveto
/Helvetica findfont 22 scalefont setfont
1 setgray
($text) show
%
% emit page
%
showpage
ENDPS