/[pliva-si]/m/menu.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /m/menu.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by dpavlin, Wed Nov 7 12:09:58 2001 UTC revision 1.9 by dpavlin, Wed Nov 7 15:02:56 2001 UTC
# Line 15  my $h_base=13; Line 15  my $h_base=13;
15  my $h;  my $h;
16    
17  my $dir="/data/pliva-si/m";  my $dir="/data/pliva-si/m";
18    #my $font="arialbd.ttf";
19    my $font="trebucbd.ttf";
20    
21  my %iso2utf_tab = (  my %iso2utf_tab = (
22  '¹' => 0x0161, 'ð' => 0x0111, 'è' => 0x010d, 'æ' => 0x0107, '¾' => 0x017e,  '¹' => 0x0161, 'ð' => 0x0111, 'è' => 0x010d, 'æ' => 0x0107, '¾' => 0x017e,
# Line 52  sub dump_gif { Line 54  sub dump_gif {
54          $text=iso2utf($text);          $text=iso2utf($text);
55          if ($type == TYPE_BULLET) {          if ($type == TYPE_BULLET) {
56                  $image->Annotate('text' => $text, 'geometry' => '+17+10',                  $image->Annotate('text' => $text, 'geometry' => '+17+10',
57                          'font' => "\@$dir/arialbd.ttf", 'pointsize' => 11,                          'font' => "\@$dir/$font", 'pointsize' => 11,
58                          'fill' => '#ffffff', 'align' => 'left');                          'fill' => '#ffffff', 'align' => 'left');
59  #               $image->Annotate('text' => $text, 'geometry' => '+17+1',  #               $image->Annotate('text' => $text, 'geometry' => '+17+1',
60  #                       'font' => "\@$dir/arialbd.ttf", 'pointsize' => 11,  #                       'font' => "\@$dir/$font", 'pointsize' => 11,
61  #                       'pen' => '#FFFFFF', 'align' => 'left');  #                       'pen' => '#FFFFFF', 'align' => 'left');
62  #               $image->Blur('radius' => 0.1);  #               $image->Blur('radius' => 0.1);
63                  $image->Draw('primitive' => 'rectangle', 'stroke' => '#00D000',                  $image->Draw('primitive' => 'rectangle', 'stroke' => '#00D000',
# Line 63  sub dump_gif { Line 65  sub dump_gif {
65                          '7,4 10,7');                          '7,4 10,7');
66          } elsif ($type == TYPE_BLUEDOT) {          } elsif ($type == TYPE_BLUEDOT) {
67                  $image->Annotate('text' => $text, 'geometry' => '+17+10',                  $image->Annotate('text' => $text, 'geometry' => '+17+10',
68                          'font' => "\@$dir/arialbd.ttf", 'pointsize' => 11,                          'font' => "\@$dir/$font", 'pointsize' => 11,
69                          'fill' => '#ffffff', 'align' => 'left');                          'fill' => '#ffffff', 'align' => 'left');
70                  $image->Draw('primitive' => 'rectangle', 'stroke' => '#00b2dc',                  $image->Draw('primitive' => 'rectangle', 'stroke' => '#00b2dc',
71                          'fill' => '#00b2dc', 'antialias' => 1, 'points' =>                          'fill' => '#00b2dc', 'antialias' => 1, 'points' =>
# Line 91  sub dump_gif { Line 93  sub dump_gif {
93                          }                          }
94                  }                  }
95                  $image->Annotate('text' => $text, 'geometry' => '+3+10',                  $image->Annotate('text' => $text, 'geometry' => '+3+10',
96                          'font' => "\@$dir/arialbd.ttf", 'pointsize' => 11,                          'font' => "\@$dir/$font", 'pointsize' => 11,
97                          'fill' => '#FFFFFF', 'align' => 'left');                          'fill' => '#FFFFFF', 'align' => 'left');
98  #               $image->Blur('radius' => 1);  #               $image->Blur('radius' => 1);
99          }          }
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.26