diff --git a/array.scad b/array.scad
new file mode 100644
index 0000000..8b075ae
--- /dev/null
+++ b/array.scad
@@ -0,0 +1,147 @@
+// array functions
+// by david powell 
+// licence LGPL V2 or later 
+//
+// this lib provides 2 functions 
+// Cubic_Array() , and Radial_Array()
+//
+//Cubic_Array(sx,sy,sz,nx,ny,nz,center){childobject}
+//  produces a cubic grid of child objects 
+//  sx,sy,sz = spacing for each axis 
+//  nx,ny,nz and number of objects on each axis 
+//  center = true/false on if geometery is centered or not 
+//
+//
+//Radial_Array(a,n,r){child object}
+// produces a clockwise radial array of child objects rotated around the local z axis   
+// a= interval angle 
+// n= number of objects 
+// r= radius distance 
+//
+// remove // from following line to run test 
+//Cubic_and_Radial_Array_Test();
+
+module Cubic_and_Radial_Array_Test()
+  {
+//center referance point 
+ 	translate([0,0,0])
+	#cube([5,5,5],center=true);
+
+//cubic array  of  5*5*5 objects spaced 10*10*10 center relative
+ 	Cubic_Array(10,10,10,5,5,5,center=true)
+		{
+		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 
+	translate([60,0,0])
+   Cubic_Array(10,0,0,5,1,1,center=false)
+		{
+		cube([5,5,5],center=true);
+		} 
+//a linear array allong y can be derived from the cubic array simply 
+	translate([0,60,0])
+   Cubic_Array(0,10,0,1,5,1,center=false)
+		{
+		cube([5,5,5],center=true);
+		} 
+
+//a linear array allong z can be derived from the cubic array simply 
+	translate([0,0,60])
+   Cubic_Array(0,0,10,1,1,5,center=false)
+		{
+		cube([5,5,5],center=true);
+		} 
+
+//a grid  array allong x,y can be derived from the cubic array simply 
+	translate([0,0,-60])
+   Cubic_Array(10,10,0,5,5,1,center=true)
+		{
+		cube([5,5,5],center=true);
+		} 
+
+//radial array of 32 objects rotated though 10 degrees 
+ 	translate([0,0,0])
+ 	Radial_Array(10,32,40)
+		{
+		cube([2,4,6],center=true);
+		}
+
+// a radial array of linear arrays 
+
+ 	rotate([45,45,45])
+  	Radial_Array(10,36,40)
+		{
+		translate([0,10,0])
+   	Cubic_Array(0,10,0,1,5,1,center=false)
+			{
+			cube([2,3,4],center=true);
+			cylinder(h=10,r=.5,center=true);
+			rotate([90,0,0])
+			cylinder(h=10,r=.5,center=true);
+			}
+		}
+
+}
+
+
+// main lib modules
+module Cubic_Array(sx,sy,sz,nx,ny,nz,center)
+	{
+	if (center==true)
+		{
+		translate([-(((nx+1)*sx)/2),-(((ny+1)*sy)/2),-(((nz+1)*sz)/2)])
+			{
+			for(x=[1:nx])
+				{
+				for(y=[1:ny])
+					{
+					for(z=[1:nz])
+						{
+						translate([x*sx,y*sy,z*sz])
+						for (k = [0:$children-1]) child(k,center=true);;
+						}
+					}
+				}
+			}
+		}
+	else
+		{
+		translate([0,0,0])
+			{
+			for(x=[1:nx])
+				{
+				for(y=[1:ny])
+					{
+					for(z=[1:nz])
+						{
+						translate([x*sx,y*sy,z*sz])
+						for (k = [0:$children-1]) child(k);
+						}
+					}
+				}
+			}
+		}
+	}
+
+//
+//Radial_Array(a,n,r){child object}
+// produces a clockwise radial array of child objects rotated around the local z axis   
+// a= interval angle 
+// n= number of objects 
+// r= radius distance 
+//
+module Radial_Array(a,n,r)
+{
+ for (k=[0:n-1])
+ {
+ rotate([0,0,-(a*k)])
+ translate([0,r,0])
+ for (k = [0:$children-1]) child(k);
+ }
+}
diff --git a/bearing.scad b/bearing.scad
index 8172690..ca30b59 100644
--- a/bearing.scad
+++ b/bearing.scad
@@ -5,6 +5,11 @@
  * Dual licenced under Creative Commons Attribution-Share Alike 3.0 and LGPL2 or later
  */
 
+/*
+change list 13/6/2013
+ added ,604,606,607,628,629,6200,6201,6202,6203,6205,6206   bearing sizes 
+*/
+
 include <units.scad>
 include <materials.scad>
 
@@ -84,6 +89,13 @@ function bearingDimensions(model) =
   model == 698 ? [8*mm, 19*mm,  6*mm]:
   model == 699 ? [9*mm, 20*mm,  6*mm]:
 
+  model == 6200 ? [10*mm, 30*mm, 9*mm]:
+  model == 6201 ? [12*mm, 32*mm, 10*mm]:
+  model == 6202 ? [15*mm, 35*mm, 11*mm]:
+  model == 6203 ? [17*mm, 40*mm, 12*mm]:
+  model == 6205 ? [25*mm, 52*mm, 15*mm]:
+  model == 6206 ? [30*mm, 62*mm, 16*mm]:
+
   [8*mm, 22*mm, 7*mm]; // this is the default