I came across this bit of Perl at:
http://wildsparx.com/eurionize/
In short it marks a postscript doc so that it can’t be copied by most
color copiers.
Thought someone might want to port it for PDF::Writer or whatever.
Regards,
Dan
#!/usr/bin/perl
Eurionize - add the so-called “EURion constellation” anti-copying
mark
to a postscript document.
Copyright 2004 Asher Blum - licensed under the GNU GPL.
Based on research by Markus Kuhn -
Version 0.1
use strict;
undef $/;
my $doc = <>;
my $ps = ps();
$doc =~ s|([^/])showpage|$1ashershowpage|g;
$doc =~ s/%%BeginProlog/%%BeginProlog\n$ps/;
print $doc;
sub ps {
my $ps = <<EOT;
/zzdonut {
/angle exch def
/radius exch def
gsave
0.45 setlinewidth
1.417 1.417 scale
angle rotate
radius 0 0.72 0 360 arc stroke
grestore
} def
/zzconstellation {
1 1 0 setrgbcolor
0 0 zzdonut
7.8 0 zzdonut
7.2 72 zzdonut
4.8 168 zzdonut
4.9 249 zzdonut
} def
/ashershowpage {
gsave
matrix defaultmatrix setmatrix
1 1 5 {
pop
100 100 translate zzconstellation
} for
grestore
showpage
} def
EOT
$ps;
}