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

SCM Repository

[sml3d] Diff of /trunk/sml3d/src/particles/compiler/translate.sml
ViewVC logotype

Diff of /trunk/sml3d/src/particles/compiler/translate.sml

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

revision 1152, Sun May 8 08:55:38 2011 UTC revision 1155, Tue May 10 04:56:42 2011 UTC
# Line 621  Line 621 
621               letPRIM("avoidZero", IR.T_FLOAT, IR.MAX, [psvToIRVar(env, epsilon), absDot], fn dot =>               letPRIM("avoidZero", IR.T_FLOAT, IR.MAX, [psvToIRVar(env, epsilon), absDot], fn dot =>
622           letPRIM("dnRecip", IR.T_FLOAT, IR.DIV, [IR.newConst("One", IR.C_FLOAT 1.0), dot], fn dnRecip =>           letPRIM("dnRecip", IR.T_FLOAT, IR.DIV, [IR.newConst("One", IR.C_FLOAT 1.0), dot], fn dnRecip =>
623           letPRIM("sign", IR.T_FLOAT, IR.MULT, [dnRecip, dotNorm], fn sign =>           letPRIM("sign", IR.T_FLOAT, IR.MULT, [dnRecip, dotNorm], fn sign =>
624           letPRIM(retNorm, IR.T_VEC, IR.SCALE, [sign, psvToIRVar(env, normal)],           letPRIM("notNorm", IR.T_VEC, IR.SCALE, [sign, psvToIRVar(env, normal)], fn notNorm =>
625             letPRIM(retNorm, IR.T_VEC, IR.NORM, [notNorm],
626             fn newNormVar => gotoWithArgs(env, [newNormVar], nextBlk)))))             fn newNormVar => gotoWithArgs(env, [newNormVar], nextBlk)))))
627           )))           ))))
628    
629             | P.D_DISC{pt, normal, irad, orad} =>             | P.D_DISC{pt, normal, irad, orad} =>
630                normAtPoint(retNorm, P.D_PLANE{pt=pt, normal=normal}, env, pos, k)                normAtPoint(retNorm, P.D_PLANE{pt=pt, normal=normal}, env, pos, k)

Legend:
Removed from v.1152  
changed lines
  Added in v.1155

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