# | Line 277 | Line 277 | if (($legwidth > 20) && ($legheight > 40)) { | |
---|---|---|
277 | $value =~ s/(\.[0-9]{3})[0-9]*/$1/; | |
278 | $text .= "\n$value"; | |
279 | } | |
280 | < | open PSIGN, "| psign -s -.15 -cf 1 1 1 -cb 0 0 0 -h $sheight > $slabpic"; |
281 | < | print PSIGN "$text"; |
282 | < | close PSIGN; |
280 | > | system "psign -s -.15 -cf 1 1 1 -cb 0 0 0 -h $sheight $text > $slabpic"; |
281 | ||
282 | # Legend: Create the background colours | |
283 | $cmd = qq[pcomb $pc0args]; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |