v/del *
set *

set xval .2                             ! y-label to axis
g/SET LWID 8             | The line width is 6
g/set pass 2

null -10 10 10 35                       ! frame
text -4 8.3 'z vertex position (cm)' .4
text -11.8 12.7 'muon arm acceptance (angle in degrees)' .4 90
v/create left(1) r -9.95

vector/create vertex(5) r left(1) -5. 0. 5. 10.
* angles of the plane edges that define a 4(3,2,1)-hit line
*
*       vertex:             -10   -5   0    5   10  cm
*                          ----------------------------
vector/create end_4_lo(5) r  6.8  8.1 10.2 13.7 20.4
* assuming rmax is 16.0 cm: 
vector/create end_4_hi(5)  r 17.9 21.3 24.0 27.3 31.6
* assuming rmax = 17.0 cm:
vector/create end_4a_hi(5) r 17.9 21.3 25.3 28.7 33.2
* assuming rmax = 19.0 cm:
vector/create end_4b_hi(5) r 17.9 21.3 26.0 31.5 36.2


*--------------- (1) endcaps: -----------------------------------*

* Lines: 
   SET PLCI 6             | The line colour 2=red 4=blue
   SET LTYP 1             | The line type 2=dashed 1=solid
 pline 5 vertex end_4_lo
 pline 5 vertex end_4_hi

   SET PLCI 4             | The line colour 2=red 4=blue
 pline 5 vertex end_4a_hi

   SET PLCI 2          | The line colour 2=red 4=blue
 pline 5 vertex end_4b_hi

* Hatched area: 
vector/create end_4_y(10) r 
vector/create end_4_x(10) r 
v/in end_4_y(1)  end_4_hi(1)
v/in end_4_y(2)  end_4_hi(2)
v/in end_4_y(3)  end_4_hi(3)
v/in end_4_y(4)  end_4_hi(4)
v/in end_4_y(5)  end_4_hi(5)
v/in end_4_y(6)  end_4_lo(5)
v/in end_4_y(7)  end_4_lo(4)
v/in end_4_y(8)  end_4_lo(3)
v/in end_4_y(9)  end_4_lo(2)
v/in end_4_y(10)  10.0

v/in end_4_x(1)  vertex(1) 
v/in end_4_x(2)  vertex(2)
v/in end_4_x(3)  vertex(3)
v/in end_4_x(4)  vertex(4)
v/in end_4_x(5)  vertex(5)
v/in end_4_x(6)  vertex(5)
v/in end_4_x(7)  vertex(4)
v/in end_4_x(8)  vertex(3)
v/in end_4_x(9)  vertex(2)
v/in end_4_x(10)  left(1)

graphics/set fais 3     ! fill area interior style 3=hatched
graphics/set faci 6     !           color index
graphics/set fasi 344                 style index  (?)
farea 10 end_4_x end_4_y

* white box with text in it:
v/del rx*
v/del ry*
v/crea rx1(1) r 0.0
v/crea ry1(1) r 18.8
v/crea rx2(1) r
v/crea ry2(1) r
vbias rx1(1) 4.2 rx2(1)
vbias ry1(1) 0.8 ry2(1)
v/crea rx(4) r rx1(1) rx2(1) rx2(1) rx1(1)
v/crea ry(4) r ry1(1) ry1(1) ry2(1) ry2(1)
g/set fais 1
g/set faci 8
g/set fasi 0
farea 4 rx ry
g/set txci 6
g/set pass 3
text rx(1)+0.2 ry(1)+0.2 '4 endcaps hit' .3