--- a/bin/ptovariable
+++ b/bin/ptovariable
@@ -17,6 +17,8 @@
 my @TrX;
 my @TrY;
 my @TrZ;
+my @Tpp;
+my @Tpy;
 my $view = 0;
 my $barrel = 0;
 my $centre = 0;
@@ -42,6 +44,8 @@
             'TrX=i' => \@TrX,
             'TrY=i' => \@TrY,
             'TrZ=i' => \@TrZ,
+            'Tpp=i' => \@Tpp,
+            'Tpy=i' => \@Tpy,
             'vignetting' => \$vignetting,
             'vignetting-centre' => \$vignetting_centre,
             'response' => \$response,
@@ -106,6 +110,9 @@
 $variable->{$_}->{TrX} = 1 for (@TrX);
 $variable->{$_}->{TrY} = 1 for (@TrY);
 $variable->{$_}->{TrZ} = 1 for (@TrZ);
+
+$variable->{$_}->{Tpp} = 1 for (@Tpp);
+$variable->{$_}->{Tpy} = 1 for (@Tpy);
 
 $pto->Write ($path_output);