Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
OpenSCAD Hull Functions Library
module multiHull(){
for (i = [1 : $children-1])
hull(){
children(0);
children(i);
}
}
module sequentialHull(){
for (i = [0: $children-2])
hull(){
children(i);
children(i+1);
}
}
/* Extended fun hull functions */
module cylinders(points, diameter, thickness){
for (p=points){
translate(p) cylinder(d=diameter, h=thickness, center=true);
}
}
module plate(points, diameter, thickness, hole_diameter){
difference(){
hull() cylinders(points, diameter, thickness);
cylinders(points, hole_diameter, 1000);
}
}
module bar(length, width, thickness, hole_diameter){
plate([[0,0,0], [length,0,0]], width, thickness, hole_diameter);
}
module rounded_box(points, radius, height){
hull(){
for (p = points){
translate(p)
cylinder(r=radius, h=height);
}
}
}
module point_cloud(points, radius=1, facets=8){
for (p=points){
translate(p)
sphere(radius/cos(180/facets), $fn=facets);
// polygon sphere circumscribed on radius
}
}
module point_hull(points, radius=1, facets=8){
hull(){
point_cloud(points, radius, facets);
}
}
// Shrink the exterior of the points so that the hull fits inside
function select(vector, i) = [ for (p=vector) p[i] ];
function axis_center(v, i) = (max(select(v, i)) - min(select(v,i)))/2;
function center(v) = [ for (i = [0,1,2]) axis_center(v, i) ];
function shrink_point(point, center, radius) = [ for (i = [0,1,2]) point[i] > center[i] ? point[i] - radius : point[i] + radius ];
function shrink(points, radius) = [ for (p = points) shrink_point(p, center(points), radius) ];
module interior_point_hull(points, radius=1){
point_hull(shrink(points, radius), radius);
}
module interior_rounded_box(points, radius, height){
rounded_box(shrink(points, radius), radius, height);
}
module mirror_copy(v = [1, 0, 0]) {
children();
mirror(v) children();
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment