tests/blend/simple/U1

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