0027109: Modifiy test cases using procedure checklength
[occt.git] / tests / bugs / moddata_3 / bug25095
1 puts "============"
2 puts "OCC25095"
3 puts "============"
4 puts ""
5 #######################################################################
6 # Wrong result obtained by projection algorithm
7 #######################################################################
8
9 restore [locate_data_file bug25095_fz639.brep] b1
10 restore [locate_data_file bug25095_fz5075.brep] b2
11
12 mksurface s1 b1
13 bopcurves b1 b2
14
15 trim ct1 c_1 0.79929107016766299 7.0824763773472492
16 trim ct2 c_1 0.79929107016766343 7.0824763773472501
17
18 project cp1 ct1 s1
19 project cp2 ct2 s1
20 checklength cp1 -l 7.2783309522
21 checklength cp2 -l 7.2783309522
22
23 #v2d2
24 view 1 -2D-  728 20 400 400
25
26 2dfit
27 set only_screen_axo 1