ff= getdir #maxroot as string
bm0 =  ff+ "\\FaceENGINE\Maps\v0.bmp"
bm1 =  ff+ "\\FaceENGINE\Maps\v1.bmp"
bm2 =  ff+ "\\FaceENGINE\Maps\v2.bmp"
bm3 =  ff+ "\\FaceENGINE\Maps\v3.bmp"
bm4 =  ff+ "\\FaceENGINE\Maps\v4.bmp"
bm5 =  ff+ "\\FaceENGINE\Maps\v5.bmp"
bm6 =  ff+ "\\FaceENGINE\Maps\v6.bmp"
bm7 =  ff+ "\\FaceENGINE\Maps\v7.bmp"
bm8 =  ff+ "\\FaceENGINE\Maps\v8.bmp"
bm9 =  ff+ "\\FaceENGINE\Maps\v9.bmp"
bm10 = ff+ "\\FaceENGINE\Maps\v10.bmp"
bm11 = ff+ "\\FaceENGINE\Maps\v11.bmp"
bm12 = ff+ "\\FaceENGINE\Maps\v12.bmp"
bm13 = ff+ "\\FaceENGINE\Maps\v13.bmp"
bm14 = ff+ "\\FaceENGINE\Maps\v14.bmp"
bm15 = ff+ "\\FaceENGINE\Maps\v15.bmp"
bm16 = ff+ "\\FaceENGINE\Maps\v16.bmp"
bm17 = ff+ "\\FaceENGINE\Maps\v17.bmp"
bm18 = ff+ "\\FaceENGINE\Maps\v18.bmp"
bm19 = ff+ "\\FaceENGINE\Maps\v19.bmp"
bm20 = ff+ "\\FaceENGINE\Maps\v20.bmp"
bm21 = ff+ "\\FaceENGINE\Maps\v21.bmp"
bm22 = ff+ "\\FaceENGINE\Maps\v22.bmp"
bm23 = ff+ "\\FaceENGINE\Maps\v23.bmp"
bm24 = ff+ "\\FaceENGINE\Maps\v24.bmp"
bm25 = ff+ "\\FaceENGINE\Maps\v25.bmp"
bm26 = ff+ "\\FaceENGINE\Maps\v26.bmp"
bm27 = ff+ "\\FaceENGINE\Maps\v27.bmp"
bm28 = ff+ "\\FaceENGINE\Maps\v28.bmp"
bm29 = ff+ "\\FaceENGINE\Maps\v29.bmp"
bm30 = ff+ "\\FaceENGINE\Maps\v30.bmp"
bm31 = ff+ "\\FaceENGINE\Maps\v31.bmp"
bm32 = ff+ "\\FaceENGINE\Maps\v32.bmp"
bm33 = ff+ "\\FaceENGINE\Maps\v33.bmp"
bm34 = ff+ "\\FaceENGINE\Maps\v34.bmp"
bm35 = ff+ "\\FaceENGINE\Maps\v35.bmp"
bm36 = ff+ "\\FaceENGINE\Maps\v36.bmp"
bm37 = ff+ "\\FaceENGINE\Maps\v37.bmp"
bm38 = ff+ "\\FaceENGINE\Maps\v38.bmp"
bm39 = ff+ "\\FaceENGINE\Maps\v39.bmp"
bm40 = ff+ "\\FaceENGINE\Maps\v40.bmp"
bm41 = ff+ "\\FaceENGINE\Maps\v41.bmp"
bm42 = ff+ "\\FaceENGINE\Maps\v42.bmp"
bm43 = ff+ "\\FaceENGINE\Maps\v43.bmp"
bm44 = ff+ "\\FaceENGINE\Maps\v44.bmp"
bm45 = ff+ "\\FaceENGINE\Maps\v45.bmp"
bm46 = ff+ "\\FaceENGINE\Maps\v46.bmp"
bm47 =  ff+ "\\FaceENGINE\Maps\v47.bmp"
bm48 =  ff+ "\\FaceENGINE\Maps\v48.bmp"
bm49 =  ff+ "\\FaceENGINE\Maps\v49.bmp"
bm50 = ff+ "\\FaceENGINE\Maps\v50.bmp"
bm51 = ff+ "\\FaceENGINE\Maps\v51.bmp"
bm52 = ff+ "\\FaceENGINE\Maps\v52.bmp"
bm53 = ff+ "\\FaceENGINE\Maps\v53.bmp"
bm54 = ff+ "\\FaceENGINE\Maps\v54.bmp"
bm55 = ff+ "\\FaceENGINE\Maps\v55.bmp"
bm56 = ff+ "\\FaceENGINE\Maps\v56.bmp"
bm57 = ff+ "\\FaceENGINE\Maps\v57.bmp"
bm58 = ff+ "\\FaceENGINE\Maps\v58.bmp"
bm59 = ff+ "\\FaceENGINE\Maps\v59.bmp"
bm60 = ff+ "\\FaceENGINE\Maps\v60.bmp"
bm61 = ff+ "\\FaceENGINE\Maps\v61.bmp"
bm62 = ff+ "\\FaceENGINE\Maps\v62.bmp"
bm63 = ff+ "\\FaceENGINE\Maps\v63.bmp"
bm64 = ff+ "\\FaceENGINE\Maps\v64.bmp"
bm65 = ff+ "\\FaceENGINE\Maps\v65.bmp"
bm66 = ff+ "\\FaceENGINE\Maps\v66.bmp"
bm67 = ff+ "\\FaceENGINE\Maps\v67.bmp"
bm68 = ff+ "\\FaceENGINE\Maps\v68.bmp"
bm69 = ff+ "\\FaceENGINE\Maps\v69.bmp"
bm70 = ff+ "\\FaceENGINE\Maps\v70.bmp"
bm71 = ff+ "\\FaceENGINE\Maps\v71.bmp"
bm72 = ff+ "\\FaceENGINE\Maps\v72.bmp"
bm73 = ff+ "\\FaceENGINE\Maps\v73.bmp"
bm74 = ff+ "\\FaceENGINE\Maps\v74.bmp"
bm75 = ff+ "\\FaceENGINE\Maps\v75.bmp"
bm76 = ff+ "\\FaceENGINE\Maps\v76.bmp"
bm77 = ff+ "\\FaceENGINE\Maps\v77.bmp"
bm78 = ff+ "\\FaceENGINE\Maps\v78.bmp"
bm79 = ff+ "\\FaceENGINE\Maps\v79.bmp"
bm80 = ff+ "\\FaceENGINE\Maps\v80.bmp"
bm81 = ff+ "\\FaceENGINE\Maps\v81.bmp"
bm82 = ff+ "\\FaceENGINE\Maps\v82.bmp"
bm83 = ff+ "\\FaceENGINE\Maps\v83.bmp"
bm84 = ff+ "\\FaceENGINE\Maps\v84.bmp"
bm85 = ff+ "\\FaceENGINE\Maps\v85.bmp"
bm86 = ff+ "\\FaceENGINE\Maps\v86.bmp"
bm87 = ff+ "\\FaceENGINE\Maps\v87.bmp"
bm88 = ff+ "\\FaceENGINE\Maps\v88.bmp"
bm89 = ff+ "\\FaceENGINE\Maps\v89.bmp"
bm90 = ff+ "\\FaceENGINE\Maps\v90.bmp"
bm91 = ff+ "\\FaceENGINE\Maps\v91.bmp"
bm92 = ff+ "\\FaceENGINE\Maps\v92.bmp"
bm93 = ff+ "\\FaceENGINE\Maps\v93.bmp"
bm94 = ff+ "\\FaceENGINE\Maps\v94.bmp"
bm95 = ff+ "\\FaceENGINE\Maps\v95.bmp"
bm96 = ff+ "\\FaceENGINE\Maps\v96.bmp"
bm97 = ff+ "\\FaceENGINE\Maps\v97.bmp"
bm98 = ff+ "\\FaceENGINE\Maps\v98.bmp"
bm99 = ff+ "\\FaceENGINE\Maps\v99.bmp"
bm100 = ff+ "\\FaceENGINE\Maps\v100.bmp"
bm101 = ff+ "\\FaceENGINE\Maps\close.bmp"



i=0
z=0


----------------------------------
rollout cf "FaceENGINE FACIAL VERTEX SELECTOR " width:450 height:400
(
button resim width:400 height:300 images:#(bm0,undefined,1,1,1,1,1)
enabled:false
pickbutton chooseit  "Select The Face Model" width:140 height:20 
--pickbutton chooseit2 "Select The Right Eye " width:140 height:20 
--pickbutton chooseit3 "Select The Left Eye" width:140 height:20 
--pickbutton chooseit4 "Select The Top Teeth" width:140 height:20 
--pickbutton chooseit5 "Select The Bottom Teeth " width:140 height:20 

button c "Select Head Vertex 1" width:140 height:20 
enabled:false
 
----------------------------------------------------------------------
on chooseit picked obj do
( 
ff= getdir #maxroot as string
fff= ff + "\\FaceENGINE"
ccc=ff+   "\\FaceENGINE\Def\FaceVERTEX.txt"
mmm= ff+   "\\FaceENGINE\Def\MScale.txt"
bbb= ff+   "\\FaceENGINE\Def\Bounds.txt"




newTXT = createFile ccc
Mtext = createFile mmm
Btext = createfile bbb

 
 if obj != undefined do
 (
 
 chooseit.text = obj.name
 global obje = getnodebyname chooseit.text 
 --print chooseit.text to:newTXT 

   )
centerpivot obje
en= obje.min
boy=obje.max
valuex=en.x
valuey=en.y
valuez=en.z
valuex2=boy.x
valuey2=boy.y
valuez2=boy.z
scx=en.x-boy.x
scy=en.y-boy.y
scz=en.z-boy.z
ortx=(valuex+valuex2)/2
orty= (valuey+valuey2)/2
ortz= (valuez+valuez2)/2
--print " HEAD "  to: Btext
print en to: Btext
print boy to: Btext
print valuex to: Btext
print valuey to: Btext
print valuez to: Btext
print valuex2 to: Btext
print valuey2 to: Btext
print valuez2 to: Btext
print scx to: Btext
print scy to: Btext
print scz to: Btext
print ortx to: Btext
print orty to: Btext
print ortz to: Btext
--chooseit.enabled=false 

--button chooseit end 
----------------------------------------------------------------


select obje
modPanel.addModToSelection (Mesh_Select ()) ui:on
subobjectlevel = 1 
chooseit.enabled=false
select obje.verts[1]
resim.images = #(bm1, undefined, 1, 1, 1, 1, 1)
c.enabled=true
)
----------------------------------------------------------------


spinner sp " Hedra Radius for selected points"
	local isspinner = false
	local firstundo = false
    
	on sp changed val do (
		local useundo = (isspinner and firstundo) or (not isspinner)
		undo "changed" useundo (
			$hedra*.radius = val
			$bone*.width = val
			$bone*.height = val
			--$point*.size = val
		)
		firstundo = false
	)
	on sp buttonDown do (
		isspinner = true
		firstundo = true
	)
	
	on sp buttonUp do (
		isspinner = false
	)



----------------------------------------------------------------



-----------------------------------------------------------------



on c pressed do
(

ff= getdir #maxroot as string
fff= ff + "\\FaceENGINE"
ccc=ff+   "\\FaceENGINE\Def\FaceVERTEX.txt"
mmm= ff+   "\\FaceENGINE\Def\MScale.txt"
bbb= ff+   "\\FaceENGINE\Def\Bounds.txt"

if obj != undefined do
--modPanel.addModToSelection (Mesh_Select ()) ui:on
subobjectlevel = 1 
selectedVert=getVertSelection $ as array
a=$.selectedverts 
vertPosition= meshop.getVert $ selectedVert [1] 
c.text = "Select Head Vertex " + selectedVert as string
  
  if selectedVert [1]  > 1  do  
      (
  Hedra family:2 scalep:100 scaleq:100 scaler:100 radius:0.025  pos:vertPosition
   i += 1
   z=i+1
   nowtext = openfile ccc mode: "a+"  
   Mtext = openfile mmm mode: "a+"
   strin="POP" + i as string +"="+ vertPosition as string
   print strin to: nowtext  
   
		if i==0 do
           ( 
           resim.images = #(bm1, undefined, 1, 1, 1, 1, 1)
		   
		   )
		
if i==1 do
( 
resim.images = #(bm2, undefined, 1, 1, 1, 1, 1)
)

if i==2 do
( 
resim.images = #(bm3, undefined, 1, 1, 1, 1, 1)
--ard=$hedra01.radius as string
--print ard to: Mtext
)
if i==3 do
( 
resim.images = #(bm4, undefined, 1, 1, 1, 1, 1)
)
if i==4 do
( 
resim.images = #(bm5, undefined, 1, 1, 1, 1, 1)
)
if i==5 do
( 
resim.images = #(bm6, undefined, 1, 1, 1, 1, 1)
)
if i==6 do
( 
resim.images = #(bm7, undefined, 1, 1, 1, 1, 1)
)
if i==7 do
( 
resim.images = #(bm8, undefined, 1, 1, 1, 1, 1)
)

if i==8 do
( 
resim.images = #(bm9, undefined, 1, 1, 1, 1, 1)
)
if i==9 do
( 
resim.images = #(bm10, undefined, 1, 1, 1, 1, 1)
)
if i==10 do
( 
resim.images = #(bm11, undefined, 1, 1, 1, 1, 1)
)
if i==11 do
( 
resim.images = #(bm12, undefined, 1, 1, 1, 1, 1)
)

if i==12 do
( 
resim.images = #(bm13, undefined, 1, 1, 1, 1, 1)
)

if i==13 do
( 
resim.images = #(bm14, undefined, 1, 1, 1, 1, 1)
)
  		
if i==14 do
( 
resim.images = #(bm15, undefined, 1, 1, 1, 1, 1)
)

if i==15 do
( 
resim.images = #(bm16, undefined, 1, 1, 1, 1, 1)
)
if i==16 do
( 
resim.images = #(bm17, undefined, 1, 1, 1, 1, 1)
)
if i==17 do
( 
resim.images = #(bm18, undefined, 1, 1, 1, 1, 1)
)
if i==18 do
( 
resim.images = #(bm19, undefined, 1, 1, 1, 1, 1)
)
if i==19 do
( 
resim.images = #(bm20, undefined, 1, 1, 1, 1, 1)
)
if i==20 do
( 
resim.images = #(bm21, undefined, 1, 1, 1, 1, 1)
)
if i==21 do
( 
resim.images = #(bm22, undefined, 1, 1, 1, 1, 1)
)
if i==22 do
( 
resim.images = #(bm23, undefined, 1, 1, 1, 1, 1)
)
if i==23 do
( 
resim.images = #(bm24, undefined, 1, 1, 1, 1, 1)
)
if i==24 do
( 
resim.images = #(bm25, undefined, 1, 1, 1, 1, 1)
)
if i==25 do
( 
resim.images = #(bm26, undefined, 1, 1, 1, 1, 1)
)
if i==26 do
( 
resim.images = #(bm27, undefined, 1, 1, 1, 1, 1)
)

if i==27 do
( 
resim.images = #(bm28, undefined, 1, 1, 1, 1, 1)
)

if i==28 do
( 
resim.images = #(bm29, undefined, 1, 1, 1, 1, 1)
)
if i==29 do
( 
resim.images = #(bm30, undefined, 1, 1, 1, 1, 1)
)

if i==30 do
( 
resim.images = #(bm31, undefined, 1, 1, 1, 1, 1)
)
if i==31 do
( 
resim.images = #(bm32, undefined, 1, 1, 1, 1, 1)
)

if i==32 do
( 
resim.images = #(bm33, undefined, 1, 1, 1, 1, 1)
)

if i==33 do
( 
resim.images = #(bm34, undefined, 1, 1, 1, 1, 1)
)

if i==34 do
( 
resim.images = #(bm35, undefined, 1, 1, 1, 1, 1)
)
if i==35 do
( 
resim.images = #(bm36, undefined, 1, 1, 1, 1, 1)
)
if i==36 do
( 
resim.images = #(bm37, undefined, 1, 1, 1, 1, 1)
)
if i==37 do
( 
resim.images = #(bm38, undefined, 1, 1, 1, 1, 1)
)
if i==38 do
( 
resim.images = #(bm39, undefined, 1, 1, 1, 1, 1)
)
if i==39 do
( 
resim.images = #(bm40, undefined, 1, 1, 1, 1, 1)
)
if i==40 do
( 
resim.images = #(bm41, undefined, 1, 1, 1, 1, 1)
)
if i==41 do
( 
resim.images = #(bm42, undefined, 1, 1, 1, 1, 1)
)
if i==42 do
( 
resim.images = #(bm43, undefined, 1, 1, 1, 1, 1)
)
if i==43 do
( 
resim.images = #(bm44, undefined, 1, 1, 1, 1, 1)
)
if i==44 do
( 
resim.images = #(bm45, undefined, 1, 1, 1, 1, 1)
)
if i==45 do
( 
resim.images = #(bm46, undefined, 1, 1, 1, 1, 1)
)

if i==46 do
( 
resim.images = #(bm47, undefined, 1, 1, 1, 1, 1)
)

if i==47 do
( 
resim.images = #(bm48, undefined, 1, 1, 1, 1, 1)
)

if i==48 do
( 
resim.images = #(bm49, undefined, 1, 1, 1, 1, 1)
)

if i==49 do
( 
resim.images = #(bm50, undefined, 1, 1, 1, 1, 1)
)

if i==50 do
( 
resim.images = #(bm51, undefined, 1, 1, 1, 1, 1)
)


if i==51 do
( 
resim.images = #(bm52, undefined, 1, 1, 1, 1, 1)
)


if i==52 do
( 
resim.images = #(bm53, undefined, 1, 1, 1, 1, 1)
)

if i==53 do
( 
resim.images = #(bm54, undefined, 1, 1, 1, 1, 1)
)

if i==54 do
( 
resim.images = #(bm55, undefined, 1, 1, 1, 1, 1)
)


if i==55 do
( 
resim.images = #(bm56, undefined, 1, 1, 1, 1, 1)
)

if i==56 do
( 
resim.images = #(bm57, undefined, 1, 1, 1, 1, 1)
)


if i==57 do
( 
resim.images = #(bm58, undefined, 1, 1, 1, 1, 1)
)

if i==58 do
( 
resim.images = #(bm59, undefined, 1, 1, 1, 1, 1)
)


if i==59 do
( 
resim.images = #(bm60, undefined, 1, 1, 1, 1, 1)
)


if i==60 do
( 
resim.images = #(bm61, undefined, 1, 1, 1, 1, 1)
)

if i==61 do
( 
resim.images = #(bm62, undefined, 1, 1, 1, 1, 1)
)

if i==62 do
( 
resim.images = #(bm63, undefined, 1, 1, 1, 1, 1)
)

if i==63 do
( 
resim.images = #(bm64, undefined, 1, 1, 1, 1, 1)
)

if i==64 do
( 
resim.images = #(bm65, undefined, 1, 1, 1, 1, 1)
)

if i==65 do
( 
resim.images = #(bm66, undefined, 1, 1, 1, 1, 1)
)

if i==66 do
( 
resim.images = #(bm67, undefined, 1, 1, 1, 1, 1)
)

if i==67 do
( 
resim.images = #(bm68, undefined, 1, 1, 1, 1, 1)
)

if i==68 do
( 
resim.images = #(bm69, undefined, 1, 1, 1, 1, 1)
)

if i==69 do
( 
resim.images = #(bm70, undefined, 1, 1, 1, 1, 1)
)


if i==70 do
( 
resim.images = #(bm71, undefined, 1, 1, 1, 1, 1)
)

if i==71 do
( 
resim.images = #(bm72, undefined, 1, 1, 1, 1, 1)
)

if i==72 do
( 
resim.images = #(bm73, undefined, 1, 1, 1, 1, 1)
)

if i==73 do
( 
resim.images = #(bm74, undefined, 1, 1, 1, 1, 1)
)


if i==74 do
( 
resim.images = #(bm75, undefined, 1, 1, 1, 1, 1)

)

if i==75 do
( 
resim.images = #(bm76, undefined, 1, 1, 1, 1, 1)
)

if i==76 do
( 
resim.images = #(bm77, undefined, 1, 1, 1, 1, 1)
)

if i==77 do
( 
resim.images = #(bm78, undefined, 1, 1, 1, 1, 1)
)

if i==78 do
( 
resim.images = #(bm79, undefined, 1, 1, 1, 1, 1)
)


if i==79 do
( 
resim.images = #(bm80, undefined, 1, 1, 1, 1, 1)
)

if i==80 do
( 
resim.images = #(bm81, undefined, 1, 1, 1, 1, 1)
)


if i==81 do
( 
resim.images = #(bm82, undefined, 1, 1, 1, 1, 1)
)

if i==82 do
( 
resim.images = #(bm83, undefined, 1, 1, 1, 1, 1)
)


if i==83 do
( 
resim.images = #(bm84, undefined, 1, 1, 1, 1, 1)
)



if i==84 do
( 
resim.images = #(bm85, undefined, 1, 1, 1, 1, 1)
)

if i==85 do
( 
resim.images = #(bm86, undefined, 1, 1, 1, 1, 1)
)


if i==86 do
( 
resim.images = #(bm87, undefined, 1, 1, 1, 1, 1)
)

if i==87 do
( 
resim.images = #(bm88, undefined, 1, 1, 1, 1, 1)
)


if i==88 do
( 
resim.images = #(bm89, undefined, 1, 1, 1, 1, 1)
)

if i==89 do
( 
resim.images = #(bm90, undefined, 1, 1, 1, 1, 1)
)


if i==90 do
( 
resim.images = #(bm91, undefined, 1, 1, 1, 1, 1)
)

if i==91 do
( 
resim.images = #(bm92, undefined, 1, 1, 1, 1, 1)
)

if i==92 do
( 
resim.images = #(bm93, undefined, 1, 1, 1, 1, 1)
)

if i==93 do
( 
resim.images = #(bm94, undefined, 1, 1, 1, 1, 1)
)


if i==94 do
( 
resim.images = #(bm95, undefined, 1, 1, 1, 1, 1)
)


if i==95 do
( 
resim.images = #(bm96, undefined, 1, 1, 1, 1, 1)
)

if i==96 do
( 
resim.images = #(bm97, undefined, 1, 1, 1, 1, 1)
)

if i==97 do
( 
resim.images = #(bm98, undefined, 1, 1, 1, 1, 1)
)

if i==98 do
( 
resim.images = #(bm99, undefined, 1, 1, 1, 1, 1)
)

if i==99 do
( 
resim.images = #(bm100, undefined, 1, 1, 1, 1, 1)
)


if i==100 do
( 
resim.images = #(bm101, undefined, 1, 1, 1, 1, 1)
max utility mode 
c.enabled=false
)





if i==13 do  
          (
		  print vertPosition to: Mtext 
		 --valueXYZ = $obje.verts[#{3}].pos
		  --format "value X: % \n" $.pos.x to: Mtext
		  --format "value Y: % \n" $.pos.y to: Mtext
		  
		  )
		 if i==14 do  
          (
		  print vertPosition to: Mtext
		  )
	  c.text = "Select Head Vertex " + z  as string
    )
clearlistener()

)-- button c end
----------------------------------------------------------------

)-- rollout end
createdialog cf