// beamChain example 1

include <Round-Anything-1.0.4/polyround.scad>

function beamPoints(r1,r2,rStart=0,rEnd=0)=[
    [0,  0,  rStart],
    [2,  8,  0     ],
    [5,  4,  r1    ],
    [15, 10, r2    ],
    [17, 2,  rEnd  ]
];

linear_extrude(1){

  // chained lines by themselves
  translate(){
    radiiPoints=beamPoints(0,0);
    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);
    polygon(polyRound(beamChain(radiiPoints,offset1=0.02, offset2=-0.02),20));
  }

  // Give make the lines beams with some thickness
  translate([0,-7*2,0]){
    radiiPoints=beamPoints(2,1);
    polygon(polyRound(beamChain(radiiPoints,offset1=0.5, offset2=-0.5),20));
  }

}