sub matrix_calculate
{
  my ($self, $matrix) = shift;

  ###return 
  my ($matrix4) = $self->{$matrixX} * $self->{$matrixY} * $self->{$matrixZ} * $self->{$matrix};
}