Add files via upload

Author: David-SWUSA-RISCOS

SCAD/InDrvTriThBolt.scad

@@ -1,5 +1,8 @@
 //This is too complex to preview, must full render.
 
+//This script creates inside drive triangular thread bolts,
+//with simple parameters.
+
 //Change the detail based on size as needed.  128 is
 //good for up to 10mm diameter threads in most cases,
 //if a bit tighter tolarance is needed go to 256.
@@ -8,28 +11,47 @@
 detail=128;
 $fn=detail;
 
+//Some constants used later.
+sqrDrive = 4;
+triDrive = 3;
+hexDrive = 6;
 
-SqrHead(3,3,3);
-difference(){
-    triBolt(13,2.5,0.5);
-    cylinder(3,r=2.5);
-}
-//
 
+//Either triDrive (triangle drive) or sqrDrive (square drive)
+//is recommended for the drive type, as hex may not hold up
+//depending on material and size of bolt.
 
-module SqrHead(h,r,s){
-    difference(){
-      ccyl(h,r,0.5);
-      translate([0,0,h/2])cube([s,s,h], center=true);
+//Parameters, set to your bolt:
+tol     = 0.1; //Spacing tolarance for your printer.
+drive   = sqrDrive;  //Type of drive (inside drive only).
+DrvSize = 4;   //Size of drive hole in mm.
+HeadSz  = 4;   //Radius of head in mm.
+HeadHt  = 3;   //Height of head.
+ThPitch = 0.5; //Thread pitch in mm per thread.
+
+
+
+
+Head(HeadHt,HeadSz,DrvSize);
+translate([0,0,HeadHt]) triBolt(10,2.5,ThPitch);
+
+
+module Head(h,r,s){
+  difference(){
+    ccyl(h,r,0.5);
+    cylinder(h,r=s*cos(180/drive),center=true, $fn=drive);
     }
 }
 //
 
 
 module triBolt(h,r,tp){
   difference(){
-    ccyl(h,r,0.5);
-    triThread(h,r,tp);
+    difference(){
+      cylinder(h,r=r);
+      triThread(h,r,tp);
+    }
+    cylcamfer(0.5,r,0.5,0,0,h-0.5);
   }
 }
 //
@@ -38,9 +60,10 @@ module triBolt(h,r,tp){
 module triThread(h,r,p){
   for(hi=[0:p:h]) for(rot= [0:360/detail:360]) {
     rotate([0,0,rot])
-      translate([0,r,(hi-p/2)+((rot%360)/360*p)])
+      translate([0,r-(p/(1/(tol/2))),(hi-p/2)+((rot%360)/360*p)])
         rotate([45,0,0])
-          cube([r/(detail*0.7),p*0.71,p*0.71], center=true);
+          //cube([r*0.12,p*0.71,p*0.71], center=true);
+          cube([r/(detail*0.15),p*0.71,p*0.71], center=true);
   }
 }
 //
@@ -65,4 +88,4 @@ module cylcamfer(h,r,c,px,py,pz){
       cylinder(h=h,r1=r,r2=r-c);
     }
   }
-}  
+}