tests/bugs/step/bug725_1

   1 puts "============"
   2 puts "OCC725"
   3 puts "============"
   4 puts ""
   5 ###########################################################
   6 ## Storing all free vertices of STEP into one SHAPE_DEFINITION_REPRESENTATION
   7 ######################################################################
   8
   9 set file2 ${imagedir}/OCC725.stp
  10
  11 stepread [locate_data_file OCC725.stp] a *
  12
  13 set len [nbshapes a_1]
  14 regexp {VERTEX +: +([-0-9.+eE]+)} $len full VERTEX1
  15
  16 stepwrite a a_1 $file2
  17
  18 stepread $file2 b *
  19
  20 set len [nbshapes b_1]
  21 regexp {VERTEX +: +([-0-9.+eE]+)} $len full VERTEX2
  22
  23 if { ${VERTEX1} != ${VERTEX2} } {
  24     puts "Faulty OCC725"
  25 }
  26