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

SCM Repository

[sml3d] Diff of /examples/steering/steering.sml
ViewVC logotype

Diff of /examples/steering/steering.sml

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

revision 99, Thu Apr 10 17:40:57 2008 UTC revision 100, Thu Apr 10 18:45:48 2008 UTC
# Line 65  Line 65 
65             of SOME vec => (             of SOME vec => (
66                (* annotation for visual feedback *)                (* annotation for visual feedback *)
67                  Annotate.avoidObstacle (v, minTimeToCollision * V.speed v);                  Annotate.avoidObstacle (v, minTimeToCollision * V.speed v);
68                  vec)                  SOME vec)
69              | NONE => V3.zero              | NONE => NONE
70            (* end case *))            (* end case *))
71    
72    (* avoids all obstacles in a list of obstacles *)    (* avoids all obstacles in a list of obstacles *)

Legend:
Removed from v.99  
changed lines
  Added in v.100

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