[Updated on: Fri, 18 January 2013 21:08 UTC]

This bit of OpenSCAD code generates a "waveform" from the first 100 digits of PI

$fn=128;
a=[0,3,1,4,1,5,9,2,6,5,3,5,8,9,7,9,3,2,3,8,4,6,2,6,4,3,3,8,3 ,2,7,9,5,0,2,8,8,4,1,9,7,1,6,9,3,9,9,3,7,5,1,0,5,
8,2,0,9,7,4,9,4,4,5,9,2,3,0,7,8,1,6,4,0,6,2,8,6,2,0,8,9,9,8, 6,2,8,0,3,4,8,2,5,3,4,2,1,1,7,0,6,7,9,0 ];

for (i=[1:50]){
translate([0,0,i])cylinder(r1=a[i*2-1]+1,r2=a[i*2]+1,h=1/2,c enter=true);
translate([0,0,i+.5])cylinder(r1=a[i*2]+1,r2=a[i*2+1]+1,h=1/ 2,center=true);
}

• Attachment: PI.jpg
  (Size: 99.91KB, Downloaded 110 time(s))

• Attachment: PI.stl
  (Size: 4.82MB, Downloaded 13 time(s))

[Updated on: Fri, 18 January 2013 23:23 UTC]