Adding test cases from grid chl
[occt.git] / tests / bugs / modalg / buc60777
1
2 puts "========================"
3 puts "BUC60777"
4 puts "========================"
5
6 profile p x 30 y -10 x 10 y 10 x 10 y 30 t -30 -20 t -30 20 
7 mkoffset result p 1 -1
8 explode p w
9
10 regexp {Mass +: +([-0-9.+eE]+)} [lprops result_1] full end
11 regexp {Mass +: +([-0-9.+eE]+)} [lprops p_1] full end1
12
13 if {  $end >=  $end1} {
14     puts " Faulty Mkoffset operation was made  wrongly"
15  }  else {
16     puts " Mkoffset  operation was made successfully"
17 }
18
19 #  Lenth of "profile" : 203.733802110964
20
21 renamevar result_1 result
22
23 set length 191.044
24 set 2dviewer 0