+ 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,
+ );
+ },
+ ],
+ );
+ }