352ffd73 |
1 | puts "================" |
2 | puts "OCC609" |
3 | puts "================" |
4 | puts "" |
5 | ################################# |
6 | ## Impossible to write separate vertices to STEP |
7 | ################################# |
8 | |
9 | restore [locate_data_file OCC609.brep] a1 |
10 | |
11 | ###################################################################### |
12 | file delete ${imagedir}/vertises.stp |
13 | stepwrite a a1 ${imagedir}/vertises.stp |
14 | |
15 | dall |
16 | |
17 | stepread ${imagedir}/vertises.stp a2 * |
18 | |
19 | set tex [nbshapes a2_1] |
20 | regexp {VERTEX +: +([-0-9.+eE]+)} $tex full ve |
21 | |
22 | if { $ve != 0 } { |
23 | puts " OCC609 : vertexes were saved and restored properly" |
24 | } else { |
25 | puts "Faulty OCC609: vertexes were saved and restored wrongly" |
26 | } |
27 | |
28 | |