tomate.scad

$fn=24;
dim = [50, 50, 50];
wall = 0.3;
hole = [dim.y/11, 0, 3];

difference(){
	cylinder(d1=dim.x, d2=dim.y, h=dim.z);
	translate([0, 0, wall]) cylinder(d1=dim.x-wall*4, d2=dim.y-wall*4, h=dim.z-wall);
	for (r = [7.5:15:360]){
		for (h = [wall:2*wall+hole.z:dim.z]) {
			rotate([0, 0, r]) translate([0, -hole.x/2, h]) cube([dim.y, hole.x, hole.z]);
		}
	}
}