tests/bugs/moddata/buc60889

   1
   2 puts "========"
   3 puts "BUC60889"
   4 puts "BUC60947"
   5 puts "========"
   6
   7 pload QAcommands
   8
   9 set bndbox_X1 0
  10 set bndbox_Y1 0
  11 set bndbox_Z1 0
  12 set bndbox_X2 30
  13 set bndbox_Y2 10
  14 set bndbox_Z2 20
  15
  16 set point_1_1_X -30
  17 set point_1_1_Y -10
  18 set point_1_1_Z 5
  19 set point_1_2_X -30
  20 set point_1_2_Y -10
  21 set point_1_2_Z 15
  22
  23 set point_1_3_X -15
  24 set point_1_3_Y -5
  25 set point_1_3_Z 5
  26
  27 set dx_1 [ expr { $point_1_3_X - $point_1_1_X } ]
  28 set dy_1 [ expr { $point_1_3_Y - $point_1_1_Y } ]
  29 set dz_1 [ expr { $point_1_3_Z - $point_1_1_Z } ]
  30
  31 point point_1_1 $point_1_1_X $point_1_1_Y $point_1_1_Z
  32 point point_1_2 $point_1_2_X $point_1_2_Y $point_1_2_Z
  33 polyline p_line_1 $point_1_1_X $point_1_1_Y $point_1_1_Z $point_1_2_X $point_1_2_Y $point_1_2_Z
  34 vertex vertex_1_1 $point_1_1_X $point_1_1_Y $point_1_1_Z
  35 vertex vertex_1_2 $point_1_3_X $point_1_3_Y $point_1_3_Z
  36 edge edge_1 vertex_1_1 vertex_1_2
  37
  38 puts ""
  39
  40 set point_2_1_X 30
  41 set point_2_1_Y 10
  42 set point_2_1_Z -5
  43 set point_2_2_X 30
  44 set point_2_2_Y 10
  45 set point_2_2_Z -15
  46
  47 set point_2_3_X 0
  48 set point_2_3_Y 10
  49 set point_2_3_Z -5
  50
  51 set dx_2 [ expr { $point_2_3_X - $point_2_1_X } ]
  52 set dy_2 [ expr { $point_2_3_Y - $point_2_1_Y } ]
  53 set dz_2 [ expr { $point_2_3_Z - $point_2_1_Z } ]
  54
  55 point point_2_1 $point_2_1_X $point_2_1_Y $point_2_1_Z
  56 point point_2_2 $point_2_2_X $point_2_2_Y $point_2_2_Z
  57 polyline p_line_2 $point_2_1_X $point_2_1_Y $point_2_1_Z $point_2_2_X $point_2_2_Y $point_2_2_Z
  58 vertex vertex_2_1 $point_2_1_X $point_2_1_Y $point_2_1_Z
  59 vertex vertex_2_2 $point_2_3_X $point_2_3_Y $point_2_3_Z
  60 edge edge_2 vertex_2_1 vertex_2_2
  61
  62 puts ""
  63
  64 box bndbox $bndbox_X1 $bndbox_Y1 $bndbox_Z1 $bndbox_X2 $bndbox_Y2 $bndbox_Z2
  65
  66
  67 line line_1_1 $point_1_1_X $point_1_1_Y $point_1_1_Z $dx_1 $dy_1 $dz_1
  68 line line_1_2 $point_1_2_X $point_1_2_Y $point_1_2_Z $dx_1 $dy_1 $dz_1
  69
  70 line line_2_1 $point_2_1_X $point_2_1_Y $point_2_1_Z $dx_2 $dy_2 $dz_2
  71 line line_2_2 $point_2_2_X $point_2_2_Y $point_2_2_Z $dx_2 $dy_2 $dz_2
  72
  73 puts ""
  74
  75 set result1 [BUC60889 point_1_1 point_1_2 edge_1 $bndbox_X1 $bndbox_Y1 $bndbox_Z1 $bndbox_X2 $bndbox_Y2 $bndbox_Z2]
  76
  77 if {${result1} != "The band intersects the box\n"} {
  78   puts "BUC60889: Error; (case 1)"
  79 } else {
  80   puts "BUC60889: OK; (case 1)"
  81 }
  82
  83 puts ""
  84
  85 set result2 [BUC60889 point_2_1 point_2_2 edge_2 $bndbox_X1 $bndbox_Y1 $bndbox_Z1 $bndbox_X2 $bndbox_Y2 $bndbox_Z2]
  86
  87 if {${result2} != "The band lies out of the box\n"} {
  88   puts "BUC60889: Error; (case 2)"
  89 } else {
  90   puts "BUC60889: OK; (case 2)"
  91 }
  92
  93