// CADAM/OpenSCAD-WASM route sample for CAD Router V1.
$fn = 96;

height = 80;
base_radius = 30;
top_radius = 24;
wall = 2.4;
base = 3;

difference() {
  cylinder(h = height, r1 = base_radius, r2 = top_radius);
  translate([0, 0, base])
    cylinder(
      h = height,
      r1 = base_radius - wall,
      r2 = top_radius - wall
    );

  for (z = [14 : 14 : 70]) {
    for (angle = [0 : 30 : 330]) {
      rotate([0, 0, angle + z * 0.75])
        translate([base_radius - 1.0 - z * 0.07, 0, z])
          rotate([0, 90, 0])
            cylinder(h = wall + 5, r = 2.2, center = true, $fn = 24);
    }
  }
}