+module StrapHoopProfile(){
+ circle(r = strap_hoop_thick/2);
+}
+
+module StrapHoop(){ ////toplevel
+ bigrad = strap_hoop_inside/2 + strap_hoop_thick/2;
+ extralen = strap_hoop_thick * 5;
+
+ intersection(){
+ rotate([strap_hoop_elevation, 0,0]){
+ for (x= [ -1, +1 ] * bigrad) {
+ translate([x, -extralen, 0])
+ rotate([-90,0,0])
+ linear_extrude(height= extralen + strap_hoop_strlen + 0.1,
+ convexity=10)
+ StrapHoopProfile();
+ }
+ translate([0, strap_hoop_strlen, 0]){
+ intersection(){
+ rotate_extrude(convexity=10)
+ translate([bigrad, 0,0])
+ StrapHoopProfile();
+ translate([0,50,0])
+ cube([100,100,100], center=true);
+ }
+ }
+ }
+ translate([0, 50, 0])
+ cube(100, center=true);
+ }
+}
+