ps / lines

gistfile1.txt

use strict;
use warnings;
use Prima::PS::Printer;

my $a = Prima::PS::File->create( file => 'a.ps');
$a->begin_doc;
$a->linePattern(lp::DashDotDot);
$a->lineWidth(6);
$a->color(cl::LightGreen);
$a->bar(0,0,455,455);
$a->backColor(cl::Yellow);
$a->color(cl::Black);
$a->rop2(rop::CopyPut);
$a->rectangle( 200, 200, 450, 450 );
$a->rop2(rop::NoOper);
$a->rectangle( 5, 5, 250, 250 );
$a->end_doc;