$O3D::Renderer::GD::FPS=1/24;
background(0,0,0.8);
my $box = box(2,4,0.1)->translate(-200,0,0);
animate {
    $box->translate(4,0,0);
}