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

SCM Repository

[sml3d] Diff of /examples/brick/shader.sml
ViewVC logotype

Diff of /examples/brick/shader.sml

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

revision 203, Mon Jun 16 15:25:49 2008 UTC revision 204, Mon Jun 16 15:26:10 2008 UTC
# Line 38  Line 38 
38                else raise Fail(SL.programLog brickProg);                else raise Fail(SL.programLog brickProg);
39              SL.useProgram (SOME brickProg);              SL.useProgram (SOME brickProg);
40            (* setup initial uniform values *)            (* setup initial uniform values *)
41              SL.uniform3f (SL.lookupUniform (brickProg, "BrickColor"), (1.0, 0.3, 0.2));              SL.uniform3f (SL.lookupUniform (brickProg, "BrickColor")) (1.0, 0.3, 0.2);
42              SL.uniform3f (SL.lookupUniform (brickProg, "MortarColor"), (0.85, 0.86, 0.84));              SL.uniform3f (SL.lookupUniform (brickProg, "MortarColor")) (0.85, 0.86, 0.84);
43              SL.uniform2f (SL.lookupUniform (brickProg, "BrickSize"), (0.30, 0.15));              SL.uniform2f (SL.lookupUniform (brickProg, "BrickSize")) (0.30, 0.15);
44              SL.uniform2f (SL.lookupUniform (brickProg, "BrickPct"), (0.90, 0.85));              SL.uniform2f (SL.lookupUniform (brickProg, "BrickPct")) (0.90, 0.85);
45              SL.uniform3f (SL.lookupUniform (brickProg, "LightPosition"), (0.0, 0.0, 4.0))              SL.uniform3f (SL.lookupUniform (brickProg, "LightPosition")) (0.0, 0.0, 4.0)
46            end            end
47    
48    end    end

Legend:
Removed from v.203  
changed lines
  Added in v.204

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