mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
f4dee9bb20
Added DRAW command dsetsignal, resetting OSD signal handler with either armed or disabled FPE handler, according to an option. If called without arguments, it sets FPE handler only if environment variable OSD_FPE is defined (with value different from 0). On start, DRAW calls dsetsignal to set FPE signal if CSF_FPE is defined. Test bugs fclasses bug6143 uses dsetsignal to set FPE handler unconditionally before the test command, and resets it to default at the end. A number of changes in the code have been done in order to fix floating point exceptions that became generated after enabling signals: - Global functions Sinh() and Cosh() defined in Standard_Real.hxx are improved to raise Standard_NumericError exception if argument is too big (greater than 710.47586), instead of relying on system treatment of floating point overflow. These functions are used instead of sinh and cosh in ElCLib.cxx. - Maximal value of parameter on hyperbola is restricted by 23 (corresponding to ~1e10 in 3d) in order to avoid FP overflow in Extrema_GenExtCS.cxx, ShapeFix_EdgeProjAux.cxx. - Interface of the root curve adaptor class Adaptor3d_Curve has been updated to add new virtual methods BasisCurve and OffsetValue. They complement the adaptor for the case of offset curves. These methods are used in Extrema_GenExtCS.cxx to restrict domain search in the case of offset of hyperbola, in order to get rid of floating point overflow. All classes inheriting Adaptor3d_Curve have been changed to implement the new virtual methods. - Protection against division by zero has been implemented in ApproxInt_KnotTools.cxx, BRepClass3d_SClassifier.cxx, BRepGProp_Face.cxx, BRepMesh_FastDiscretFace.cxx, Geom2dGcc_Circ2d2TanOnIter.cxx, Geom2dInt_Geom2dCurveTool.cxx, IntPolyh_MaillageAffinage.cxx. - Protection against calling of math functions of infinite arguments has been added in BRepCheck_Edge.cxx, BRepLib.cxx, CSLib_NormalPolyDef.cxx, Extrema_FuncExtPC.gxx, Extrema_GExtPC.gxx, Extrema_GLocateExtPC.gxx, Intf_InterferencePolygonPolyhedron.gxx, ShapeAnalysis_Surface.cxx, ShapeAnalysis_TransferParametersProj.cxx, ShapeAnalysis_Wire.cxx, math_FunctionSetRoot.cxx. - Proper initialization of local variables is done in BOPAlgo_PaveFiller_6.cxx, XSDRAWSTLVRML.cxx. - Inconsistent usage of Standard_Boolean* to access integer data in HLR (caused by #27772) is corrected Some test cases have been updated to actual state.
351 lines
11 KiB
Plaintext
Executable File
351 lines
11 KiB
Plaintext
Executable File
puts "============"
|
|
puts "OCC23226"
|
|
puts "============"
|
|
puts ""
|
|
#######################################################################
|
|
# Extend OpenGl_Context to store map of shared GPU resources
|
|
#######################################################################
|
|
|
|
set BugNumber OCC23226
|
|
|
|
#
|
|
# This test is modified test cdl/934/C2
|
|
#
|
|
|
|
# this test performs automatical test of primitives array objects by pixel checking
|
|
# this test ALSO DUMPS two result images (the primitives on the images should have
|
|
# same contours, WIREFRAME OBJECTS ARE IN YELLOW-RED COLORS, SHADED OBJECTS ARE
|
|
# BLUE-GREEN COLORS)
|
|
|
|
set BUGNUMBER OCC22583
|
|
set status 0
|
|
set ImageName1 "occ22583-image1.png"
|
|
set ImageName2 "occ22583-image2.png"
|
|
|
|
# set window width and height, this values should correspond to a
|
|
# view window sizes to pass the test
|
|
set view_width 405
|
|
set view_height 405
|
|
|
|
# colors used for tests
|
|
# yellow
|
|
set colorY_R 1
|
|
set colorY_G 1
|
|
set colorY_B 0
|
|
|
|
# red
|
|
set colorR_R 1
|
|
set colorR_G 0
|
|
set colorR_B 0
|
|
|
|
# blue
|
|
set colorB_R 0
|
|
set colorB_G 1
|
|
set colorB_B 1
|
|
|
|
# green
|
|
set colorG_R 0
|
|
set colorG_G 1
|
|
set colorG_B 0
|
|
|
|
# limit of range where the pixels are tested (sets number of iterations)
|
|
# 30 pixels in width and in height will be enough to test all primitives
|
|
set limit_x 3
|
|
set limit_y 3
|
|
|
|
# this procedure is internal and will be removed at the end of the script
|
|
# generate points for primitive
|
|
proc generate_points {x y z r g b} {
|
|
# define top plane points
|
|
global pts01 pts02 pts03 pts04 pts05 pts06
|
|
set pts01 "v [expr "$x-5"] [expr "$y+5"] [expr "$z"] n 0 0 -1 c $r $g $b"
|
|
set pts02 "v [expr "$x "] [expr "$y+5"] [expr "$z"] n 0 0 -1 c $r $g $b"
|
|
set pts03 "v [expr "$x "] [expr "$y "] [expr "$z"] n 0 0 -1 c $r $g $b"
|
|
set pts04 "v [expr "$x+5"] [expr "$y "] [expr "$z"] n 0 0 -1 c $r $g $b"
|
|
set pts05 "v [expr "$x-5"] [expr "$y-5"] [expr "$z"] n 0 0 -1 c $r $g $b"
|
|
set pts06 "v [expr "$x "] [expr "$y-5"] [expr "$z"] n 0 0 -1 c $r $g $b"
|
|
}
|
|
|
|
# this procedure is internal and will be removed at the end of the script
|
|
# check pixels of primitive
|
|
proc check_primitive {name1 r g b args} {
|
|
global limit_x limit_y view_width view_height
|
|
# show only primitive that we interested in to test
|
|
vdonly $name1 $args
|
|
vtop
|
|
vfit
|
|
|
|
# move cursor not to select shape
|
|
vmoveto 0 0
|
|
vmoveto 0 0
|
|
|
|
# test pixels in a top left corner
|
|
set TestPassed 0
|
|
set HasPixel 0
|
|
for {set i 0} {$i < $limit_x} {incr i} {
|
|
for {set j 0} {$j < $limit_y} {incr j} {
|
|
if { "[vreadpixel $i $j rgb]" == "$r $g $b" } {
|
|
set HasPixel 1
|
|
}
|
|
}
|
|
}
|
|
if { $HasPixel == 1 } {
|
|
set TestPassed [expr $TestPassed + 1]
|
|
} else {
|
|
set TestPassed 0
|
|
}
|
|
|
|
# test pixels in bottom left corner
|
|
set HasPixel 1
|
|
for {set i 0} {$i < $limit_x} {incr i} {
|
|
for {set j 0} {$j < $limit_y} {incr j} {
|
|
set coord_y [expr $view_height-$j]
|
|
if { "[vreadpixel $i $coord_y rgb]" == "$r $g $b" } {
|
|
set HasPixel 1
|
|
}
|
|
}
|
|
}
|
|
if { $HasPixel == 1 } {
|
|
set TestPassed [expr $TestPassed + 1]
|
|
} else {
|
|
set TestPassed 0
|
|
}
|
|
|
|
# test pixels in center right corner
|
|
set HasPixel 1
|
|
for {set i 0} {$i < $limit_x} {incr i} {
|
|
for {set j 0} {$j < $limit_y} {incr j} {
|
|
set coord_x [expr ($view_width-$limit_y) + $i]
|
|
set coord_y [expr ($view_height-$limit_y)/2 + $j]
|
|
if { "[vreadpixel $coord_x $coord_y rgb]" == "$r $g $b" } {
|
|
set HasPixel 1
|
|
}
|
|
}
|
|
}
|
|
if { $HasPixel == 1 } {
|
|
set TestPassed [expr $TestPassed + 1]
|
|
} else {
|
|
set TestPassed 0
|
|
}
|
|
|
|
# test pixels in center left corner (shouldn't be anything)
|
|
set HasPixel 0
|
|
for {set i 0} {$i < $limit_x} {incr i} {
|
|
for {set j 0} {$j < $limit_y} {incr j} {
|
|
set coord_x [expr $view_width/4 + $i]
|
|
set coord_y [expr ($view_height-$limit_y)/2 + $j]
|
|
if { "[vreadpixel $coord_x $coord_y rgb]" == "$r $g $b" } {
|
|
set HasPixel 1
|
|
}
|
|
}
|
|
}
|
|
if { $HasPixel == 1 } {
|
|
set TestPassed 0
|
|
} else {
|
|
set TestPassed [expr $TestPassed + 1]
|
|
}
|
|
|
|
# show all primitives
|
|
vdisplayall
|
|
vtop
|
|
vfit
|
|
|
|
# return a result
|
|
if { ${TestPassed} == 4 } {
|
|
return 1
|
|
} else {
|
|
return 0
|
|
}
|
|
}
|
|
|
|
# ### THIS IS THE HEAD LOOP OF THE TEST ####################
|
|
# During this test primitives are created and displayed
|
|
# with commands vdrawparray, and verified for consistency
|
|
# with check_primitive procedure. In spite of the fact that there
|
|
# a lot of code below, it's similar and divided on the similar
|
|
# blocks of code.
|
|
# The iteration loop is intended to check primitives with
|
|
# "vertex buffer objects" turned off (vbo_enable = 0) and
|
|
# turned on (vbo_enable = 1)
|
|
|
|
for {set vbo_enable 0} {$vbo_enable < 2} {incr vbo_enable} {
|
|
vinit
|
|
if { $vbo_enable == 0 } {
|
|
vvbo 0
|
|
puts "TEST WITH VBO is OFF"
|
|
}
|
|
if { $vbo_enable == 1 } {
|
|
vvbo 1
|
|
puts "TEST WITH VBO is ON"
|
|
}
|
|
|
|
## vinit
|
|
veraseall
|
|
vclear
|
|
|
|
# this points are only to simplify visiual check of dumped image
|
|
vpoint point1 65 0 0
|
|
vpoint point2 -145 0 0
|
|
|
|
# ****************************** Graphic3d_ArrayOfPoints ****************************** #
|
|
puts "Graphic3d_ArrayOfPoints: TEST"
|
|
#
|
|
# 1: verticies
|
|
#
|
|
generate_points 60 0 0 $colorY_R $colorY_G $colorY_B
|
|
eval vdrawparray pt01 points $vbo_enable $pts01 $pts02 $pts03 $pts04 $pts05 $pts06
|
|
|
|
# ****************************** Graphic3d_ArrayOfSegments ****************************** #
|
|
puts "Graphic3d_ArrayOfSegments: TEST"
|
|
#
|
|
# 1: verticies
|
|
#
|
|
generate_points 50 0 0 $colorY_R $colorY_G $colorY_B
|
|
eval vdrawparray seg01 segments $vbo_enable $pts02 $pts01 $pts01 $pts03 $pts03 $pts05 $pts05 $pts06 $pts06 $pts04 $pts04 $pts02
|
|
#
|
|
# 2: edges
|
|
#
|
|
generate_points 40 0 0 $colorR_R $colorR_G $colorR_B
|
|
eval vdrawparray seg02 segments $vbo_enable $pts01 $pts02 $pts03 $pts04 $pts05 $pts06 e 1 e 2 e 2 e 4 e 4 e 6 e 6 e 5 e 5 e 3 e 3 e 1
|
|
|
|
# ****************************** Graphic3d_ArrayOfPolylines ****************************** #
|
|
puts "Graphic3d_ArrayOfPolylines: TEST"
|
|
#
|
|
# 1: verticies
|
|
#
|
|
generate_points 30 0 0 $colorY_R $colorY_G $colorY_B
|
|
eval vdrawparray pline01 polylines $vbo_enable $pts02 $pts01 $pts03 $pts05 $pts06 $pts04 $pts02
|
|
#
|
|
# 2: edges
|
|
#
|
|
generate_points 20 0 0 $colorR_R $colorR_G $colorR_B
|
|
eval vdrawparray pline02 polylines $vbo_enable $pts01 $pts02 $pts03 $pts04 $pts05 $pts06 e 2 e 4 e 6 e 5 e 3 e 1 e 2
|
|
#
|
|
# 3: bounds
|
|
#
|
|
generate_points 10 0 0 $colorY_R $colorY_G $colorY_B
|
|
eval vdrawparray pline03 polylines $vbo_enable ( b 3 ( $pts02 $pts01 $pts03 )), ( b 4 ( $pts03 $pts05 $pts06 $pts04 )), ( b 2 ( $pts04 $pts02 ))
|
|
#
|
|
# 4: verticies, bounds and edges
|
|
#
|
|
generate_points 0 0 0 $colorR_R $colorR_G $colorR_B
|
|
eval vdrawparray pline04 polylines $vbo_enable $pts01 $pts02 $pts03 $pts04 $pts05 $pts06 ( b 4 ( e 2 e 1 e 3 e 5 )), ( b 4 ( e 5 e 6 e 4 e 2 ))
|
|
|
|
# ****************************** Graphic3d_ArrayOfTriangles ****************************** #
|
|
puts "Graphic3d_ArrayOfTriangles: TEST"
|
|
#
|
|
# 1: verticies
|
|
#
|
|
generate_points -10 0 0 $colorB_R $colorB_G $colorB_B
|
|
eval vdrawparray t01 triangles $vbo_enable ( $pts03 $pts02 $pts01 ) , ( $pts03 $pts04 $pts02 ) , ( $pts04 $pts03 $pts06 ) , ( $pts06 $pts03 $pts05 )
|
|
#
|
|
# 2: by edges
|
|
#
|
|
generate_points -20 0 0 $colorG_R $colorG_G $colorG_B
|
|
eval vdrawparray t02 triangles $vbo_enable $pts01 $pts02 $pts03 $pts04 $pts05 $pts06 e 6 e 3 e 5 e 6 e 4 e 3 e 1 e 3 e 2 e 2 e 3 e 4
|
|
|
|
# ****************************** Graphic3d_ArrayOfTriangleFans ****************************** #
|
|
puts "Graphic3d_ArrayOfTriangleFans: TEST"
|
|
#
|
|
# 1: verticies
|
|
#
|
|
generate_points -30 0 0 $colorB_R $colorB_G $colorB_B
|
|
eval vdrawparray tfan01 trianglefans $vbo_enable ( $pts02 $pts01 $pts03 $pts04 )
|
|
eval vdrawparray tfan02 trianglefans $vbo_enable ( $pts03 $pts05 $pts06 $pts04 )
|
|
#
|
|
# 2: bounds and verticies
|
|
#
|
|
generate_points -40 0 0 $colorG_R $colorG_G $colorG_B
|
|
eval vdrawparray tfan03 trianglefans $vbo_enable ( b 4 ( $pts02 $pts01 $pts03 $pts04 )), ( b 4 ( $pts03 $pts05 $pts06 $pts04 ))
|
|
|
|
# ****************************** Graphic3d_ArrayOfTriangleStrips ****************************** #
|
|
puts "Graphic3d_ArrayOfTriangleStrips: TEST"
|
|
#
|
|
# 1: verticies
|
|
#
|
|
generate_points -50 0 0 $colorB_R $colorB_G $colorB_B
|
|
eval vdrawparray tstrip01 trianglestrips $vbo_enable ( $pts06 $pts04 $pts03 $pts02 $pts01 )
|
|
eval vdrawparray tstrip02 trianglestrips $vbo_enable ( $pts03 $pts05 $pts06 )
|
|
#
|
|
# 2: bounds and verticies
|
|
#
|
|
generate_points -60 0 0 $colorG_R $colorG_G $colorG_B
|
|
eval vdrawparray tstrip03 trianglestrips $vbo_enable ( b 5 ( $pts06 $pts04 $pts03 $pts02 $pts01 )) , ( b 3 ( $pts03 $pts05 $pts06 ))
|
|
|
|
# ****************************** Graphic3d_ArrayOfQuadrangles ****************************** #
|
|
puts "Graphic3d_ArrayOfQuadrangles: TEST"
|
|
#
|
|
# 1: verticies
|
|
#
|
|
generate_points -70 0 0 $colorB_R $colorB_G $colorB_B
|
|
eval vdrawparray q01 quads $vbo_enable ( $pts01 $pts03 $pts04 $pts02 )
|
|
eval vdrawparray q02 quads $vbo_enable ( $pts03 $pts05 $pts06 $pts04 )
|
|
#
|
|
# 2: verticies and edges
|
|
#
|
|
generate_points -80 0 0 $colorG_R $colorG_G $colorG_B
|
|
eval vdrawparray q03 quads $vbo_enable $pts01 $pts02 $pts03 $pts04 $pts05 $pts06 e 1 e 3 e 4 e 2 e 3 e 5 e 6 e 4
|
|
|
|
# ****************************** Graphic3d_ArrayOfQuadrangleStrips ****************************** #
|
|
puts "Graphic3d_ArrayOfQuadrangleStrips: TEST"
|
|
#
|
|
# 1: verticies
|
|
#
|
|
generate_points -90 0 0 $colorB_R $colorB_G $colorB_B
|
|
eval vdrawparray qstrips01 quadstrips $vbo_enable ( $pts02 $pts01 $pts04 $pts03 $pts06 $pts05 )
|
|
#
|
|
# 2: verticies and edges
|
|
#
|
|
generate_points -100 0 0 $colorG_R $colorG_G $colorG_B
|
|
eval vdrawparray qstrips02 quadstrips $vbo_enable ( b 4 ( $pts02 $pts01 $pts04 $pts03 )) , ( b 4 ( $pts04 $pts03 $pts06 $pts05 ))
|
|
|
|
# ****************************** Graphic3d_ArrayOfPolygons ****************************** #
|
|
puts "Graphic3d_ArrayOfPolygons: TEST"
|
|
#
|
|
# 1: verticies
|
|
#
|
|
generate_points -110 0 0 $colorB_R $colorB_G $colorB_B
|
|
eval vdrawparray poly01 polygons $vbo_enable ( $pts04 $pts02 $pts01 $pts03 $pts05 $pts06 )
|
|
#
|
|
# 2: verticies and bounds
|
|
#
|
|
generate_points -120 0 0 $colorG_R $colorG_G $colorG_B
|
|
eval vdrawparray poly02 polygons $vbo_enable ( b 5 ( $pts04 $pts02 $pts01 $pts03 $pts06 )) , ( b 3 ( $pts06 $pts03 $pts05 ))
|
|
#
|
|
# 3: verticies and edges
|
|
#
|
|
generate_points -130 0 0 $colorB_R $colorB_G $colorB_B
|
|
eval vdrawparray poly03 polygons $vbo_enable $pts01 $pts02 $pts03 $pts04 $pts05 $pts06 e 4 e 2 e 1 e 3 e 5 e 6
|
|
#
|
|
# 4: vertices, bounds and edges
|
|
#
|
|
|
|
generate_points -140 0 0 $colorG_R $colorG_G $colorG_B
|
|
eval vdrawparray poly04 polygons $vbo_enable $pts01 $pts02 $pts03 $pts04 $pts05 $pts06 ( b 5 ( e 4 e 2 e 1 e 3 e 6 )), ( b 3 ( e 6 e 3 e 5 ))
|
|
|
|
vtop
|
|
vfit
|
|
|
|
# dump resulted image
|
|
# vfeedback ;# fails on Intel HD 4600 with FPE signals armed
|
|
if { $vbo_enable == 0 } { vdump ${imagedir}/$ImageName1 }
|
|
if { $vbo_enable == 1 } { vdump ${imagedir}/$ImageName2 }
|
|
|
|
}
|
|
|
|
# delete internal procedures
|
|
rename generate_points ""
|
|
rename check_primitive ""
|
|
|
|
checkcolor 200 200 $colorG_R $colorG_G $colorG_B
|
|
checkcolor 220 200 $colorB_R $colorB_G $colorB_B
|
|
if { $stat == 1 } {
|
|
puts "BUG OK ${BUGNUMBER}"
|
|
} else {
|
|
puts "BUG FAULTY ${BUGNUMBER}"
|
|
}
|
|
|
|
checkview -screenshot -3d -path ${imagedir}/${test_image}.png
|
|
|
|
|