5 * Revision 1.1.1.1 1995/10/24 10:20:20 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.25 by S.Giani
12 SUBROUTINE GDARR(X1,Y1,X2,Y2,SIZE,ITEXT)
14 C. ******************************************************************
16 C. * Draw a segment from (X1,Y1) to (X2,Y2) *
17 C. * and an arrow (of size SIZE) at the ending point (X2,Y2) *
18 C. * together with the one-character text ITEXT *
20 C. * ==>Called by : GDAXIS *
21 C. * Author : P.Zanarini ********* *
23 C. ******************************************************************
30 C. ------------------------------------------------------------------
36 XL=SQRT((X2-X1)**2+(Y2-Y1)**2)
38 C If axis size is too small, then return without drawing it
40 IF (XL.LE.0.1) GO TO 999
48 U(1)=X1+(XL-SIZE)*FCOS-SIZE*TGAR*FSIN
49 U(3)=X1+(XL-SIZE)*FCOS+SIZE*TGAR*FSIN
50 V(1)=Y1+(XL-SIZE)*FSIN+SIZE*TGAR*FCOS
51 V(3)=Y1+(XL-SIZE)*FSIN-SIZE*TGAR*FCOS
59 X0=X1+(XL+2*SIZE)*FCOS
60 Y0=Y1+(XL+2*SIZE)*FSIN
67 CALL GDRAWT(X0,Y0,ITEXT,SIZE,ANGLE,LWIDTH,IOPT)