tests/bugs/moddata_2/bug333

   1 puts "================"
   2 puts "OCC333"
   3 puts "================"
   4 puts ""
   5 #######################################################
   6 ## Superimposed curves during intersection two surfaces
   7 #######################################################
   8
   9 pload QAcommands
  10
  11 restore [locate_data_file OCC333a.draw] s12
  12 ############### checkshape su12 # is not a topological shape
  13 restore [locate_data_file OCC333b.draw] s11
  14 ############### checkshape su11 # is not a topological shape
  15 intersect result s12 s11
  16 explode result e
  17 clknots result_3
  18 clknots result_13
  19
  20 mkedge e_1 result_3
  21 mkedge e_2 result_13
  22
  23 set status [OCC333 e_1 e_2]
  24 if {[llength ${status}] < 1} {
  25     puts "OCC333 ERROR"
  26 } else {
  27     regexp {([-0-9.+eE]+)} ${status} full code
  28     if { ${code} == 3 || ${code} == 2} {
  29         puts "OCC333 OK  : Intersection command works properly"
  30     } else {
  31         puts "Faulty OCC333 : Intersection was made WRONGLY"
  32     }
  33 }
  34
  35 donly i_3 i_13
  36
  37 set 2dviewer 0