{ Type agrege de stockage d'une position du plan }

structure position2D
  reel x <- 0.0
  reel y <- 0.0
fin structure

{ Type agrege de stockage d'un cercle du plan    }

structure cercle2D
  position2D centre
  reel rayon <- 1.0
fin structure

{ Test de l'inclusion d'une position du plan     }
{ dans un cercle du plan                         }

booleen fonction testInclusion(-> position2D p,-> cercle2D c)
  reel dx
  reel dy
  reel distance
  booleen inclus
  dx <- p.x-c.centre.x
  dy <- p.y-c.centre.y
  distance <- sqrt(dx*dx+dy*dy)
  inclus <- (distance <= c.rayon)
  retourner inclus
fin fonction