mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
38 lines
1.0 KiB
Plaintext
38 lines
1.0 KiB
Plaintext
puts "========"
|
|
puts "0033183: Data Exchange - Lose texture after saving XBF file"
|
|
puts "Checking saving of textures for the previous version"
|
|
puts "========"
|
|
|
|
pload OCAF
|
|
|
|
Close D -silent
|
|
XOpen [locate_data_file bug33183.xbf] D
|
|
|
|
set ref {
|
|
Label: 0:1:10:3
|
|
Name: boat1
|
|
AlphaMode: BlendAuto
|
|
AlphaCutOff: 0.5
|
|
IsDoubleSided: Auto
|
|
Common.Ambient: 0.21404114365577698 0.21404114365577698 0.21404114365577698
|
|
Common.Diffuse: 0.21404114365577698 0.21404114365577698 0.21404114365577698
|
|
Common.DiffuseTexture: texture://C:/Work/Projects/OpenCASCADE/testfiles/ship_boat.jpg
|
|
Common.Specular: 0 0 0
|
|
Common.Emissive: 0 0 0
|
|
Common.Shininess: 0.0099999997764825821
|
|
Common.Transparency: 0
|
|
}
|
|
|
|
set data [XGetVisMaterial D 0:1:10:3]
|
|
|
|
for {set i 1} {$i <= 12} {incr i} {
|
|
set data_str [lindex $data $i-1]
|
|
set ref_str [lindex $ref $i-1]
|
|
if { $data_str != $ref_str } {
|
|
puts "Error: Data is not equal"
|
|
break
|
|
}
|
|
}
|
|
|
|
Close D
|