1 puts "================"
3 puts "================"
5 ###############################################
6 ## PCurve for edge on face creation failure
7 ###############################################
11 Open [locate_data_file bug_glue_edges_GEOM.sgd] D
13 GetShape D 0:1:9686:1:1:2 s1
14 GetShape D 0:1:9449:1:1:2 s2
21 set info1 [bhaspc s1_100 s2_2]
22 if { [regexp {No} ${info1}] == 1 } {
23 puts "Faulty: No 2D curves detected"
29 set info2 [bhaspc s1_40 s2_54]
30 if { [regexp {No} ${info2}] == 1 } {
31 puts "Faulty: No 2D curves detected"
35 bhaspc s1_22 s2_123 do
37 set info3 [bhaspc s1_22 s2_123]
38 if { [regexp {No} ${info3}] == 1 } {
39 puts "Faulty: No 2D curves detected"