overlapping non rectangulaire

Bonjour,

est-il possible simplement (genre j'ai loupé le truc dans la doc) de
trouver les id des objets du canvas qui sont recouverts par un objet
'oval' ? Un genre de 'find overlapping' ou 'find enclosed' mais ovale.


Par exemple, j'aimerais récupérer les id des élements dans la grande
ellipse :

set l 200
set h 100
pack [canvas .c -width $l -height $h -bd 0 -highlightt 0]

for {set i 0} {$i<100} {incr i} {
    set x [expr {int(rand()*$l)}]
    set y [expr {int(rand()*$h)}]
    .c create oval $x $y $x $y -width 1 -outline black
}

set x [expr {int(rand()*$l)}]
set y [expr {int(rand()*$h)}]
..c create rectangle $x $y [expr {$x+50}] [expr {$y+30}]

incr l -1
incr h -1
..c create oval 0 0 $l $h -tags cercle


Cordialement
david