tests/bugs/modalg_2/bug487

   1 puts "TODO OCC24156 MacOS: Faulty OCC485: function BLEND works wrongly"
   2 puts "TODO OCC24156 MacOS: Tcl Exception: result is not a topological shape!!!"
   3 puts "TODO OCC24156 MacOS: TEST INCOMPLETE"
   4
   5 puts "========================"
   6 puts " OCC487 "
   7 puts "========================"
   8 #######################################################
   9 ## Regression on KAS:dev:ros with respect to OCC4.0
  10 ## Case cfi 900 N3.
  11 ## Fillets are created on OCC4.0
  12 #######################################################
  13
  14 restore [locate_data_file CFI_pro15441.rle] m
  15 explode m e
  16
  17 if [catch {blend result  m 2 m_36 2 m_21 } result] {
  18     puts "Faulty OCC485: function BLEND works wrongly"
  19 } else {
  20     puts "OCC485 OK: function BLEND works properly "
  21 }
  22
  23 explode result sh
  24
  25 renamevar result_1 result
  26
  27 set square 6265.68
  28 set 3dviewer 1
  29
  30
  31
  32
  33