1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
set cs_a [checkshape a]
puts "checkshape a"
if { [info exists nb_f] == 0 } {
set nb_f 0
}
if { $cs_a == "This shape seems to be valid"} {
puts "Shape a seems to be valid"
set nb_a 0
} else {
puts "Shape a is not valid"
regexp {Faulty shapes in variables faulty_([0-9]*) to faulty_([0-9]*)} $cs_a full nb_a_begin nb_a_end
puts "Number of faulties is [expr $nb_a_end - $nb_a_begin +1]"
set nb_a [expr $nb_a_end - $nb_a_begin +1]
}
set exp [explode a f]
set L [concat compound $exp C]
eval $L
puts [whatis C]
puts [sewing result $tol C]
if { [isdraw result] } {
set cs_r [checkshape result]
puts "checkshape result"
if { $cs_r == "This shape seems to be valid"} {
puts "Shape result seems to be valid"
set nb_r 0
} else {
puts "Shape result is not valid"
regexp {Faulty shapes in variables faulty_([0-9]*) to faulty_([0-9]*)} $cs_r full nb_r_begin nb_r_end
set nb_r [expr $nb_r_end - $nb_r_begin +1]
}
set t [dtyp result]
puts $t
set w [lindex $t 1]
if {"$w" == "SHELL"} {
freebounds $result -0.01
set s [explode result_c e]
puts $s
set index [ llength $s ]
#nbFreeEdges is set to empty only in cases of unstable work of sewing (see #24591).
if { [string compare "$nbFreeEdges" ""] == 0 || $index != $nbFreeEdges } {
puts "Error : Number of free edges is $index"
}
puts "Number of faults for the initial shape is $nb_a."
puts "Number of faults for the resulting shape is $nb_r."
#if nb_f is empty then it is instaility.
if { [string compare "$nb_f" ""] == 0 || $nb_f > 0 } {
set os "ALL"
if {[array get env os_type] != ""} {
set os $env(os_type)
}
puts "TODO #23150 $os: Error : Number of faults is $nb_f"
}
if { $nb_r > $nb_a } {
puts "Error : Number of faults is $nb_r"
}
} else {
puts "Error : OPERATION FAILED"
}
clear
smallview
donly result
checkshape result
fit
xwd $imagedir/${test_image}.png
} else {
puts "Error : The sewing cannot be built."
}
puts "TEST COMPLETED"
|
