5185b161 |
1 | puts "============" |
2 | puts "OCC27780" |
3 | puts "============" |
4 | puts "" |
5 | ###################################################### |
6 | # Face-face intersection produces 2D curve that has reversed derivative at its end |
7 | ###################################################### |
8 | |
9 | restore [locate_data_file buc60532a.brep] p |
10 | restore [locate_data_file buc60532b.brep] t1 |
11 | explode t1 f |
12 | |
13 | bopcurves p t1_2 -2d -p 6.2406621764215551 0.23999999463558200 0.00034444887595448459 -5.0019657458625186 |
14 | |
15 | pcurve p |
16 | trim c c2d1_1 0 1 |
17 | 2dcvalue c 0 u0 v0 |
18 | 2dcvalue c 1 u1 v1 du dv |
19 | dset u01 u1-u0 |
20 | dset v01 v1-v0 |
21 | dset dot u01*du+v01*dv |
22 | |
23 | if {[dval dot] < 0} { |
24 | puts "Error: p-curve has reversed direction at its end" |
25 | } else { |
26 | puts "OK: p-curve has correct direction at its end" |
27 | } |
28 | |
29 | view 1 -2D- 728 450 400 400 |
30 | don p_* c |
31 | 2dfit |
32 | |
33 | checkview -screenshot -2d -path ${imagedir}/${test_image}.png |