void GUI::build_beam(TGMainFrame *fBeam) {

  TGHorizontalFrame *first = new TGHorizontalFrame(fBeam,100,100);
  TGHorizontalFrame *secon = new TGHorizontalFrame(fBeam,100,100);
  TGHorizontalFrame *third = new TGHorizontalFrame(fBeam,100,100);
  TGHorizontalFrame *fourt = new TGHorizontalFrame(fBeam,100,100);

  Char_t buf1[50],buf2[50];
  TGVerticalFrame *left0,*right0,*left1,*right1,*left2,*right2,*left3,*right3;
  Int_t j;
  TGLabel *Minfit[8],*Maxfit[8];

  left0 = new TGVerticalFrame(first,100,100);
  CanvasName[0] = new TGLabel(left0,buf1);
  left0->AddFrame(CanvasName[0], new TGLayoutHints(kLHintsCenterX,2,2,2,2));
  TRootEmbeddedCanvas *tempcan0 = new TRootEmbeddedCanvas(buf1,left0,100,100);
  left0->AddFrame(tempcan0, new TGLayoutHints(kLHintsExpandX | kLHintsExpandY,2,2,2,2));
			
  TGHorizontalFrame *range0 = new TGHorizontalFrame(left0,100,100);
  Minfit[0] = new TGLabel(range0,"Fit Min");
  range0->AddFrame(Minfit[0], new TGLayoutHints(kLHintsCenterX,2,2,2,2));
  TGTextEntry *rangemin_entry0 = new TGTextEntry(range0,"0");
  rangemin_entry0->SetWidth(50);
  range0->AddFrame(rangemin_entry0, new TGLayoutHints(kLHintsCenterX ,2,2,2,2));
  Maxfit[0] = new TGLabel(range0,"Fit Max");
  range0->AddFrame(Maxfit[0], new TGLayoutHints(kLHintsCenterX,40,2,2,2));
  TGTextEntry *rangemax_entry0 = new TGTextEntry(range0,"4000");
  rangemax_entry0->SetWidth(50);
  range0->AddFrame(rangemax_entry0, new TGLayoutHints(kLHintsCenterX ,2,2,2,2));
  left0->AddFrame(range0, new TGLayoutHints(kLHintsCenterX,2,2,2,2));

  right0 = new TGVerticalFrame(first,100,100);
  CanvasName[1] = new TGLabel(right0,buf2);
  right0->AddFrame(CanvasName[1], new TGLayoutHints(kLHintsCenterX,2,2,2,2));
  TRootEmbeddedCanvas *tempcan1 = new TRootEmbeddedCanvas(buf2,right0,100,100);
  right0->AddFrame(tempcan1, new TGLayoutHints(kLHintsExpandX| kLHintsExpandY,2,2,2,2));
		
  TGHorizontalFrame *range1 = new TGHorizontalFrame(right0,100,100);
  Minfit[1] = new TGLabel(range1,"Fit Min");
  range1->AddFrame(Minfit[0], new TGLayoutHints(kLHintsCenterX,2,2,2,2));
  TGTextEntry *rangemin_entry1 = new TGTextEntry(range1,"0");
  rangemin_entry1->SetWidth(50);
  range1->AddFrame(rangemin_entry1, new TGLayoutHints(kLHintsCenterX,2,2,2,2));
  Maxfit[1] = new TGLabel(range1,"Fit Max");
  range1->AddFrame(Maxfit[1], new TGLayoutHints(kLHintsCenterX,40,2,2,2));
  TGTextEntry *rangemax_entry1 = new TGTextEntry(range1,"4000");
  rangemax_entry1->SetWidth(50);
  range1->AddFrame(rangemax_entry1, new TGLayoutHints(kLHintsCenterX,2,2,2,2));
  right0->AddFrame(range1, new TGLayoutHints(kLHintsCenterX,2,2,2,2));

  //The following pointers are defined globaly to allow access by other subroutines			
  Canvaspntr[0]=tempcan0->GetCanvas();
  Canvaspntr[1]=tempcan1->GetCanvas();
  rangemin_pntr[0]=rangemin_entry0;
  rangemax_pntr[0]=rangemax_entry0;
  rangemin_pntr[1]=rangemin_entry1;
  rangemax_pntr[1]=rangemax_entry1;

	//Repeditive code removed....

  first->AddFrame(left0, new TGLayoutHints(kLHintsExpandX | kLHintsExpandY,1,1,1,1));
  first->AddFrame(right0, new TGLayoutHints(kLHintsExpandX | kLHintsExpandY,1,1,1,1));

  secon->AddFrame(left1, new TGLayoutHints(kLHintsExpandX | kLHintsExpandY,1,1,1,1));
  secon->AddFrame(right1, new TGLayoutHints(kLHintsExpandX | kLHintsExpandY,1,1,1,1));

  third->AddFrame(left2, new TGLayoutHints(kLHintsExpandX | kLHintsExpandY,1,1,1,1));
  third->AddFrame(right2, new TGLayoutHints(kLHintsExpandX | kLHintsExpandY,1,1,1,1));

  fourt->AddFrame(left3, new TGLayoutHints(kLHintsExpandX | kLHintsExpandY,1,1,1,1));
  fourt->AddFrame(right3, new TGLayoutHints(kLHintsExpandX | kLHintsExpandY,1,1,1,1));

  fBeam->AddFrame(first, new TGLayoutHints(kLHintsExpandX | kLHintsExpandY,1,1,1,1));
  fBeam->AddFrame(secon, new TGLayoutHints(kLHintsExpandX | kLHintsExpandY,1,1,1,1));
  fBeam->AddFrame(third, new TGLayoutHints(kLHintsExpandX | kLHintsExpandY,1,1,1,1));
  fBeam->AddFrame(fourt, new TGLayoutHints(kLHintsExpandX | kLHintsExpandY,1,1,1,1));

  fBeam->SetWindowName("Beams");
  fBeam->MapSubwindows();
  fBeam->MapWindow();

}