OpenSCAD/BusinessCardBoxTop.scad at master · siggib007/OpenSCAD · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
include <BusinessCardBoxVars.scad>;

LidY = WidthY-Wall;
TopRHingeX = (LengthX/NumHinge)*PenUHinge;

cube([LengthX,LidY,Wall]);
difference()
{
  union()
  {
    translate([LengthX/NumHinge,LidY+HW,HW]) rotate([0,90,0]) cylinder(d=Wall,h=LengthX/NumHinge);
    translate([LengthX/NumHinge,LidY,0]) cube([LengthX/NumHinge,HW,Wall]);
    translate([(LengthX/NumHinge)*AntPenUHinge,LidY+HW,HW]) rotate([0,90,0]) cylinder(d=Wall,h=LengthX/NumHinge);
    translate([(LengthX/NumHinge)*AntPenUHinge,LidY,0]) cube([LengthX/NumHinge,HW,Wall]);

  }
  translate([-Buff,LidY+HW,HW]) rotate([0,90,0]) cylinder(d=HingePinDia,h=LengthX+DW);
}
difference()
{
  union()
  {
    translate([0,-HW,HW]) rotate([0,90,0]) cylinder(d=Wall,h=LengthX/NumHinge);
    translate([0,-HW,0]) cube([LengthX/NumHinge,HW,Wall]);
    translate([TopRHingeX,-HW,HW]) rotate([0,90,0]) cylinder(d=Wall,h=LengthX/NumHinge);
    translate([TopRHingeX,-HW,0]) cube([LengthX/NumHinge,HW,Wall]);
  }
  translate([-Buff,-HW,HW]) rotate([0,90,0]) cylinder(d=HingePinDia,h=LengthX+DW);
}