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
|
puts "==========="
puts "OCC24648"
puts "==========="
puts ""
##############################################################
# Different types of intersection curves between Cone and Torus with a different order of arguments
##############################################################
cone s1 60 0
torus s2 30 20
intersect i1 s1 s2
set info1 [dump i1_1]
intersect i2 s2 s1
set info2 [dump i2_1]
set type_of_curve "Circle"
if { [regexp ${type_of_curve} ${info1}] != 1 } {
puts "Error : Wrong type of intersection curve #1"
} else {
puts "OK : Good type of intersection curve #1"
}
if { [regexp ${type_of_curve} ${info2}] != 1 } {
puts "Error : Wrong type of intersection curve #2"
} else {
puts "OK : Good type of intersection curve #2"
}
smallview
donly i1_1 i2_1
fit
set only_screen_axo 1
|
