Skip to content

Commit

Permalink
format with dune (#95)
Browse files Browse the repository at this point in the history
  • Loading branch information
nikochiko authored Jan 26, 2024
1 parent 8fffcb5 commit 49de3b7
Showing 1 changed file with 0 additions and 2 deletions.
2 changes: 0 additions & 2 deletions lib/shape.ml
Original file line number Diff line number Diff line change
Expand Up @@ -20,7 +20,6 @@ let ( /~ ) p1 p2 = { x = p1.x /. p2.x; y = p1.x /. p2.x }
let ( -! ) { x; y } scalar = { x = x -. scalar; y = y -. scalar }
let ( /! ) { x; y } scalar = { x = x /. scalar; y = y /. scalar }
let ( *! ) { x; y } scalar = { x = x *. scalar; y = y *. scalar }

let pmap f { x; y } = { x = f x; y = f y }

let point x y =
Expand All @@ -30,7 +29,6 @@ let point x y =
let center = { x = 0.; y = 0. }
let circle ?(c = center) r = Circle { c; radius = float_of_int r }


let rectangle ?(c = center) width height =
let width, height = (float_of_int width, float_of_int height) in
let { x; y } = c -! ((width +. height) /. 4.) in
Expand Down

0 comments on commit 49de3b7

Please sign in to comment.