Skip to content

Instantly share code, notes, and snippets.

@dk
Created July 15, 2014 12:54
Show Gist options
  • Save dk/4232953cbf1c21f5dc4e to your computer and use it in GitHub Desktop.
Save dk/4232953cbf1c21f5dc4e to your computer and use it in GitHub Desktop.
ps / lines
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;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment