1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-03 17:56:21 +03:00

0026928: Edges are meshed too coarsly

Adding test case for the problem.
The issue has been fixed by a patch for #26106.
This commit is contained in:
nbv 2018-11-07 16:56:57 +03:00 committed by bugmaster
parent 51cf5bb604
commit 080fcebfca

View File

@ -1,96 +1,34 @@
puts "TODO CR26928 All: Error: Edges are meshed too coarsly"
puts "REQUIRED CR26928 All: Error : Colors are not equal in default coordinate and in the near coordinates too"
puts "========="
puts "CR26928"
puts "0026928: Edges are meshed too coarsly"
puts "========="
puts ""
###############################
# Edges are meshed too coarsly
###############################
restore [locate_data_file bug27356_comp.brep] c
set x 168
set y 298
tclean c
vinit
vdisplay c
vviewparams -scale 17.2151 -proj 0.68553 -0.268225 -0.676834 -up -0.664339 0.149845 -0.732257 -at 33.3169 24.0699 29.5546
vviewparams -scale 44.578446 -proj 8.964134e-4 0.055037 -0.998484 -up -0.951475 0.307306 0.016085 -at 44.487383 37.608231 -3.232527 -eye 44.517406 37.608231 -3.232527
vsetdispmode c 1
checkview -screenshot -3d -path ${imagedir}/${test_image}-vdisplay.png
if { [checkcolor $x $y 1 0 0] == 1 } {
puts ""
puts "vdisplay.png"
puts "Error: Edges are meshed too coarsly"
puts ""
} else {
puts ""
puts "vdisplay.png"
puts "OK: Edges are meshed good"
puts ""
}
tclean c
vdefaults -autoTriang 0
incmesh c 0.715 -a 11.459
vdisplay -redisplay c
vviewparams -scale 17.2151 -proj 0.68553 -0.268225 -0.676834 -up -0.664339 0.149845 -0.732257 -at 33.3169 24.0699 29.5546
checkview -screenshot -3d -path ${imagedir}/${test_image}-0715.png
if { [checkcolor $x $y 1 0 0] == 1 } {
puts ""
puts "0715.png"
puts "Error: Edges are meshed too coarsly"
puts ""
} else {
puts ""
puts "0715.png"
puts "OK: Edges are meshed good"
puts ""
}
tclean c
incmesh c 0.5 -a 11.459
vdisplay -redisplay c
vviewparams -scale 17.2151 -proj 0.68553 -0.268225 -0.676834 -up -0.664339 0.149845 -0.732257 -at 33.3169 24.0699 29.5546
checkview -screenshot -3d -path ${imagedir}/${test_image}-05.png
if { [checkcolor $x $y 1 0 0] == 1 } {
puts ""
puts "05.png"
puts "Error: Edges are meshed too coarsly"
puts ""
} else {
puts ""
puts "05.png"
puts "OK: Edges are meshed good"
puts ""
}
tclean c
incmesh c 0.3 -a 11.459
vdisplay -redisplay c
vviewparams -scale 17.2151 -proj 0.68553 -0.268225 -0.676834 -up -0.664339 0.149845 -0.732257 -at 33.3169 24.0699 29.5546
checkview -screenshot -3d -path ${imagedir}/${test_image}-03.png
if { [checkcolor $x $y 1 0 0] == 1 } {
puts ""
puts "03.png"
puts "Error: Edges are meshed too coarsly"
puts ""
} else {
puts ""
puts "03.png"
puts "OK: Edges are meshed good"
puts ""
}
tclean c
incmesh c 0.1 -a 11.459
vdisplay -redisplay c
vviewparams -scale 17.2151 -proj 0.68553 -0.268225 -0.676834 -up -0.664339 0.149845 -0.732257 -at 33.3169 24.0699 29.5546
checkview -screenshot -3d -path ${imagedir}/${test_image}-01.png
if { [checkcolor $x $y 1 0 0] == 1 } {
puts ""
puts "01.png"
puts "Error: Edges are meshed too coarsly"
puts ""
} else {
puts ""
puts "01.png"
puts "OK: Edges are meshed good"
puts ""
}