tests/blend/buildevol/K2

   1 puts "TODO OCC22817 All:Faulty shapes in variables faulty_1 to faulty_2"
   2 #box b -15 -15 -15 15 30 30
   3 #beziercurve w 4 0 0 0 10 0 0 10 10 0 20 10 0
   4 #mkedge w w
   5 #wire w w
   6 #circle profile 0 0 0 1 0 0 10
   7 #mkedge profile profile
   8 #wire profile profile
   9 #mkplane profile profile
  10 #pipe p w profile
  11 #explode b F
  12 #explode p F
  13 #glue r p b p_2 b_2
  14 #pcylinder c 6 10
  15 #ttranslate c -7.5 0 15
  16 #explode c F
  17 #explode r F
  18 #glue s c r c_3 s_6
  19
  20 restore [locate_data_file 6_G56.draw] s
  21 tscale s 0 0 0 SCALE2
  22 fsameparameter s
  23 explode  s E
  24 mkevol result s
  25 updatevol s_12 0 6*SCALE2 1 8*SCALE2 2 6*SCALE2
  26 buildevol
  27
  28 set square 5343.69