tests/bugs/modalg_5/bug24648

   1 puts "==========="
   2 puts "OCC24648"
   3 puts "==========="
   4 puts ""
   5 ##############################################################
   6 # Different types of intersection curves between Cone and Torus with a different order of arguments
   7 ##############################################################
   8
   9 cone s1 60 0
  10 torus s2 30 20
  11
  12 intersect i1 s1 s2
  13 set info1 [dump i1_1]
  14
  15 intersect i2 s2 s1
  16 set info2 [dump i2_1]
  17
  18 set type_of_curve "Circle"
  19
  20 if { [regexp ${type_of_curve} ${info1}] != 1 } {
  21     puts "Error : Wrong type of intersection curve #1"
  22 } else {
  23     puts "OK : Good type of intersection curve #1"
  24 }
  25
  26 if { [regexp ${type_of_curve} ${info2}] != 1 } {
  27     puts "Error : Wrong type of intersection curve #2"
  28 } else {
  29     puts "OK : Good type of intersection curve #2"
  30 }
  31
  32 smallview
  33 donly i1_1 i2_1
  34 fit
  35 checkview -screenshot -2d -path ${imagedir}/${test_image}.png
  36