+ dy0 = -kH / 2. + kHBase/2.;
+ gMC->Gspos("DCBA", 1, "DCM0", 0., dy0, 15.0, 0, "ONLY");
+
+ // Lower coil
+ dx = ( kWLYoke - kWCoil) / 2.;
+ dy = (-kHLYoke + kHCoil) / 2. + 6.;
+ gMC->Gspos("DCH1", 1, "DCML", dx, dy, -kRCoilC / 2., 0, "ONLY");
+ // Lower mother volume
+ dx = (kWLYoke + kWApperture) / 2.;
+ dy0 += (kHBase + kHLYoke) / 2.;
+ gMC->Gspos("DCML", 1, "DCM0", -dx, dy0, kRCoilC / 2., 0, "ONLY");
+ gMC->Gspos("DCML", 2, "DCM0", +dx, dy0, kRCoilC / 2., idrotm[1811], "ONLY");
+
+ dx = (kWUYoke - kWCoil) / 2.;
+ dy = (kHUYoke - kHCoil) / 2;
+ // Upper coil
+ gMC->Gspos("DCH2", 1, "DCMU", dx, dy, 0., 0, "ONLY");
+ // Upper mother volume
+ dx = (kWUYoke + kWApperture) / 2.;
+ dy0 += (kHLYoke + kHUYoke) / 2.;
+ gMC->Gspos("DCMU", 1, "DCM0", -dx, dy0, 0., 0, "ONLY");
+ gMC->Gspos("DCMU", 2, "DCM0", +dx, dy0, 0., idrotm[1811], "ONLY");
+
+ // Vertical coils
+ dx = (kWCoil + kWApperture) / 2.;
+ dy = kH / 2. - kDCoil / 2. - kRCoilC;
+ dz = (kLCoilH - kHCoil) / 2. + kRCoilC;
+ gMC->Gspos("DCCV", 1, "DCM0", dx, dy, -dz, 0, "ONLY");
+ gMC->Gspos("DCCV", 2, "DCM0", -dx, dy, -dz, 0, "ONLY");
+
+ dx = (kWLYoke - kWCoil) / 2.;
+ dy = -kHLYoke / 2. + kDCoil / 2. + 6. + kRCoilC;
+ dz = kLLYoke / 2. - kHCoil / 2.;
+
+ gMC->Gspos("DCCV", 3, "DCML", dx, dy, dz, 0, "ONLY");
+
+
+
+ // Circular coil
+ dx = (kWCoil + kWApperture) / 2.;
+ dy = dy0 + kHUYoke / 2. - kRCoilC;
+ dz = kLCoilH / 2.;
+ gMC->Gspos("DCC1", 1, "DCM0", -dx, dy, dz, idrotm[1812], "ONLY");
+ gMC->Gspos("DCC1", 2, "DCM0", +dx, dy, dz, idrotm[1812], "ONLY");
+ gMC->Gspos("DCC1", 3, "DCM0", +dx, dy, -dz, idrotm[1813], "ONLY");
+ gMC->Gspos("DCC1", 4, "DCM0", -dx, dy, -dz, idrotm[1813], "ONLY");
+ dy = -kH / 2. + kHBase + 6. + kRCoilC;
+ gMC->Gspos("DCC1", 5, "DCM0", +dx, dy, -dz, idrotm[1815], "ONLY");
+ gMC->Gspos("DCC1", 6, "DCM0", -dx, dy, -dz, idrotm[1815], "ONLY");
+
+ dx = ( kWLYoke - kWCoil) / 2.;
+ dy = -kHLYoke / 2. + 6. + kRCoilC;
+ dz = kLLYoke / 2. - kRCoilC;
+ gMC->Gspos("DCC1", 7, "DCML", dx, dy, dz, idrotm[1814], "ONLY");
+
+// Clamps
+ dx = kWApperture / 2. + kWUYoke;
+ dy = -kH / 2. + kHLYoke + kHBase;