----------------------------------------------------------------------------------
--Vertices by Edge number
--(C) Sam O'Hare, Uniform Communications Ltd, June 2006
--Email sam.ohare@pixelpollen.com
--Version 0.1
--Current Functionality
--Allow selection of vertices based on the number of edges they connect
--Proposed Functionality:
--
--Version History
--0.1 Original version
----------------------------------------------------------------------------------

macroScript VEN category:"Dusk" tooltip:"Vertices by Edge Number" 
icon:#("Uniform",9)
(
if classof $ == Editable_Poly then 
	(
	
		fn Vert_Test vertlist number =
		(
			badverts = for i in vertlist where (((polyop.getEdgesUsingVert $ i) as array).count) == number collect i
			polyop.setVertSelection $ (badverts as bitarray)
			redrawViews()
		)
		
		rollout VEN "Verts by Edge Number"
		(
			group "Main" 
			(
				spinner num_edges_spin "Edges:" type:#integer range:[0,99999,0] across:2 align:#left offset:[0,0] width:80
				button Go "Go" offset:[13,0] height:16
			)
			on go pressed do vert_test (polyop.getvertselection $) num_edges_spin.value
		)--End rollout
		createdialog VEN 130 60
	)--End if poly
)--End macroscript