4 ######################################################
5 # Exception during "filling" operation
6 ######################################################
10 circle c 0 100 100 0 1 1 50
11 ellipse el 0 0 0 0 1 1 100 50
14 if [catch { appsurf result c el } res] {
16 puts "Faulty ${BugNumber}: filling problem"
18 puts "Filling ${BugNumber} OK"
19 set What [whatis result]
20 if { [regexp "surface" $What] != 1 } {
29 if { ${mistake} != 0 } {
30 puts "Faulty ${BugNumber}"
32 puts "OK ${BugNumber}"