tests/blend/tolblend_buildvol/A3

   1 puts "TODO OCC22817 Mandriva2010: Error : The square of reult shape is"
   2
   3 #########################
   4 #      bug sewing       #
   5 #########################
   6 #box b1 0 0 0 5 5 5
   7 #box b2 0 5 0 5 5 5
   8 #box b3 0 0 0 5 10 5
   9 #explode b1 f
  10 #explode b2 f
  11 #explode b3 f
  12 #don b1_1 b2_1 b3_6
  13 #sewing s b1_1 b2_1 b3_6
  14 #########################
  15
  16 restore [locate_data_file 7_B3.draw] s
  17 tscale  s 0 0 0 SCALE
  18 explode s E
  19 mkevol P s
  20 #updatevol s_15 0 1*SCALE1 1 1*SCALE1 2 0.1*SCALE1
  21 # updatevol s_3 0 8*SCALE 1 0*SCALE 2 8*SCALE
  22 updatevol s_7 0 8*SCALE 1 0*SCALE
  23 updatevol s_3 0 0*SCALE 1 8*SCALE
  24 buildevol
  25 explode P Sh
  26 copy P_1 result
  27
  28 set square 4.80062e+08