0026372: Meshing of surface of revolution fails in debug mode
[occt.git] / tests / bugs / vis / bug26344
CommitLineData
825aa485 1puts "============"
2puts "CR26344"
3puts "============"
4puts ""
5
6##########################################################################################
7puts "Visualization - provide a support of zoom persistent selection"
8##########################################################################################
9
10vinit View1 w=409 h=409
11vtrihedron tri
12vpan 50 50
13
91d96372 14box b1 25 25 25
15box b2 25 25 25
825aa485 16box b3 100 100 100
17box b4 100 100 100
18box b5 100 100 100
19
20# 1) Zoom persistence
21vpoint p1 200 200 200
22
23vdisplay b1 -trsfPers zoom -trsfPersPos 200 200 200
24vdisplay b2 -trsfPers zoom -trsfPersPos 200 200 200
91d96372 25vsetlocation b2 -25 -25 -25
825aa485 26
27vmoveto 384 78
28if { ![checkcolor 384 78 0 1 1] } {
29 puts "Error picking zoom persistence object"
30}
31
32vmoveto 356 96
33if { ![checkcolor 356 96 0 1 1] } {
34 puts "Error picking zoom persistent object with location"
35}
36
37vselect 330 120 400 50
38
39if { ![checkcolor 384 78 0.8 0.8 0.8] || ![checkcolor 356 96 0.8 0.8 0.8] } {
40 puts "Error selecting zoom persistence object(s)"
41}
42
43# 2) Rotate persistence
44
45vdisplay b3 -trsfPers rotate -trsfPersPos -200 -200 -200
46vmoveto 160 200
47if { ![checkcolor 160 180 0 1 1] } {
48 puts "Error picking rotate persistence object"
49}
50vselect 130 230 190 170
51if { ![checkcolor 160 180 0.8 0.8 0.8] } {
52 puts "Error selecting rotate persistence object"
53}
54
55# 3) Pan persistence
56
57vdisplay b4 -trsfPers pan
58vmoveto 233 188
59if { ![checkcolor 233 188 0 1 1] } {
60 puts "Error picking pan persistence object"
61}
62vselect 200 230 270 140
63if { ![checkcolor 233 188 0.8 0.8 0.8] } {
64 puts "Error selecting pan persistence object"
65}
66
67# 4) Trihedron persistence
68
69vdisplay b5 -trsfPers trihedron -trsfPersPos -1 -1 300
70vmoveto 90 300
71if { ![checkcolor 90 300 0 1 1] } {
72 puts "Error picking trihedron persistence object"
73}
74vselect 50 380 140 280
75if { ![checkcolor 90 300 0.8 0.8 0.8] } {
76 puts "Error selecting trihedron persistence object"
77}
78
79vselect 50 380 400 50
80
5747059b 81checkview -screenshot -3d -path ${imagedir}/${test_image}.png