'Definition
' x vector
				arrayOfVariantOfDouble1(0) =1
				arrayOfVariantOfDouble1(1) =0
				arrayOfVariantOfDouble1(2) =0
' y vector
				arrayOfVariantOfDouble1(3) =0
				arrayOfVariantOfDouble1(4) =1
				arrayOfVariantOfDouble1(5) =0
' z vector
				arrayOfVariantOfDouble1(6) =0
				arrayOfVariantOfDouble1(7) =0
				arrayOfVariantOfDouble1(8) =1	
'Drehung z		
' x vector				
				arrayOfVariantOfDouble2(0) = arrayOfVariantOfDouble1(0)*cos(pi/180*(datafield_koord(1,i,5)+datafield_koord(0,m,5)-orig_koord(5)))
				arrayOfVariantOfDouble2(1) = arrayOfVariantOfDouble1(0)*sin(pi/180*(datafield_koord(1,i,5)+datafield_koord(0,m,5)-orig_koord(5)))
				arrayOfVariantOfDouble2(2) = arrayOfVariantOfDouble1(2)
' y vector
				arrayOfVariantOfDouble2(3) = -arrayOfVariantOfDouble1(4)*sin(pi/180*(datafield_koord(1,i,5)+datafield_koord(0,m,5)-orig_koord(5)))
				arrayOfVariantOfDouble2(4) = arrayOfVariantOfDouble1(4)*cos(pi/180*(datafield_koord(1,i,5)+datafield_koord(0,m,5)-orig_koord(5)))
				arrayOfVariantOfDouble2(5) = arrayOfVariantOfDouble1(5)
' z vector
				arrayOfVariantOfDouble2(6) = arrayOfVariantOfDouble1(6)
				arrayOfVariantOfDouble2(7) = arrayOfVariantOfDouble1(7)
				arrayOfVariantOfDouble2(8) = arrayOfVariantOfDouble1(8)
'Drehung y
' x vector			
				arrayOfVariantOfDouble1(0) = arrayOfVariantOfDouble2(0)*cos(pi/180*(datafield_koord(1,i,4)+datafield_koord(0,m,4)-orig_koord(4)))
				arrayOfVariantOfDouble1(1) = arrayOfVariantOfDouble2(1)
				arrayOfVariantOfDouble1(2) = -arrayOfVariantOfDouble2(0)*sin(pi/180*(datafield_koord(1,i,4)+datafield_koord(0,m,4)-orig_koord(4)))
' y vector
				arrayOfVariantOfDouble1(3) = arrayOfVariantOfDouble2(3)
				arrayOfVariantOfDouble1(4) = arrayOfVariantOfDouble2(4)
				arrayOfVariantOfDouble1(5) = arrayOfVariantOfDouble2(5)
' z vector
				arrayOfVariantOfDouble1(6) = arrayOfVariantOfDouble2(8)*sin(pi/180*(datafield_koord(1,i,4)+datafield_koord(0,m,4)-orig_koord(4)))
				arrayOfVariantOfDouble1(7) = arrayOfVariantOfDouble2(7)
				arrayOfVariantOfDouble1(8) = arrayOfVariantOfDouble2(8)*cos(pi/180*(datafield_koord(1,i,4)+datafield_koord(0,m,4)-orig_koord(4)))
'Drehung x
' x vector	
				arrayOfVariantOfDouble2(0) = arrayOfVariantOfDouble1(0)
				arrayOfVariantOfDouble2(1) = arrayOfVariantOfDouble1(1)
				arrayOfVariantOfDouble2(2) = arrayOfVariantOfDouble1(2)
' y vector
				arrayOfVariantOfDouble2(3) = arrayOfVariantOfDouble1(3)
				arrayOfVariantOfDouble2(4) = arrayOfVariantOfDouble1(4)*cos(pi/180*(datafield_koord(1,i,3)+datafield_koord(0,m,3)-orig_koord(3)))
				arrayOfVariantOfDouble2(5) = -arrayOfVariantOfDouble1(4)*sin(pi/180*(datafield_koord(1,i,3)+datafield_koord(0,m,3)-orig_koord(3)))
' z vector
				arrayOfVariantOfDouble2(6) = arrayOfVariantOfDouble1(6)
				arrayOfVariantOfDouble2(7) = arrayOfVariantOfDouble1(8)*sin(pi/180*(datafield_koord(1,i,3)+datafield_koord(0,m,3)-orig_koord(3)))
				arrayOfVariantOfDouble2(8) = arrayOfVariantOfDouble1(8)*cos(pi/180*(datafield_koord(1,i,3)+datafield_koord(0,m,3)-orig_koord(3)))

'origin
				arrayOfVariantOfDouble2(9) = datafield_koord(1,i,0)+datafield_koord(0,m,0)-orig_koord(0)
				arrayOfVariantOfDouble2(10) = datafield_koord(1,i,1)+datafield_koord(0,m,1)-orig_koord(1)
				arrayOfVariantOfDouble2(11) = datafield_koord(1,i,2)+datafield_koord(0,m,2)-orig_koord(2)
				MoveApply.Apply arrayOfVariantOfDouble2