50 lines
1.4 KiB
OpenSCAD
50 lines
1.4 KiB
OpenSCAD
$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 = 22;
|
|
width = 90;
|
|
//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, 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);
|
|
|
|
#translate([length-radius -1, width-radius,0 ])rotate([0,0,180])
|
|
minkowski(){
|
|
boden(length-8, width-8, radius);
|
|
sphere(d=0.1);
|
|
}} |