Mini desktop catapult
par guberti
Fichiers imprimables (1)
-
stlCatapult.stl
4.7 Mo · 742 téléchargements
Description
This is a short-range catapult that was meant to be displayed on a desktop or other surface. It does work, but becase it was meant to be displayed, you need to push one end of the catapult to get it to shoot. This thing was made in OpenSCAD with the code below. If you enjoy, please like!
SCAD code:
difference()
{
union()
{
polyhedron(
points=[ [10,10,0],[10,-10,0],[-10,-10,0],[-10,10,0], // the four points at base
[0,0,10] ], // the apex point
triangles=[ [0,1,4],[1,2,4],[2,3,4],[3,0,4], // each triangle side
[1,0,3],[2,1,3] ] // two triangles for square base
);
translate([20,0,0])polyhedron(
points=[ [10,10,0],[10,-10,0],[-10,-10,0],[-10,10,0], // the four points at base
[0,0,10] ], // the apex point
triangles=[ [0,1,4],[1,2,4],[2,3,4],[3,0,4], // each triangle side
[1,0,3],[2,1,3] ] // two triangles for square base
);
translate([-10,-10,-20])cube([40,20,20]);
}
translate([0,-20,-15])cube([20,40,40]);
translate([-5,0,0])rotate([0,90,0])cylinder(30,2,2,$fn=100);
translate([-5,-2,0])cube([30,4,20]);
}
translate([40,20,-18])rotate([0,90,0])cylinder(30,2,2,$fn=100);
translate([55,30,-18])rotate([90,90,0])cylinder(41,2,2,$fn=100);
difference()
{
translate([55,-20,-18])sphere(10, $fn=100);
translate([45,-30,-15])cube([20,20,20]);
translate([55,-20,-18])sphere(9, $fn=100);
}
translate([20,-30,-19])sphere(9, $fn=100);