coil default material=Cu tolerance=0.001
solenoid default color=1,1,0
genericquad QuadTypeIV fieldLength=888 apertureRadius=101.5 ironRadius=381 \
	ironLength=914 ironColor=0,.6,0 kill=1 fieldMaterial=$USAirOrVacuum

# Type I bend shimmed to 6 inch gap
genericbend BendTypeI6inIron fieldWidth=660 fieldHeight=152.4 fieldLength=1038 \
	ironColor=1,0,0 ironWidth=1828 ironHeight=1320 ironLength=990

# Type I bend, 6 in, tapered poles. current is scaled to be center field in T.
fieldmap TypeI6inTaperedField file=$WRKDIR/maps/TypeIBend_6InchGap_tapered.map

# PSI solenoid (map is for 3.7053 T), scaled to desired value
coil Decay innerRadius=57.5 outerRadius=97.0 length=5000.0 \
	mapFile=$WRKDIR/maps/DecaySolenoid_3.7T.map

solenoid DecayS coilName=Decay current=$d_s/3.7053 color=1,1,0
tubs SolenoidBody innerRadius=97.0 outerRadius=180 length=5000 kill=1 \
	color=1,1,0
tubs DecayEnd innerRadius=57.5 outerRadius=180 length=68 material=Fe kill=1 \
	color=1,1,0

# invisible shield to kill junk from B1 that misses the aperture
tubs DecayShield innerRadius=180 outerRadius=4000 length=2 kill=1 \
	color=invisible


# the assempled DecaySolenoid
group DecaySolenoid length=5138 radius=0 material=Vacuum
	place DecayShield z=-2568
	place DecayEnd z=-2534
        place DecayS z=0
	place SolenoidBody z=0
	place DecayEnd z=2534
endgroup

# Type  QC Quads - includes mirror plates
genericquad QuadTypeQC fieldLength=660 poleTipRadius=176 coilRadius=236 \
        coilHalfwidth=57 ironRadius=700 ironLength=1046 ironColor=0,.6,0 \
	kill=1