tests/bugs/moddata_1/bug203

   1
   2 puts "========"
   3 puts "OCC203"
   4 puts "========"
   5
   6 set dx 100
   7 set dy 100
   8 set dz 100
   9
  10 box b ${dx} ${dy} ${dz}
  11
  12 renamevar b edge
  13 explode edge e
  14
  15 renamevar edge face
  16 explode face f
  17
  18 set radis 5
  19 set angle 45
  20
  21 chamf result1 face edge_1 face_3 A ${radis} ${angle}
  22
  23 explode result1 e
  24
  25 if { [catch {fillet result result1 ${radis} result1_1 ${radis} result1_7 } catch_result] } {
  26     set mistake 1
  27 } else {
  28     set  mistake 0
  29 }
  30
  31 if { $mistake != 0} {
  32     puts "OK OCC203"
  33     puts "Filet can not be created"
  34 } else {
  35     puts "Faulty OCC203: function FILLET works wrongly"
  36     checkshape result
  37 }
  38
  39