tests/bugs/modalg_7/bug25983_2

   1 puts "========"
   2 puts "OCC25983"
   3 puts "========"
   4 puts ""
   5 ##########################################
   6 # Fusion of sweep and its mirror invalid
   7 ##########################################
   8
   9 restore [locate_data_file bug25983_deform-fusion1-tcl-BSpline.brep] BSpline
  10 wire Knurling-0-spine BSpline
  11 mksweep Knurling-0-spine
  12 setsweep -FR
  13 polyline DWire 0 0 0 1 -0.9999999999999998 0 1.0000000000000002 0.9999999999999998 0 0 0 0
  14 trotate DWire 0 0 0 1 0 0 134.99999999999693
  15 ttranslate DWire 9 0 0
  16 addsweep DWire
  17 buildsweep Knurling -C -S
  18 copy Knurling Clone
  19 tmirror Clone 0 0 0 1 0 0
  20
  21 bfuzzyvalue 1.e-3
  22 bfuse result Knurling Clone
  23
  24 checkshape result
  25 checknbshapes result -wire 24 -face 24 -shell 1 -solid 1
  26 checkprops result -s 262.476 -v 54.0383
  27
  28 checkview -display result -2d -path ${imagedir}/${test_image}.png