void shapes() {
//The old geometry shapes (see script geodemo.C)
//To see the output of this macro, click begin_html <a href="gif/shapes.gif" >here</a> end_html
//Author: Rene Brun
   
   TCanvas *c1 = new TCanvas("glc1","Geometry Shapes",200,10,700,500);

   //delete previous geometry objects in case this script is reexecuted
   if (gGeometry) {
      gGeometry->GetListOfNodes()->Delete();
      gGeometry->GetListOfShapes()->Delete();
   }
   //  Define some volumes
   TBRIK *brik  = new TBRIK("BRIK","BRIK","void",200,150,150);
   TTUBE *tube  = new TTUBE("TUBE","TUBE","void",150,200,400);
   tube->SetNumberOfDivisions(1);
   tube->SetLineColor(6);

   //  Build the geometry hierarchy
   TNode *node1 = new TNode("NODE1","NODE1","BRIK");
   node1->cd();

   TNode *node6  = new TNode("NODE6","NODE6","TUBE",-1000,0,0);

   // Draw this geometry in the current canvas
   node1->cd();
   node1->Draw();
   c1->Update();
}