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