mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
ea86bfe2fa
DCAF require VISUALIZATION for correct work. In some scenario DRAWEXE can generate a dublicates of the internal static singletons. This means each dynamic library will have their own instance of the static singleton. Update all direct library loading to use the DCAF plugin mechanism. This will ensure that the DCAF plugin is loaded only once and that the correct instance is used. Originally issue is reproduced only Linux with dlopen with "RTLD_LAZY". Can be resolved additionally adding "RTLD_LAZY | RTLD_GLOBAL" for dlopen
78 lines
1.8 KiB
Plaintext
Executable File
78 lines
1.8 KiB
Plaintext
Executable File
puts "TODO OCC11111 ALL: Faulty OCC1747"
|
|
|
|
puts "================"
|
|
puts "OCC1747"
|
|
puts "================"
|
|
puts ""
|
|
#######################################################################################
|
|
# Cannot get entity number for translated shape from STEP in XDE case
|
|
######################################################################################
|
|
|
|
set BugNumber OCC1747
|
|
|
|
catch {pload OCAF}
|
|
|
|
XNewDoc SA
|
|
|
|
box b1 10 10 10
|
|
box b2 20 10 10
|
|
ttranslate b1 10 0 0
|
|
ttranslate b2 20 0 0
|
|
compound b1 b2 bl
|
|
copy bl nbl
|
|
ttranslate nbl 30 0 0
|
|
compound bl nbl ryad
|
|
copy ryad hryad
|
|
ttranslate hryad -10 0 10
|
|
copy ryad uryad
|
|
ttranslate uryad 0 0 20
|
|
compound ryad hryad uryad stena
|
|
|
|
XAddShape SA stena 1
|
|
|
|
SetName SA 0:1:1:1 Wall
|
|
SetName SA 0:1:1:2 Block-Array
|
|
SetName SA 0:1:1:3 Block
|
|
SetName SA 0:1:1:4 Half-Brick
|
|
SetName SA 0:1:1:5 Brick
|
|
|
|
SetName SA 0:1:1:1:1 base-array
|
|
SetName SA 0:1:1:1:2 next-array
|
|
SetName SA 0:1:1:1:3 top-array
|
|
|
|
SetName SA 0:1:1:2:1 left-block
|
|
SetName SA 0:1:1:2:2 right-block
|
|
|
|
SetName SA 0:1:1:3:1 half-brick
|
|
SetName SA 0:1:1:3:2 brick
|
|
|
|
WriteStep SA $imagedir/${test_image}.stp
|
|
dall
|
|
ReadStep D $imagedir/${test_image}.stp
|
|
|
|
puts "INFO: get main shape from the XDE document D"
|
|
XGetShape a D 0:1:1:1
|
|
puts "INFO: now try to get translation history for it"
|
|
set info1 [ fromshape a ]
|
|
set index1 [ lsearch $info1 unknown ]
|
|
explode a
|
|
puts "INFO: now try to get translation history for subshape a_1"
|
|
set info2 [ fromshape a_1 ]
|
|
set index2 [ lsearch $info2 unknown ]
|
|
puts "INFO: now try to get translation history for subshape a_2"
|
|
set info3 [fromshape a_2 ]
|
|
set index3 [ lsearch $info3 unknown ]
|
|
|
|
set exception_status 0
|
|
if {$index1 > -1 || $index2 > -1 || $index3 > -1} {
|
|
set exception_status 1
|
|
}
|
|
|
|
if { ${exception_status} == 0 } {
|
|
puts "OK ${BugNumber}"
|
|
} else {
|
|
puts "Faulty ${BugNumber}"
|
|
}
|
|
|
|
checkview -display result -3d -path ${imagedir}/${test_image}.png
|