corrected DS0138 dimensions
This commit is contained in:
@@ -2,23 +2,49 @@ $fn=30;
|
||||
|
||||
use <Oszi_DS0138.scad>
|
||||
|
||||
module boden(len, wid, thi){
|
||||
|
||||
color("gold"){
|
||||
difference()
|
||||
{ union(){
|
||||
cube([len, wid, thi]);
|
||||
|
||||
difference(){
|
||||
translate([0,0,thi])rotate([0,90,0])
|
||||
cylinder(r=thi, h=len);
|
||||
|
||||
translate([0,-radius,thi]) cube([len, wid, thi]);
|
||||
|
||||
}}
|
||||
translate([0,-radius,0]) cube([thi/2,wid+thi,thi/2]);
|
||||
translate([len-thi/2,-radius,0]) cube([thi/2,wid+thi,thi/2]);
|
||||
}}
|
||||
|
||||
}
|
||||
|
||||
radius = 3;
|
||||
length = 135;
|
||||
thick = 20;
|
||||
thick = 22;
|
||||
width = 90;
|
||||
rotate ([45,0,0])
|
||||
|
||||
hull(){
|
||||
//rotate ([45,0,0])
|
||||
difference(){
|
||||
color("yellow", 0.05)hull(){
|
||||
translate ([radius, radius, radius]) sphere(r=radius);
|
||||
translate ([length-radius, radius, radius]) sphere(r=radius);
|
||||
translate ([radius, width-radius, radius]) sphere(r=radius);
|
||||
translate ([length-radius, width-radius, radius]) sphere(r=radius);
|
||||
|
||||
|
||||
translate ([radius, radius-thick, thick-radius]) sphere(r=radius);
|
||||
translate ([length-radius, radius-thick, thick-radius]) sphere(r=radius);
|
||||
translate ([radius, 3*radius-thick, thick-radius]) sphere(r=radius);
|
||||
translate ([length-radius, 3*radius-thick, thick-radius]) sphere(r=radius);
|
||||
translate ([radius, width-radius, thick-radius]) sphere(r=radius);
|
||||
translate ([length-radius, width-radius, thick-radius]) sphere(r=radius);
|
||||
}
|
||||
translate([10, 10,3.8])
|
||||
platine(cutout=true);
|
||||
|
||||
platine(cutout=true);
|
||||
#translate([length-radius -1, width-radius,0 ])rotate([0,0,180])
|
||||
minkowski(){
|
||||
boden(length-8, width-8, radius);
|
||||
sphere(d=0.1);
|
||||
}}
|
||||
Reference in New Issue
Block a user