Commit | Line | Data |
---|---|---|
352ffd73 | 1 | pload QAcommands |
2 | ||
3 | puts "========" | |
4 | puts "OCC525" | |
5 | puts "========" | |
6 | puts "" | |
7 | ######################################### | |
8 | ## Bug in GeomPlate_BuildPlateSurface::ComputeSurfInit() | |
9 | ######################################### | |
10 | ||
11 | set mistake 0 | |
12 | ||
13 | decho off | |
14 | if { [catch { OCC525 } ] } { | |
15 | set mistake 1 | |
16 | } | |
17 | decho on | |
18 | ||
19 | if { $mistake == 1 } { | |
20 | puts "Faulty : OCC525" | |
21 | } | |
22 | ||
23 | set 2dviewer 1 |