tests/boolean/bcut_complex/O8

   1 ## cts20461
   2 puts "TODO #22911 ALL: Error : The area of the resulting shape is"
   3
   4 restore [locate_data_file cts20461.rle] a
   5 nexplode a f
   6 mksurface surf a_26
   7 nexplode a_26 e
   8 wire wire a_26_3
   9 mkface face surf wire
  10 prism pz face 0 0 10
  11
  12 ## ttranslate pz 0 0 -5
  13 ## essential step to avoid tangent faces
  14
  15 tcopy pz p1
  16 tcopy pz p2
  17 tcopy pz p3
  18 tcopy pz p4
  19 tcopy pz p5
  20 tcopy pz p6
  21
  22 trotate p1 p1 0 0 0 1 0 0 360/7
  23 trotate p2 p2 0 0 0 1 0 0 2*360/7
  24 trotate p3 p3 0 0 0 1 0 0 3*360/7
  25 trotate p4 p4 0 0 0 1 0 0 4*360/7
  26 trotate p5 p5 0 0 0 1 0 0 5*360/7
  27 trotate p6 p6 0 0 0 1 0 0 6*360/7
  28
  29 #pkv f
  30 updatetolerance a  1
  31 updatetolerance p1 1
  32 updatetolerance p2 1
  33 updatetolerance p3 1
  34 updatetolerance p4 1
  35 updatetolerance p5 1
  36 updatetolerance p6 1
  37 #pkv t
  38
  39 bcut r1 a p1
  40 bcut r2 r1 p2
  41 bcut r3 r2 p3
  42 bcut r4 r3 p4
  43 bcut r5 r4 p5
  44 bcut result r5 p6
  45
  46 set square 0