aboutsummaryrefslogtreecommitdiff
path: root/Perl
diff options
context:
space:
mode:
Diffstat (limited to 'Perl')
-rw-r--r--Perl/demos/Tk/demos/zinc_lib/curve_bezier.pl6
1 files changed, 4 insertions, 2 deletions
diff --git a/Perl/demos/Tk/demos/zinc_lib/curve_bezier.pl b/Perl/demos/Tk/demos/zinc_lib/curve_bezier.pl
index ffa426a..9cbbca2 100644
--- a/Perl/demos/Tk/demos/zinc_lib/curve_bezier.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/curve_bezier.pl
@@ -26,6 +26,8 @@ my $zinc = $mw->Zinc(-width => 700, -height => 650,
-borderwidth => 0,
-backcolor => "white",
-forecolor => "grey80",
+ -render => 1, # this demo also works without openGL
+ # with openGL, antialiasing makes the curves nicer
)->pack;
my $group = $zinc->add('group', 1);
@@ -113,8 +115,8 @@ sub setText {
my $text = "[ ";
while (@coords) {
$refXYc = pop @coords;
- my $x=$refXYc->[0];
- my $y=$refXYc->[1];
+ my $x=sprintf "%i", $refXYc->[0];
+ my $y=sprintf "%i", $refXYc->[1];
my $t=$refXYc->[2];
$t = (defined $t) ? ", '".$t."'" : "" ;
$text .= "[$x, $y$t]";