tests/bugs/vis/bug74

   1
   2 puts "================"
   3 puts "OCC74"
   4 puts "BUC61051"
   5 puts "================"
   6 puts ""
   7
   8 # Data
   9 set Shape_X 100
  10 set Shape_Y 346
  11
  12 set Vertex_X 29
  13 set Vertex_Y 305
  14
  15 set Edge_X ${Shape_X}
  16 set Edge_Y ${Shape_Y}
  17
  18 set Wire_X ${Shape_X}
  19 set Wire_Y ${Shape_Y}
  20
  21 set Face_X ${Shape_X}
  22 set Face_Y ${Shape_Y}
  23
  24 set Shell_X ${Shape_X}
  25 set Shell_Y ${Shape_Y}
  26
  27 set Solid_X ${Shape_X}
  28 set Solid_Y ${Shape_Y}
  29
  30 # Display box
  31 vinit
  32 box b 10 10 10
  33 vdisplay b
  34 vfit
  35 vaspects -setwidth 5
  36
  37 ### FIRST PART
  38
  39 # Check Shape color
  40 if { [vreadpixel ${Shape_X} ${Shape_Y} rgb name] != "YELLOW" } {
  41   puts "Error : shape color is not yellow"
  42 }
  43
  44 # Check Vertex color
  45 if { [vreadpixel ${Vertex_X} ${Vertex_Y} rgb name] != "YELLOW" } {
  46   puts "Error : vertex color is not yellow"
  47 }
  48
  49 ### SECOND PART
  50
  51 # Check Shape color
  52 vmoveto 1 1
  53 set SetSelectMode 0
  54 OCC74_set b ${SetSelectMode}
  55 set GetSelectMode [OCC74_get b]
  56 if { ${GetSelectMode} != ${SetSelectMode} } {
  57    puts "Select Mode = ${GetSelectMode}"
  58    puts "OCC74: Get Select Mode Error "
  59 }
  60 vmoveto ${Shape_X} ${Shape_Y}
  61
  62 if { [vreadpixel  ${Shape_X} ${Shape_Y} rgb name] != "CYAN1" } {
  63   puts "Error : shape color is not cyan"
  64 }
  65
  66 # Check Vertex color
  67 vmoveto 1 1
  68 set SetSelectMode 1
  69 OCC74_set b ${SetSelectMode}
  70 set GetSelectMode [OCC74_get b]
  71 if { ${GetSelectMode} != ${SetSelectMode} } then {
  72    puts "Select Mode = ${GetSelectMode}"
  73    puts "OCC74: Get Select Mode Error "
  74 }
  75 vmoveto ${Vertex_X} ${Vertex_Y}
  76
  77 checkcolor ${Vertex_X} ${Vertex_Y} 0 1 1
  78
  79 # Check Edge color
  80 vmoveto 1 1
  81 set SetSelectMode 2
  82 OCC74_set b ${SetSelectMode}
  83 set GetSelectMode [OCC74_get b]
  84 if { ${GetSelectMode} != ${SetSelectMode} } then {
  85    puts "Select Mode = ${GetSelectMode}"
  86    puts "OCC74: Get Select Mode Error "
  87 }
  88 vmoveto ${Edge_X} ${Edge_Y}
  89
  90 checkcolor ${Edge_X} ${Edge_Y} 0 1 1
  91
  92 # Check Wire color
  93 vmoveto 1 1
  94 set SetSelectMode 3
  95 OCC74_set b ${SetSelectMode}
  96 set GetSelectMode [OCC74_get b]
  97 if { ${GetSelectMode} != ${SetSelectMode} } then {
  98    puts "Select Mode = ${GetSelectMode}"
  99    puts "OCC74: Get Select Mode Error "
 100 }
 101 vmoveto ${Wire_X} ${Wire_Y}
 102
 103 checkcolor ${Wire_X} ${Wire_Y} 0 1 1
 104
 105 # Check Face color
 106 vmoveto 1 1
 107 set SetSelectMode 4
 108 OCC74_set b ${SetSelectMode}
 109 set GetSelectMode [OCC74_get b]
 110 if { ${GetSelectMode} != ${SetSelectMode} } then {
 111    puts "Select Mode = ${GetSelectMode}"
 112    puts "OCC74: Get Select Mode Error "
 113 }
 114 vmoveto ${Face_X} ${Face_Y}
 115
 116 checkcolor ${Face_X} ${Face_Y} 0 1 1
 117
 118 # Check Shell color
 119 vmoveto 1 1
 120 set SetSelectMode 5
 121 OCC74_set b ${SetSelectMode}
 122 set GetSelectMode [OCC74_get b]
 123 if { ${GetSelectMode} != ${SetSelectMode} } then {
 124    puts "Select Mode = ${GetSelectMode}"
 125    puts "OCC74: Get Select Mode Error "
 126 }
 127 vmoveto ${Shell_X} ${Shell_Y}
 128
 129 checkcolor ${Shell_X} ${Shell_Y} 0 1 1
 130
 131 # Check Solid color
 132 vmoveto 1 1
 133 set SetSelectMode 6
 134 OCC74_set b ${SetSelectMode}
 135 set GetSelectMode [OCC74_get b]
 136 if { ${GetSelectMode} != ${SetSelectMode} } then {
 137    puts "Select Mode = ${GetSelectMode}"
 138    puts "OCC74: Get Select Mode Error "
 139 }
 140 vmoveto ${Solid_X} ${Solid_Y}
 141
 142 checkcolor ${Solid_X} ${Solid_Y} 0 1 1
 143
 144 ### THIRD PART
 145
 146 set SetSelectMode -1
 147 OCC74_set b ${SetSelectMode}
 148 set GetSelectMode [OCC74_get b]
 149 if { ${GetSelectMode} != ${SetSelectMode} } then {
 150    puts "Select Mode = ${GetSelectMode}"
 151    puts "OCC74: Get Select Mode Error "
 152 }
 153
 154 # Check Shape color
 155 vmoveto 1 1
 156 if { [vreadpixel ${Shape_X} ${Shape_Y} rgb name] != "YELLOW" } {
 157   puts "Error : shape color is not yellow"
 158 }
 159
 160 # Check Vertex color
 161 vmoveto 1 1
 162 if { [vreadpixel ${Vertex_X} ${Vertex_Y} rgb name] != "YELLOW" } {
 163   puts "Error : vertex color is not yellow"
 164 }
 165
 166 checkview -screenshot -3d -path ${imagedir}/${test_image}.png