53eb908091d89b6737e4c4d1c1a6656f1ea76a24
[occt.git] / tests / bugs / modalg / bug116
1
2 puts "================"
3 puts "OCC116"
4 puts "================"
5 puts ""
6 #############################################
7 ## Creation of chamfer is impossible on attached shape.(SAM1201)
8 #############################################
9
10 restore [locate_data_file OCC116.brep] sh 
11 puts [checkshape sh]
12  
13 explode sh f
14 explode sh_6 e
15
16 if [catch {chamf result sh sh_6_1 sh_6 A 2 45 sh_6_8 sh_6 A 2 45 } catch_result] {
17   puts "1) Faulty  OCC116: chamfer is NOT created properly"
18  } else {
19   puts "1) CHAMF OCC116 OK"
20 }
21
22 set square 48357.5
23 set 2dviewer 0
24