David Tran’s blog

annulus :: Radius -> Radius -> Region
annulus inR outR = Shape (circle outR) `difference` Shape (circle inR)
  where r1 `difference` r2 = r1 `Intersect` (Complement r2)

This entry was posted on Tuesday, May 29th, 2007 at 8:56 pm and is filed under Haskell - SOE. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.