efe0aeea039890a60013bea04141c5459f280659
[occt.git] / tests / bugs / mesh / bug26928
1 puts "TODO CR26928 All: Error: Edges are meshed too coarsly"
2 puts "REQUIRED CR26928 All: Error : Colors are not equal in default coordinate and in the near coordinates too"
3
4 puts "========="
5 puts "CR26928"
6 puts "========="
7 puts ""
8 ###############################
9 # Edges are meshed too coarsly
10 ###############################
11
12 restore [locate_data_file bug27356_comp.brep] c
13
14 set x 168
15 set y 298
16
17 vinit
18 vdisplay c
19 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
20 vsetdispmode c 1
21 checkview -screenshot -3d -path ${imagedir}/${test_image}-vdisplay.png
22 if { [checkcolor $x $y 1 0 0] == 1 } {
23   puts "" 
24   puts "vdisplay.png" 
25   puts "Error: Edges are meshed too coarsly" 
26   puts "" 
27 } else {
28   puts "" 
29   puts "vdisplay.png" 
30   puts "OK: Edges are meshed good" 
31   puts "" 
32 }
33
34 incmesh c 0.715 -a 11.459
35 vdisplay -redisplay c
36 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
37 checkview -screenshot -3d -path ${imagedir}/${test_image}-0715.png
38 if { [checkcolor $x $y 1 0 0] == 1 } {
39   puts "" 
40   puts "0715.png" 
41   puts "Error: Edges are meshed too coarsly" 
42   puts "" 
43 } else {
44   puts "" 
45   puts "0715.png" 
46   puts "OK: Edges are meshed good" 
47   puts "" 
48 }
49
50 incmesh c 0.5 -a 11.459
51 vdisplay -redisplay c
52 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
53 checkview -screenshot -3d -path ${imagedir}/${test_image}-05.png
54 if { [checkcolor $x $y 1 0 0] == 1 } {
55   puts "" 
56   puts "05.png" 
57   puts "Error: Edges are meshed too coarsly" 
58   puts "" 
59 } else {
60   puts "" 
61   puts "05.png" 
62   puts "OK: Edges are meshed good" 
63   puts "" 
64 }
65
66 incmesh c 0.3 -a 11.459
67 vdisplay -redisplay c
68 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
69 checkview -screenshot -3d -path ${imagedir}/${test_image}-03.png
70 if { [checkcolor $x $y 1 0 0] == 1 } {
71   puts "" 
72   puts "03.png" 
73   puts "Error: Edges are meshed too coarsly" 
74   puts "" 
75 } else {
76   puts "" 
77   puts "03.png" 
78   puts "OK: Edges are meshed good" 
79   puts "" 
80 }
81
82 incmesh c 0.1 -a 11.459
83 vdisplay -redisplay c
84 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
85 checkview -screenshot -3d -path ${imagedir}/${test_image}-01.png
86 if { [checkcolor $x $y 1 0 0] == 1 } {
87   puts "" 
88   puts "01.png" 
89   puts "Error: Edges are meshed too coarsly" 
90   puts "" 
91 } else {
92   puts "" 
93   puts "01.png" 
94   puts "OK: Edges are meshed good" 
95   puts "" 
96 }