GEANT321/gdraw/gdwmn2.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 GDWMN2(U0,V0)
  13 C.
  14 C.    ******************************************************************
  15 C.    *                                                                *
  16 C.    *       Draw a 2D-Lady 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(17),V(17),LEN(11),UN(17,11),VN(17,11)
  26       DIMENSION UN1(17),VN1(17),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( 8),VN10( 8)
  31       DIMENSION UN11(10),VN11(10)
  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 C
  45       SAVE LEN,UN1,VN1,UN2,VN2,UN3,VN3,UN4,VN4,UN5,VN5,UN6,VN6
  46       SAVE     UN7,VN7,UN8,VN8,UN9,VN9,UN10,VN10,UN11,VN11
  47
  48       DATA LEN/17, 8, 7, 13, 9, 11, 5, 12, 7, 8, 10/
  49
  50 *     Dress
  51       DATA UN1/ 0.9, 0.6, 1.0, 1.0,-0.1, -0.6, -0.9,-0.5,-0.8, -1.0,
  52      +         -0.7 , -0.1 , 0.25, 1.4, 0.95, 0.9, 0.9/
  53       DATA VN1/ 0.8, 1.5, 2.4, 3.4, 2.5,  3.4,  2.4, 1.4, 0.6, -2.3,
  54      +         -2.25, -2.15,-2.1 ,-1.9,-1.0 , 0.4, 0.8/
  55
  56 *     RArm
  57       DATA UN2/ 0.9, 0.9, 1.6, 1.3, 1.0, 1.0, 1.2, 0.9/
  58       DATA VN2/ 0.8, 0.4, 1.5, 3.2, 3.4, 2.4, 1.5, 0.8/
  59
  60 *     Collar
  61       DATA UN3/-0.1,  1.0,  0.6,-0.1, -0.25, -0.6,-0.1/
  62       DATA VN3/ 2.5,  3.4,  3.5, 2.5,  3.5 ,  3.4, 2.5/
  63
  64 *     Head
  65       DATA UN4/-0.1,-0.6,-0.25,-0.1,-0.1,-0.3,-0.5,-0.20, 0.2, 0.4, 0.6,
  66      +          1.0,-0.1/
  67       DATA VN4/ 2.5, 3.4, 3.5 , 3.6, 3.7, 3.7, 4.2, 4.75, 4.6, 3.6, 3.5,
  68      +          3.4, 2.5/
  69
  70 *     Hair
  71       DATA UN5/ 0.2, 1.0,  1.0, 1.25, 1.25, 1.0, 0.6, 0.4, 0.2/
  72       DATA VN5/ 4.6, 4.3,  3.9, 3.6 , 3.3 , 3.4, 3.5, 3.6, 4.6/
  73
  74 *     Hardhead
  75       DATA UN6/0.2,-0.4,-0.7,-0.25, 0.0, 0.4 , 0.8, 1.1, 1.1, 1.0, 0.2/
  76       DATA VN6/4.6, 4.8, 4.9, 4.85, 5.1, 5.15, 5.0, 4.7, 4.3, 4.3, 4.6/
  77
  78 *     LArm
  79       DATA UN7/-0.8 , -0.6, -0.8, -1.0, -0.8 /
  80       DATA VN7/ 2.7 ,  3.4,  3.3,  3.0,  2.7 /
  81
  82 *     Paper
  83       DATA UN8/-0.8 ,-1.0,-1.3 ,-1.6,-0.9,-0.9,-0.75,-0.7 ,
  84      +         -0.6 ,-0.5, -0.9,-0.8 /
  85       DATA VN8/ 2.7 , 3.0, 3.5 , 2.7, 1.6, 1.4, 1.2 , 1.3 ,
  86      +          1.15, 1.4,  2.4, 2.7 /
  87
  88 *     LHand
  89       DATA UN9/-0.9, -0.9, -0.75, -0.7 , -0.55, -0.95, -0.9/
  90       DATA VN9/ 1.6,  1.4,  1.2 ,  1.3 ,  1.45,  2.0 ,  1.6/
  91
  92 *     RLeg
  93       DATA UN10/-0.7 ,-0.6,-0.8,-0.3,-0.4, 0.0,-0.1 ,-0.7 /
  94       DATA VN10/-2.25,-3.8,-5.4,-4.7,-4.3,-3.0,-2.15,-2.25/
  95
  96 *     LLeg
  97       DATA UN11/-0.1 , 0.0,-0.15, 0.2, 0.0, 0.2, 0.5, 0.4, 0.25,-0.1 /
  98       DATA VN11/-2.15,-3.0,-3.4 ,-4.4,-5.0,-5.2,-4.4,-4.2,-2.1 ,-2.15/
  99 C.    ------------------------------------------------------------------
 100 C.
 101       DO 20 I=1,11
 102          JMAX=LEN(I)
 103          DO 10 J=1,JMAX
 104             U(J)=UN(J,I)*20.0*0.83*GSCU*GZUA+U0
 105             V(J)=VN(J,I)*20.0*0.83*GSCV*GZVA+V0
 106 C
 107 C             Normalize to PLTRNX,PLTRNY
 108 C
 109             U(J)=U(J)*PLTRNX/20.
 110             V(J)=V(J)*PLTRNY/20.
 111    10    CONTINUE
 112          CALL GDRAWV(U,V,JMAX)
 113    20 CONTINUE
 114       END