e98e3990 |
1 | puts "============" |
2 | puts "OCC25410" |
3 | puts "============" |
4 | puts "" |
5 | ###################################################### |
6 | # Tool for extended check of validity of the curve on the surface |
7 | ###################################################### |
8 | |
bd651bbb |
9 | pload XSDRAW IGES |
e98e3990 |
10 | |
11 | testreadiges [locate_data_file bug25410_Tank8.igs] b1 |
12 | |
13 | checkcurveonsurf b1 |
14 | xdistef e_0 f_0 |
15 | bopargcheck b1 /ic #f |
16 | bopargcheck b1 /ics #f |
17 | |
18 | |
19 | testreadiges [locate_data_file bug25410_Tank7.igs] b2 |
20 | checkcurveonsurf b2 |
21 | xdistef e_0 f_0 |
22 | bopargcheck b2 /ic #f |
23 | bopargcheck b2 /ics #f |