mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-05-11 10:44:53 +03:00
47 lines
788 B
Plaintext
Executable File
47 lines
788 B
Plaintext
Executable File
puts "============"
|
|
puts "OCC11615"
|
|
puts "============"
|
|
puts ""
|
|
######################################################
|
|
# Anisotropic scaling in 3D view
|
|
######################################################
|
|
|
|
set BugNumber OCC11615
|
|
|
|
box b 10 10 10
|
|
vinit
|
|
vdisplay b
|
|
vfit
|
|
vscale 1 1 1
|
|
QAUpdateLights
|
|
|
|
set x1 [list 165 340 70]
|
|
set y1 [list 384 283 79]
|
|
|
|
QAUpdateLights
|
|
puts ""
|
|
for {set i 0} {$i < 3} {incr i} {
|
|
set x_coord [lindex ${x1} $i]
|
|
set y_coord [lindex ${y1} $i]
|
|
|
|
checkcolor $x_coord $y_coord 1 1 0
|
|
}
|
|
|
|
vscale 0.5 1.5 0.7
|
|
vfit
|
|
QAUpdateLights
|
|
|
|
set x2 [list 80 390 25]
|
|
set y2 [list 390 218 167]
|
|
|
|
QAUpdateLights
|
|
puts ""
|
|
for {set i 0} {$i < 3} {incr i} {
|
|
set x_coord [lindex ${x2} $i]
|
|
set y_coord [lindex ${y2} $i]
|
|
|
|
checkcolor $x_coord $y_coord 1 1 0
|
|
}
|
|
|
|
set only_screen 1
|