Gabriele Cosmo
60 lines
2.3 KiB
Tcl
60 lines
2.3 KiB
Tcl
#
|
|
# ********************************************************************
|
|
# * DISCLAIMER *
|
|
# * *
|
|
# * The following disclaimer summarizes all the specific disclaimers *
|
|
# * of contributors to this software. The specific disclaimers,which *
|
|
# * govern, are listed with their locations in: *
|
|
# * http://cern.ch/geant4/license *
|
|
# * *
|
|
# * Neither the authors of this software system, nor their employing *
|
|
# * institutes,nor the agencies providing financial support for this *
|
|
# * work make any representation or warranty, express or implied, *
|
|
# * regarding this software system or assume any liability for its *
|
|
# * use. *
|
|
# * *
|
|
# * This code implementation is the intellectual property of the *
|
|
# * GEANT4 collaboration. *
|
|
# * By copying, distributing or modifying the Program (or any work *
|
|
# * based on the Program) you indicate your acceptance of this *
|
|
# * statement, and all its terms. *
|
|
# ********************************************************************
|
|
#
|
|
#/////////////////////////////////////////////////////////////////////////////
|
|
#/////////////////////////////////////////////////////////////////////////////
|
|
#/////////////////////////////////////////////////////////////////////////////
|
|
delete v
|
|
#
|
|
# Get a SWIG handler over the current viewer :
|
|
IViewer v -this [ui getCurrentViewer]
|
|
v reset page
|
|
#
|
|
# 2x2 regions :
|
|
v set page "1 2"
|
|
v set pageTitle "Xray telescope"
|
|
#
|
|
#/////////////////////////////////////////////////////////////////////////////
|
|
delete storage
|
|
#
|
|
RioStorage storage g4osc.root READ
|
|
storage ls
|
|
#
|
|
delete hEnteringEnergy
|
|
delete hYZ
|
|
#
|
|
# Get some histograms with the H1Get
|
|
# builtin procedure defined in Lab/user/init.tcl :
|
|
# H1DGet <variable> <storage> <SID>
|
|
H1DGet hEnteringEnergy storage "Entering energy"
|
|
#
|
|
# Plot the histo :
|
|
hEnteringEnergy vis
|
|
#
|
|
v set textContext "color black fontName TTF/couri"
|
|
v set histogramContext "color red modeling solid"
|
|
#
|
|
delete hYZ
|
|
H2DGet hYZ storage "YZ"
|
|
v set region 2
|
|
hYZ vis
|