0024757: DRAW: Move commands fixshape, tolerance, and similar to MODELING
[occt.git] / tests / heal / elementary_to_revolution / end
1 set env(CSF_dataDefaults) [file dirname [info script]]/../data
2 puts $env(CSF_dataDefaults)
3 DT_ApplySeq result a data data1
4 set b [explode a f]
5 set b1 [explode result f]
6 puts $b
7 puts $b1
8 set nb_surf 0
9 set i 0
10 for {set i 0} {$i < [llength $b]} {incr i} {
11     set t [lindex $b $i]
12     set t1 [lindex $b1 $i]
13     mksurface s$i $t
14     mksurface su$i $t1
15     set q [dump s$i]
16     set q1 [dump su$i] 
17     puts $q
18     puts $q1
19     if { [lindex $q 5] != [lindex $q1 5] } {
20         if { [lindex $q1 5] == "SurfaceOfRevolution" } {
21             incr nb_surf
22         }
23     }
24 }
25 if { $nb_surf == 0 || $nb_revol != $nb_surf } {
26     puts "Error : $nb_revol faces should be converted instead of $nb_surf."
27 }