'asignamos las variables
dim crv
dim crv2

dim distance
dim distance2

dim point
dim point2

dim Udomain
dim Udomain2

dim uMax
dim uMin

dim uMax2
dim uMin2

dim param
dim param2

dim circle1
dim circle2

dim i
redim ptcoleccion(200)
redim ptcoleccion2(200)

redim circlecoleccion(200)
redim circlecoleccion2(200)



'asignamos los valores para el la coleccion entre el valor generico i y su sucesor'
for i=0 to 200

coleccion(i) = i + 1


'coleccion(0) = 1
'coleccion(1) = 2
'coleccion(2) = 3
''coleccion(3) = 4
'coleccion(4) = 5
'coleccion(5) = 6
'coleccion(6) = 7
'coleccion(7) = 8
'coleccion(8) = 9
'coleccion(9) =10
'coleccion(10) = 11
'coleccion(11) = 12
'coleccion(12) = 13
'coleccion(13) = 14
'coleccion(14) = 15
'coleccion(15) = 16
'coleccion(16) = 17
'coleccion(17) = 18
'c'oleccion(18) = 19
'c'oleccion(19) = 20
'c'oleccion(20) = 21

next



secciones = 200


crv= Rhino.getObject("selecte curva!", 4)
crv2= Rhino.getObject("selecte curva2!", 4)


Udomain = Rhino.curveDomain(crv)
Udomain2 = Rhino.curveDomain(crv2)

Umin = UDomain(0)
Umax = UDomain(1)
Umin2 = UDomain2(0)
Umax2 = UDomain2(1)

'print umin and umax
Rhino.print "este uMin" + Cstr(uMin)
Rhino.print "este uMax" + Cstr(uMax)





for i = 0 to secciones


'calculate parameter: le otorgmos un factor variable con respecto a la posicion de cada punto
	param = uMin + i*(uMax - uMin)/secciones
	param2 = uMin2 + i*(uMax2 - uMin2)/secciones
	
'entonces le pedimos que encuentre cada pnto y lo guarde en una coleccion de puntos de manera de darle valor a los punts

	point = Rhino.EvaluateCurve(crv, param)
	point2 = Rhino.EvaluateCurve(crv2, param2)
	ptcoleccion(i) = point
	ptcoleccion2(i) = point2
	
	

	
	
      'addpoint to rhino
   Rhino.addPoint(ptcoleccion(i))	
   Rhino.addPoint(ptcoleccion2(i))
next 


	
	
 
	'call Rhino.AddCircle (coleccion (i),coleccion(i+1))
	
	'Rhino.CircleCenterPoint (coleccion (1) , coleccion (2))


	'call Rhino.Distance (point, point2)


for i = 0 to secciones-1


    distance = Rhino.Distance ( ptcoleccion(i),  ptcoleccion(i+1))
    distance2 = Rhino.Distance ( ptcoleccion2(i),  ptcoleccion2(i+1))
     
     circle1 =  Rhino.AddCircle ( ptcoleccion(i), distance/2) 
	circle2 =  Rhino.AddCircle ( ptcoleccion2(i), distance2/2) 
	'loft between circle 1 and 2
	
	
 Rhino.AddLoftSrf Array(circle1,circle2)
 
 'generamosra una coleccion de circulos de manra de otorgarles un valor y juntarlos todos	
 	
 	circlecoleccion (i) = circle1
	circlecoleccion2 (i) = circle2


Rhino.AddLoftSrf Array ( circlecoleccion,circlecoleccion2 )

next