Files
geant4/environments/OPACS/usr/EXPO_Xaw.odb
T
2016-06-01 15:25:35 +02:00

190 lines
5.0 KiB
Plaintext

!/* +---------------------- Copyright notice -------------------------------+ */
!/* | Copyright (C) 1995, Guy Barrand, LAL Orsay, (barrand@lal.in2p3.fr) | */
!/* | Permission to use, copy, modify, and distribute this software | */
!/* | and its documentation for any purpose and without fee is hereby | */
!/* | granted, provided that the above copyright notice appear in all | */
!/* | copies and that both that copyright notice and this permission | */
!/* | notice appear in supporting documentation. This software is | */
!/* | provided "as is" without express or implied warranty. | */
!/* +---------------------- Copyright notice -------------------------------+ */
!----------------------------
begin OInterface
prefix = EXPO_
resources = \
Wo*XoCamera.borderWidth:3
createCallback = G4>\
/init/all\
/tracking/storeTrajectory 1\
#/gun/particle gamma\
#/gun/particle geantino\
/gun/particle e-\
/gun/direction 0.1 1 0\
/gun/energy 1 GeV\
#/particle/dump\
#/event/verbose 1\
#/tracking/verbose 1
end
!----------------------------
begin OWidget
name = EXPO_1
type = TopLevelShell
children = EXPO_9
mappedWhenManaged = true
geometry = 500x500+0+0
title = Visualization GEANT4
end
!----------------------------
begin OWidget
name = EXPO_9
type = Form
children = EXPO_4 EXPO_camera
end
!----------------------------
begin OWidget
name = EXPO_4
type = Box
children = EXPO_5 EXPO_EXPO_casc EXPO_g4_casc
background = lightgrey
top = chaintop
left = chainleft
right = chainright
! bottom = chainbottom
resizable = true
horizDistance = 1
vertDistance = 1
end
!----------------------------
begin OWidget
name = EXPO_5
type = MenuButton
background = lightgrey
label = File
menuName = EXPO_6
children = EXPO_6
end
!----------------------------
begin OWidget
name = EXPO_6
type = SimpleMenu
mappedWhenManaged = false
children = EXPO_exit
background = lightgrey
end
!----------------------------
begin OWidget
name = EXPO_exit
type = SmeBSB
label = Exit
callback = osh> do Wo sendExitOnly
end
!----------------------------
begin OWidget
name = EXPO_camera
type = XoCamera
! depthTreatment = zbuffer
createCallback = osh>\
set Widget target `thisWidget`\
camera=`thisCamera`\
# EXPO\
setWidgetResource EXPO_camera viewLimits '-2000. 2000.'\
set OContext color pink; collect PhysicalVolume where name eq WorldPhys | represent - | viewNode - $camera\
set OContext color pink; collect PhysicalVolume where name eq CalorPhys | represent - | viewNode - $camera\
set OContext modeling wire_frame\
set OContext color lightgrey; collect PhysicalVolume where name eq ChambPhys | represent - | viewNode - $camera
background = black
collectCallback = osh> getCameraNodes `thisCamera` | collect ONode where highlight eq 1 | get - name | dump -
vertDistance = 1
fromVert = EXPO_4
height = 1000
left = chainleft
right = chainright
bottom = chainbottom
horizDistance = 1
end
!----------------------------
begin OWidget
name = EXPO_g4_casc
type = MenuButton
background = lightgrey
label = G4
menuName = EXPO_g4_pdm
children = EXPO_g4_pdm
end
!----------------------------
begin OWidget
name = EXPO_g4_pdm
type = SimpleMenu
mappedWhenManaged = false
children = EXPO_particles
background = lightgrey
end
!----------------------------
begin OWidget
name = EXPO_particles
type = SmeBSB
label = Particle dump
callback = G4> /particle/dump
end
!----------------------------
begin OWidget
name = EXPO_EXPO_casc
type = MenuButton
background = lightgrey
label = EXPO
menuName = EXPO_EXPO_pdm
children = EXPO_EXPO_pdm
end
!----------------------------
begin OWidget
name = EXPO_EXPO_pdm
type = SimpleMenu
mappedWhenManaged = false
children = EXPO_startRun EXPO_nextEvent EXPO_abortRun
background = lightgrey
end
!----------------------------
begin OWidget
name = EXPO_startRun
type = SmeBSB
label = Start run
createCallback = osh> setWidgetResource EXPO_nextEvent sensitive False
! SmeBSB is a gadget then &osh> crashes.
callback = osh>\
setWidgetResource EXPO_exit sensitive False\
setWidgetResource EXPO_startRun sensitive False\
setWidgetResource EXPO_nextEvent sensitive True\
setWidgetResource EXPO_abortRun sensitive True\
#eventn=`ask 'Number of event' 10`\
eventn='10'\
string=`printf '/run/beamOn %s' $eventn`\
G4 $string\
setWidgetResource EXPO_exit sensitive True\
setWidgetResource EXPO_startRun sensitive True\
setWidgetResource EXPO_nextEvent sensitive False\
setWidgetResource EXPO_abortRun sensitive False
end
!----------------------------
begin OWidget
name = EXPO_nextEvent
type = SmeBSB
label = Next event
callback = osh> do Wo sendExitOnly
end
!----------------------------
begin OWidget
name = EXPO_abortRun
type = SmeBSB
label = Abort run
createCallback = osh>\
setWidgetResource EXPO_nextEvent sensitive False\
setWidgetResource EXPO_abortRun sensitive False
callback = osh>\
G4 /run/abort\
do Wo sendExitOnly
end