tests/bugs/step/bug51

   1 puts "================"
   2 puts "OCC51"
   3 puts "================"
   4 puts ""
   5
   6 puts " write STEP and IGES file "
   7 box b 12 34 56
   8
   9 ######################################################################
  10 catch {exec rm ${imagedir}/box.step}
  11 catch {exec rm ${imagedir}/box.igs}
  12
  13 stepwrite a b ${imagedir}/box.step
  14
  15 brepiges b ${imagedir}/box.igs
  16 ####################################################
  17 dall
  18 puts " Read STEP  file "
  19 stepread ${imagedir}/box.step a *
  20
  21 puts " Read IGES file "
  22 igesbrep ${imagedir}/box.igs b *
  23
  24 compound a_1 b_1 result
  25 puts [checkshape result]
  26
  27 set 2dviewer 0
  28