]>
Commit | Line | Data |
---|---|---|
fe4da5cc | 1 | * |
2 | * $Id$ | |
3 | * | |
4 | * $Log$ | |
5 | * Revision 1.1.1.1 1995/10/24 10:20:23 cernlib | |
6 | * Geant | |
7 | * | |
8 | * | |
9 | #include "geant321/pilot.h" | |
10 | *CMZ : 3.21/02 29/03/94 15.41.26 by S.Giani | |
11 | *-- Author : | |
12 | SUBROUTINE GDMAN(U0,V0) | |
13 | C. | |
14 | C. ****************************************************************** | |
15 | C. * * | |
16 | C. * Draw a 2D-man at position (U0,V0) * | |
17 | C. * * | |
18 | C. * ==>Called by : <USER>, <GXINT>, GDSPEC * | |
19 | C. * Author : P.Zanarini ********* * | |
20 | C. * * | |
21 | C. ****************************************************************** | |
22 | C. | |
23 | #include "geant321/gcdraw.inc" | |
24 | DIMENSION U(24),V(24),LEN(4),UN(24,4),VN(24,4) | |
25 | DIMENSION UN1(24),VN1(24),UN2(8),VN2(8) | |
26 | DIMENSION UN3(4),VN3(4),UN4(12),VN4(12) | |
27 | C | |
28 | EQUIVALENCE (UN1(1),UN(1,1)),(VN1(1),VN(1,1)) | |
29 | EQUIVALENCE (UN2(1),UN(1,2)),(VN2(1),VN(1,2)) | |
30 | EQUIVALENCE (UN3(1),UN(1,3)),(VN3(1),VN(1,3)) | |
31 | EQUIVALENCE (UN4(1),UN(1,4)),(VN4(1),VN(1,4)) | |
32 | C | |
33 | SAVE LEN,UN1,VN1,UN2,VN2,UN3,VN3,UN4,VN4 | |
34 | DATA LEN/24,8,4,12/ | |
35 | C | |
36 | DATA UN1/1.3,-0.4,-0.7,0.3,-1.2,-1.6,-1.7,-2.8,-3.6,-1.7, | |
37 | + -1.0,-0.1,0.7,1.9,2.4,2.5,1.4,2.9,3.3,3.1, | |
38 | + 1.9,0.9,1.0,1.3/ | |
39 | DATA VN1/6.2,6.3,4.7,4.6,3.7,2.8,-1.9,-9.5,-9.8,-9.8, | |
40 | + -5.5,-3.6,-5.5,-10.0,-10.4,-9.8,-3.6,-1.2,0.2,1.7, | |
41 | + 3.8,4.4,4.7,6.2/ | |
42 | C | |
43 | DATA UN2/0.0,0.2,1.3,0.9,0.2,-0.3,-0.8,0.2/ | |
44 | DATA VN2/0.0,2.6,4.1,4.4,2.6,4.3,3.9,2.6/ | |
45 | C | |
46 | DATA UN3/1.8,2.4,1.9,1.8/ | |
47 | DATA VN3/-1.1,0.4,1.9,-1.1/ | |
48 | C | |
49 | DATA UN4/-1.2,-1.7,-2.3,-2.1,-2.2,-2.5,-2.6,-1.7,-1.7, | |
50 | + -2.2,-2.1,-1.6/ | |
51 | DATA VN4/3.7,2.9,-1.3,-1.4,-1.8,-1.7,-2.8,-3.0,-1.9, | |
52 | + -1.8,-1.4,-1.5/ | |
53 | C. | |
54 | C. ------------------------------------------------------------------ | |
55 | C. | |
56 | DO 20 I=1,4 | |
57 | JMAX=LEN(I) | |
58 | DO 10 J=1,JMAX | |
59 | U(J)=UN(J,I)*10.0*GSCU*GZUA+U0 | |
60 | V(J)=VN(J,I)*10.0*GSCV*GZVA+V0 | |
61 | C | |
62 | C Normalize to PLTRNX,PLTRNY | |
63 | C | |
64 | U(J)=U(J)*PLTRNX/20. | |
65 | V(J)=V(J)*PLTRNY/20. | |
66 | 10 CONTINUE | |
67 | CALL GDRAWV(U,V,JMAX) | |
68 | 20 CONTINUE | |
69 | C | |
70 | END |