projects
/
occt.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Adjusting bugs group for current state of OCCT
[occt.git]
/
tests
/
bugs
/
moddata
/
bug536_23
1
2
puts "========"
3
puts "OCC536"
4
puts "SAM1504"
5
puts "========"
6
7
vinit
8
9
restore [locate_data_file OCC536.brep] S
10
checkshape S
11
12
explode S So
13
checkshape S_4
14
checkshape S_1
15
16
if [catch {bfuse result S_4 S_1}] {
17
puts "Faulty OCC536"
18
} else {
19
puts "OCC536 : OK"
20
checkshape result
21
}
22
23
set square 2.5405e+06
24
set 2dviewer 0