This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / GEANT321 / gdraw / gdwmn3.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.1  1995/10/24 10:20:29  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 GDWMN3(U0,V0)
13 C.
14 C.    ******************************************************************
15 C.    *                                                                *
16 C.    *       Draw a 2D-girl at position (U0,V0)                       *
17 C.    *                                                                *
18 C.    *    ==>Called by : <USER>, <GXINT>, GDSPEC                      *
19 C.    *       Source adapted from GDGIRL                               *
20 C.    *       Author : H. Plothow-Besch/CERN-PPE                       *
21 C.    *                                                                *
22 C.    ******************************************************************
23 C.
24 #include "geant321/gcdraw.inc"
25       DIMENSION U(23),V(23),LEN(12),UN(23,12),VN(23,12)
26       DIMENSION UN1(23),VN1(23),UN2( 8),VN2( 8)
27       DIMENSION UN3( 7),VN3( 7),UN4(13),VN4(13)
28       DIMENSION UN5( 9),VN5( 9),UN6(11),VN6(11)
29       DIMENSION UN7( 5),VN7( 5),UN8(12),VN8(12)
30       DIMENSION UN9( 7),VN9( 7),UN10(11),VN10(11)
31       DIMENSION UN11( 7),VN11( 7),UN12( 6),VN12( 6)
32 C
33       EQUIVALENCE (UN1(1),UN(1,1)),(VN1(1),VN(1,1))
34       EQUIVALENCE (UN2(1),UN(1,2)),(VN2(1),VN(1,2))
35       EQUIVALENCE (UN3(1),UN(1,3)),(VN3(1),VN(1,3))
36       EQUIVALENCE (UN4(1),UN(1,4)),(VN4(1),VN(1,4))
37       EQUIVALENCE (UN5(1),UN(1,5)),(VN5(1),VN(1,5))
38       EQUIVALENCE (UN6(1),UN(1,6)),(VN6(1),VN(1,6))
39       EQUIVALENCE (UN7(1),UN(1,7)),(VN7(1),VN(1,7))
40       EQUIVALENCE (UN8(1),UN(1,8)),(VN8(1),VN(1,8))
41       EQUIVALENCE (UN9(1),UN(1,9)),(VN9(1),VN(1,9))
42       EQUIVALENCE (UN10(1),UN(1,10)),(VN10(1),VN(1,10))
43       EQUIVALENCE (UN11(1),UN(1,11)),(VN11(1),VN(1,11))
44       EQUIVALENCE (UN12(1),UN(1,12)),(VN12(1),VN(1,12))
45 C
46       SAVE LEN,UN1,VN1,UN2,VN2,UN3,VN3,UN4,VN4,UN5,VN5,UN6,VN6
47       SAVE     UN7,VN7,UN8,VN8,UN9,VN9,UN10,VN10,UN11,VN11,UN12,VN12
48  
49       DATA LEN/23, 8, 7, 13, 9, 11, 5, 12, 7, 11, 7, 6/
50  
51 *     Dress
52       DATA UN1/  0.9, 0.6, 1.0, 1.0,-0.1, -0.6, -0.9, -0.5,
53      +          -0.8,-0.5,-0.15, -0.5, -0.7, -0.9, -0.6, -0.25,
54      +          0.15, 0.0, 0.0, 0.3, 0.9, 0.9, 0.9/
55       DATA VN1/  0.8, 1.5, 2.4, 3.4, 2.5,  3.4,  2.4,  1.4,
56      +           0.6,-1.4, 0.2 , -1.4, -2.0, -4.2, -4.1, -4.05,
57      +         -4.0 ,-3.0,-2.0,-1.4,-0.2, 0.4, 0.8/
58  
59 *     RArm
60       DATA UN2/ 0.9, 0.9, 1.6, 1.3, 1.0, 1.0, 1.2, 0.9/
61       DATA VN2/ 0.8, 0.4, 1.5, 3.2, 3.4, 2.4, 1.5, 0.8/
62  
63 *     Collar
64       DATA UN3/-0.1,  1.0,  0.6,-0.1, -0.25, -0.6,-0.1/
65       DATA VN3/ 2.5,  3.4,  3.5, 2.5,  3.5 ,  3.4, 2.5/
66  
67 *     Head
68       DATA UN4/-0.1,-0.6,-0.25,-0.1,-0.1,-0.3,-0.5,-0.20, 0.2, 0.4, 0.6,
69      +          1.0,-0.1/
70       DATA VN4/ 2.5, 3.4, 3.5 , 3.6, 3.7, 3.7, 4.2, 4.75, 4.6, 3.6, 3.5,
71      +          3.4, 2.5/
72  
73 *     Hair
74       DATA UN5/ 0.2, 1.0,  1.0, 1.25, 1.25, 1.0, 0.6, 0.4, 0.2/
75       DATA VN5/ 4.6, 4.3,  3.9, 3.6 , 3.3 , 3.4, 3.5, 3.6, 4.6/
76  
77 *     Hardhead
78       DATA UN6/0.2,-0.4,-0.7,-0.25, 0.0, 0.4 , 0.8, 1.1, 1.1, 1.0, 0.2/
79       DATA VN6/4.6, 4.8, 4.9, 4.85, 5.1, 5.15, 5.0, 4.7, 4.3, 4.3, 4.6/
80  
81 *     LArm
82       DATA UN7/-0.8 , -0.6, -0.8, -1.0, -0.8 /
83       DATA VN7/ 2.7 ,  3.4,  3.3,  3.0,  2.7 /
84  
85 *     Paper
86       DATA UN8/-0.8 ,-1.0,-1.3 ,-1.6,-0.9,-0.9,-0.75,-0.7 ,
87      +         -0.6 ,-0.5, -0.9,-0.8 /
88       DATA VN8/ 2.7 , 3.0, 3.5 , 2.7, 1.6, 1.4, 1.2 , 1.3 ,
89      +          1.15, 1.4,  2.4, 2.7 /
90  
91 *     LHand
92       DATA UN9/-0.9, -0.9, -0.75, -0.7 , -0.55, -0.95, -0.9/
93       DATA VN9/ 1.6,  1.4,  1.2 ,  1.3 ,  1.45,  2.0 ,  1.6/
94  
95 *     LTrousers
96       DATA UN10/ 0.0, 0.0, 0.15, -0.1,-0.1, 0.2, 0.45, 0.75, 0.3 , 0.3,
97      +           0.0/
98       DATA VN10/-2.0,-3.0,-4.0 ,-4.05,-4.3,-4.2,-4.15,-4.1 ,-2.15,-1.4,
99      +          -2.0/
100  
101 *     LFoot
102       DATA UN11/ 0.2, 0.2, 0.0, 0.2, 0.5, 0.45, 0.2/
103       DATA VN11/-4.2,-4.4,-5.0,-5.2,-4.4,-4.15,-4.2/
104  
105 *     RFoot
106       DATA UN12/-0.6,-0.8,-0.3,-0.4,-0.25,-0.6/
107       DATA VN12/-4.1,-5.4,-4.7,-4.3,-4.05,-4.1/
108 C.    ------------------------------------------------------------------
109 C.
110       DO 20 I=1,12
111          JMAX=LEN(I)
112          DO 10 J=1,JMAX
113             U(J)=UN(J,I)*20.0*0.83*GSCU*GZUA+U0
114             V(J)=VN(J,I)*20.0*0.83*GSCV*GZVA+V0
115 C
116 C             Normalize to PLTRNX,PLTRNY
117 C
118             U(J)=U(J)*PLTRNX/20.
119             V(J)=V(J)*PLTRNY/20.
120    10    CONTINUE
121          CALL GDRAWV(U,V,JMAX)
122    20 CONTINUE
123       END