0026928: Edges are meshed too coarsly
[occt.git] / tests / bugs / mesh / bug26928
index efe0aee..192343c 100644 (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 "" 
-}