my $space = Space->new( -x => [-1000, 1000], -y => [-1000, 1000], -z => [-1000, 1000] ); my $sphere = $space->new('Sphere', -origin => [2,2,2], -radius => 5, -fill => #abcdef, -transparency => .30, -azimuth => .5 )->pack;