tests/bugs/modalg_2/bug21909

   1 pload QAcommands
   2
   3 puts "============"
   4 puts "OCC21909"
   5 puts "============"
   6 puts ""
   7 #######################################################################
   8 # The surface is visualized with rendering errors
   9 #######################################################################
  10
  11 set BugNumber OCC21909
  12
  13 # Data
  14
  15 set scale    57.547428234801195
  16 set center_X -29.161882474505589
  17 set center_Y -27.085456554411167
  18 set proj_X   -0.25567048788070679
  19 set proj_Y   -0.92769843339920044
  20 set proj_Z   0.27204453945159912
  21 set up_X     0.43156850337982178
  22 set up_Y     0.14228194952011108
  23 set up_Z     0.89078855514526367
  24 set at_X     53.189125061035156
  25 set at_Y     -25.674787521362305
  26 set at_Z     -2.9377093315124512
  27
  28 set x1 190
  29
  30 set y1 216
  31 set y2 228
  32
  33 #
  34 restore [locate_data_file OCC21909-render_error.brep] result
  35
  36 vinit
  37 vdisplay result
  38 vfit
  39
  40 vsetdispmode 1
  41 vfit
  42
  43 vviewparams ${scale} ${center_X} ${center_Y} \
  44                 ${proj_X} ${proj_Y} ${proj_Z} \
  45                 ${up_X} ${up_Y} ${up_Z} \
  46                 ${at_X} ${at_Y} ${at_Z}
  47
  48 vmoveto ${x1} ${y1}
  49 vmoveto ${x1} ${y1}
  50
  51 set status 0
  52 for {set i ${y1} } {$i <= ${y2} } {incr i} {
  53     set Color1 [QAGetPixelColor ${x1} ${i}]
  54
  55     set R1 [lindex ${Color1} 2]
  56     set G1 [lindex ${Color1} 5]
  57     set B1 [lindex ${Color1} 8]
  58
  59     puts "x = ${x1}   y = ${i}   R = ${R1}   G = ${G1}   B = ${B1}"
  60
  61     if { ${R1} == 0 && ${G1} == 0 && ${B1} == 0 } {
  62         incr status
  63         puts "Error : rendering  x = ${x1}  y = ${i}"
  64     }
  65 }
  66
  67 if { ${status} != 0 } {
  68     puts "Faulty ${BugNumber}"
  69 } else {
  70     puts "OK ${BugNumber}"
  71 }
  72
  73 set 3dviewer 0
  74