Improve examples and naming

polyround.scad

@@ -7,93 +7,8 @@
 
 
     
-// examples();
+// testingInternals();
-module examples(){
+module testingInternals(){
-  //Example of how a parametric part might be designed with this tool 
-  width=20;       height=25;
-  slotW=8;        slotH=15;
-  slotPosition=8;
-  minR=1.5;       farcornerR=6;
-  internalR=3;
-  points=[
-    [0,                   0,              farcornerR],
-    [0,                   height,         minR],
-    [slotPosition,        height,         minR],
-    [slotPosition,        height-slotH,   internalR],
-    [slotPosition+slotW,  height-slotH,   internalR],
-    [slotPosition+slotW,  height,         minR],
-    [width,               height,         minR],
-    [width,               0,              minR]
-  ];
-  points2=[
-    [0,                   0,              farcornerR],
-    ["l",                 height,         minR],
-    [slotPosition,        "l",            minR],
-    ["l",                 height-slotH,   internalR],
-    [slotPosition+slotW,  "l",            internalR],
-    ["l",                 height,         minR],
-    [width,               "l",            minR],
-    ["l",                 height*0.2,     minR],
-    [45,                  0,              minR+5,         "ayra"]
-  ];//,["l",0,minR]];
-  echo(processRadiiPoints(points2));
-  translate([-25,0,0]){
-    polygon(polyRound(points,5));
-  }
-  %translate([-25,0,0.2]){
-    polygon(getpoints(points));//transparent copy of the polgon without rounding
-  }
-  translate([-50,0,0]){
-    polygon(polyRound(points2,5));
-  }
-  %translate([-50,0,0.2]){ 
-    polygon(getpoints(processRadiiPoints(points2)));//transparent copy of the polgon without rounding
-  }
-  //Example of features 2
-  //     1        2         3         4          5        6     
-  b=[[-4,0,1],[5,3,1.5],[0,7,0.1],[8,7,10],[20,20,0.8],[10,0,10]]; //points
-  polygon(polyRound(b,30));/*polycarious() will make the same shape but doesn't have radii conflict handling*/ //polygon(polycarious(b,30));
-  %translate([0,0,0.3])polygon(getpoints(b));//transparent copy of the polgon without rounding
-      
-  //Example of features 3
-  //    1          2        3        4         5       6
-  p=[[0,0,1.2],[0,20,1],[15,15,1],[3,10,3],[15,0,1],[6,2,10]];//points
-  a=polyRound(p,5);
-  translate([25,0,0]){
-    polygon(a);
-  }
-  %translate([25,0,0.2]){
-    polygon(getpoints(p));//transparent copy of the polgon without rounding
-  }
-  //example of radii conflict handling and debuging feature
-  r1a=10;			r1b=10;
-  r2a=30;			r2b=30;
-  r3a=10;			r3b=40;
-      r4a=15;         r4b=20;
-  c1=[[0,0,0],[0,20,r1a],[20,20,r1b],[20,0,0]];//both radii fit and don't need to be changed
-  translate([-25,-30,0]){
-    polygon(polyRound(c1,8));
-  }
-  echo(str("c1 debug= ",polyRound(c1,8,mode=1)," all zeros indicates none of the radii were reduced")); 
-  
-  c2=[[0,0,0],[0,20,r2a],[20,20,r2b],[20,0,0]];//radii are too large and are reduced to fit
-  translate([0,-30,0]){
-    polygon(polyRound(c2,8));
-  }
-  echo(str("c2 debug= ",polyRound(c2,8,mode=1)," 2nd and 3rd radii reduced by 20mm i.e. from 30 to 10mm radius"));
-  
-  c3=[[0,0,0],[0,20,r3a],[20,20,r3b],[20,0,0]];//radii are too large again and are reduced to fit, but keep their ratios
-  translate([25,-30,0]){
-    polygon(polyRound(c3,8));
-  }
-  echo(str("c3 debug= ",polyRound(c3,8,mode=1)," 2nd and 3rd radii reduced by 6 and 24mm respectively"));
-  //resulting in radii of 4 and 16mm, 
-  //notice the ratio from the orginal radii stays the same r3a/r3b = 10/40 = 4/16
-      c4=[[0,0,0],[0,20,r4a],[20,20,r4b],[20,0,0]];//radii are too large again but not corrected this time
-  translate([50,-30,0]){
-    polygon(polyRound(c4,8,mode=2));//mode 2 = no radii limiting
-  }
-      
   //example of rounding random points, this has no current use but is a good demonstration
   random=[for(i=[0:20])[rnd(0,50),rnd(0,50),/*rnd(0,30)*/1000]];
   R =polyRound(random,7);
@@ -123,7 +38,7 @@ module examples(){
   radius=6;
   radiipoints=[[0,0,0],[10,20,radius],[20,0,0]];
   tangentsNcen=round3points(radiipoints);
-  translate([100,0,0]){
+  translate([10,0,0]){
     for(i=[0:2]){
       color("red")translate(getpoints(radiipoints)[i])circle(1);//plots the 3 input points
       color("cyan")translate(tangentsNcen[i])circle(1);//plots the two tangent poins and the circle centre
@@ -131,67 +46,6 @@ module examples(){
     translate([tangentsNcen[2][0],tangentsNcen[2][1],-0.2])circle(r=radius,$fn=25);//draws the cirle
     %polygon(getpoints(radiipoints));//draws a polygon
   }
-      
-  //for(i=[0:len(b2)-1]) translate([b2[i].x,b2[i].y,2])#circle(0.2);
-  ex=[[0,0,-1],[2,8,0],[5,4,3],[15,10,0.5],[10,2,1]];
-  translate([15,-50,0]){
-    ang=55;
-    minR=0.2;
-    rotate([0,0,ang+270])translate([0,-5,0])square([10,10],true);
-    clipP=[[9,1,0],[9,0,0],[9.5,0,0],[9.5,1,0.2],[10.5,1,0.2],[10.5,0,0],[11,0,0],[11,1,0]];
-    a=RailCustomiser(ex,o1=0.5,minR=minR,a1=ang-90,a2=0,mode=2);
-    b=revList(RailCustomiser(ex,o1=-0.5,minR=minR,a1=ang-90,a2=0,mode=2));
-    points=concat(a,clipP,b);
-    points2=concat(ex,clipP,b);
-    polygon(polyRound(points,20));
-    //%polygon(polyRound(points2,20));
-  }
-  
-  //the following exapmle shows how the offsets in RailCustomiser could be used to makes shells
-  translate([-20,-60,0]){
-      for(i=[-9:0.5:1])polygon(polyRound(RailCustomiser(ex,o1=i-0.4,o2=i,minR=0.1),20));
-  }
-  
-  // This example shows how a list of points can be used multiple times in the same 
-  nutW=5.5;   nutH=3; boltR=1.6;
-  minT=2;     minR=0.8;
-  nutCapture=[
-    [-boltR,        0,         0],
-    [-boltR,        minT,      0],
-    [-nutW/2,       minT,      minR],
-    [-nutW/2,       minT+nutH, minR],
-    [nutW/2,        minT+nutH, minR],
-    [nutW/2,        minT,      minR],
-    [boltR,         minT,      0],
-    [boltR,         0,         0],
-  ];
-  aSquare=concat(
-    [[0,0,0]],
-    moveRadiiPoints(nutCapture,tran=[5,0],rot=0),
-    [[20,0,0]],
-    moveRadiiPoints(nutCapture,tran=[20,5],rot=90),
-    [[20,10,0]],
-    [[0,10,0]]
-  );
-  echo(aSquare);
-  translate([40,-60,0]){
-    polygon(polyRound(aSquare,20));
-    translate([10,12,0])polygon(polyRound(nutCapture,20));
-  }        
-  
-  translate([70,-52,0]){
-    a=mirrorPoints(ex,0,[1,0]);
-    polygon(polyRound(a,20));
-  }
-
-  
-  translate([0,-90,0]){
-    r_extrude(3,0.5*$t,0.5*$t,100)polygon(polyRound(b,30));
-    #translate([7,4,3])r_extrude(3,-0.5,0.95,100)circle(1,$fn=30);
-  }
-
-  translate([-30,-90,0])
-  shell2d(-0.5,0,0)polygon(polyRound(b,30));
 }
 
 function polyRound(radiipoints,fn=5,mode=0)=
@@ -278,11 +132,11 @@ function round3points(rp,fn)=
 	  tangD=r/tan(ang/2),//distance to the tangent point from p2
     circD=r/sin(ang/2),//distance to the circle centre from p2
     //find the angles from the p2 with respect to the postitive x axis
-    a12=getAngle(p[0],p[1]),//angle from point 2 to 1
+    angleFromPoint1ToPoint2=getAngle(p[0],p[1]),
-    a23=getAngle(p[2],p[1]),//angle from point 2 to 3
+    angleFromPoint2ToPoint3=getAngle(p[2],p[1]),
     //find tangent points
-    t12=[p[1][0]-cos(a12)*tangD,p[1][1]-sin(a12)*tangD],//tangent point between points 1&2
+    t12=[p[1][0]-cos(angleFromPoint1ToPoint2)*tangD,p[1][1]-sin(angleFromPoint1ToPoint2)*tangD],//tangent point between points 1&2
-    t23=[p[1][0]-cos(a23)*tangD,p[1][1]-sin(a23)*tangD],//tangent point between points 2&3
+    t23=[p[1][0]-cos(angleFromPoint2ToPoint3)*tangD,p[1][1]-sin(angleFromPoint2ToPoint3)*tangD],//tangent point between points 2&3
     //find circle centre
     tmid=getMidpoint(t12,t23),//midpoint between the two tangent points
     angCen=getAngle(tmid,p[1]),//angle from point 2 to circle centre
@@ -302,11 +156,11 @@ function parallelFollow(rp,thick=4,minR=1,mode=1)=
   	sgn=CWorCCW(rp),//rotation of the three points cw or ccw?let(sgn=mode==0?1:-1)
     circD=mode*sgn*r/sin(ang/2),//distance to the circle centre from p2
     //find the angles from the p2 with respect to the postitive x axis
-    a12=getAngle(p[0],p[1]),//angle from point 2 to 1
+    angleFromPoint1ToPoint2=getAngle(p[0],p[1]),
-    a23=getAngle(p[2],p[1]),//angle from point 2 to 3
+    angleFromPoint2ToPoint3=getAngle(p[2],p[1]),
     //find tangent points
-    t12=[p[1][0]-cos(a12)*tangD,p[1][1]-sin(a12)*tangD],//tangent point between points 1&2
+    t12=[p[1][0]-cos(angleFromPoint1ToPoint2)*tangD,p[1][1]-sin(angleFromPoint1ToPoint2)*tangD],//tangent point between points 1&2
-	  t23=[p[1][0]-cos(a23)*tangD,p[1][1]-sin(a23)*tangD],//tangent point between points 2&3
+	  t23=[p[1][0]-cos(angleFromPoint2ToPoint3)*tangD,p[1][1]-sin(angleFromPoint2ToPoint3)*tangD],//tangent point between points 2&3
     //find circle centre
     tmid=getMidpoint(t12,t23),//midpoint between the two tangent points
     angCen=getAngle(tmid,p[1]),//angle from point 2 to circle centre
@@ -326,46 +180,46 @@ function findPoint(ang1,refpoint1,ang2,refpoint2,r=0)=
   )
 	[outputX,outputY,r];
 
-function RailCustomiser(rp,o1=0,o2,mode=0,minR=0,a1,a2)= 
+function beamChain(rp,offset1=0,offset2,mode=0,minR=0,startAngle,endAngle)= 
   /*This function takes a series of radii points and plots points to run along side at a constanit distance, think of it as offset but for line instead of a polygon
-  rp=radii points, o1&o2=offset 1&2,minR=min radius, a1&2=angle 1&2
+  rp=radii points, offset1&offset2=offset 1&2,minR=min radius, startAngle&2=angle 1&2
-  mode=1 - include endpoints a1&2 are relative to the angle of the last two points and equal 90deg if not defined
+  mode=1 - include endpoints startAngle&2 are relative to the angle of the last two points and equal 90deg if not defined
   mode=2 - endpoints not included
-  mode=3 - include endpoints a1&2 are absolute from the x axis and are 0 if not defined
+  mode=3 - include endpoints startAngle&2 are absolute from the x axis and are 0 if not defined
   negative radiuses only allowed for the first and last radii points
   
   As it stands this function could probably be tidied a lot, but it works, I'll tidy later*/
   let(
-    o2undef=o2==undef?1:0,
+    offset2undef=offset2==undef?1:0,
-    o2=o2undef==1?0:o2,
+    offset2=offset2undef==1?0:offset2,
-    CWorCCW1=sign(o1)*CWorCCW(rp),
+    CWorCCW1=sign(offset1)*CWorCCW(rp),
-    CWorCCW2=sign(o2)*CWorCCW(rp),
+    CWorCCW2=sign(offset2)*CWorCCW(rp),
-    o1=abs(o1),
+    offset1=abs(offset1),
-    o2b=abs(o2),
+    offset2b=abs(offset2),
     Lrp3=len(rp)-3,
     Lrp=len(rp),
-    a1=mode==0&&a1==undef?
+    startAngle=mode==0&&startAngle==undef?
       getAngle(rp[0],rp[1])+90:
-      mode==2&&a1==undef?
+      mode==2&&startAngle==undef?
       0:
       mode==0?
-      getAngle(rp[0],rp[1])+a1:
+      getAngle(rp[0],rp[1])+startAngle:
-      a1,
+      startAngle,
-    a2=mode==0&&a2==undef?
+    endAngle=mode==0&&endAngle==undef?
             getAngle(rp[Lrp-1],rp[Lrp-2])+90:
-        mode==2&&a2==undef?
+        mode==2&&endAngle==undef?
             0:
         mode==0?
-            getAngle(rp[Lrp-1],rp[Lrp-2])+a2:
+            getAngle(rp[Lrp-1],rp[Lrp-2])+endAngle:
-            a2,
+            endAngle,
-    OffLn1=[for(i=[0:Lrp3]) o1==0?rp[i+1]:parallelFollow([rp[i],rp[i+1],rp[i+2]],o1,minR,mode=CWorCCW1)],
+    OffLn1=[for(i=[0:Lrp3]) offset1==0?rp[i+1]:parallelFollow([rp[i],rp[i+1],rp[i+2]],offset1,minR,mode=CWorCCW1)],
-    OffLn2=[for(i=[0:Lrp3]) o2==0?rp[i+1]:parallelFollow([rp[i],rp[i+1],rp[i+2]],o2b,minR,mode=CWorCCW2)],  
+    OffLn2=[for(i=[0:Lrp3]) offset2==0?rp[i+1]:parallelFollow([rp[i],rp[i+1],rp[i+2]],offset2b,minR,mode=CWorCCW2)],  
     Rp1=abs(rp[0].z),
     Rp2=abs(rp[Lrp-1].z),
-    endP1a=findPoint(getAngle(rp[0],rp[1]),         OffLn1[0],              a1,rp[0],     Rp1),
+    endP1a=findPoint(getAngle(rp[0],rp[1]),         OffLn1[0],              startAngle,rp[0],     Rp1),
-    endP1b=findPoint(getAngle(rp[Lrp-1],rp[Lrp-2]), OffLn1[len(OffLn1)-1],  a2,rp[Lrp-1], Rp2),
+    endP1b=findPoint(getAngle(rp[Lrp-1],rp[Lrp-2]), OffLn1[len(OffLn1)-1],  endAngle,rp[Lrp-1], Rp2),
-    endP2a=findPoint(getAngle(rp[0],rp[1]),         OffLn2[0],              a1,rp[0],     Rp1),
+    endP2a=findPoint(getAngle(rp[0],rp[1]),         OffLn2[0],              startAngle,rp[0],     Rp1),
-    endP2b=findPoint(getAngle(rp[Lrp-1],rp[Lrp-2]), OffLn2[len(OffLn1)-1],  a2,rp[Lrp-1], Rp2),
+    endP2b=findPoint(getAngle(rp[Lrp-1],rp[Lrp-2]), OffLn2[len(OffLn1)-1],  endAngle,rp[Lrp-1], Rp2),
     absEnda=getAngle(endP1a,endP2a),
     absEndb=getAngle(endP1b,endP2b),
     negRP1a=[cos(absEnda)*rp[0].z*10+endP1a.x,        sin(absEnda)*rp[0].z*10+endP1a.y,       0.0],
@@ -393,7 +247,7 @@ function RailCustomiser(rp,o1=0,o2,mode=0,minR=0,a1,a2)=
       :
         OffLn2
     )//end of let()
-  o2undef==1?OffLn1b:concat(OffLn2b,revList(OffLn1b));
+  offset2undef==1?OffLn1b:concat(OffLn2b,revList(OffLn1b));
     
 function revList(list)=//reverse list
   let(Llist=len(list)-1)
@@ -434,7 +288,7 @@ function CentreN2PointsArc(p1,p2,cen,mode=0,fn)=
   )
   [for(i=[0:fn]) [cos(p1Angle+(arcAngle/fn)*i*CWorCCW)*r+cen[0],sin(p1Angle+(arcAngle/fn)*i*CWorCCW)*r+cen[1]]];
 
-function moveRadiiPoints(rp,tran=[0,0],rot=0)=
+function translateRadiiPoints(rp,tran=[0,0],rot=0)=
 	[for(i=rp) 
 		let(
       a=getAngle([0,0],[i.x,i.y]),//get the angle of the this point
@@ -444,25 +298,25 @@ function moveRadiiPoints(rp,tran=[0,0],rot=0)=
 	];
 
 module round2d(OR=3,IR=1){
-  offset(OR){
+  offset(OR,$fn=100){
-    offset(-IR-OR){
+    offset(-IR-OR,$fn=100){
-      offset(IR){
+      offset(IR,$fn=100){
         children();
       }
     }
   }
 }
 
-module shell2d(o1,OR=0,IR=0,o2=0){
+module shell2d(offset1,OR=0,IR=0,offset2=0){
 	difference(){
 		round2d(OR,IR){
-      offset(max(o1,o2)){
+      offset(max(offset1,offset2)){
         children(0);//original 1st child forms the outside of the shell
       }
     }
 		round2d(IR,OR){
       difference(){//round the inside cutout
-        offset(min(o1,o2)){
+        offset(min(offset1,offset2)){
           children(0);//shrink the 1st child to form the inside of the shell 
         }
         if($children>1){
@@ -486,7 +340,7 @@ module internalSq(size,r,center=0){
     }
 }
 
-module r_extrude(ln,r1=0,r2=0,fn=30){
+module extrudeWithRadius(ln,r1=0,r2=0,fn=30){
   n1=sign(r1);n2=sign(r2);
   r1=abs(r1);r2=abs(r2);
   translate([0,0,r1]){
@@ -514,11 +368,11 @@ module r_extrude(ln,r1=0,r2=0,fn=30){
 
 function mirrorPoints(b,rot=0,atten=[0,0])= //mirrors a list of points about Y, ignoring the first and last points and returning them in reverse order for use with polygon or polyRound
   let(
-    a=moveRadiiPoints(b,[0,0],-rot),
+    a=translateRadiiPoints(b,[0,0],-rot),
     temp3=[for(i=[0+atten[0]:len(a)-1-atten[1]])
       [a[i][0],-a[i][1],a[i][2]]
     ],
-    temp=moveRadiiPoints(temp3,[0,0],rot),
+    temp=translateRadiiPoints(temp3,[0,0],rot),
     temp2=revList(temp3)
   )    
   concat(b,temp2);

roundAnythingExamples.scad

@@ -0,0 +1,209 @@
+include <polyround.scad>
+
+basicPolyRoundExample();
+// parametricPolyRoundExample();
+// experimentalParametricPolyRoundExample();
+// conflicResolutionExample();
+// translateRadiiPointsExample();
+// 2dShellExample();
+// beamChainExample();
+// mirrorPointsExample();
+// radiusExtrudeExample();
+
+module basicPolyRoundExample(){
+  radiiPoints=[[-4,0,1],[5,3,1.5],[0,7,0.1],[8,7,10],[20,20,0.8],[10,0,10]];
+  polygon(polyRound(radiiPoints,30));
+  %translate([0,0,0.3])polygon(getpoints(radiiPoints));//transparent copy of the polgon without rounding
+}
+
+module parametricPolyRoundExample() {
+  //Example of how a parametric part might be designed with this tool 
+  width=20;       height=25;
+  slotW=8;        slotH=15;
+  slotPosition=8;
+  minR=1.5;       farcornerR=6;
+  internalR=3;
+  // radii points defined in terms of shape dimensions
+  points=[
+    [0,                   0,              farcornerR],
+    [0,                   height,         minR],
+    [slotPosition,        height,         minR],
+    [slotPosition,        height-slotH,   internalR],
+    [slotPosition+slotW,  height-slotH,   internalR],
+    [slotPosition+slotW,  height,         minR],
+    [width,               height,         minR],
+    [width,               0,              minR]
+  ];
+  translate([-25,0,0]){
+    polygon(polyRound(points,5));
+  }
+  %translate([-25,0,0.2])polygon(getpoints(points));//transparent copy of the polgon without rounding
+}
+
+module experimentalParametricPolyRoundExample() {
+  //very similar to parametric example, but with some experimental syntax
+  width=20;       height=25;
+  slotW=8;        slotH=15;
+  slotPosition=8;
+  minR=1.5;       farcornerR=6;
+  internalR=3;
+  // radii points defined in terms of shape dimensions
+  points2=[
+    [0,                   0,              farcornerR],
+    ["l",                 height,         minR],
+    [slotPosition,        "l",            minR],
+    ["l",                 height-slotH,   internalR],
+    [slotPosition+slotW,  "l",            internalR],
+    ["l",                 height,         minR],
+    [width,               "l",            minR],
+    ["l",                 height*0.2,     minR],
+    [45,                  0,              minR+5,         "ayra"]
+  ];
+  translate([-50,0,0])polygon(polyRound(points2,5));
+  %translate([-50,0,0.2])polygon(getpoints(processRadiiPoints(points2)));//transparent copy of the polgon without rounding
+}
+
+module conflicResolutionExample(){
+  //example of radii conflict handling and debuging feature
+  function makeRadiiPoints(r1, r2)=[[0,0,0],[0,20,r1],[20,20,r1],[20,0,0]];
+  
+  // the squre shape being 20 wide, two radii of 10 both fit into the shape (just)
+  translate([-25,0,0])polygon(polyRound(makeRadiiPoints(10,10),50));
+  
+  //radii are too large and are reduced to fit and will be reduce to 10 and 10
+  translate([0,0,0])polygon(polyRound(makeRadiiPoints(30,30),50));
+  
+  //radii are too large again and are reduced to fit, but keep their ratios r1 will go from 10 to 4 and r2 will go from 40 to 16
+  translate([25,0,0])polygon(polyRound(makeRadiiPoints(10,40),50));
+  
+  //mode 2 = no radii limiting
+  translate([50,0,0])polygon(polyRound(makeRadiiPoints(15,20),50,mode=2));
+}
+
+module translateRadiiPointsExample() {
+  // This example shows how a list of points can be used multiple times in the same 
+  nutW=5.5;   nutH=3; boltR=1.6;
+  minT=2;     minR=0.8;
+  function nutCapture(startAndEndRadius=0)=[
+    [-boltR,        0,         startAndEndRadius],
+    [-boltR,        minT,      0],
+    [-nutW/2,       minT,      minR],
+    [-nutW/2,       minT+nutH, minR],
+    [nutW/2,        minT+nutH, minR],
+    [nutW/2,        minT,      minR],
+    [boltR,         minT,      0],
+    [boltR,         0,         startAndEndRadius],
+  ];
+  negativeNutCapture=translateRadiiPoints(nutCapture(),tran=[5,0]);
+  rotatedNegativeNutCapture=translateRadiiPoints(nutCapture(1),tran=[20,5],rot=90);
+  aSquare=concat(
+    [[0,0,0]],
+    negativeNutCapture,
+    [[20,0,0]],
+    rotatedNegativeNutCapture,
+    [[20,10,0]],
+    [[0,10,0]]
+  );
+  polygon(polyRound(aSquare,20));
+  translate([10,12,0])polygon(polyRound(nutCapture(),20));
+}
+
+module 2dShellExample(){
+  radiiPoints=[[-4,0,1],[5,3,1.5],[0,7,0.1],[8,7,10],[20,20,0.8],[10,0,10]];
+  translate([0,-10,0])shell2d(-0.5){
+    scale(1)polygon(polyRound(radiiPoints,30));
+    translate([8,8])gridpattern(memberW = 0.3, sqW = 1, iter = 17, r = 0.2);
+  }
+  shell2d(-0.5)scale(1)polygon(polyRound(radiiPoints,30));
+}
+
+module beamChainExample(){
+  function beamPoints(r1,r2,rStart=0,rEnd=0)=[[0,0,rStart],[2,8,0],[5,4,r1],[15,10,r2],[17,2,rEnd]];
+
+  // chained lines by themselves
+  {
+    radiiPoints=beamPoints(0,0);
+    for(i=[0: len(radiiPoints)]){color("red")translate([radiiPoints[i].x,radiiPoints[i].y,0])cylinder(d=0.2, h=1);}
+    polygon(polyRound(beamChain(radiiPoints,offset1=0.02, offset2=-0.02),20));
+  }
+  
+
+  // Add some radii to the line transitions
+  translate([0,-7,0]){
+    radiiPoints=beamPoints(2,1);
+    for(i=[0: len(ex3)]){color("red")translate([radiiPoints[i].x,radiiPoints[i].y,0])cylinder(d=0.2, h=1);}
+    polygon(polyRound(beamChain(radiiPoints,offset1=0.02, offset2=-0.02),20));
+  }
+  
+  // Give make the lines beams with some thickness
+  {
+    radiiPoints=beamPoints(2,1);
+    translate([0,-7*2,0])polygon(polyRound(beamChain(radiiPoints,offset1=0.5, offset2=-0.5),20));
+  }
+
+  // Add an angle to the start of the beam
+  {
+    radiiPoints=beamPoints(2,1);
+    translate([0,-7*3,0])polygon(polyRound(beamChain(radiiPoints,offset1=0.5, offset2=-0.5, startAngle=45),20));
+  }
+
+  // Put a negative radius at the start for transationing to a flat surface
+  translate([0,-7*4,0]){
+    radiiPoints=beamPoints(2,1,rStart=-0.7);
+    polygon(polyRound(beamChain(radiiPoints,offset1=0.5, offset2=-0.5, startAngle=45),20));
+  }
+
+  // Define more points for a polygon to be atteched to the end of the beam chain
+  clipP=[[16,1.2,0],[16,0,0],[16.5,0,0],[16.5,1,0.2],[17.5,1,0.2],[17.5,0,0],[18,0,0],[18,1.2,0]];
+  translate([-15,-7*5+3,0]){
+    for(i=[0:len(clipP)-1]){color("red")translate([clipP[i].x,clipP[i].y,0])cylinder(d=0.2, h=1);}
+    polygon(polyRound(clipP,20));
+  }
+
+  // Attached to the end of the beam chain by dividing the beam paths in forward and return and
+  // concat other polygon inbetween
+  translate([0,-7*6,0]){
+    ex4=beamPoints(2,1);
+    forwardPath=beamChain(ex4,offset1=0.5,startAngle=-15,mode=2);
+    returnPath=revList(beamChain(ex4,offset1=-0.5,startAngle=-15,mode=2));
+    entirePath=concat(forwardPath,clipP,returnPath);
+    polygon(polyRound(entirePath,20));
+  }
+
+  // Add transitioning radii into the end polygong
+  translate([0,-7*7-2,0]){
+    ex4=beamPoints(2,1,rEnd=3);
+    forwardPath=beamChain(ex4,offset1=0.5,startAngle=-15,mode=2);
+    returnPath=revList(beamChain(ex4,offset1=-0.5,startAngle=-15,mode=2));
+    entirePath=concat(forwardPath,clipP,returnPath);
+    polygon(polyRound(entirePath,20));
+  }
+
+  // Define multiple shells from the the one set of points
+  translate([0,-7*9,0]){
+    for(i=[0:2]){polygon(polyRound(beamChain(ex3,offset1=-1+i*0.4, offset2=-1+i*0.4+0.25),20));}
+  }
+}
+
+module mirrorPointsExample(){
+  function points(endR=0)=[[0,0,0],[2,8,0],[5,4,3],[15,10,0.5],[10,2,endR]];
+  mirroredPoints=mirrorPoints(points(0),0,[1,0]);
+  polygon(polyRound(mirroredPoints,20));
+  mirroredPoints2=mirrorPoints(points(7),0,[1,0]);
+  translate([0,-20,0])polygon(polyRound(mirroredPoints2,20));
+}
+
+module radiusExtrudeExample(){
+  radiiPoints=[[-4,0,1],[5,3,1.5],[0,7,0.1],[8,7,10],[20,20,0.8],[10,0,10]];
+  extrudeWithRadius(3,0.5,0.5,50)polygon(polyRound(radiiPoints,30));
+  #translate([7,4,3])extrudeWithRadius(3,-0.5,0.95,50)circle(1,$fn=30);
+}
+
+module gridpattern(memberW = 4, sqW = 12, iter = 5, r = 3){
+	round2d(0, r)rotate([0, 0, 45])translate([-(iter * (sqW + memberW) + memberW) / 2, -(iter * (sqW + memberW) + memberW) / 2])difference(){
+		square([(iter) * (sqW + memberW) + memberW, (iter) * (sqW + memberW) + memberW]);
+		for (i = [0:iter - 1], j = [0:iter - 1]){
+			translate([i * (sqW + memberW) + memberW, j * (sqW + memberW) + memberW])square([sqW, sqW]);
+		}
+	}
+}