# ********************************
#
# just a test by Patrick Vogler
#
# ################################

#from ROOT import gSystem
#gSystem.Load("calfactfits_h.so")   # according to new naming scheme
#from ROOT import *


#TH1F *hist1 = new TH1F("name", "Lightpulser amplitudes ", 450, 0, 450);
#TCanvas *canv = 0;






from ROOT import gRandom, TCanvas, TH1F

c1 = TCanvas( 'c1', 'Example', 200, 10, 700, 500 )
hpx = TH1F( 'hpx', 'px', 100, -4, 4 )

for i in xrange( 25000 ):
   px = gRandom.Gaus()
   hpx.Fill( px )

hpx.Draw()
c1.Update()




print " ... histogram drawn ...  "





answer = raw_input('type "quit" to quit ')
while not 'quit' in answer:
     answer = raw_input('type "quit" to quit ')