hull diff

use <threads-scad/threads.scad>;

$fa=1;
$fs= 0.4;

$fn = $preview ? 64:360;


$vpr=[90,0,45]; // Right Side


c_h = 120; // height
c_r = 100; // radius
c_t = 5;   //thickness
c_2t = 2*c_t;

pi_l= 85+3;  // +3 is the overhang of usb/ether
pi_w= 56;
pi_h= 20;
pi_hole_r= 2.7;
pi_edge_off = 3.5;
pi_hole_wid_dist = 49;
pi_hole_len_dist = 58;


// Bezel Threads
bezel_diameter = 60;
bezel_rod_height=24;
bezel_thread_length = 42;
bezel_thread_pitch = 5;
bezel_pipe_diameter = bezel_diameter-3*c_t;




module vent_grid(hole_dia=2, hole_space=5, x_count=20, y_count=20, depth=30) {

    for(x=[1:1:x_count]){
        for(y=[1:1:y_count]){

        translate([x*(hole_dia+hole_space)/2,y*(hole_dia+hole_space)/2,0])
            cylinder(depth,d=hole_dia,true);

        }
    }


}



module main_hull(){

// If I don't specify r= for radius, it becomes a cone?
difference() {
    //cylinder(h=c_h,r=c_r,true);

     color("green",1.0)
    bare_threaded_cylinder(c_r*2,c_h,5);
    translate([0,0,-5])
        cylinder(h=c_h*1.2,r=c_r-c_2t,false);

    translate([30,-75,25])
       rotate([0,0,45])
          rotate([90,0,0])
                  vent_grid();




}




}

 module bare_threaded_cylinder(rod_diameter,thread_length,thread_pitch) {
     RodStart(rod_diameter, 0,thread_length,rod_diameter,thread_pitch);
    }


    main_hull();