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
|
puts "================"
puts "OCC130"
puts "================"
puts ""
######################################################
## Draw Environment: No intersection found between a specific surface and a line
######################################################
restore [locate_data_file OCC130.brep] sh
checkshape sh
line l -120 -100 400 0 0 1
mksurface surf sh
############## checkshape surf # - not a topological shape
if [catch {intersect res l surf } result] {
set mistake 1
} else {
set mistake 0
}
if { $mistake == 0} {
puts "OCC130 OK : intersection found between a specific surface and a line"
puts ""
set nom 0
set j 1
repeat 10 {
set che [whatis res_$j]
set err [lindex $che [expr [llength $che] - 1]]
if { $err != "point"} {
break
} else {
set nom [expr $nom + 1]
}
incr j}
if { $nom != 2 && $nom != 0} {
puts [format "Faulty OCC130: Intersection was made WRONGLY: %s points" $nom]
} else {
puts [format "OCC130 OK : Intersection command works properly: %s points" $nom]
}
} else {
puts "Faulty OCC130 : NO intersection found between a specific surface and a line"
}
|
