kaan/MCAD-Library
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Cubic_Array() , Radial_Array() function added multiple child support

Browse source
This commit is contained in:
david powell 2013-07-20 19:37:44 +01:00
parent 28f1636417
commit 4da430feeb
1 changed files with 11 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
array.scad
View file

@ -31,6 +31,11 @@ module Cubic_and_Radial_Array_Test()
Cubic_Array(10,10,10,5,5,5,center=true) Cubic_Array(10,10,10,5,5,5,center=true)
{ {
sphere(2.5,center=true,$fn=60); sphere(2.5,center=true,$fn=60);
cylinder(h=10,r=.5,center=true);
rotate([90,0,0])
cylinder(h=10,r=.5,center=true);
rotate([0,90,0])
cylinder(h=10,r=.5,center=true);
} }
//a linear array allong x can be derived from the cubic array simply //a linear array allong x can be derived from the cubic array simply
@ -76,6 +81,9 @@ module Cubic_and_Radial_Array_Test()
Cubic_Array(0,10,0,1,5,1,center=false) Cubic_Array(0,10,0,1,5,1,center=false)
{ {
cube([2,3,4],center=true); cube([2,3,4],center=true);
cylinder(h=10,r=.5,center=true);
rotate([90,0,0])
cylinder(h=10,r=.5,center=true);
} }
} }
@ -96,7 +104,7 @@ module Cubic_Array(sx,sy,sz,nx,ny,nz,center)
for(z=[1:nz]) for(z=[1:nz])
{ {
translate([x*sx,y*sy,z*sz]) translate([x*sx,y*sy,z*sz])
child(center=true); for (k = [0:$children-1]) child(k,center=true);;
} }
} }
} }
@ -113,7 +121,7 @@ module Cubic_Array(sx,sy,sz,nx,ny,nz,center)
for(z=[1:nz]) for(z=[1:nz])
{ {
translate([x*sx,y*sy,z*sz]) translate([x*sx,y*sy,z*sz])
child(); for (k = [0:$children-1]) child(k);
} }
} }
} }
@ -134,6 +142,6 @@ module Radial_Array(a,n,r)
{ {
rotate([0,0,-(a*k)]) rotate([0,0,-(a*k)])
translate([0,r,0]) translate([0,r,0])
child(); for (k = [0:$children-1]) child(k);
} }
} }