home *** CD-ROM | disk | FTP | other *** search
/ Chip 2011 November / CHIP_2011_11.iso / Programy / Narzedzia / Inkscape / Inkscape-0.48.2-1-win32.exe / share / extensions / outline2svg.pl < prev    next >
Encoding:
Perl Script  |  2011-07-08  |  4.7 KB  |  166 lines
  1. #!/usr/bin/perl
  2.  
  3. # This is a script to render a plain text outline file into SVG.
  4. # 
  5. # Copyright (C) 2006 Bryce Harrington.  Available for use under the GPL.
  6. #
  7. # Usage:  outline2svg.pl <presentation.outline> [ --master=template.svg ]
  8. #
  9. use strict;
  10. use Getopt::Long;
  11. use Pod::Usage;
  12. use SVG::Parser;
  13. use vars qw($VERSION);
  14. $VERSION = '1.00';
  15.  
  16. our $opt_version      = 0;
  17. our $opt_help         = 0;
  18. our $opt_man          = 0;
  19. our $opt_debug        = 1;
  20. our $opt_master       = "template.svg";
  21. our $opt_width        = 300;
  22. our $opt_height       = 200;
  23. our $opt_x_margin     = 100;
  24. our $opt_y_margin     = 150;
  25. our $opt_font         = 'Arial';
  26. our $opt_font_family  = 'Arial';
  27. our $opt_font_size    = 24;
  28.  
  29. Getopt::Long::Configure ("bundling", "no_ignore_case");
  30. GetOptions(
  31.            "version|V",         # Prints the version and exits
  32.            "help|h",            # Prints a brief help message
  33.            "man",               # Prints a manual page (detailed help)
  34.            "debug|D=i",         # Prints debug messages
  35.            "master|m=s",        # Master template to use
  36.            "width|w=i",         # Page width
  37.            "height|h=i",        # Page height
  38.            "x-margin|x=i",      # Horizontal offset
  39.            "y-margin|y=i",      # Vertical offset
  40.            "font=s",            # Default font name
  41.            "font-family=s",     # Default font family
  42.            "font-size=s",       # Default font size
  43.            );
  44.  
  45. my $i = 0;
  46. my $page = 0;
  47. my $filename;
  48. my $svg;
  49.  
  50. sub start_page {
  51.     my $title = shift;
  52.     end_page();
  53.  
  54.     $filename = sprintf("%02d_$title.svg", $page);
  55.     $filename =~ s/\s+/_/g;
  56.     $filename =~ s#/#-#g;
  57.     $filename =~ s#[^\w\:\.\,\+\-]+#_#g;
  58.  
  59.     $svg = SVG::Parser->new()->parsefile($opt_master);
  60.     $svg->comment('Generated by outline2svg');
  61.     $page++;
  62.     $i = 0;
  63. }
  64.  
  65. sub end_page {
  66.     if (defined($svg) && defined($filename)) {
  67.         open(FILE, ">$filename")
  68.             or die "Could not open '$filename' for writing: $!\n";
  69.         my $contents = $svg->xmlify();
  70.         # Work-around bug in SVG::Parser
  71.         $contents =~ s/�//g;
  72.         print "$filename\n" if $opt_debug>0;
  73.         print FILE $contents;
  74.         close(FILE) || print "Error closing $filename:  $!\n";
  75.  
  76.         undef $svg;
  77.         undef $filename;
  78.     }
  79. }
  80.  
  81.  
  82. my $font = $opt_font;
  83. my $font_family = $opt_font_family;
  84. my $font_size = $opt_font_size;
  85. my $line_spacing = $font_size * 1.5;
  86.  
  87. while (my $line = <>) {
  88.     chomp($line);
  89.     $line =~ s/\s+$//;  # Trim trailing space
  90.     my $x = 10;
  91.     my $style = { 'font' => $font, 
  92.                   'font-family' => $font_family, 
  93.                   'font-size' => $font_size
  94.               };
  95.  
  96.     # Convert tabs into spaces, otherwise we get errors about invalid char
  97.     $line =~ s/\t/    /g;
  98.  
  99.     # If we've encountered a page marker, increment the page number
  100.     if ($line =~ /^\* (.*)$/) {
  101.         my $title = $1;
  102.         start_page($title);
  103.  
  104.         if ($title !~ /^(title|overview)$/i ) {
  105.             $style->{'font-size'} *= 1.5;
  106.             $svg->text(id    => "title_$i",
  107.                        x     => $opt_x_margin,
  108.                        y     => $opt_y_margin,
  109.                        'xml:space' => 'preserve',
  110.                        style => $style,
  111.                        )
  112.                 ->cdata($title);
  113.         }
  114.         $i++;
  115.  
  116.     } elsif (defined($svg)) {
  117.         my $y = $line_spacing*(1+$i);
  118.  
  119.         my $num_leading_spaces = 0;
  120.         if ($line =~ /^(\s+)/) {
  121.             $num_leading_spaces = length($1);
  122.  
  123.         }
  124.  
  125.         if ($num_leading_spaces > 0 &&
  126.             length($line) > $num_leading_spaces &&
  127.             length($line) + $num_leading_spaces > 70 &&
  128.             length($line) + $num_leading_spaces <76 ) {
  129.             # Looks like user is trying to center this text
  130.             $line =~ s/^\s+//;
  131.             $style->{'align'} = 'centered';
  132.             $style->{'anchor'} = 'middle';
  133.             $x = $opt_width / 2;
  134.  
  135.         } else {
  136.             while ($line && $line =~ /^\s/) {
  137.                 $line =~ s/^\s//;  # Just delete one space at a time
  138.                 $x += 5;
  139.             }
  140.  
  141.             # Create bullets if needed
  142.             if ($line =~ /^-\s+/) {
  143.                 $line =~ s/^-\s+//;
  144.                 $x += 10;
  145.                 $svg->circle(cx=>$opt_x_margin + $x - ($font_size/2), 
  146.                              cy=>$opt_y_margin + $y - ($font_size/3), 
  147.                              r=>($font_size/6.0));
  148.             }
  149.         }
  150.  
  151.         # Convert markup into appropriate SVG-isms
  152.         $svg->text(id    => "text_line_$i",
  153.                    x     => $opt_x_margin + $x,
  154.                    y     => $opt_y_margin + $y,
  155.                    'xml:space' => 'preserve',
  156.                    style => $style,
  157.                    )
  158.             ->cdata($line);
  159.         $i++;
  160.     }
  161. }
  162. end_page();
  163.  
  164. #print $svg->xmlify();
  165.  
  166.