mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-09 18:50:54 +03:00
4754e16481
Replaced QAMoveTo, QASelect and QAShiftSelect draw commands with vmoveto and vselect Moved vselect and vmoveto draw commands to ViewerTest_ViewerCommands.cxx Replaced QAMoveTo and QASelect in test cases. Corrected returned error case result in vselect and vmoveto. Added commands in ViewerTest_ViewerCommands from QADraw. Edited tests. QACommands in tests were replaced with ViewerTest commands. QAxwd command was removed from QADraw. Edited command wzoom and commands from ViewerTest. Help for ViewerTest commands was edited Small corrections. Added test cases for polygonal selection. Small correction of test cases
63 lines
1.7 KiB
Plaintext
Executable File
63 lines
1.7 KiB
Plaintext
Executable File
puts "========"
|
|
puts "OCC223"
|
|
puts "========"
|
|
puts ""
|
|
######################################################
|
|
# Shading is not correct for several overlapped faces, converted to B-Spline representation
|
|
######################################################
|
|
|
|
restore [locate_data_file OCC223-1.brep] cylinder
|
|
checkshape cylinder
|
|
restore [locate_data_file OCC223-2.brep] face
|
|
checkshape face
|
|
|
|
set Start_X 140
|
|
set Start_Y 40
|
|
|
|
vinit
|
|
tclean cylinder
|
|
tclean face
|
|
|
|
vdisplay cylinder
|
|
vdisplay face
|
|
vfit
|
|
|
|
vsetdispmode face 1
|
|
vsetcolor face GREEN1
|
|
|
|
vsetdispmode cylinder 1
|
|
vsetcolor cylinder RED1
|
|
|
|
set ColorList [QAGetPixelColor $Start_X $Start_Y]
|
|
regexp {RED +: +([-0-9.+eE]+)} $ColorList full R_START_POINT
|
|
regexp {GREEN +: +([-0-9.+eE]+)} $ColorList full G_START_POINT
|
|
regexp {BLUE +: +([-0-9.+eE]+)} $ColorList full B_START_POINT
|
|
|
|
puts "R_START_POINT=$R_START_POINT ; G_START_POINT=$G_START_POINT ; B_START_POINT=$B_START_POINT"
|
|
|
|
set IsGood 1
|
|
for {set count 0} {${count} <= 11} {incr count 1} {
|
|
checkcolor $Start_X $Start_Y $R_START_POINT $G_START_POINT $B_START_POINT
|
|
if {$stat != 1} {
|
|
set IsGood 0
|
|
}
|
|
incr $Start_X 10
|
|
incr $Start_Y 10
|
|
}
|
|
|
|
if {$IsGood == 1} {
|
|
puts "\nOCC223 OK\n"
|
|
} else {
|
|
puts "\nFaulty OCC223\n"
|
|
}
|
|
|
|
set only_screen 1
|
|
|
|
puts "\n------- Additional Comments From Igor FEOKTISTOV 2002-05-20 12:32 -------\n"
|
|
|
|
puts "It is not problem of meshing."
|
|
puts "It is pure problem of shading geometrically coinciding faces with different"
|
|
puts "triangulation. If we create analitical cylinder and box by such way that plane"
|
|
puts "faces of cylinder and two faces of box are coinceded, we will have the same"
|
|
puts "result: fractional shading of coinciding faces.\n"
|