From d9f040bf8dfe197e320ff3c8f0ced75d3af796e0 Mon Sep 17 00:00:00 2001
From: vinot
Date: Thu, 3 Jul 2003 12:19:36 +0000
Subject: modify fonts, zoom scale and lens coords

---
 Perl/demos/Tk/demos/zinc_lib/MagicLens.pl | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'Perl/demos')

diff --git a/Perl/demos/Tk/demos/zinc_lib/MagicLens.pl b/Perl/demos/Tk/demos/zinc_lib/MagicLens.pl
index 92df171..4a5d1ff 100644
--- a/Perl/demos/Tk/demos/zinc_lib/MagicLens.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/MagicLens.pl
@@ -21,8 +21,8 @@ use Getopt::Long;
 use strict 'vars';
 
 # the original fonts are not available everywhere, even if they are free!
-my $font_9b = '8x16'; # '-cenapii-bleriot mini-bold-r-normal--9-90-75-75-p-*-iso8859-15';
-my $font_8 = '7x17';  #'-cenapii-bleriot mini-book-r-normal--8-80-75-75-p-*-iso8859-15';
+my $font_9b = '7x13bold'; # '-cenapii-bleriot mini-bold-r-normal--9-90-75-75-p-*-iso8859-15';
+my $font_8 = '7x13';  #'-cenapii-bleriot mini-book-r-normal--8-80-75-75-p-*-iso8859-15';
 my ($dx, $dy);
 
 my @basiccolors = (['Jaune','#fff52a','#f1f1f1','#6a6611'],
@@ -38,8 +38,8 @@ my @basiccolors = (['Jaune','#fff52a','#f1f1f1','#6a6611'],
 		   ['Vert','#0fa706','#979797','#096604'],
 		   ["Jaune\nVert",'#9dd625','#c9c9c9','#496311']);
 
-my $circle_coords = [[0,-30],[-16.569,-30,c],[-30,-16.569,c],[-30,0],[-30,0],[-30,16.569,c],[-16.569,30,c],[0,30],
-		     [0,30],[16.569,30,c],[30,16.569,c],[30,0],[30,0],[30,-16.569,c],[16.569,-30,c],[0,-30]];
+my $circle_coords = [[0,-30],[-16.569,-30,c],[-30,-16.569,c],[-30,0],[-30,16.569,c],[-16.569,30,c],[0,30],
+		     [16.569,30,c],[30,16.569,c],[30,0],[30,-16.569,c],[16.569,-30,c],[0,-30]];
 
 
 # MagicLens
@@ -69,7 +69,7 @@ my %lensitems = ('back' => {-itemtype => 'arc',
 			     -params => {-priority => 50,
 					},
 			    },
-		 'bord' => {-itemtype => 'hippodrome',  #'arc',
+		 'bord' => {-itemtype => 'hippodrome',
 			    -coords => [[-100, -100],[100, 100]],
 			    -params => {-priority => 100,
 					-closed => 1,
@@ -107,7 +107,7 @@ my $normview = $zinc->add('group', 1, -priority => 100);
 my $lensview = $zinc->add('group', 1, -priority => 200);
 my $infoview = $zinc->add('group', $lensview);
 
-my $zoom=1.30;
+my $zoom=1.20;
 $zinc->scale($infoview, $zoom, $zoom);
 
 my $lenstexture = &getTexture($zinc, 'paper-grey.gif');
-- 
cgit v1.1