mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-06-05 11:24:17 +03:00
30 lines
638 B
Plaintext
30 lines
638 B
Plaintext
pload QAcommands
|
|
|
|
puts "================"
|
|
puts "OCC434"
|
|
puts "SAM1296"
|
|
puts "================"
|
|
puts ""
|
|
|
|
########################################################
|
|
## Exception is raised on NT, SUN in the GeomConvert_CompCurveToBSplineCurve
|
|
########################################################
|
|
|
|
restore [locate_data_file OCC434.brep] e
|
|
checkshape e
|
|
explode e e
|
|
|
|
OCC405 result e_1 e_2
|
|
|
|
regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full num
|
|
|
|
if { $num == 2 } {
|
|
puts "OCC434 OK : Result shape is CORRECT !!! "
|
|
} else {
|
|
puts " Faulty OCC434: Result shape is INcorrect !!! "
|
|
}
|
|
|
|
set length 8.74616
|
|
set 2dviewer 0
|
|
|