1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
puts "========"
puts "CR25202"
puts "========"
puts ""
#########################################
## Incorrect value of IsClosed flag in shapes produced by some algorithms
#########################################
circle cc 0 100 0 20
mkedge ee cc
wire ww ee
mkplane ff ww
revol result ff 0 0 0 1 0 0 90
set info [whatis result]
if { [regexp {Closed} ${info}] } {
puts "OK : value of IsClosed flag is correct"
} else {
puts "Error : value of IsClosed flag is not correct"
}
set 2dviewer 1
|
