[Prev][Next][Index][Thread]

opacs/F77/NA48 soft/...


	Hello

  Happy new year also to you. I hope
 we shall be able to have fruitfull work together.

  To make an object unpickable use the routine:
      GObjectSetPickable (GObject,int);
 Set the second argument to 0.

  The v1 of the dump command (in Co/v1/src/oshCo.c)
 dump today all properties in the "table" format.
 I am working on the v2 (available soon, I hope)
 and I have improve the command to dump only one or 
 a list of selected properties. It look like this: 
   collect ECAL | dump - energy
  The output is line by line with one energy per line.
 With:    
   collect ECAL | dump - energy xpos
  The output has energy and xpos on the same line for each object
 ECAL found (then two columns of data).
    
  Do you think it will cover what you want ???
 The code of the visaulisation part (Vis v2) uppon
 the "o" package is in:  
      ftp ftp.lal.in2p3.fr
      cd pub/na48/Vis
      get Visv2.tar.Z
  As I have aready said the problem is to bring back all the 
 other offline software of the NA48 experiment. I have put also
 the "*.car" files that seems to be need by the visualization.
  To reconstruct you will have to fight with the Makefile
 and the PATCHY procedure that are in Vis/v2/mgr to reconstruct.


   A better way will be to be able to run our version
 at LAL from an HTML page. I know that the "forms" permit
 to start some procedure on a remote node. I have
 to explore this...

   
  About the F77 interface to Go. I have done some
 F77 interface to major routines of the package.
 It is in Go/v1/src/GoF77.c.
  A typicall example is:

       INTEGER*4 COLOR,LSTYLE,MSTYLE,ASTYLE,LWIDTH,FONT
       INTEGER*4 NPT
       REAL*4    XZ(2),YZ(2),ZS(2)
C  Set the "current" OCamera. Second arg is the length
C of the string (it eases the F77/C interface writing).
       CALL GOCSET ('my_camera',9)
C  Create a GObject named 'my_cube'
       CALL GOOCRE ('my_cube',7)    
C  Reset graphical attributes. 
       CALL GOARAZ ()
C  Set graphical attributes.
C    COLOR   index in the OCamera color map.
C    LSTYLE  line style.
C    MSTYLE  mark style.
C    ASTYLE  area style.
C    LWIDTH  line width
C    FONT    not used.
C  Values to set could be found in Go/v1/src/GAtb.h
C  To draw a blue solid line of size 2 pixel:
       COLOR  = 3 
       LSTYLE = 0
       LWIDTH = 2
       CALL GOASET (COLOR,LSTYLE,MSTYLE,ASTYLE,LWIDTH,FONT)
C  To load a polyline in the current 'my_cube' object: 
       NPT   = 2
       XS(1) = ..
       YS(1) = ..
       ZS(1) = ..
       XS(2) = ..
       YS(2) = ..
       ZS(2) = ..
       CALL GOPLIN (NPT,XS,YS,ZS)
       ....
C  Ask OCamera 'my_camera' to view the GObject 'my_cube'
       CALL GOVIEW ()

   For F77 we use the strategy of the "current things".
   The pointers of C stuff (OCamera, GObject,...) are
 never seen by F77. This is due to the fact that on 64 
 bits machines you can't pass a pointer to f77 (there is no
 unsigned INTEGER*8 that exists in a portable way). 


    I hope all these will be helpfull.


          G.Barrand


barrand@lalcls.in2p3.fr