# A couple of lines
my $hline = Tikz->line(-1 => 1);
- my $vline = Tikz->line([ 0, -1 ] => [ 0, -1 ]);
+ my $vline = Tikz->line([ 0, -1 ] => [ 0, 1 ]);
# Paint them in red
$_->mod(Tikz->color('red')) for $hline, $vline;
$octo->clip(Tikz->rectangle(-0.5*(1+i), 2*(1+i)));
# Fill it with dots
- $octo->mod(Tikz->pattern(class => 'Dots'));
+ $octo->mod(Tikz->pattern(class => 'Dots', space_width => 10));
# Create a formatter object
- my $tikz = Tikz->formatter;
+ my $tikz = Tikz->formatter(scale => 5);
# Put those objects all together and print them
my $seq = Tikz->seq($octo, $hline, $vline);
# A couple of lines
my $hline = Tikz->line(-1 => 1);
-my $vline = Tikz->line([ 0, -1 ] => [ 0, -1 ]);
+my $vline = Tikz->line([ 0, -1 ] => [ 0, 1 ]);
# Paint them in red
$_->mod(Tikz->color('red')) for $hline, $vline;
$octo->clip(Tikz->rectangle(-0.5*(1+i), 2*(1+i)));
# Fill it with dots
-$octo->mod(Tikz->pattern(class => 'Dots'));
+$octo->mod(Tikz->pattern(class => 'Dots', space_width => 10));
# Create a formatter object
-my $tikz = Tikz->formatter;
+my $tikz = Tikz->formatter(scale => 5);
# Put those objects all together and print them
my $seq = Tikz->seq($octo, $hline, $vline);