| 391 |
|
@picWH = ($picWH[3], $picWH[1]); |
| 392 |
|
if ($#overlayRect != 3) { |
| 393 |
|
@overlayRect = (0, 0, @picWH); |
| 394 |
< |
} |
| 395 |
< |
if ($overlayRect[2] <= $overlayRect[0] || |
| 394 |
> |
} elsif ($overlayRect[2] <= $overlayRect[0] || |
| 395 |
|
$overlayRect[3] <= $overlayRect[1]) { |
| 396 |
|
die("Illegal overlay rectangle\n"); |
| 397 |
|
} |
| 407 |
|
if ($cheight < 10) { |
| 408 |
|
die "Overlay matrix spacing too tight\n"; |
| 409 |
|
} |
| 410 |
< |
my $cmd1 = qq[pcompos -x $cropWH[0] -y $cropWH[1] "$picture" @overlayRect[0..1]]; |
| 410 |
> |
my $cmd1 = qq[pcompos -x $cropWH[0] -y $cropWH[1] "$picture"] . |
| 411 |
> |
qq[ -$overlayRect[0] -$overlayRect[1]]; |
| 412 |
|
$cmd1 .= qq[ | pfilt -1 -b -x /$cheight -y /$cheight]; |
| 413 |
|
$cmd1 .= qq[ | pfilt -1 -r .5 -x $cropWH[0] -y $cropWH[1]]; |
| 414 |
|
$cmd1 .= qq[ | pvalue -o -h -H -b -d -e $mult]; |
