XeNTaX

Code: Select all

if (heapSize < 20000000) then
	heapSize = 200000000 -- allow ~ 40 MB instead of just 7.5 MB. Prevents "Runtime Error: Out of scripter memory"

fname = getOpenFileName \ 
caption:"Open Tiger Woods Model File" \
types:"Tiger Woods Model File(*.rsf)|*.rsf" \
historyCategory:"Tiger Woods Object Presets"
f = fopen fname "rb"


fn floatSwap2 f = 
(
	i = bit.floatAsInt f
	h = bit.intashex i
	while h.count < 8 do h = "0" + h
	s = (substring h 7 2) + (substring h 5 2) + (substring h 3 2) + (substring h 1 2)
	bit.intAsFloat (bit.hexasint s)
)	
fn ReadBEfloat fstream = (
return floatSwap2(readfloat fstream)
)
fn PrintOffset Var =
(
	local Var = Var
print ("This is the offset 0x" + (bit.intAsHex Var) as string)
	Var
)
fn PrintCount Var =
(
	local Var = Var
print ("This is the Count 0x" + (bit.intAsHex Var) as string)
	Var
)

fn ReadBEword fstream = (
return (bit.swapBytes (readshort fstream #unsigned) 1 2)
)

  	fn convertTo32 input16 = (
 		inputAsInt = input16
 		sign = bit.get inputAsInt 16
 		exponent = (bit.shift (bit.and inputAsInt (bit.hexasint "7C00")) -10) as integer - 16
 		fraction = bit.and inputAsInt (bit.hexasint "03FF")
 		if sign==true then sign = 1 else sign = 0
 		exponentF = exponent + 127
 		--Ouput 32 bit integer representing a 32 bit float
 		outputAsFloat = bit.or (bit.or (bit.shift fraction 13) (bit.shift exponentF 23)) (bit.shift sign 31)
 		--Output Check	
 		return bit.intasfloat outputasfloat
 	)

fn ReadBEHalfFloat fstream = (
return convertTo32(ReadBEword fstream)
)
 

fn ReadBElong fstream = (
long = readlong fstream
long = bit.swapBytes long 1 4
long = bit.swapBytes long 2 3
return long
)


fn ReadFixedString bstream fixedLen =
(
	local str = ""
	for i = 1 to fixedLen do
	(
		str += bit.intAsChar (ReadByte bstream #unsigned)
	)
	str
)


struct Face_Offset_Struct
(
	ID,Face_Offset
)

struct Vert_Info_Struct
(
	u01,u02,u03,VCount,FCount,n01,u04,VPos,FPos,n02,n03
)
magicsize = 16
moegsize = 20
MRTS_Array = #()
XDNI_Array = #()
fseek f 0x18#seek_set
infosize = ReadLong f

fseek f 0x20#seek_set
modelnamesize = Readlong f
modelname = ReadFixedString f modelnamesize

--break()
fseek f (infosize + magicsize + 8)#seek_set
dlibsize = Readlong f
--break()
fseek f (infosize+magicsize+dlibsize+16)#seek_set

nbrTFMV = Readlong f
regionsize=0
--break()
for t = 1 to nbrTFMV do (
  idstring = ReadFixedString f 4
 
  secsize = Readlong f
  regionsize = secsize+regionsize +8	
  fseek f (infosize+magicsize+dlibsize+moegsize+regionsize)#seek_set
  idstring = ReadFixedString f 4
  if idstring !="TMFV" do(
    regionsize = regionsize+1
   )
  fseek f (infosize+magicsize+dlibsize+moegsize+regionsize)#seek_set
 --break()
)

numobjects = Readlong f
Vert_array = #()
Normal_array = #()
UV_array = #()
Face_array = #()
--break()
for i=1 to numobjects do(
	SecStart = (ftell f)
	idstring = ReadFixedString f 4
	print idstring
	SecHeader = 17
	
	fseek f 0x05#seek_cur
	--break()
	NumVerts = Readlong f
	VertLength = Readlong f
	VertType = Readlong f
	SecSize = VertLength * NumVerts
	
	--break()
	for k=1 to NumVerts do (
		if VertLength == 44 Do (
		vx = Readfloat f
		vy = Readfloat f
		vz = Readfloat f
		tu = Readfloat f
		tv = Readfloat f
		uk = Readfloat f
		uk = Readfloat f
		uk = Readfloat f
		uk = Readfloat f
		uk = Readfloat f
		uk = Readfloat f
		)
		if VertLength == 32 Do (
		vx = ReadBEfloat f
		vy = ReadBEfloat f
		vz = ReadBEfloat f
		tu = Readfloat f
		tv = Readfloat f
		uk = Readfloat f
		uk = Readfloat f
		uk = Readfloat f
		
		)
		if VertLength == 52 Do (
		vx = ReadBEfloat f
		vy = ReadBEfloat f
		vz = ReadBEfloat f
		tu = Readfloat f
		tv = Readfloat f
		uk = Readfloat f
		uk = Readfloat f
		uk = Readfloat f
		uk = Readfloat f
		uk = Readfloat f
		uk = Readfloat f
		uk = Readfloat f
		uk = Readfloat f
		)
		
		--break()
		
		append Vert_array [vx,vy,vz]
		--append Normal_array [nx,ny,nz]
		append UV_array [tu,tv,0]
	)
	--break()
)
--break()
numobjects = Readlong f
print numobjects
--break()
for i=1 to numobjects do(
	SecStart = (ftell f)
	idstring = ReadFixedString f 4
	print idstring
	SecHeader = 17
	fseek f 0x05#seek_cur
	NumFace = Readlong f
	NumFace = NumFace / 3
	SecSize = (NumFace*2)
	--break()
	append XDNI_Array SecStart
	for k = 1 to NumFace do (
		f1= Readshort f +1
		f2 = Readshort f +1
		f3 = Readshort f +1
		append Face_array [(f1),(f3),(f2)]
		
		
		--break()
	)
	fseek f 0x04#seek_cur
	SecEnd= (ftell f)
	
	--break()
)
break()
msh = mesh vertices:Vert_array faces:Face_array
break()
msh.numTVerts = UV_array.count
break()
buildTVFaces msh
for j = 1 to UV_array.count do setTVert msh j UV_array[j]
for j = 1 to Face_array.count do setTVFace msh j Face_array[j]
for j = 1 to Normal_array.count do setNormal msh j Normal_array[j]
fclose f