[u/mrichter/AliRoot.git] / GEANT321 / gdraw / gdscal.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 GDSCAL(U0,V0)
C.
C.    ******************************************************************
C.    *                                                                *
C.    *       Draw an unitary length segment at position (U0,V0)       *
C.    *       correspondent to current scale factor GSCU               *
C.    *       and zoom factor GZUA                                     *
C.    *                                                                *
C.    *    ==>Called by : <USER>, <GXINT>, GDSPEC                      *
C.    *       Author : P.Zanarini   *********                          *
C.    *                                                                *
C.    ******************************************************************
C.
#include "geant321/gcdraw.inc"
      DIMENSION U(2),V(2)
      CHARACTER*8 IUMC
C.
C.    ------------------------------------------------------------------
C.
      IF (GSCU*GZUA.LE.0.03) THEN
         IUMC='100< CM$'
         UML=100.
      ELSE IF (GSCU*GZUA.LE.0.3) THEN
         IUMC='10 <CM $'
         UML=10.
      ELSE IF (GSCU*GZUA.LE.3.) THEN
         IUMC=' 1 <CM $'
         UML=1.
      ELSE IF (GSCU*GZUA.LE.30.) THEN
         IUMC='0.1<CM $'
         UML=0.1
      ELSE IF (GSCU*GZUA.LE.300.) THEN
         IUMC='100< [M$'
         UML=0.01
      ELSE IF (GSCU*GZUA.LE.3000.) THEN
         IUMC='10 <[M $'
         UML=0.001
      ELSE
         IUMC=' 1<[M $'
         UML=0.0001
      ENDIF
C
      SLEN=UML*GSCU*GZUA
C
C             Normalize to PLTRNX,PLTRNY
C
      SLEN=SLEN*MIN(PLTRNX,PLTRNY)/20.
C
      DX=SLEN/2.
      DY=DX/4.
      U(1)=U0-DX
      U(2)=U0+DX
      V(1)=V0
      V(2)=V0
      CALL GDRAWV(U,V,2)
      U(2)=U0-DX
      V(1)=V0+DY
      V(2)=V0-DY
      CALL GDRAWV(U,V,2)
      U(1)=U0+DX
      U(2)=U0+DX
      CALL GDRAWV(U,V,2)
C
      CSIZ=SLEN/4.
      VV0=V0+3.*DY
      CALL GDRAWT(U0,VV0,IUMC,CSIZ,0.,1,0)
C
      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 GDSCAL(U0,V0)
	13	C.
	14	C. ******************************************************************
	15	C. * *
	16	C. * Draw an unitary length segment at position (U0,V0) *
	17	C. * correspondent to current scale factor GSCU *
	18	C. * and zoom factor GZUA *
	19	C. * *
	20	C. * ==>Called by : <USER>, <GXINT>, GDSPEC *
	21	C. * Author : P.Zanarini ********* *
	22	C. * *
	23	C. ******************************************************************
	24	C.
	25	#include "geant321/gcdraw.inc"
	26	DIMENSION U(2),V(2)
	27	CHARACTER*8 IUMC
	28	C.
	29	C. ------------------------------------------------------------------
	30	C.
	31	IF (GSCU*GZUA.LE.0.03) THEN
	32	IUMC='100< CM$'
	33	UML=100.
	34	ELSE IF (GSCU*GZUA.LE.0.3) THEN
	35	IUMC='10 <CM $'
	36	UML=10.
	37	ELSE IF (GSCU*GZUA.LE.3.) THEN
	38	IUMC=' 1 <CM $'
	39	UML=1.
	40	ELSE IF (GSCU*GZUA.LE.30.) THEN
	41	IUMC='0.1<CM $'
	42	UML=0.1
	43	ELSE IF (GSCU*GZUA.LE.300.) THEN
	44	IUMC='100< [M$'
	45	UML=0.01
	46	ELSE IF (GSCU*GZUA.LE.3000.) THEN
	47	IUMC='10 <[M $'
	48	UML=0.001
	49	ELSE
	50	IUMC=' 1<[M $'
	51	UML=0.0001
	52	ENDIF
	53	C
	54	SLEN=UMLGSCUGZUA
	55	C
	56	C Normalize to PLTRNX,PLTRNY
	57	C
	58	SLEN=SLEN*MIN(PLTRNX,PLTRNY)/20.
	59	C
	60	DX=SLEN/2.
	61	DY=DX/4.
	62	U(1)=U0-DX
	63	U(2)=U0+DX
	64	V(1)=V0
65	V(2)=V0
66	CALL GDRAWV(U,V,2)
67	U(2)=U0-DX
68	V(1)=V0+DY
69	V(2)=V0-DY
70	CALL GDRAWV(U,V,2)
71	U(1)=U0+DX
72	U(2)=U0+DX
73	CALL GDRAWV(U,V,2)
74	C
75	CSIZ=SLEN/4.
76	VV0=V0+3.*DY
77	CALL GDRAWT(U0,VV0,IUMC,CSIZ,0.,1,0)
78	C
79	END