1 puts "TODO OCC24156 MacOS: \\*\\* Exception \\*\\*.*"
2 puts "TODO OCC24156 MacOS: An exception was caught"
3 puts "TODO OCC24156 MacOS: OCC8842: Faulty"
10 #######################################################################
11 # Errors in Offset Shape algorithm working with bspline and surface of revolution
12 #######################################################################
16 if {[info commands testreadiges] == ""} {pload XSDRAW}
18 proc myoffset {result sh val tan} {
20 offsetparameter 1e-7 p i
22 offsetparameter 1e-7 p a
24 uplevel offsetload $sh $val
25 uplevel offsetperform $result
28 testreadiges [locate_data_file OCC8842_cylinder_CATIA.igs] a3
32 # join type Intersection
33 puts "***** offsetting with join type Intersection"
34 puts " cylinder_CATIA + 5"
36 if [catch { myoffset result cyl1 5 1 } catch_result] {
37 puts "${BugNumber}: Faulty (1)"
48 set nb_compound_good 0