
;
; Dimensions of each bucket winding 
;
lower_diam = 0.254
upper_diam = 0.211
coil_length = 0.216
coil_turns = 480
wire_diam = 0.4e-3
coil_sections = 9
coil_tiles = 400

; Seven identical coils.
; Going from bottom to top of the stack, the six axial spacings between
; the beginnings of consecutive windings are 50, 53, 50, 53, 50, 50 mm.

coil1_base = 0.25
coil2_base = coil1_base + 50e-3
coil3_base = coil2_base + 53e-3
coil4_base = coil3_base + 50e-3
coil5_base = coil4_base + 53e-3
coil6_base = coil5_base + 50e-3
coil7_base = coil6_base + 50e-3

coil {
  name coil1
  end1 0, 0, coil1_base

  wirad wire_diam/2
  axis 0, 0
  length coil_length
  radius1 lower_diam/2
  radius2 upper_diam/2
  turns coil_turns
  sections coil_sections
  tiles coil_tiles
}

coil {
  name coil2
  end1 0, 0, coil2_base

  wirad wire_diam/2
  axis 0, 0
  length coil_length
  radius1 lower_diam/2
  radius2 upper_diam/2
  turns coil_turns
  sections coil_sections
  tiles coil_tiles
}

coil {
  name coil3
  end1 0, 0, coil3_base

  wirad wire_diam/2
  axis 0, 0
  length coil_length
  radius1 lower_diam/2
  radius2 upper_diam/2
  turns coil_turns
  sections coil_sections
  tiles coil_tiles
}

coil {
  name coil4
  end1 0, 0, coil4_base

  wirad wire_diam/2
  axis 0, 0
  length coil_length
  radius1 lower_diam/2
  radius2 upper_diam/2
  turns coil_turns
  sections coil_sections
  tiles coil_tiles
}

coil {
  name coil5
  end1 0, 0, coil5_base

  wirad wire_diam/2
  axis 0, 0
  length coil_length
  radius1 lower_diam/2
  radius2 upper_diam/2
  turns coil_turns
  sections coil_sections
  tiles coil_tiles
}

coil {
  name coil6
  end1 0, 0, coil6_base

  wirad wire_diam/2
  axis 0, 0
  length coil_length
  radius1 lower_diam/2
  radius2 upper_diam/2
  turns coil_turns
  sections coil_sections
  tiles coil_tiles
}

coil {
  name coil7
  end1 0, 0, coil7_base

  wirad wire_diam/2
  axis 0, 0
  length coil_length
  radius1 lower_diam/2
  radius2 upper_diam/2
  turns coil_turns
  sections coil_sections
  tiles coil_tiles
}

;
;  Something to represent the surroundings.
;

electrode {
   name ground

   disc {
      radius 3
      center 0, 0, 0
      axis 0, 0
      tiles 1000
   }

   cylinder {
      radius 3
      end1 0, 0, 0
      length 3
      axis 0, 0
      tiles 1000
   }

   disc {
      radius 3
      center 0, 0, 3
      axis 0, 0
      tiles 500
   }
}


