1 puts "TODO ?OCC12345 ALL: An exception was caught"
2 puts "TODO ?OCC12345 ALL: \\*\\* Exception"
3 puts "TODO ?OCC12345 ALL: Error: Offset is not done."
4 puts "TODO ?OCC12345 ALL: Faulty BUC60782: mkoffset works wrongly"
5 puts "TODO ?OCC12345 ALL: Error : The square of result shape is"
7 puts "========================"
10 puts "========================"
12 puts "Results of Geom2d_OffsetCurve are sometimes strange (not correct). "
15 restore [locate_data_file buc60782a.brep] a
16 set che [checkshape a]
17 if { [regexp {Faulty} $che ] == 1 } {
18 puts "Faulty BUC60782 (case 1): Source shape is invalid"
20 puts "BUC60782 OK (case 1): Sourse shape is correct"
23 set che [checkshape a rr]
24 if { [regexp {OK} $che ] != 1} {
25 puts "Faulty : mistakes are found in SOURCE shape by checkshape command"
26 puts "Body of the script was not executed"
28 puts "Checking of SOURCE shape by checkshape - OK"
29 if [catch { mkoffset result a 1 10 } catch_result] {
30 puts "Faulty BUC60782: mkoffset works wrongly"
33 puts "OK BUC60782: offset is created"
34 compound result_1 a result
39 set square 4.24716e+006