tests/bugs/modalg_5/bug24973

   1 puts "============"
   2 puts "OCC24973"
   3 puts "============"
   4 puts ""
   5 ######################################################
   6 # Incorrect PCurve construction
   7 ######################################################
   8
   9 restore [locate_data_file bug24973_Face.brep] f
  10
  11 pcurve f
  12 explode f e
  13
  14 tcopy f_9 e
  15 bhaspc e f do
  16 mk2dcurve c e f
  17 to3d c3d c
  18 mkedge e c3d
  19
  20 set info [bopargcheck e #F]
  21
  22 if { [regexp "to be valid for BOP" ${info}] == 1 } {
  23     puts "OK : Created curve is correct"
  24 } else {
  25     puts "Error : Created curve is not correct"
  26 }