mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
50 lines
1.4 KiB
Plaintext
50 lines
1.4 KiB
Plaintext
puts "============"
|
|
puts "OCC32922 Data Exchange, STEP - The torus is stored incorrectly in STEP format"
|
|
puts "============"
|
|
puts ""
|
|
#####################################################
|
|
# STEP testing the case when a torus is saved in STEP
|
|
# format with an incorrect edge order
|
|
#####################################################
|
|
|
|
pload MODELING XDE
|
|
|
|
if { [info exists imagedir] == 0 } {
|
|
set imagedir ../bug32922
|
|
if {![file exists ${imagedir}]} {
|
|
file mkdir ${imagedir}
|
|
}
|
|
}
|
|
# remember the path to the old resource file
|
|
set old_resource_path $::env(CSF_STEPDefaults)
|
|
# reading old resource file
|
|
set anOptions [parse_resource_file "${old_resource_path}/STEP"]
|
|
# turn off shape healing
|
|
dict set anOptions "FromSTEP.exec.op" ""
|
|
# path to new resource file
|
|
set new_resource_path ${imagedir}
|
|
# creating resource file
|
|
create_resource_file "${new_resource_path}/STEP" $anOptions
|
|
# changing the path to the resource file
|
|
set ::env(CSF_STEPDefaults) ${new_resource_path}
|
|
|
|
# Generating, writing and reading the torus
|
|
ptorus tor 20 5
|
|
set step_file ${imagedir}/torus.stp
|
|
testwritestep ${step_file} tor
|
|
stepread ${step_file} a *
|
|
|
|
# Checking the face of the torus
|
|
explode a_1 f
|
|
renamevar a_1_1 result
|
|
checkshape result
|
|
|
|
# Making screenshort
|
|
pcurve result
|
|
view 1 -2D- 728 20 400 400
|
|
2dfit
|
|
checkview -screenshot -2d -path ${imagedir}/${test_image}.png
|
|
|
|
# Restoring the path to the old resource file
|
|
set ::env(CSF_STEPDefaults) ${old_resource_path}
|