tests/bugs/step/bug51

   1 set os $env(os_type)
   2 if { [string compare $os "windows"] == 0 } {
   3 #     puts "TODO OCC23561 $os: child process exited abnormally"
   4 } else {
   5     puts "TODO OCC23561 ALL: An exception was caught"
   6     puts "TODO OCC23561 ALL: Tcl Exception:"
   7     puts "TODO OCC23561 ALL: \\*\\* Exception \\*\\*.*"
   8 }
   9 puts "TODO OCC23561 ALL: TEST INCOMPLETE"
  10
  11 puts "================"
  12 puts "OCC51"
  13 puts "================"
  14 puts ""
  15
  16 puts " write STEP and IGES file "
  17 box b 12 34 56
  18
  19 ######################################################################
  20 catch {exec rm ${imagedir}/box.step}
  21 catch {exec rm ${imagedir}/box.igs}
  22
  23 stepwrite a b ${imagedir}/box.step
  24
  25 brepiges b ${imagedir}/box.igs
  26 ####################################################
  27 dall
  28 puts " Read STEP  file "
  29 stepread ${imagedir}/box.step a *
  30
  31 puts " Read IGES file "
  32 igesbrep ${imagedir}/box.igs b *
  33
  34 compound a_1 b_1 result
  35 puts [checkshape result]
  36
  37 set 2dviewer 0
  38