Home My Page Projects Code Snippets Project Openings 3D graphics for Standard ML
Summary Activity SCM

SCM Repository

[sml3d] Diff of /trunk/sml3d/examples/md3-viewer/load-md3.sml
ViewVC logotype

Diff of /trunk/sml3d/examples/md3-viewer/load-md3.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 391, Tue Jan 13 23:01:40 2009 UTC revision 392, Wed Jan 14 04:33:48 2009 UTC
# Line 9  Line 9 
9   *      http://linux.ucla.edu/~phaethon/q3/formats/md3format.html   *      http://linux.ucla.edu/~phaethon/q3/formats/md3format.html
10   *)   *)
11    
12  structure LoadMD3 (*: sig  structure LoadMD3 : sig
13    
14     datatype bone      val loadFile : string -> MD3.model
15    
16      datatype header    end = struct
   
     datatype tag -  
   
     datatype mesh_header  
   
     datatype vertex  
   
     datatype model  
   
     datatype mesh_object  
   
   end*) = struct  
17    
18      structure W8V = Word8Vector      structure W8V = Word8Vector
19      structure DB = DataBuffer      structure DB = DataBuffer
# Line 287  Line 275 
275                        val (v1, v2, v3) = readTriangle inS                        val (v1, v2, v3) = readTriangle inS
276                        val i = 3*i                        val i = 3*i
277                        in                        in
278    (*
279  print(concat["T[", StringCvt.padLeft #" " 3 (Int.toString i), "] = (",  print(concat["T[", StringCvt.padLeft #" " 3 (Int.toString i), "] = (",
280  Word.fmt StringCvt.DEC v1, ", ",  Word.fmt StringCvt.DEC v1, ", ",
281  Word.fmt StringCvt.DEC v2, ", ",  Word.fmt StringCvt.DEC v2, ", ",
282  Word.fmt StringCvt.DEC v3, ")\n"]);  Word.fmt StringCvt.DEC v3, ")\n"]);
283    *)
284                          DB.setui(buf, i, v1);                          DB.setui(buf, i, v1);
285                          DB.setui(buf, i+1, v2);                          DB.setui(buf, i+1, v2);
286                          DB.setui(buf, i+2, v3)                          DB.setui(buf, i+2, v3)
# Line 316  Line 306 
306                        fun read i = let                        fun read i = let
307                              val (v, n) = readVertex inS                              val (v, n) = readVertex inS
308                              in                              in
309  (**)  (*
310  print(concat["V[", StringCvt.padLeft #" " 3 (Int.toString i), "] v = ",  print(concat["V[", StringCvt.padLeft #" " 3 (Int.toString i), "] v = ",
311  t2s v, ", n = ", t2s n, "\n"]);  t2s v, ", n = ", t2s n, "\n"]);
312  (**)  *)
313                                DB.set3f (vBuf, i, v);                                DB.set3f (vBuf, i, v);
314                                DB.set3f (vBuf, i, n)                                DB.set3f (nBuf, i, n)
315                              end                              end
316                        in                        in
317                          repeati read numVerts;                          repeati read numVerts;

Legend:
Removed from v.391  
changed lines
  Added in v.392

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0