# this works as a bash include
#
#PRIO 1.0
#COMM test Math::GeometNdPoint
#COMM - use constructor with null argument
#COMM - test attributes with dim() and string()
#COMM - modify dimension (expand) and test result with dim() and string()
#COMM - modify dimension (shrink) and test result with dim() and string()
#
perl -e '
  use lib shift();  # give include precedence to code directory, perl -I would not work!
  use strict;
  use Math::GeometNdTrform;
  my $pTf = Math::GeometNdTrform->new(3) or die "Math::GeometNdTrform construction failed";
  print $pTf->dim(),qq(\n);
  print $pTf->string(),qq(\n);
  $pTf->{mat}[3][2] = 2;
  print $pTf->string(),qq(\n);
  $pTf->dim(4);
  print $pTf->dim(),qq(\n);
  print $pTf->string(),qq(\n);
  $pTf->dim(3);
  print $pTf->dim(),qq(\n);
  print $pTf->string(),qq(\n);
  ' -- "$dircode"
