Skip to content

Instantly share code, notes, and snippets.

@deque-blog

deque-blog/disk.hs

Last active Sep 11, 2017
Embed
What would you like to do?
disk :: Coord2D -> Radius -> Shape2D
disk center radius =
Shape $ \coord -> euclidianDistance center coord <= radius
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.