tests/bugs/vis/bug7691

   1 puts "============"
   2 puts "OCC7691"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 # Wrong hidden lines computed by HLRBRep_PolyAlgo and
   7 #       HLRBRep_PolyHLRToShape in OCC 5.1
   8 #######################################################################
   9
  10 set BugNumber OCC7691
  11 set status 0
  12
  13 # load shape
  14 restore [locate_data_file OCC7691-bottle.brep] shape
  15 trotate shape 0 0 0 1 0 0 -90
  16
  17 # init viewer and compute hlr shape
  18 vinit
  19 vtop
  20 vcomputehlr shape hlr
  21 vfit
  22
  23 set colorR 1
  24 set colorG 0
  25 set colorB 0
  26
  27 # move cursor not to select shape
  28 vmoveto 0 0
  29
  30 # start position of color picking
  31 set ptx 2
  32 set pty 200
  33 checkcolor $ptx $pty $colorR $colorG $colorB
  34
  35 if { ${stat} != 0 } {
  36     puts "HLR shape is correct"
  37     puts "OK ${BugNumber}"
  38 } else {
  39     puts "HLR shape is incorrect"
  40     puts "Faulty ${BugNumber}"
  41 }
  42
  43 checkview -screenshot -3d -path ${imagedir}/${test_image}.png
  44