mahd/implementation/SCARA/hardware/openSCAD/marker.scad

$fn = $preview? 32 : 72;
module marker(col) {
  translate([0,0,7]) {
    color(col) scale([4,4,14]) sphere(d=1);
    color(col) cylinder(h=15, d1=7,d2=13);
    translate([0,0,15]){
      color(col) cylinder(h=11, d=13);
      translate([0,0,11]) {
        cylinder(h=97, d=14.5);
        translate([0,0,97]) {
          color(col) cylinder(h=4, d=13);
        }
      }
    }
  }
}

marker("red");