1 files changed, 1 insertions, 2 deletions
diff --git a/Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl b/Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl
index 639ccd2..a898a7d 100644
--- a/Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl
@@ -83,7 +83,6 @@ sub modifyAlpha {
     $xrate = 1 if $xrate > 1;
 
     my $alpha = $xrate * 100;
-    print "Alpha=$alpha\n";
     $zinc->itemconfigure($group, -alpha => $alpha);
 }
 
@@ -97,7 +96,7 @@ sub modifyGradient {
     $yrate = 1 if $yrate > 1;
     my $gradientpercent = sprintf ("%d", $yrate * 100);
     
-    $zinc->itemconfigure ('letters', -fillcolor => "#ffffff:100 0 28|#66848c:100 $gradientpercent|#7192aa:100 100/270");    
+    $zinc->itemconfigure ('letters', -fillcolor => "=axial 270|#ffffff 0 28|#66848c $gradientpercent|#7192aa");    
 }