tests/bugs/step/bug25989

   1 puts "TODO OCC25989 ALL: Error : The volume of result shape is"
   2
   3 puts "========"
   4 puts "OCC25989"
   5 puts "========"
   6 puts ""
   7 ################################################
   8 # toridial surface gets damaged in STEP export
   9 ################################################
  10
  11 set StepFileName ${imagedir}/${casename}_fusion-step1-out.step
  12
  13 catch {exec rm ${StepFileName}}
  14
  15 box Box 10 10 10
  16 pcylinder Cylinder 2 10
  17 psphere Sphere 5
  18 ptorus Torus 10 2
  19
  20 bclearobjects
  21 bcleartools
  22 baddobjects Box
  23 baddtools Cylinder Sphere Torus
  24 bfillds
  25 bbop Fusion 1
  26
  27 checkshape Fusion
  28 bopcheck Fusion
  29
  30 set FusionVolume [lindex [string trim [vprops Fusion]] 2]
  31
  32 stepwrite m Fusion
  33 writeall $StepFileName
  34
  35 stepread $StepFileName a *
  36 renamevar a_1 result
  37
  38 checkshape result
  39 bopcheck result
  40
  41 checkprops result -v $FusionVolume