8f8398f6 |
1 | puts "========" |
2 | puts "OCC27322" |
3 | puts "========" |
4 | puts "" |
5 | #################################################### |
6 | # geom/revolution_00/A1: Incorrect pcurve creation |
7 | #################################################### |
8 | |
9 | restore [locate_data_file bug27325_edge.brep] en |
10 | restore [locate_data_file bug27325_face.brep] f |
11 | |
12 | bhaspc en f do |
13 | mk2dcurve c1 en f |
14 | explode f e |
15 | mk2dcurve c2 f_3 f |
16 | 2dcvalue c1 0.0025 x y |
8f8398f6 |
17 | |
23e8067c |
18 | set log [2dproj c2 x y] |
19 | |
20 | if { ![regexp {ext_} $log ] } { |
21 | puts "Error: empty projection" |
22 | } elseif { ![regexp {point} [whatis ext_1] ] } { |
23 | puts "ERROR: OCC27322 is reproduced. Incorrect pcurve creation: too long from the source one" |
8f8398f6 |
24 | } |