has 'origin' => (
is => 'rw',
- isa => 'Maybe[LaTeX::TikZ::Point::Autocoerce]',
+ isa => 'LaTeX::TikZ::Point::Autocoerce',
coerce => 1,
);
sub id {
my $tikz = shift;
+ my $origin = $tikz->origin;
+ if (defined $origin) {
+ my ($x, $y) = map $origin->$_, qw/x y/;
+ $origin = "($x;$y)";
+ } else {
+ $origin = "(0;0)";
+ }
+
join $;, map {
- my $val = $tikz->$_;
- defined($val) ? "$val" : '(undef)';
- } qw/unit format scale width height origin/;
+ defined() ? "$_" : '(undef)';
+ } map($tikz->$_, qw/unit format scale width height/), $origin;
}
my $find_mods = do {
});
};
+my $translate;
+
sub render {
- my $tikz = shift;
+ my ($tikz, @sets) = @_;
+
+ unless ($translate) {
+ require LaTeX::TikZ::Functor;
+ $translate = LaTeX::TikZ::Functor->new(
+ rules => [
+ 'LaTeX::TikZ::Set::Point' => sub {
+ my ($functor, $set, $v) = @_;
+
+ $set->new(
+ point => [
+ $set->x + $v->x,
+ $set->y + $v->y,
+ ],
+ label => $set->label,
+ pos => $set->pos,
+ );
+ },
+ ],
+ );
+ }
- my $seq = LaTeX::TikZ::Set::Sequence->new(
- kids => \@_,
- );
+ my $origin = $tikz->origin;
+ if (defined $origin) {
+ @sets = map $_->$translate($origin), @sets;
+ }
my (@layers, @other_mods);
+ my $seq = LaTeX::TikZ::Set::Sequence->new(kids => \@sets);
$find_mods->($seq, \@layers, \@other_mods);
my $w = $tikz->width;
my $canvas = '';
if (defined $w and defined $h) {
require LaTeX::TikZ::Set::Rectangle;
- $seq->clip(LaTeX::TikZ::Set::Rectangle->new(
- from => 0,
- width => $w,
- height => $h,
- ));
+ for (@sets) {
+ $_->clip(LaTeX::TikZ::Set::Rectangle->new(
+ from => 0,
+ width => $w,
+ height => $h,
+ ));
+ }
$_ = $tikz->len($_) for $w, $h;
$canvas = ",papersize={$w,$h},body={$w,$h}";
}
push @decls, LaTeX::TikZ::Mod::Layer->declare(@layers) if @layers;
push @decls, $_->declare($tikz) for @other_mods;
- my @content = (
+ my @bodies = map [
"\\begin{tikzpicture}",
- @{ $seq->draw($tikz) },
+ @{ $_->draw($tikz) },
"\\end{tikzpicture}",
- );
+ ], @sets;
- return \@header, \@decls, \@content;
+ return \@header, \@decls, @bodies;
}
sub len {
my $scale = sprintf '%0.2f', $tikz->scale / 5;
- "node[scale=$scale,$pos] {\$$name\$}";
+ "node[scale=$scale,$pos] {$name}";
}
sub thickness {