dojosp / participant-s-projects
watch download tarball
public
Forks2Right
Watchers18Right
Description: This is a space for projects that maybe did or didn't start at a Dojo session and the participants continued developing.
Homepage: http://groups.google.com/group/dojo_sp
Clone URL: git://github.com/dojosp/participant-s-projects.git
100644 14 lines (9 sloc) 0.383 kb
raw blame history 
1
2
3
4
5
6
7
8
9
10
11
12
13
14

module Snap where
 
data Ponto = Ponto Float Float
	deriving (Show,Eq)
data PontoAtrator = PontoAtrator Ponto Float
 
clique p _ = p
 
pertenceARegiao :: Ponto -> PontoAtrator -> Bool
pertenceARegiao ponto (PontoAtrator centro raio) = raio >= distancia ponto centro
 
distancia :: Ponto -> Ponto -> Float
distancia (Ponto x1 y1) (Ponto x2 y2 ) = sqrt ((x2-x1)*(x2-x1) + (y2-y1)*(y2-y1))