Commits

Yaron Minsky committed b00fe5b

small cleanups

Comments (0)

Files changed (1)

 type posn = { x: float; y: float }
 
 let posn x y = {x;y}
+
 let (+!) a b = { x = a.x +. b.x;
                  y = a.y +. b.y;
                }
                  y = a.y -. b.y;
                }
 
-let smult p c = { x = p.x *. c; y = p.y *. c }
+let smult p c = { x = p.x *. c
+                ; y = p.y *. c
+                }
 
 let pi = 2. *. asin 1.
 
 let _ = rot
 
 let scale_posn_around p ~around ~by =
-  smult (p -! around) by +! around
+  smult (p -! around) by
+  +! around
 
 let middle p1 p2 =
   smult (p1 +! p2) 0.5
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.