#!/usr/bin/perl
# text2xfig.pl - A Perl program for translating plain text to Xfig format
#
http://www.cs.dal.ca/~vlado/srcperl/text2xfig.pl
# Copyright 2007 Vlado Keselj
http://www.cs.dal.ca/~vlado
# Limitations: Probably does not work for all characters.
# $Id: text2xfig.pl,v 1.3 2007/06/19 17:00:34 vlado Exp $
$Version = sprintf "%d.%d", q$Revision: 1.3 $ =~ /(\d+)/g;
my $input = join('',<>);
print &preamble;
my $row=1, $col=1;
$_ = $input;
while ($_ ne '') { # find sequences of non-space and put them
if (/^\n/) { $_=$'; $row++; $col=1; }
elsif (/^(\S+)/) { $_=$'; print &print_text($&, r=>$row, c=>$col); $col+=length($&); }
elsif (/^( +)/) { $_=$'; $col+=length($&); }
elsif (/^\t/) { $_=$'; $col++; $col++ while ($col%8 != 0); }
else { die ">>>$_" }
}
exit(0); # END RUN
sub print_text {
my $text = shift;
my %p = @_;
my $c = (exists($p{c}) ? $p{c} : 1); # column position
my $x = int(0.5+($c-1)*91.2+1500);
my $r = (exists($p{r}) ? $p{r} : 1); # row position
my $y = ($r-1)*165+1350; #225 for 12pt, 165 for 10pt
my $fontsize = 10;
my $r = "4 0 0 50 -1";
$r.= " 12"; # font family, 0=Roman 12=Courier
$r.= " $fontsize 0.0000 4 135";
$r.= " ".(105*length($text)); # 90*number of chars?, 105 for fixed
$text =~ s/\\/\\\\/g;
$r.=" $x $y $text\\001\n";
return $r;
}
sub preamble {
my $r = "#FIG 3.2\n"; #
http://www.xfig.org/userman/fig-format.html
$r.= "Portrait\n" # "Landscape" or "Portrait"
."Center\n" # justification ("Center" or "Flush Left")
;
$r.= << 'EOT';
Metric
Letter
100.00
Single
-2
1200 2
EOT
return $r;
}
__END__
=head1 NAME
text2xfig.pl - Translate plain text to Xfig format, word-by-word
=head1 SYNOPIS
text2xfig.pl in.txt > out.fig
=head1 DESCRIPTION
Translating plain text into Xfig format. Each word is positioned
separately. Initial stage. There could be bugs.
=head1 PREREQUISITES
No prerequisites, but you need xfig to see and edit the output, and to
produce other formats.
=head1 SCRIPT CATEGORIES
Xfig
Misc
=head1 COPYRIGHT
Copyright 2007 Vlado Keselj F<
http://www.cs.dal.ca/~vlado>
This script is provided "as is" without expressed or implied warranty.
This is free software; you can redistribute it and/or modify it under
the same terms as Perl itself.
The latest version can be found at F<
http://www.cs.dal.ca/~vlado/srcperl/>.
=cut
