40093367 |
1 | puts [DT_ShapeConvert result a 1 1] |
2 | set d [statshape result] |
3 | puts $d |
4 | |
5 | set bspsur 0 |
6 | |
7 | set rx [regexp "(\[0-9\]+)\\s+bspsur *: *BSplineSurface" $d full bspsur] |
8 | |
9 | if { $bspsur != 0 } { |
10 | puts "Error: $bspsur BSplineSurface after DT_ShapeConvert operation." |
11 | } |