synth_tools

Back

Module knurled_cyl(chg, cod, cwd, csh, cdp, fsh, smt) { cord=(cod+cdp+cdp*smt/100)/2; cird=cord-cdp; cfn=round(2*cird*PI/cwd); clf=360/cfn; crn=ceil(chg/csh); echo("knurled cylinder min diameter: ", 2*cord); echo("knurled cylinder min diameter: ", 2*cord); echo("knurled cylinder min diameter: ", 2*cird); if( fsh < 0 shape(fsh, cird+cdp*smt/100, cord, cfn*4, chg); module shape(hsh, ird, ord, fn4, hg) { x0= 0; x1 = hsh > 0 ? Ird : ord; x2 = hsh > 0 ? Ord : ird; y0=-0.1; y1=0; y2=abs(hsh); y3=hg-abs(hsh); y4=hg; y5=hg+0.1; if ( fsh == 0 cylinder(h=chg, r=cord-cdp*smt/100, $fn=2*cfn, center=false); shape(fsh, cird, cord-cdp*smt/100, cfn*4, chg); module shape(hsh, ird, ord, fn4, hg x0= 0; x1 = hsh > 0 ? Ord : ird; y0=-0.1; y1=0; y2=abs(hsh); y3=hg-abs(hsh); y4=hg; y5=hg+0.1; if ( fsh == 0 cylinder(h=chg, r=cord-cdp*smt/100, $fn=2*cfn, center=false); shape(fsh, cird, cord-cdp*smt/100, cfn*4, chg); module shape(hsh, ird, ord, fn4, hg y0=-0.1; y1=0; y2=abs(hsh); y3=hg-abs(hsh); y4=hg; y5=hg+0.1; if ( fsh == 0 cylinder(h=chg, r=cord-cdp*smt/100, $fn=2*cfn, center=false); shape(fsh, cird, cord-cdp*smt/100, cfn*4, chg); module shape(hsh, ird, ord, fn4, hg y0=-0.1; y1=0; y2=abs(hsh); y3=hg-abs(hsh); y4=hg; y5=hg+0.1; if ( hsh >= 0 module knurled_finish(ord, ird, lf, sh, fn, rn) { for(j=[0:rn-1]) assign(h0=sh*j, h1=sh*(j+1/2), h2=sh*(j+1)) { for(i=[0:fn-1]) assign(lf0=lf*i, lf1=lf*(i+1/2), lf2=lf*(i+1)) { polyhedron( points=[ [ 0,0,h0], [ ord*cos(lf0), ord*sin(lf0), h2], [ ird*cos(lf1), ird*sin(lf1), h0], [ ird*cos(lf0), ird*sin(lf0), h1], [ ord*cos(lf0), ord*sin(lf0), h2], [ ord*cos(lf2), ord*sin(lf2), h0], [ ord*cos(lf2), ord*sin(lf2), h2] echo(" Knurled Surface Library v2 "); echo(" knurl(); - Call to the Work and such litigation shall be included in all Blackfriday.

New Pull Request

Labels Milestones