fn ReadFaces f =
(
HEADER = ReadLong f
if ( HEADER == 360677247 ) then -- 7F7F7F15
(
fa=readshort f #unsigned+1
fb=readshort f #unsigned+1
fc=readshort f #unsigned+1
ta1=readlong f
ta1=readlong f
ta1=readshort f
append Face_array[fa,fb,fc]
)
else if ( HEADER == 159350655 ) then
(
fa=readshort f #unsigned+1
fb=readshort f #unsigned+1
fc=readshort f #unsigned+1
ta1=readlong f
ta1=readlong f
ta1=readlong f
ta1=readshort f
append Face_array[fa,fb,fc]
)
else if ( HEADER == 92241791 ) then
(
fa=readshort f #unsigned+1
fb=readshort f #unsigned+1
fc=readshort f #unsigned+1
ta1=readlong f
ta1=readlong f
ta1=readshort f
append Face_array[fa,fb,fc]
)
else if ( HEADER == 208685112 ) then -- 0C704838
(
fa=readshort f #unsigned+1
fb=readshort f #unsigned+1
fc=readshort f #unsigned+1
ta1=readlong f
ta1=readlong f
ta1=readshort f
append Face_array[fa,fb,fc]
)
else if ( HEADER == 92307584 ) then -- 80808005
(
fa=readshort f #unsigned+1
fb=readshort f #unsigned+1
fc=readshort f #unsigned+1
ta1=readlong f
ta1=readlong f
ta1=readlong f
ta1=readshort f
append Face_array[fa,fb,fc]
)
else if ( HEADER == 67108864 ) then -- 00000004
(
fa=readshort f #unsigned+1
fb=readshort f #unsigned+1
fc=readshort f #unsigned+1
ta1=readshort f
append Face_array[fa,fb,fc]
)
else if ( HEADER == 159416448 ) then -- 80808009
(
fa=readshort f #unsigned+1
fb=readshort f #unsigned+1
fc=readshort f #unsigned+1
ta1=readlong f
ta1=readlong f
ta1=readlong f
ta1=readlong f
ta1=readshort f
append Face_array[fa,fb,fc]
)
)