tests/bugs/modalg/bug60668

   1
   2 puts "===================="
   3 puts "BUC60668"
   4 puts "Three boxes must appear on picture"
   5 puts "===================="
   6
   7 box b 100 0 0 10 10 10
   8 box b1 10 10 10
   9 box b2 50 50 50 10 10 10
  10 box a -10 -10 -10 200 200 200
  11
  12 compound b b1 b2 c
  13
  14 regexp {Mass +: +([-0-9.+eE]+)} [vprops c] full vcomp
  15
  16 #compound b b1 c
  17 bcommon result c a
  18
  19 regexp {Mass +: +([-0-9.+eE]+)} [vprops result] full vcomm
  20
  21 if { $vcomp != $vcomm } {
  22     puts " Faulty : Common is incorrect"
  23 } else {
  24     puts " BUC60668 OK : Common was made properly"
  25 }
  26 set square 1800
  27 set 2dviewer 0