5 ##############################################################
6 # Different types of intersection curves between Cone and Torus with a different order of arguments
7 ##############################################################
18 set type_of_curve "Circle"
20 if { [regexp ${type_of_curve} ${info1}] != 1 } {
21 puts "Error : Wrong type of intersection curve #1"
23 puts "OK : Good type of intersection curve #1"
26 if { [regexp ${type_of_curve} ${info2}] != 1 } {
27 puts "Error : Wrong type of intersection curve #2"
29 puts "OK : Good type of intersection curve #2"