15173a08 |
1 | puts "============" |
2 | puts "OCC24633" |
3 | puts "============" |
4 | puts "" |
5 | ####################################################################### |
6 | # Incorrect projection of a curve on a surface |
7 | ####################################################################### |
8 | |
9 | restore [locate_data_file bug24633_comp_49.brep] a |
10 | |
11 | explode a |
12 | mkcurve c a_1 |
13 | mksurface s a_2 |
14 | pcurve a_2 |
15 | |
16 | project prj c s |
3ad6d001 |
17 | checklength prj -l 7.2662499016218058 |
15173a08 |
18 | |
19 | #v2d2 |
20 | view 1 -2D- 728 20 400 400 |
21 | |
22 | 2dfit |
5747059b |
23 | checkview -screenshot -2d -path ${imagedir}/${test_image}.png |