tests/lowalgos/intss/bug33244

   1
   2 puts "============"
   3 puts "0033244: Modeling Algorithms - Surface-surface intersection produces the double curves"
   4 puts "============"
   5 puts ""
   6
   7
   8 set PI180 0.017453292519943295
   9
  10 set x -1.11630646267172
  11 set y -4.54487349779333
  12 set z 13.2493435203532
  13 set dx -1.05794851588922e-07
  14 set dy -1.39278337794573e-08
  15 set dz  0.999999999999994
  16 set ux 0.999999999999994
  17 set uy 5.91645678915759e-31
  18 set uz 1.05794851588922e-07
  19 set semi-angle [expr 0.785398163360967 / ${PI180}]
  20 set radius 0.560000000061149
  21
  22 cone s1 ${x} ${y} ${z} ${dx} ${dy} ${dz} ${semi-angle} ${radius}
  23
  24 set x -2.08647872350287e-07
  25 set y -5.78732475509323
  26 set z 13.2493436211
  27 set dx -1.05794850062242e-07
  28 set dy -1.39278350756825e-08
  29 set dz  0.999999999999994
  30 set ux 0.999999999999995
  31 set uy 0
  32 set uz 1.05794850062242e-07
  33 set semi-angle [expr 0.785398163396248 / ${PI180}]
  34 set radius 0.785398163396248
  35
  36 cone s2 ${x} ${y} ${z} ${dx} ${dy} ${dz} ${semi-angle} ${radius}
  37
  38 intersect ii s1 s2
  39 if { ![isdraw ii_1] || ![isdraw ii_2] || [isdraw ii_3] } {
  40    puts "ERROR. Intersection is wrong"
  41 }
  42
  43 intersect jj s2 s1
  44 if { ![isdraw jj_1] || ![isdraw jj_2] || [isdraw jj_3] } {
  45    puts "ERROR. Intersection is wrong"
  46 }
  47
  48