rollout detecteCollision "Collision tool" width:176 height:162
(
	pickbutton btn1 "Pick Master Object" pos:[18,13] width:139 height:34
	button btn2 "Pick collision objects" pos:[18,58] width:139 height:34
	button btn3 "Select collisions" pos:[18,111] width:139 height:34
	local slaves = #(), master, collison = #()
	on btn1 picked obj do
	(
		master = obj
		if superclassof obj == GeometryClass do addmodifier obj (vol__Select())
		master.modifiers[1].level = 2
		master.modifiers[1].type = 1
		master.modifiers[1].method = 0
		master.modifiers[1].volume = 3
		select master
		max modify mode
	)
	on btn2 pressed do
	(
		slaves = selectbyname()
	)
	on btn3 pressed do
	(
		select master
		max modify mode
		if isvalidobj master and slaves.count > 0 do
		(
			for i in slaves do
			(
				master.modifiers[1].node = i
				if ((getfaceselection master) as array).count > 0 do append collison i
			)
			deletemodifier master master.modifiers[1]
			select collison
		)
	)
)
createdialog detecteCollision