cad/anker_fan_adapter.scad at master · AaronVerDow/cad · 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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
x=169;
y=160;
z=2;
top_left=125-3;
bottom_left=39-3;
top_right=150-3;
bottom_right=87-3;
$fn=200;

wall=5;

pad=0.1;
padd=pad*2;
screw=2.7;

fan_screw=4;

fan=120;
fan_bolts=105/2;
raise=6;

module hole(screw=screw) {
    translate([0,0,-pad])
    cylinder(d=screw,h=z+padd);
}

module screw() {
    cylinder(d=screw+wall*2,h=z);
}

module fan() {
    translate([0,0,-pad])
    cylinder(d=fan,h=z+padd);
    for(r=[0:90:359])
    rotate([0,0,r])
    translate([fan_bolts,fan_bolts,0])
    hole(fan_screw);
}

difference() {
    hull() {
        cube([x,y,z]);
        translate([0,top_left,0])
        screw();
        translate([0,bottom_left,0])
        screw();
        translate([x,top_right,0])
        screw();
        translate([x,bottom_right,0])
        screw();
    }
    translate([0,top_left,0])
    hole();
    translate([0,bottom_left,0])
    hole();
    translate([x,top_right,0])
    hole();
    translate([x,bottom_right,0])
    hole();
    translate([x/2,y/2+raise,0])
    fan();
}