XeNTaX

Code: Select all

fn Half2Float u=
(

	sign = bit.and ( bit.shift u -15 ) 0x00000001
	exponent = bit.and ( bit.shift u -10 ) 0x0000001F
	mantis = bit.and u 0x000003FF

	if (exponent == 0) then
	(
		if(mantis == 0) then
		(
			return bit.shift sign 31
		)
		else
		(
                        tmp = bit.and mantis 0x00000400
			while ( tmp !=0  ) do
			(
				mantis = bit.shift mantis 1
				exponent -=1
			)
			exponent = exponent +1	
			mantis = bit.and mantis 0x00000400 --> should be ~0x00000400
		)
	)
	if(exponent == 31) then
	(
		if( mantis ==0) then 
			return bit.or (bit.shift sign 31) 0x7F800000
		else
			return bit.or (bit.or (bit.shift sign 31) 0x7F800000 ) (bit.shift mantis 13)
	)	
	
	exponent = exponent + (127-15)
	mantis = bit.shift mantis 13
	
	val = bit.or ( bit.or (bit.shift sign 31) ( bit.shift exponent 23) ) (mantis)
	
	fOut = fopen "test.bin" "wb"
	writelong fOut val
	fflush fOut
	fclose fOut

	fIn = fopen "test.bin" "rb"
	var = readfloat fIn
	fclose fIn
	
	return var 
)

Code: Select all

fn process_models modelfolder= (

  model_files = #()
  model_type = ".m3g"

  -- Get all the m3g files	
  diff_files = modelFolder  + model_type  
  thefiles = getfiles diff_files
	
  for f in thefiles do	
  (
    append model_files ((getfilenamefile f) + model_type)
  )

  model_files -- return this
)	

ClearListener()
process_models "K:\\Programme\\Autodesk\\3ds Max 2013\\scripts\\RR3\\*"
print model_files

Code: Select all

/*!--------------------------------------------------------------------------------------------------------------------
 * @file split smoothing groups into elements
 * @details File contains split smoothing groups to elements function realisation.
 * @author Aviator777 / Tank
 * @copyright
 * @version 1.0
 * @date 28.08.2015
 *---------------------------------------------------------------------------------------------------------------------
 */
 
 /*
 Notes:
 Use Editable Poly mode, before applying this script, apply to model autosmooth, or use appropriate smooth groups !
 */

global groupIDsUsed = #()

fn processSelection tmesh = 
(
	try 
	(
		local faceCount = tmesh.getNumFaces()
		for f = 1 to faceCount  do 
		(
			local groupID  = (polyop.getFaceSmoothGroup tmesh f)
			appendIfUnique groupIDsUsed groupID
		)

		for g = 1 to groupIDsUsed.count do 
		(
			local faceGroup = #()
			for i = 1 to faceCount do
			(
				local polygonGroupID  = (polyop.getFaceSmoothGroup tmesh i) as integer
				if polygonGroupID == (groupIDsUsed[g] as integer) do
				(
					append faceGroup i
				)
			)
			polyop.detachFaces tmesh faceGroup asNode:false
		)
		messageBox "Done !" title:"Information"
	)
	catch
	(
		print "Could not split smoothing groups into elements."
	)
)
rollout spl "Split tool" width:176 height:104
(
	button 'btn1' "Split Groups Into Elements" pos:[22,24] width:140 height:58 align:#left tooltip:"Split Polygon Smoothing Groups Into Elements"
	on btn1 pressed do
	(
		clearListener()
		sl = $selection
		if sl.count > 0 do 
		(
			processSelection sl[1]
		)
		
	)
)
createDialog spl