From e6c3b92e487492b8265bc569cd83b8efd362da79 Mon Sep 17 00:00:00 2001
From: mertz
Date: Fri, 4 Jul 2003 08:51:36 +0000
Subject: - using openGL if available. Otherwise, curves are just slightly less
 nice - formating the printed coordinates as integers

---
 Perl/demos/Tk/demos/zinc_lib/curve_bezier.pl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'Perl/demos')

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]";
-- 
cgit v1.1