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 1158, Thu May 19 02:08:17 2011 UTC revision 1159, Sat May 21 22:08:20 2011 UTC
# Line 475  Line 475 
475                    (* It's in the cylinder (tube) if it's within both radii and in both planes... *)                    (* It's in the cylinder (tube) if it's within both radii and in both planes... *)
476                    letPRIM(boolVar, IR.T_BOOL, IR.AND, [inPlanes, inBothRad], stmt)                    letPRIM(boolVar, IR.T_BOOL, IR.AND, [inPlanes, inBothRad], stmt)
477                    ))))))))))))))))))))))                    ))))))))))))))))))))))
478  (*  
               | P.D_TRIANGLE {pt1: vec3f var, pt2: vec3f var, pt3: vec3f var}  
               | P.D_PLANE {pt: vec3f var, normal: vec3f var}  
               | P.D_RECT {pt: vec3f var, htvec: vec3f var, wdvec: vec3f var}  
               | P.D_BOX {min: vec3f var, max: vec3f var}  
               | P.D_SPHERE {center: vec3f var, irad: vec3f var, orad: vec3f var}  
               | P.D_CONE {pt1: vec3f var, pt2: vec3f var, irad: float var, orad: float var}  
               | P.D_BLOB {center: vec3f var, stddev: float var}  
               | P.D_DISC {pt: vec3f var, normal: vec3f var, irad: float var, orad: float var}  
 *)  
479                | _ => raise Fail ("Cannot determine within-ness for specified vec3 domain: " ^ (P.dToStr d))                | _ => raise Fail ("Cannot determine within-ness for specified vec3 domain: " ^ (P.dToStr d))
480              (* end case *)              (* end case *)
481            end (*end let *)            end (*end let *)

Legend:
Removed from v.1158  
changed lines
  Added in v.1159

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