diff options
| author | lecoanet | 2000-01-12 13:56:04 +0000 |
|---|---|---|
| committer | lecoanet | 2000-01-12 13:56:04 +0000 |
| commit | dec60589aef2842b89e968759f702744bbefe06a (patch) | |
| tree | 3697324b936bc2d7c1b53d026fad5f69f3558ffa /Perl/t | |
| parent | 2313c60a002d7d6550477aa2cdcf5ae30e1d10f7 (diff) | |
| download | tkzinc-dec60589aef2842b89e968759f702744bbefe06a.zip tkzinc-dec60589aef2842b89e968759f702744bbefe06a.tar.gz tkzinc-dec60589aef2842b89e968759f702744bbefe06a.tar.bz2 tkzinc-dec60589aef2842b89e968759f702744bbefe06a.tar.xz | |
Mise jour des commandes
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); |