tests/bugs/modalg_6/bug8040

   1 puts "============"
   2 puts "OCC8040"
   3 puts "============"
   4 puts ""
   5 ##################################
   6 #  Offset direction is wrong for a closed circle
   7 ##################################
   8
   9 circle c 1 0 0 20
  10 offset c1 c 10 0 0 1
  11 offset c2 c -10 0 0 1
  12 checklength c -l 125.66370614359172
  13 checklength c1 -l 188.49555921538757
  14 checklength c2 -l 62.831853071795862
  15
  16 mkedge e c
  17 mkedge e1 c1
  18 mkedge e2 c2
  19 vertex v1 0 35 0
  20 vertex v2 0 -35 0
  21 edge e3 v1 v2
  22 set index 0
  23 set number_of_vertex 0
  24 foreach s {e e1 e2} {
  25 set index [expr $index + 1 ]
  26 bop $s e3
  27 bopsection result$index
  28 regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result$index] full nbv
  29 set number_of_vertex [expr $number_of_vertex + $nbv]
  30 puts "number_of_vertex = $number_of_vertex"
  31 }
  32
  33 if { $number_of_vertex != 6 } { puts "Error : Section is incorrect" }
  34
  35 smallview
  36 fit
  37
  38 checkview -screenshot -2d -path ${imagedir}/${test_image}.png
  39