-- Animation-Interface.ms

 if((ssRoll != undefined) and (ssRoll.isdisplayed)) do
	(destroyDialog ssRoll)

rollout ssRoll "Animation Interface"
(
local controlText = ""
local controlXPos = -131.148
local controlZPos = 377.033
local xCounter = 0
local Rect_CTRL = ""

	edittext edt_textBox "Enter Control Name" type:#string
	button but_createBoxCTRL "Create Box Control"
	button but_createVerticalCTRL "Create Vertical Control"
	button but_createDualVerticalCTRL "Create Dual Vertical Controls"
	button but_createHorizontalCTRL "Create Horizontal Control"
	button but_createDualHorizontalCTRL "Create Dual Horizontal Controls"

	-- spinner spn_numPlanets "Number of Planets " type:#integer range:[1,10,3] enabled:false
	-- pickbutton pbt_pickPlanet "Pick Planet" enabled:false

	on edt_textBox changed txt do 
 	(
 		controlText = txt
 	)

	on but_createBoxCTRL pressed do
	(
		RectCTRL = rectangle width:(20) length:(20) render_renderable:false render_displayRenderMesh:false transform:(matrix3 [1,0,0] [0,0,1] [0,-1,0] [controlXPos,0,controlZPos]) isSelected:on
		$.name = "Rect_" + controlText
		Rect_CTRL = $.name
		$.wirecolor = color 176 26 26
		TextCTRL = text size:2 text:controlText render_renderable:false render_displayRenderMesh:false transform:(matrix3 [1,0,0] [0,0,1] [0,-1,0] [controlXPos,0,controlZPos + 12]) isSelected:on
		$.name = "Text_" + controlText
		$.wirecolor = color 87 224 87
		--$.parent = Rect_CTRL
		CTRLCTRL = Ngon radius:2 cornerRadius:0 nsides:4 circular:off scribe:1 render_renderable:true render_displayRenderMesh:true transform:(matrix3 [1,0,0] [0,0,1] [0,-1,0] [controlXPos,0,controlZPos]) isSelected:on
		$.name = "CTRL_" + controlText
		$.wirecolor = color 87 224 87
		--$.parent = Rect_CTRL
		$.pos.controller = position_list ()
		$.pos.controller.weight[1] = 100

		--macros.run "Parameter Wire" "paramWire"
		--paramWire.connect $.pos.controller.Position_XYZ.controller[#Z_Position] $bottom_Teeth.modifiers[#Morpher][#_38__Jaw_Open___No_Target_] "(Z_Position-380)*10"
		
		controlXPos = 25 + controlXPos
		xCounter = 1 + xCounter
		if (xCounter > 3) do
		(
			xCounter = 0
			controlXPos = controlXPos - 100
			controlZPos = controlZPos - 30
		)
	)
	on but_createVerticalCTRL pressed do
	(
		RectCTRL = rectangle width:(5) length:(20) render_renderable:false render_displayRenderMesh:false transform:(matrix3 [1,0,0] [0,0,1] [0,-1,0] [controlXPos,0,controlZPos]) isSelected:on
		$.name = "Rect_" + controlText
		Rect_CTRL = $.name
		$.wirecolor = color 176 26 26
		TextCTRL = text size:2 text:controlText render_renderable:false render_displayRenderMesh:false transform:(matrix3 [1,0,0] [0,0,1] [0,-1,0] [controlXPos,0,controlZPos + 12]) isSelected:on
		$.name = "Text_" + controlText
		$.wirecolor = color 87 224 87
		--$.parent = Rect_CTRL
		CTRLCTRL = Ngon radius:2 cornerRadius:0 nsides:4 circular:off scribe:1 render_renderable:true render_displayRenderMesh:true transform:(matrix3 [1,0,0] [0,0,1] [0,-1,0] [controlXPos,0,controlZPos]) isSelected:on
		$.name = "CTRL_" + controlText
		$.wirecolor = color 87 224 87
		--$.parent = Rect_CTRL
		$.pos.controller = position_list ()
		$.pos.controller.weight[1] = 100

		--macros.run "Parameter Wire" "paramWire"
		--paramWire.connect $.pos.controller.Position_XYZ.controller[#Z_Position] $bottom_Teeth.modifiers[#Morpher][#_38__Jaw_Open___No_Target_] "(Z_Position-380)*10"
		
		controlXPos = 25 + controlXPos
		xCounter = 1 + xCounter
		if (xCounter > 3) do
		(
			xCounter = 0
			controlXPos = controlXPos - 100
			controlZPos = controlZPos - 30
		)
	)
	on but_createDualVerticalCTRL pressed do
	(
		RectCTRL = rectangle width:(5) length:(20) render_renderable:false render_displayRenderMesh:false transform:(matrix3 [1,0,0] [0,0,1] [0,-1,0] [controlXPos - 6.25,0,controlZPos]) isSelected:on
		$.name = "L_Rect_" + controlText
		Rect_CTRL = $.name
		$.wirecolor = color 176 26 26
		TextCTRL = text size:2 text:("L_" + controlText) render_renderable:false render_displayRenderMesh:false transform:(matrix3 [1,0,0] [0,0,1] [0,-1,0] [controlXPos - 6.25,0,controlZPos + 12]) isSelected:on
		$.name = "L_Text_" + controlText
		$.wirecolor = color 87 224 87
		--$.parent = Rect_CTRL
		CTRLCTRL = Ngon radius:2 cornerRadius:0 nsides:4 circular:off scribe:1 render_renderable:true render_displayRenderMesh:true transform:(matrix3 [1,0,0] [0,0,1] [0,-1,0] [controlXPos - 6.25,0,controlZPos]) isSelected:on
		$.name = "L_CTRL_" + controlText
		$.wirecolor = color 87 224 87
		--$.parent = Rect_CTRL
		$.pos.controller = position_list ()
		$.pos.controller.weight[1] = 100
		RectCTRL = rectangle width:(5) length:(20) render_renderable:false render_displayRenderMesh:false transform:(matrix3 [1,0,0] [0,0,1] [0,-1,0] [controlXPos + 6.25,0,controlZPos]) isSelected:on
		$.name = "R_Rect_" + controlText
		Rect_CTRL = $.name
		$.wirecolor = color 176 26 26
		TextCTRL = text size:2 text:("R_" + controlText) render_renderable:false render_displayRenderMesh:false transform:(matrix3 [1,0,0] [0,0,1] [0,-1,0] [controlXPos + 6.25,0,controlZPos + 12]) isSelected:on
		$.name = "R_Text_" + controlText
		$.wirecolor = color 87 224 87
		--$.parent = Rect_CTRL
		CTRLCTRL = Ngon radius:2 cornerRadius:0 nsides:4 circular:off scribe:1 render_renderable:true render_displayRenderMesh:true transform:(matrix3 [1,0,0] [0,0,1] [0,-1,0] [controlXPos + 6.25,0,controlZPos]) isSelected:on
		$.name = "R_CTRL_" + controlText
		$.wirecolor = color 87 224 87
		--$.parent = Rect_CTRL
		$.pos.controller = position_list ()
		$.pos.controller.weight[1] = 100

		--macros.run "Parameter Wire" "paramWire"
		--paramWire.connect $.pos.controller.Position_XYZ.controller[#Z_Position] $bottom_Teeth.modifiers[#Morpher][#_38__Jaw_Open___No_Target_] "(Z_Position-380)*10"
		
		controlXPos = 25 + controlXPos
		xCounter = 1 + xCounter
		if (xCounter > 3) do
		(
			xCounter = 0
			controlXPos = controlXPos - 100
			controlZPos = controlZPos - 30
		)
	)
	on but_createHorizontalCTRL pressed do
	(
		RectCTRL = rectangle width:(20) length:(5) render_renderable:false render_displayRenderMesh:false transform:(matrix3 [1,0,0] [0,0,1] [0,-1,0] [controlXPos,0,controlZPos]) isSelected:on
		$.name = "Rect_" + controlText
		Rect_CTRL = $.name
		$.wirecolor = color 176 26 26
		TextCTRL = text size:2 text:controlText render_renderable:false render_displayRenderMesh:false transform:(matrix3 [1,0,0] [0,0,1] [0,-1,0] [controlXPos,0,controlZPos + 4.5]) isSelected:on
		$.name = "Text_" + controlText
		$.wirecolor = color 87 224 87
		--$.parent = Rect_CTRL
		CTRLCTRL = Ngon radius:2 cornerRadius:0 nsides:4 circular:off scribe:1 render_renderable:true render_displayRenderMesh:true transform:(matrix3 [1,0,0] [0,0,1] [0,-1,0] [controlXPos,0,controlZPos]) isSelected:on
		$.name = "CTRL_" + controlText
		$.wirecolor = color 87 224 87
		--$.parent = Rect_CTRL
		$.pos.controller = position_list ()
		$.pos.controller.weight[1] = 100

		--macros.run "Parameter Wire" "paramWire"
		--paramWire.connect $.pos.controller.Position_XYZ.controller[#Z_Position] $bottom_Teeth.modifiers[#Morpher][#_38__Jaw_Open___No_Target_] "(Z_Position-380)*10"
		
		controlXPos = 25 + controlXPos
		xCounter = 1 + xCounter
		if (xCounter > 3) do
		(
			xCounter = 0
			controlXPos = controlXPos - 100
			controlZPos = controlZPos - 30
		)
	)
	on but_createDualHorizontalCTRL pressed do
	(
		RectCTRL = rectangle width:(20) length:(5) render_renderable:false render_displayRenderMesh:false transform:(matrix3 [1,0,0] [0,0,1] [0,-1,0] [controlXPos,0,controlZPos + 6.25]) isSelected:on
		$.name = "UP_Rect_" + controlText
		Rect_CTRL = $.name
		$.wirecolor = color 176 26 26
		TextCTRL = text size:2 text:("UP_" + controlText) render_renderable:false render_displayRenderMesh:false transform:(matrix3 [1,0,0] [0,0,1] [0,-1,0] [controlXPos,0,controlZPos + 12]) isSelected:on
		$.name = "UP_Text_" + controlText
		$.wirecolor = color 87 224 87
		--$.parent = Rect_CTRL
		CTRLCTRL = Ngon radius:2 cornerRadius:0 nsides:4 circular:off scribe:1 render_renderable:true render_displayRenderMesh:true transform:(matrix3 [1,0,0] [0,0,1] [0,-1,0] [controlXPos,0,controlZPos + 6.25]) isSelected:on
		$.name = "UP_CTRL_" + controlText
		$.wirecolor = color 87 224 87
		--$.parent = Rect_CTRL
		$.pos.controller = position_list ()
		$.pos.controller.weight[1] = 100
		RectCTRL = rectangle width:(20) length:(5) render_renderable:false render_displayRenderMesh:false transform:(matrix3 [1,0,0] [0,0,1] [0,-1,0] [controlXPos,0,controlZPos - 6.25]) isSelected:on
		$.name = "DOWN_Rect_" + controlText
		Rect_CTRL = $.name
		$.wirecolor = color 176 26 26
		TextCTRL = text size:2 text:("DOWN_" + controlText) render_renderable:false render_displayRenderMesh:false transform:(matrix3 [1,0,0] [0,0,1] [0,-1,0] [controlXPos,0,controlZPos - 0.5]) isSelected:on
		$.name = "DOWN_Text_" + controlText
		$.wirecolor = color 87 224 87
		--$.parent = Rect_CTRL
		CTRLCTRL = Ngon radius:2 cornerRadius:0 nsides:4 circular:off scribe:1 render_renderable:true render_displayRenderMesh:true transform:(matrix3 [1,0,0] [0,0,1] [0,-1,0] [controlXPos,0,controlZPos - 6.25]) isSelected:on
		$.name = "DOWN_CTRL_" + controlText
		$.wirecolor = color 87 224 87
		--$.parent = Rect_CTRL
		$.pos.controller = position_list ()
		$.pos.controller.weight[1] = 100

		--macros.run "Parameter Wire" "paramWire"
		--paramWire.connect $.pos.controller.Position_XYZ.controller[#Z_Position] $bottom_Teeth.modifiers[#Morpher][#_38__Jaw_Open___No_Target_] "(Z_Position-380)*10"
		
		controlXPos = 25 + controlXPos
		xCounter = 1 + xCounter
		if (xCounter > 3) do
		(
			xCounter = 0
			controlXPos = controlXPos - 100
			controlZPos = controlZPos - 30
		)
	)
)
createDialog ssRoll 200 160