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