1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-08-04 13:13:25 +03:00
aba 18d715bde0 0023670: Support for multiple 3D views: edited commands: vinit; added commands: vclose, vactivate, vviewlist
bugs/end script was edited to dump results from all opened views; duplicated vinit was deleted from bug625. QABugs::OCC280()
was edited to work with multiviews;ViewerInit() method was corrected. vviewlist command was modificated to output string.
Small corrections
Compile errors were corrected
2013-06-13 14:57:07 +04:00

32 lines
706 B
Plaintext
Executable File

puts "========================"
puts "OCC625"
puts "========================"
puts ""
###############################################################################
## Created filler looks strange (see attached picture) inspite of checkshapes told about correct source and result shapes.
###############################################################################
pload QAcommands
restore [locate_data_file OCC625.brep] a
checkshape a
tclean a
explode a e
blend res1 a 10 a_22 10 a_14
blend result res1 10 a_17 10 a_4
checkshape result
vinit
vdisplay result
vfit
vsetdispmode result 1
set x_coord 116
set y_coord 252
checkcolor $x_coord $y_coord 0.82 0.58 0.09
set square 19977
set 3dviewer 1