1 puts "================"
3 puts "================"
5 ########################################################################################################
6 # Behaviour of XDE sample is non-stable
7 ########################################################################################################
17 XRemoveShape D 0:1:1:1 0
25 regexp {Free Shapes: ([-0-9.+eE]+)} $xd full FreeShapes
26 puts "FreeShapes=${FreeShapes}"
28 if { ${FreeShapes} == 1 } {
29 puts "OK ${BugNumber}"
31 puts "Faulty ${BugNumber}"