package PDL::Graphics::TriD::Cube; sub new { my($this,$ }