diff options
Diffstat (limited to 'Perl/t')
| -rw-r--r-- | Perl/t/zinc.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Perl/t/zinc.t b/Perl/t/zinc.t index 3350b3f..cb95f9c 100644 --- a/Perl/t/zinc.t +++ b/Perl/t/zinc.t @@ -148,7 +148,7 @@ $radar->itemconfigure($map3,-mapinfo => "paris-w"); ################################################### -#creation rectangle, arc, multipoint +#creation rectangle, arc, curve ################################################### $rect = $radar->add(rectangle, $top, [-50, -50, 50, -80], -linecolor => bisque); @@ -167,7 +167,7 @@ print "arc tags=", join('|',$radar->gettags($arc)),"\n"; $radar->itemconfigure($arc, -startangle => 0, -extent => 360); -$mp = $radar->add(multipoint, $top, -300, 0, -250, 100, -80, 20); +$mp = $radar->add(curve, $top, -300, 0, -250, 100, -80, 20); $radar->itemconfigure($mp, -filled => 1, -linewidth => 4, -linecolor => yellow, -fillcolor => tan, -fillpattern => AlphaStipple8); $radar->itemconfigure($mp, -marker => AtcSymbol9 , -markercolor => red); |