my $format = "v$x n$y n C$z ".("Z$len" x $n);
my $recsize = 2*$x + 2*$y + 2 + $z + ($n*$len);