a87752f3 |
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 |