0031460: Modeling Algorithms - Regression: Revolution not done.
[occt.git] / tests / bugs / modalg_7 / bug31460
1 puts "========"
2 puts "0031460: Modeling Algorithms - Regression: Revolution not done."
3 puts "========"
4 puts ""
5
6 circle cir 3 2.9999999999989 0 0 0 -1 -1 0 0 3
7 trim cir cir 4.71238898038469 6.28318530717959
8 mkedge e cir
9
10 ## sector
11 revol r10 e 0 0 0 1 0 0 10 1
12
13 if { [isdraw r10] == 1 } {
14   if { [regexp "valid" [checkshape r10]] && [regexp "OK" [bopcheck r10 4]]} {
15     puts "OK: valid shape is created"
16   } else {
17     puts "Error: algorithm created wrong shape"
18   }
19 } else {
20   puts "Error: algorithm did not create shape"
21 }
22
23 ## full revol
24 revol r360 e 0 0 0 1 0 0 360 1
25
26 if { [isdraw r360] == 1 } {
27   if { [regexp "valid" [checkshape r360]] && [regexp "OK" [bopcheck r360 4]]} {
28     puts "OK: valid shape is created"
29   } else {
30     puts "Error: algorithm created wrong shape"
31   }
32 } else {
33   puts "Error: algorithm did not create shape"
34 }