From dec60589aef2842b89e968759f702744bbefe06a Mon Sep 17 00:00:00 2001 From: lecoanet Date: Wed, 12 Jan 2000 13:56:04 +0000 Subject: Mise jour des commandes --- Perl/t/zinc.t | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Perl/t') 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); -- cgit v1.1