1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
puts "========"
puts "CR24706"
puts "========"
puts ""
#########################################
## Solids produced by BOP do not have flag Closed set in shells
#########################################
box b 10 10 10
psphere s 2
bcut r b s
explode r sh
set info [whatis r_1]
if { [regexp {Closed} ${info}] } {
puts "OK : Flag CLOSED is set for closed shells created during perform of Boolean Operation"
} else {
puts "Faulty : Flag CLOSED is not set for closed shells created during perform of Boolean Operation"
}
|
