*-- Author :    Stephen J. Maxfield   21/09/92
      SUBROUTINE FOXY
*                                                                                                             
*                                                                                                             
*  Make scatter plots of digitisation locations in FTD.                                                       
*                                                                                                             
*  For Radials, space points from FRLC are used.                                                              
*  For Planars, where space points are not defined at the hit level,                                          
*  the x-y coordinates of segment start positions are used (ex FPSG)                                          
*                                                                                                             
*KEEP,BCS.                                                                                                    
*KEND.                                                                                                        
*     Locators for FRG1 bank                                                                                  
*     Locators for FRLC bank                                                                                  
*KEEP,STFUNCT.                                                                                                
*     index of element before row number IROW                                                                 
*     index of L'th element  of row number IROW                                                               
*     L'th integer element of the IROW'th row of bank with index IND                                          
*     L'th real element of the IROW'th row of bank with index IND                                             
*KEEP,FTFUNCT.                                                                                                
*     Statement functions for RADIAL Chamber data access.                                                     
*     Using Channel Number J                                                                                  
*     Module, Wedge-pair and Z-plane numbers...                                                               
*     Statement function for obtaining WEDGE numbers(0-47) of                                                 
*     wires at plus and minus ends of Cell numbers                                                            
*     Statement function for obtaining IOS wire number (1-36)                                                 
*     Statement functions for PLANAR Chamber data access.                                                     
*     Using Channel Number J                                                                                  
*     Module, orientation, W-cell and Z-plane numbers...                                                      
*     IPSMD in range 0:8 Planar module number.                                                                
*                                                                                                             
*     IOS wire number (runs from 0 to 36)                                                                     
* SB plane numbers (1-72) from cell number                                                                    
* Module, orientation, wire and (typical) cell number from plane                                              
* number in the range 1-72 (planars, radials and combined)                                                    
*KEND.                                                                                                        
*----------------------------------------------------------------------                                       
*     Initialisations on first call...                                                                        
         IQFRLC = NAMIND('FRLC')
         IQFRG1 = NAMIND('FRG1')
*-----------------------------------------------------------                                                  
*     Space points in Radials ex FRLC bank...                                                                 
*       Create FRLC bank...                                                                                   
        CALL FTCORG
          CALL H1STOP                                                                                  
*       Create FRLC bank...                                                                                   
        CALL FRLOCO
          CALL H1STOP                                                                                  
*       Phi, Stagger and Z of wire                                                                            
        RR      =  RADIUS + FLOREN(RADIUS,ABS(DDD),DSIGN)
        RR      =  RADIUS + FLOREN(RADIUS,ABS(DDD),DSIGN)
        CALL SHD(703,    0,XXP,YYP)                                                                    
        CALL SHD(703,    0,XXM,YYM)                                                                    
        CALL SHD(700+ISM,0,XXP,YYP)                                                                    
        CALL SHD(700+ISM,0,XXM,YYM)                                                                    
*     Planar and radial segment data...                                                                       
      IFRSG = NLINK('FRSG',0)
      IFPSG = NLINK('FPSG',0)
        CALL SHD(713,     0, XIN, YIN)                                                                 
        CALL SHD(710+ISM, 0, XIN, YIN)                                                                 
        CALL SHD(723,     0, XIN, YIN)                                                                 
        CALL SHD(720+ISM, 0, XIN, YIN)                                                                 
*     Done                                                                                                    
*