# this works as a bash include
#
#PRIO 1.1
#COMM Math::Geomet2dTrform
#COMM - basic attribute methods, esp. string() for object diagnosis
#COMM - constructors new() and new_move()
#COMM - apply transformation (vector move) to point vector
#
perl -e '
  use lib shift();  # give include precedence to code directory, perl -I would not work!
  use Math::Geomet2dPoint;
  use Math::Geomet2dTrform;
  my $pPt1 = Math::Geomet2dPoint->new(0.3,1.5);
  printf "point: %s\n", $pPt1->string();
  my $pTf = Math::Geomet2dTrform->new_move( [2,1] );
  my $pPt2 = $pPt1->clone()->transform($pTf);
  printf "transformation: %s\n", $pTf->string();
  printf "point transformed (copy): %s\n", $pPt2->string();
  ' -- "$dircode"
