tests/bugs/modalg_6/bug6768

   1 puts "============"
   2 puts "OCC6768"
   3 puts "============"
   4 puts ""
   5 #######################################################
   6 # Problems making offset wires
   7 #######################################################
   8
   9 restore [locate_data_file bug6768.brep] co
  10 explode co
  11 foreach s {co_1 co_2 co_3 co_4} {
  12
  13 puts "\n*** make offset of wire r$s\n"
  14 mkoffset r${s} ${s} 1 -1
  15
  16 regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection r${s}_1] full nbv
  17
  18 if { $nbv != 0 } {
  19   puts "Error : Section is incorrect"
  20 } else {
  21   puts "Section is correct"
  22 }
  23
  24 if { ${s} eq "co_1" } {
  25   checkprops r${s}_1 -l 577.397
  26   checknbshapes r${s}_1 -vertex  99
  27 } elseif { ${s} eq "co_2" } {
  28   checkprops r${s}_1 -l 591.334
  29   checknbshapes r${s}_1 -vertex  80
  30 } elseif { ${s} eq "co_3" } {
  31   checkprops r${s}_1 -l 550.648
  32   checknbshapes r${s}_1 -vertex 111
  33 } else {
  34   checkprops r${s}_1 -l 545.219
  35   checknbshapes r${s}_1 -vertex 290
  36 }
  37
  38 }
  39
  40 smallview
  41 fit
  42
  43 checkview -screenshot -2d -path ${imagedir}/${test_image}.png