tests/blend/simple/U7

   1 puts "TODO OCC22817 All:TEST INCOMPLETE"
   2 #pcylinder s1 5 12
   3 #pcylinder s2 3 15
   4 #trotate s2 0 0 0 1 0 0 90
   5 #ttranslate s2 0 7 7
   6 #fuse s3 s1 s2
   7 #pcylinder s4 3 20
   8 #fuse s s4 s3
   9 #save s 6_I56.draw
  10
  11 restore 6_I56.draw  s
  12 tscale s 0 0 0 SCALE2
  13 explode s E
  14 blend result s 3*SCALE2 s_6
  15
  16 set square 0