mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
7a7e8cf174
Test cases save results in directory pointed by ${imagedir} Tcl variable. File names are initialized in scripts and passed to DRAW command as argument.
Tests User Guide was updated.
Remarks were corrected
38 lines
876 B
Plaintext
38 lines
876 B
Plaintext
puts "=========="
|
|
puts "OCC2883"
|
|
puts "=========="
|
|
puts ""
|
|
########################################################################
|
|
# It is impossible to set material, color and transparency to compound
|
|
########################################################################
|
|
|
|
set FilePath_v1 ${imagedir}/bug2883_2_v1.png
|
|
set FilePath_v2 ${imagedir}/bug2883_2_v2.png
|
|
|
|
file delete -force ${FilePath_v1}
|
|
file delete -force ${FilePath_v2}
|
|
|
|
box b1 0 0 0 1 2 3
|
|
box b2 4 0 0 3 1 2
|
|
vinit drv1/v1/v1
|
|
vsetdispmode 1
|
|
vdisplay b1 b2
|
|
vfit
|
|
vinit drv1/v2/v1
|
|
vsetdispmode 1
|
|
vdisplay b1 b2
|
|
vfit
|
|
vsetcolor b1 RED
|
|
vactivate drv1/v1/v1
|
|
vdump ${FilePath_v1}
|
|
vactivate drv1/v2/v1
|
|
vdump ${FilePath_v2}
|
|
set info [diffimage ${FilePath_v1} ${FilePath_v2} 0 0 0]
|
|
if { $info != 0 } {
|
|
puts "Error: images v1 and v2 are different"
|
|
} else {
|
|
puts "OK: images v1 and v2 are similar"
|
|
}
|
|
|
|
set only_screen 1
|