diff options
Diffstat (limited to 'Perl')
| -rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/curve_bezier.pl | 6 |
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]"; |