5 * Revision 1.1.1.1 1995/10/24 10:20:29 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.27 by S.Giani
12 SUBROUTINE GDWMN1(U0,V0)
14 C. ******************************************************************
16 C. * Draw a 2D-girl at position (U0,V0) *
18 C. * ==>Called by : <USER>, <GXINT>, GDSPEC *
19 C. * Source adapted from GDGIRL *
20 C. * Author : H. Plothow-Besch/CERN-PPE *
22 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)
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))
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
49 DATA LEN/23, 8, 7, 13, 9, 11, 5, 12, 7, 11, 7, 6/
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/
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/
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/
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,
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,
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/
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/
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 /
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 /
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/
96 DATA UN10/ 0.0, 0.0, 0.15, -0.1,-0.1, 0.2, 0.45, 0.75, 0.3 , 0.3,
98 DATA VN10/-2.0,-3.0,-4.0 ,-4.05,-4.3,-4.2,-4.15,-4.1 ,-2.15,-1.4,
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/
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. ------------------------------------------------------------------
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
116 C Normalize to PLTRNX,PLTRNY
121 CALL GDRAWV(U,V,JMAX)