mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-10 18:51:21 +03:00
35 lines
428 B
Plaintext
35 lines
428 B
Plaintext
puts "========"
|
|
puts "OCC328"
|
|
puts "========"
|
|
|
|
vinit
|
|
set dx 10
|
|
set dy 10
|
|
set dz 10
|
|
|
|
set x1 30
|
|
set y1 307
|
|
|
|
set x2 30
|
|
set y2 107
|
|
|
|
box b ${dx} ${dy} ${dz}
|
|
vdisplay b
|
|
vfit
|
|
|
|
vselmode 2 1
|
|
set info [OCC328 b VERTEX]
|
|
if { [regexp "VERTEX" $info] != 1 } {
|
|
puts "Faulty: Incorrect selection mode"
|
|
}
|
|
|
|
vselect ${x1} ${y1}
|
|
vselect ${x2} ${y2} 1
|
|
|
|
checkcolor ${x1} ${y1} 0.8 0.8 0.8
|
|
checkcolor ${x2} ${y2} 0.8 0.8 0.8
|
|
set only_screen 1
|
|
|
|
|
|
|