rollout agregarMano "Agregar Mano"
(
	pickbutton btnMano "Agregar Mano"
	--button Aceptar "Terminar Rig"
	
	on btnMano picked obj do
	(
		Dedos =#()
		if obj.children == undefined then
			(
				messagebox "Tu mano no tiene dedos"
			)
		else
			(

				for i = 1 to obj.children.count do
				(
					append Dedos obj.children[i].name
				)
				
					miTexto = createfile "RigDedosBeta.ms"
			-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
			-----------------------------------------------------------------------     Aqui empieza el texto   -----------------------------------------------------------------------------------------------------------
			-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------


					format "function rotacion art cant val= \n " to: miTexto
						format "( \n" to:miTexto
						format " for i = 1 to art.count do \n" to:miTexto
							format "	( \n" to:miTexto
							format " aux = \x22$\x22 +art[i] as string		\n" to:miTexto
							format " y = \x22 in coordsys local rotate \x22 +aux as string+ \x22 (eulerAngles 0 \x22+val as string+ \x22 0) \x22 \n" to:miTexto
							format " execute y \n" to:miTexto
							format " ) \n" to:miTexto
					format ") \n" to:miTexto	
					
					format "function articulaciones dedo val = \n" to:miTexto
						format "( \n" to:miTexto
						format "cant = 1 \n" to:miTexto
						format "art =#() \n" to:miTexto
						format "append art dedo.name \n" to:miTexto
						format " joint = dedo.children[1] \n" to:miTexto
						format "if joint == undefined then \n" to:miTexto
						format " ( \n" to:miTexto
							format "b_dedo = 0 \n" to:miTexto
						format " ) \n" to:miTexto
						format "else \n" to:miTexto
						format "( \n" to:miTexto
							format "while joint != undefined do \n" to:miTexto
								format "( \n" to:miTexto
								format " append art joint.name \n" to:miTexto
								format "cant+=1 \n" to:miTexto
								format "joint = joint.children[1] \n" to:miTexto
								format ") \n" to:miTexto
							format "b_dedo = 0 \n" to:miTexto
						format ") \n" to:miTexto
						format "rotacion art cant val \n" to:miTexto
					format ") \n" to:miTexto
					s = "format \x22 rollout r_mano  \x22 to:miTexto"
					execute s
					format "\x22 " to:miTexto
					s2 = "format \x22   "+obj.name as string +" \x22 to:miTexto"
					execute s2
					format "\x22 " to:miTexto
					format "\n " to:miTexto
					format "( \n" to:miTexto
					--	format "pickbutton mano \x22Seleccionar Mano\x22 \n" to:miTexto
						for i = 1 to Dedos.count do
						(
							t = "format \x22 slider A"+i as string+ " \x22 to:miTexto" 
							execute t
							format "\x22 " to:miTexto
							t2 = "format \x22 "+Dedos[i] as string+"\x22 to:miTexto"
							execute t2
							format "\x22 " to:miTexto
							t3 = "format \x22 range:[-7,7,0] ticks:6 width:150  \x22 to:miTexto"
							execute t3
							format "\n " to:miTexto
							
						)
						
							format" on r_mano close do \n " to:miTexto
							format "( \n" to:miTexto	
							format "deletefile \x22 RigDedosBeta.ms \x22 " to:miTexto
							format ") \n" to:miTexto										
		
						
						
									format " on r_mano open do \n" to:miTexto
									format "( \n" to:miTexto							
									for i = 1 to obj.children.count do
									(
										
										y = "format \x22 dedo"+i as string+" =$"+obj.name as string+".children["+i as string+"]"+"\n \x22 to:miTexto"
										execute y
									)
									format ") \n" to:miTexto

						
						
						for i = 1 to Dedos.count do
						(
							a = "format \x22 on A"+i  as string+ " changed val do \n \x22 to:miTexto"
							execute a
							format "( \n" to:miTexto
							
							b = "format \x22 articulaciones dedo"+i as string+" val \n \x22 to:miTexto"
							execute b
							
							c = "format \x22 A"+i as string+".value =0 \n \x22 to:miTexto"
							execute c
							
							format ") \n" to:miTexto							
						)
					format ") \n" to:miTexto
					
					format "try (closerolloutfloater rigger) catch() \n" to:miTexto
					format " rigger = newrolloutfloater \x22 Auto Hand Rigger\x22 200 166\n" to:miTexto
					format " addrollout r_mano rigger \n" to:miTexto
		
		


					
			-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
			-----------------------------------------------------------------------     Aqui termina el texto   -----------------------------------------------------------------------------------------------------------
			-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
					
					close miTexto
						
				fileIn "RigDedosBeta.ms"


			)


	)
)createdialog agregarMano