[u/mrichter/AliRoot.git] / GEANT321 / gdraw / gdrawx.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1995/10/24 10:20:27  cernlib
* Geant
*
*
#include "geant321/pilot.h"
*CMZ :  3.21/02 29/03/94  15.41.27  by  S.Giani
*-- Author :
      SUBROUTINE GDRAWX(NAME,CUTTHE,CUTPHI,CUTVAL,THE,PHI,U0,V0,SU,SV)
C.
C.    ******************************************************************
C.    *                                                                *
C.    *       Draw extended cut : this routine is similar to GDRAWC    *
C.    *       but any cut plane can be choosen, instead of just        *
C.    *       the three planes normal to the main axes.                *
C.    *                                                                *
C.    *       The cut plane is normal to the line given by             *
C.    *       the two cut angles CUTTHE,CUTPHI                         *
C.    *       and it is placed at the distance CUTVAL from the origin. *
C.    *                                                                *
C.    *       The resulting picture is seen from the angles THE,PHI    *
C.    *                                                                *
C.    *    ==>Called by : <USER>, <GXINT>                              *
C.    *       Author : P.Zanarini   *********                          *
C.    *                                                                *
C.    ******************************************************************
C.
#include "geant321/gcbank.inc"
#include "geant321/gcdraw.inc"
      CHARACTER*4 NAME
C.
C.    ------------------------------------------------------------------
C.
C             Allocate working space
C
      CALL GWORK(NWCUT)
C
      IF (CUTTHE.EQ.90.AND.CUTPHI.EQ.180) THEN
         ICUT=1
      ELSE IF (CUTTHE.EQ.90.AND.CUTPHI.EQ.0) THEN
         ICUT=1
      ELSE IF (CUTTHE.EQ.90.AND.CUTPHI.EQ.90) THEN
         ICUT=2
      ELSE IF (CUTTHE.EQ.0.AND.CUTPHI.EQ.0) THEN
         ICUT=3
      ELSE
         ICUT=0
      ENDIF
C
      DCUT=CUTVAL
      CTHETA=CUTTHE
      CPHI=CUTPHI
C
      NSURF=0
      ISURF=1
C
C             ICUTFL=1 informs GDRAW to call GDRWSC instead of GDRAWS
C             (so that we'll have stored surfaces instead of drawn lines
C             and to use the line buffer logic of GDRAWV
C
C             PSI is fixed to 0.
C
      ICUTFL=1
      CALL GDRAW(NAME,THE,PHI,0.,U0,V0,SU,SV)
      ICUTFL=0
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1995/10/24 10:20:27 cernlib
	6	* Geant
	7	*
	8	*
	9	#include "geant321/pilot.h"
	10	*CMZ : 3.21/02 29/03/94 15.41.27 by S.Giani
	11	*-- Author :
	12	SUBROUTINE GDRAWX(NAME,CUTTHE,CUTPHI,CUTVAL,THE,PHI,U0,V0,SU,SV)
	13	C.
	14	C. ******************************************************************
	15	C. * *
	16	C. * Draw extended cut : this routine is similar to GDRAWC *
	17	C. * but any cut plane can be choosen, instead of just *
	18	C. * the three planes normal to the main axes. *
	19	C. * *
	20	C. * The cut plane is normal to the line given by *
	21	C. * the two cut angles CUTTHE,CUTPHI *
	22	C. * and it is placed at the distance CUTVAL from the origin. *
	23	C. * *
	24	C. * The resulting picture is seen from the angles THE,PHI *
	25	C. * *
	26	C. * ==>Called by : <USER>, <GXINT> *
	27	C. * Author : P.Zanarini ********* *
	28	C. * *
	29	C. ******************************************************************
	30	C.
	31	#include "geant321/gcbank.inc"
	32	#include "geant321/gcdraw.inc"
	33	CHARACTER*4 NAME
	34	C.
	35	C. ------------------------------------------------------------------
	36	C.
	37	C Allocate working space
	38	C
	39	CALL GWORK(NWCUT)
	40	C
	41	IF (CUTTHE.EQ.90.AND.CUTPHI.EQ.180) THEN
	42	ICUT=1
	43	ELSE IF (CUTTHE.EQ.90.AND.CUTPHI.EQ.0) THEN
	44	ICUT=1
	45	ELSE IF (CUTTHE.EQ.90.AND.CUTPHI.EQ.90) THEN
	46	ICUT=2
	47	ELSE IF (CUTTHE.EQ.0.AND.CUTPHI.EQ.0) THEN
	48	ICUT=3
	49	ELSE
	50	ICUT=0
	51	ENDIF
	52	C
	53	DCUT=CUTVAL
	54	CTHETA=CUTTHE
	55	CPHI=CUTPHI
	56	C
	57	NSURF=0
	58	ISURF=1
	59	C
	60	C ICUTFL=1 informs GDRAW to call GDRWSC instead of GDRAWS
	61	C (so that we'll have stored surfaces instead of drawn lines
	62	C and to use the line buffer logic of GDRAWV
	63	C
	64	C PSI is fixed to 0.
65	C
66	ICUTFL=1
67	CALL GDRAW(NAME,THE,PHI,0.,U0,V0,SU,SV)
68	ICUTFL=0
69	END