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

SCM Repository

[sml3d] Diff of /trunk/sml3d/src/loaders/obj/load-obj.sml
ViewVC logotype

Diff of /trunk/sml3d/src/loaders/obj/load-obj.sml

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

revision 1021, Wed Jan 19 04:50:55 2011 UTC revision 1022, Wed Jan 19 05:32:24 2011 UTC
# Line 141  Line 141 
141                          | MS.Ka c => (assign ("Ka", ka, c); loop ())                          | MS.Ka c => (assign ("Ka", ka, c); loop ())
142                          | MS.Ks c => (assign ("Ks", ks, c); loop ())                          | MS.Ks c => (assign ("Ks", ks, c); loop ())
143                          | MS.Tr r => (assign ("Tr", tr, r); loop())                          | MS.Tr r => (assign ("Tr", tr, r); loop())
144                            | MS.Tf c => loop() (* FIXME *)
145                          | MS.Illum i => (assign ("illum", illum, i); loop())                          | MS.Illum i => (assign ("illum", illum, i); loop())
146                          | MS.Sharpness _ => loop ()                          | MS.Sharpness _ => loop ()
147                          | MS.MapKd texFile => (assign ("map_ka", mapKA, texFile); loop ())                          | MS.MapKd texFile => (assign ("map_ka", mapKA, texFile); loop ())
148                          | MS.MapKa texFile => (assign ("map_kd", mapKD, texFile); loop ())                          | MS.MapKa texFile => (assign ("map_kd", mapKD, texFile); loop ())
149                          | MS.MapKs texFile => (assign ("map_ks", mapKS, texFile); loop ())                          | MS.MapKs texFile => (assign ("map_ks", mapKS, texFile); loop ())
150                          | MS.MapBump _ => loop ()                          | MS.MapBump _ => loop () (* FIXME *)
151                          | MS.MapRefl _ => loop ()                          | MS.MapRefl _ => loop () (* FIXME *)
152                          | MS.MapTr _ => loop ()                          | MS.MapTr _ => loop () (* FIXME *)
153                          | MS.UNKNOWN ln => (                          | MS.UNKNOWN ln => (
154                              error ["unknown spec \"", String.toString ln, "\""];                              error ["unknown spec \"", String.toString ln, "\""];
155                              loop ())                              loop ())

Legend:
Removed from v.1021  
changed lines
  Added in v.1022

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