tests/bugs/modalg_7/bug26604

   1 puts "TODO OCC26604 ALL: Error: GeomFill_Pipe doesn't fit given bounds"
   2
   3 puts "========"
   4 puts "OCC26604"
   5 puts "========"
   6 puts ""
   7 #######################################################
   8 # GeomFill_Pipe doesn't fit given bounds
   9 #######################################################
  10
  11 pload QAcommands
  12
  13 restore [locate_data_file bug26604_spine.brep] spine
  14 restore [locate_data_file bug26604_bound1.brep] bound1
  15 restore [locate_data_file bug26604_bound2.brep] bound2
  16
  17 mkcurve s spine
  18 mkcurve b1 bound1
  19 mkcurve b2 bound2
  20
  21 OCC9 result s b1 b2 10
  22
  23 smallview
  24 top
  25 clear
  26 display bound1
  27 display bound2
  28 display result
  29 fit
  30 checkview -screenshot -2d -path ${imagedir}/${test_image}-2d.png
  31
  32 mkface face result
  33
  34 vinit
  35 vtop
  36 vclear
  37 vdisplay bound1
  38 vdisplay bound2
  39 vdisplay face
  40 vfit
  41 checkview -screenshot -3d -path ${imagedir}/${test_image}-3d.png
  42
  43 set x 155
  44 set y 185
  45 if { [checkcolor $x $y 0 1 0] == 1 } {
  46   puts "Error: GeomFill_Pipe doesn't fit given bounds"
  47 }