int foo() 
{
  gStyle->SetOptTitle(0);
  gStyle->SetOptStat(0);
  TRandom* r  = new TRandom();
  TCanvas* c  = new TCanvas("foo", "Foo");
  c->Draw();
  TPad*    p1 = new TPad("p1", "p1", 0,  0,  .5, .5, 0, 0, 0);
  TPad*    p2 = new TPad("p2", "p2", .5, 0,  1,  .5, 0, 0, 0);
  TPad*    p3 = new TPad("p3", "p3", 0,  .5, .5, 1,  0, 0, 0);
  TPad*    p4 = new TPad("p4", "p4", .5, .5, 1,  1,  0, 0, 0);

  c->cd();
  p1->SetTopMargin(0);
  p1->SetRightMargin(0);
  p1->Draw();
  p1->cd();
  TH1F* h1 = new TH1F("h1", "h1", 10, 0, 10);
  for (Int_t i = 0; i < 10; i++) h1->SetBinContent(i + 1, i + 1);
  h1->Draw();
  
  c->cd();
  p2->SetTopMargin(0);
  p2->SetLeftMargin(0);
  p2->Draw();
  p2->cd();
  TH1F* h2 = new TH1F("h2", "h2", 10, 0, 10);
  for (Int_t i = 0; i < 10; i++) h2->SetBinContent(i + 1, 10 - i + 1);
  h2->Draw();
  Float_t x2 = h2->GetXaxis()->GetBinUpEdge(h2->GetXaxis()->GetXmax());
  TGaxis* ygaxis4 = new TGaxis(x2, h2->GetMinimum(), 
			      x2, h2->GetMaximum(),
			      h2->GetMinimum(), h2->GetMaximum(), 
			      510, "+L");
  ygaxis4->Draw();
  
  c->cd();
  p3->SetBottomMargin(0);
  p3->SetRightMargin(0);
  p3->Draw();
  p3->cd();
  TH1F* h3 = new TH1F("h3", "h3", 10, 0, 10);
  for (Int_t i = 0; i < 10; i++) h3->SetBinContent(i + 1, i + 1 - 5);
  h3->Draw();
  
  c->cd();
  p4->SetBottomMargin(0);
  p4->SetLeftMargin(0);
  p4->Draw();
  p4->cd();
  TH1F* h4 = new TH1F("h4", "h4", 10, 0, 10);
  for (Int_t i = 0; i < 1000; i++) h4->Fill(r->Gaus(4,2));
  h4->Draw();
  Float_t x4 = h4->GetXaxis()->GetBinUpEdge(h4->GetXaxis()->GetXmax());
  TGaxis* ygaxis4 = new TGaxis(x4, h4->GetMinimum(), 
			      x4, h4->GetMaximum(),
			      h4->GetMinimum(), h4->GetMaximum(), 
			      510, "+L");
  ygaxis4->Draw();
}