/[corp]/pics/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 /pics/menu.pl

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

revision 1.2 by dpavlin, Mon Sep 3 13:07:57 2001 UTC revision 1.3 by dpavlin, Mon Sep 10 10:29:06 2001 UTC
# Line 3  Line 3 
3  use Image::Magick;  use Image::Magick;
4  use DBI;  use DBI;
5    
6    my $dest_dir="/data/corp_html/m";
7    
8  sub dump_gif {  sub dump_gif {
9          my ($text) = @_;          my ($text) = @_;
10          my $file=$text;          my $file=$text;
# Line 16  $image->Set(size=>'250x30'); Line 18  $image->Set(size=>'250x30');
18  $image->ReadImage('xc:#2a377e');  $image->ReadImage('xc:#2a377e');
19    
20  $image->Annotate(text=>$text,  $image->Annotate(text=>$text,
21          geometry=>'+14+22',          geometry=>'+14+21',
22          font=>"\@arialbd.ttf",          font=>"\@arialbd.ttf",
23          pointsize=>20,          pointsize=>20,
24          pen=>'white',          pen=>'white',
# Line 28  $image->Annotate(text=>$text, Line 30  $image->Annotate(text=>$text,
30  #$image->GaussianBlur(radius=>1);  #$image->GaussianBlur(radius=>1);
31  $image->Scale(geometry=>'50%');  $image->Scale(geometry=>'50%');
32    
33  $image->Draw(stroke=>'#cccccc', primitive=>'line', points=>'0,14 118,14', linewidth=>1);  $image->Draw(stroke=>'#cccccc', primitive=>'line', points=>'0,13 118,13', linewidth=>1);
34  $image->Draw(stroke=>'#cccccc', primitive=>'line', points=>'118,14 118,7', linewidth=>2);  $image->Draw(stroke=>'#cccccc', primitive=>'line', points=>'118,13 118,7', linewidth=>2);
35    
36    
37  if (0) {  if (0) {
# Line 43  $image->Annotate(text=> Line 45  $image->Annotate(text=>
45    
46  print " -> ";  print " -> ";
47    
48  $image->Write(filename=>"gif:m/$file.gif",  $image->Write(filename=>"gif:$dest_dir/$file.gif",
49                  colors=>256,                  colors=>256,
50                  interlace=>"none",                  interlace=>"none",
51                  compress=>'lzw');                  compress=>'lzw');
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.26