X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLaTeX-TikZ.git;a=blobdiff_plain;f=lib%2FLaTeX%2FTikZ%2FFormatter.pm;h=afdbd388c93d3aa8f36f74b3342c581be61dacc1;hp=bd637e848ce2ccc7d439d522742570e54e29fc07;hb=1c53f7e28198adfb2905667acd5741f163832d7b;hpb=0f9d7c1a2d11bc7001fe450cb2086e67c13a39e9 diff --git a/lib/LaTeX/TikZ/Formatter.pm b/lib/LaTeX/TikZ/Formatter.pm index bd637e8..afdbd38 100644 --- a/lib/LaTeX/TikZ/Formatter.pm +++ b/lib/LaTeX/TikZ/Formatter.pm @@ -9,11 +9,11 @@ LaTeX::TikZ::Formatter - LaTeX::TikZ formatter object. =head1 VERSION -Version 0.01 +Version 0.02 =cut -our $VERSION = '0.01'; +our $VERSION = '0.02'; =head1 DESCRIPTION @@ -36,16 +36,25 @@ use Any::Moose 'Util::TypeConstraints'; =head2 C +The unit in which lengths are printed. +Valid units are C for centimeters and C for points. + +Defaults to C. + =cut has 'unit' => ( is => 'ro', - isa => enum([ qw/cm pt/ ]), + isa => enum([ qw ]), default => 'cm', ); =head2 C +The format used to print the numbers. + +Defaults to C<%s>. + =cut has 'format' => ( @@ -56,6 +65,10 @@ has 'format' => ( =head2 C +The scale of the drawing. + +Defaults to C<1>. + =cut has 'scale' => ( @@ -66,6 +79,10 @@ has 'scale' => ( =head2 C +The width of the drawing area. + +Defaults to C for none. + =cut has 'width' => ( @@ -75,6 +92,10 @@ has 'width' => ( =head2 C +The height of the drawing area. + +Defaults to C for none. + =cut has 'height' => ( @@ -84,6 +105,11 @@ has 'height' => ( =head2 C +A point coerced into a L object that represents the logical origin of the printed area. +If L and L are set, the canvas will be equivalent to a rectangle whose lower left corner at C<-$origin> and of given width and length. + +Defaults to C<(0, 0)>, meaning that the drawing area goes from C<(0, 0)> to C<($width, $height)>. + =cut has 'origin' => ( @@ -96,6 +122,8 @@ has 'origin' => ( =head2 C +An unique identifier of the formatter object. + =cut sub id { @@ -103,7 +131,7 @@ sub id { my $origin = $tikz->origin; if (defined $origin) { - my ($x, $y) = map $origin->$_, qw/x y/; + my ($x, $y) = map $origin->$_, qw; $origin = "($x;$y)"; } else { $origin = "(0;0)"; @@ -111,10 +139,55 @@ sub id { join $;, map { defined() ? "$_" : '(undef)'; - } map($tikz->$_, qw/unit format scale width height/), $origin; + } map($tikz->$_, qw), $origin; } -=head2 C +=head2 C + +Processes all the L objects given in C<@sets> to produce the actual TikZ code to insert in the LaTeX file. +First, all the mods applied to the sets and their subsets are collected, and a declaration is emitted if needed for each of them by calling L. +Then, the image code is generated for each set. + +This method returns a list of array references : + +=over 4 + +=item * + +The first one contains the header lines to include between the C<\documentclass> and the C<\begin{document}>. + +=item * + +The second one contains the mod declaration lines to put inside the document, between C<\begin{document}> and C<\end{document}>. + +=item * + +Finally, there's one array reference for each given TikZ set, which contain the lines for the actual TikZ pictures. + +=back + +The lines returned by L don't end with a line feed. + + my ($header, $declarations, $set1_body, $set2_body) = $formatter->render($set1, $set2); + + open my $tex, '>', 'test.tex' or die "open('>test.tex'): $!"; + + print $tex "$_\n" for ( + "\\documentclass[12pt]{article}", + @$header, + "\\begin{document}", + "\\pagestyle{empty}", + @$declarations, + "First set :" + "\\begin{center}", + @$set1_body, + "\\end{center}", + "Second set :" + "\\begin{center}", + @$set2_body, + "\\end{center}", + "\\end{document}", + ); =cut @@ -139,11 +212,9 @@ my $find_mods = do { } } - my @subsets = $set->isa('LaTeX::TikZ::Set::Sequence') + my @subsets = $set->does('LaTeX::TikZ::Set::Container') ? $set->kids - : $set->isa('LaTeX::TikZ::Set::Path') - ? $set->ops - : (); + : (); $find_mods_rec->($_, $layers, $others) for @subsets; }); @@ -225,7 +296,9 @@ sub render { return \@header, \@decls, @bodies; } -=head2 C +=head2 C + +Format the given length according to the formatter options. =cut @@ -237,7 +310,9 @@ sub len { sprintf $tikz->format . $tikz->unit, $len * $tikz->scale; } -=head2 C +=head2 C + +Format the given angle (in radians) according to the formatter options. =cut @@ -251,7 +326,9 @@ sub angle { sprintf $tikz->format, POSIX::ceil($a); } -=head2 C