Commits

Yaron Minsky  committed 32fb9fa

small interface changes to geometry

  • Participants
  • Parent commits ac9b2d8

Comments (0)

Files changed (3)

 
 let ship =
   rotate (square 25. black) ~deg:45.
-  +< square 10. blue
+  ++ square 10. blue
 
 let display w =
   empty_scene ~ll:(posn (-.200.) (-.200.)) ~ur:(posn 200. 200.) white
-  ++ shift ship w.pos
+  +: shift ship w.pos
 
 let kick = 0.2
 
       else Top_bottom (c2,c1)
     )
 
-let (+<) = overlay ~topfirst:false
-let (+>) = overlay ~topfirst:true
+let (++) = overlay ~topfirst:false
 
 let image_iter image ~f =
   Option.iter image ~f:(fun combo ->
 let image s = s.image
 let bg s = s.bg
 
-let (++) s i =
-  { s with image = s.image +< i }
+let (+:) s i =
+  { s with image = s.image ++ i }
 
 

File geometry.mli

 val shift : image -> posn -> image
 val recenter : image -> image
 
-val (+<) : image -> image -> image
-val (+>) : image -> image -> image
+val (++) : image -> image -> image
 
 (** Iterates over the [base_image]'s in the image, from lowest to highest,
     providing an offset for each [base_image].  *)
 val image : scene -> image
 val bg : scene -> color
 
-val (++) : scene -> image -> scene
+val (+:) : scene -> image -> scene