Select Code to Download

 my @tmpl = ( [0,0,0, 'A'],
              [1,0,0, 'B'],
...
              [3,0,0, 'B'],
              [4,0,0, 'B'],
              [5,0,0, 'A'] );

 ...
 my $axis = [ 0, 0, 1 ]; # may be arbitary axis, always normalized
...
    push @ensemble, $p;
 }
 ...