mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-25 00:57:38 +08:00
29 lines
425 B
Plaintext
29 lines
425 B
Plaintext
puts "========"
|
|
puts "OCC61"
|
|
puts "SAM723"
|
|
puts "BUC60919"
|
|
puts "========"
|
|
|
|
vinit
|
|
vtrihedron trihedron
|
|
|
|
set x_coord 205
|
|
set y_coord 205
|
|
|
|
QAUpdateLights
|
|
checkcolor $x_coord $y_coord 0.43 0.48 0.54
|
|
|
|
set xmin 1
|
|
set ymin 1
|
|
set xmax 409
|
|
set ymax 205
|
|
|
|
# Select part of trihedron
|
|
OCC60 ${xmin} ${ymin} ${xmax} ${ymax}
|
|
OCC60 ${xmin} ${ymin} ${xmax} ${ymax}
|
|
|
|
QAUpdateLights
|
|
checkcolor $x_coord $y_coord 0.8 0.8 0.8
|
|
|
|
set only_screen 1
|