aboutsummaryrefslogtreecommitdiff
path: root/Perl
diff options
context:
space:
mode:
Diffstat (limited to 'Perl')
-rw-r--r--Perl/demos/Tk/demos/zinc_lib/MagicLens.pl12
1 files changed, 6 insertions, 6 deletions
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');