tests/bugs/step/bug609

   1 puts "================"
   2 puts "OCC609"
   3 puts "================"
   4 puts ""
   5 #################################
   6 ## Impossible to write separate vertices to STEP
   7 #################################
   8
   9 restore [locate_data_file OCC609.brep] a1
  10
  11 ######################################################################
  12 file delete ${imagedir}/vertises.stp
  13 stepwrite a a1 ${imagedir}/vertises.stp
  14
  15 dall
  16
  17 stepread ${imagedir}/vertises.stp a2 *
  18
  19 set tex [nbshapes a2_1]
  20 regexp {VERTEX +: +([-0-9.+eE]+)} $tex full ve
  21
  22 if { $ve != 0 } {
  23     puts  " OCC609 : vertexes were saved and restored properly"
  24 } else {
  25     puts "Faulty OCC609: vertexes were saved and restored wrongly"
  26 }
  27
  28