stringing-test.scad

   1 // -*- C -*-
   2
   3 height = 15;
   4 $fn= 20;
   5
   6 cylinder(r=7, h=height);
   7
   8 for (r= [0:4]) {
   9   rotate(r * 72) {
  10     d = 10 * pow(1.5, r);
  11     cube([d, 3, 2]);
  12     translate([d, 0,0])
  13       cube([7, 7, height]);
  14   }
  15 }