tests/bugs/vis/bug74

   1 puts "TODO ?OCC12345 ALL: An exception was caught"
   2 puts "TODO ?OCC12345 ALL: \\*\\* Exception \\*\\*.*"
   3 puts "TODO ?OCC12345 ALL: TEST INCOMPLETE"
   4 puts "TODO ?OCC12345 ALL: Colors are not equal in default coordinate and in the near coordinates too"
   5
   6 puts "================"
   7 puts "OCC74"
   8 puts "BUC61051"
   9 puts "================"
  10 puts ""
  11
  12 # Data
  13 set Shape_X 100
  14 set Shape_Y 346
  15
  16 set Vertex_X 29
  17 set Vertex_Y 305
  18
  19 set Edge_X ${Shape_X}
  20 set Edge_Y ${Shape_Y}
  21
  22 set Wire_X ${Shape_X}
  23 set Wire_Y ${Shape_Y}
  24
  25 set Face_X ${Shape_X}
  26 set Face_Y ${Shape_Y}
  27
  28 set Shell_X ${Shape_X}
  29 set Shell_Y ${Shape_Y}
  30
  31 set Solid_X ${Shape_X}
  32 set Solid_Y ${Shape_Y}
  33
  34 # Display box
  35 vinit
  36 box b 10 10 10
  37 vdisplay b
  38 vfit
  39
  40 QAUpdateLights
  41
  42 ### FIRST PART
  43
  44 # Check Shape color
  45 checkcolor ${Shape_X} ${Shape_Y} 1 1 0
  46
  47 # Check Vertex color
  48 checkcolor ${Vertex_X} ${Vertex_Y} 1 1 0
  49
  50 # Check Edge color
  51 checkcolor ${Edge_X} ${Edge_Y} 1 1 0
  52
  53 # Check Wire color
  54 checkcolor ${Wire_X} ${Wire_Y} 1 1 0
  55
  56 # Check Face color
  57 checkcolor ${Face_X} ${Face_Y} 1 1 0
  58
  59 # Check Shell color
  60 checkcolor ${Shell_X} ${Shell_Y} 1 1 0
  61
  62 # Check Solid color
  63 checkcolor ${Solid_X} ${Solid_Y} 1 1 0
  64
  65 ### SECOND PART
  66
  67 # Check Shape color
  68 QAMoveTo 1 1
  69 QAMoveTo 1 1
  70 set SetSelectMode 0
  71 OCC74_set b ${SetSelectMode}
  72 set GetSelectMode [OCC74_get b]
  73 if { ${GetSelectMode} != ${SetSelectMode} } {
  74    puts "Select Mode = ${GetSelectMode}"
  75    puts "OCC74: Get Select Mode Error "
  76 }
  77 QAMoveTo ${Shape_X} ${Shape_Y}
  78 QAMoveTo ${Shape_X} ${Shape_Y}
  79
  80 QAUpdateLights
  81 checkcolor ${Shape_X} ${Shape_Y} 0 1 1
  82
  83 # Check Vertex color
  84 QAMoveTo 1 1
  85 QAMoveTo 1 1
  86 set SetSelectMode 1
  87 OCC74_set b ${SetSelectMode}
  88 set GetSelectMode [OCC74_get b]
  89 if { ${GetSelectMode} != ${SetSelectMode} } then {
  90    puts "Select Mode = ${GetSelectMode}"
  91    puts "OCC74: Get Select Mode Error "
  92 }
  93 QAMoveTo ${Vertex_X} ${Vertex_Y}
  94 QAMoveTo ${Vertex_X} ${Vertex_Y}
  95
  96 QAUpdateLights
  97 checkcolor ${Vertex_X} ${Vertex_Y} 0 1 1
  98
  99 # Check Edge color
 100 QAMoveTo 1 1
 101 QAMoveTo 1 1
 102 set SetSelectMode 2
 103 OCC74_set b ${SetSelectMode}
 104 set GetSelectMode [OCC74_get b]
 105 if { ${GetSelectMode} != ${SetSelectMode} } then {
 106    puts "Select Mode = ${GetSelectMode}"
 107    puts "OCC74: Get Select Mode Error "
 108 }
 109 QAMoveTo ${Edge_X} ${Edge_Y}
 110 QAMoveTo ${Edge_X} ${Edge_Y}
 111
 112 QAUpdateLights
 113 checkcolor ${Edge_X} ${Edge_Y} 0 1 1
 114
 115 # Check Wire color
 116 QAMoveTo 1 1
 117 QAMoveTo 1 1
 118 set SetSelectMode 3
 119 OCC74_set b ${SetSelectMode}
 120 set GetSelectMode [OCC74_get b]
 121 if { ${GetSelectMode} != ${SetSelectMode} } then {
 122    puts "Select Mode = ${GetSelectMode}"
 123    puts "OCC74: Get Select Mode Error "
 124 }
 125 QAMoveTo ${Wire_X} ${Wire_Y}
 126 QAMoveTo ${Wire_X} ${Wire_Y}
 127
 128 QAUpdateLights
 129 checkcolor ${Wire_X} ${Wire_Y} 0 1 1
 130
 131 # Check Face color
 132 QAMoveTo 1 1
 133 QAMoveTo 1 1
 134 set SetSelectMode 4
 135 OCC74_set b ${SetSelectMode}
 136 set GetSelectMode [OCC74_get b]
 137 if { ${GetSelectMode} != ${SetSelectMode} } then {
 138    puts "Select Mode = ${GetSelectMode}"
 139    puts "OCC74: Get Select Mode Error "
 140 }
 141 QAMoveTo ${Face_X} ${Face_Y}
 142 QAMoveTo ${Face_X} ${Face_Y}
 143
 144 QAUpdateLights
 145 checkcolor ${Face_X} ${Face_Y} 0 1 1
 146
 147 # Check Shell color
 148 QAMoveTo 1 1
 149 QAMoveTo 1 1
 150 set SetSelectMode 5
 151 OCC74_set b ${SetSelectMode}
 152 set GetSelectMode [OCC74_get b]
 153 if { ${GetSelectMode} != ${SetSelectMode} } then {
 154    puts "Select Mode = ${GetSelectMode}"
 155    puts "OCC74: Get Select Mode Error "
 156 }
 157 QAMoveTo ${Shell_X} ${Shell_Y}
 158 QAMoveTo ${Shell_X} ${Shell_Y}
 159
 160 QAUpdateLights
 161 checkcolor ${Shell_X} ${Shell_Y} 0 1 1
 162
 163 # Check Solid color
 164 QAMoveTo 1 1
 165 QAMoveTo 1 1
 166 set SetSelectMode 6
 167 OCC74_set b ${SetSelectMode}
 168 set GetSelectMode [OCC74_get b]
 169 if { ${GetSelectMode} != ${SetSelectMode} } then {
 170    puts "Select Mode = ${GetSelectMode}"
 171    puts "OCC74: Get Select Mode Error "
 172 }
 173 QAMoveTo ${Solid_X} ${Solid_Y}
 174 QAMoveTo ${Solid_X} ${Solid_Y}
 175
 176 QAUpdateLights
 177 checkcolor ${Solid_X} ${Solid_Y} 0 1 1
 178
 179 ### THIRD PART
 180
 181 set SetSelectMode -1
 182 OCC74_set b ${SetSelectMode}
 183 set GetSelectMode [OCC74_get b]
 184 if { ${GetSelectMode} != ${SetSelectMode} } then {
 185    puts "Select Mode = ${GetSelectMode}"
 186    puts "OCC74: Get Select Mode Error "
 187 }
 188
 189 # Check Shape color
 190 QAMoveTo 1 1
 191 QAMoveTo 1 1
 192 QAMoveTo ${Shape_X} ${Shape_Y}
 193 QAMoveTo ${Shape_X} ${Shape_Y}
 194
 195 QAUpdateLights
 196 checkcolor ${Shape_X} ${Shape_Y} 1 1 0
 197
 198 # Check Vertex color
 199 QAMoveTo 1 1
 200 QAMoveTo 1 1
 201 QAMoveTo ${Vertex_X} ${Vertex_Y}
 202 QAMoveTo ${Vertex_X} ${Vertex_Y}
 203
 204 QAUpdateLights
 205 checkcolor ${Vertex_X} ${Vertex_Y} 1 1 0
 206
 207 # Check Edge color
 208 QAMoveTo 1 1
 209 QAMoveTo 1 1
 210 QAMoveTo ${Edge_X} ${Edge_Y}
 211 QAMoveTo ${Edge_X} ${Edge_Y}
 212
 213 QAUpdateLights
 214 checkcolor ${Edge_X} ${Edge_Y} 1 1 0
 215
 216 # Check Wire color
 217 QAMoveTo 1 1
 218 QAMoveTo 1 1
 219 QAMoveTo ${Wire_X} ${Wire_Y}
 220 QAMoveTo ${Wire_X} ${Wire_Y}
 221
 222 QAUpdateLights
 223 checkcolor ${Wire_X} ${Wire_Y} 1 1 0
 224
 225 # Check Face color
 226 QAMoveTo 1 1
 227 QAMoveTo 1 1
 228 QAMoveTo ${Face_X} ${Face_Y}
 229 QAMoveTo ${Face_X} ${Face_Y}
 230
 231 QAUpdateLights
 232 checkcolor ${Face_X} ${Face_Y} 1 1 0
 233
 234 # Check Shell color
 235 QAMoveTo 1 1
 236 QAMoveTo 1 1
 237 QAMoveTo ${Shell_X} ${Shell_Y}
 238 QAMoveTo ${Shell_X} ${Shell_Y}
 239
 240 QAUpdateLights
 241 checkcolor ${Shell_X} ${Shell_Y} 1 1 0
 242
 243 # Check Solid color
 244 QAMoveTo 1 1
 245 QAMoveTo 1 1
 246 QAMoveTo ${Solid_X} ${Solid_Y}
 247 QAMoveTo ${Solid_X} ${Solid_Y}
 248
 249 QAUpdateLights
 250 checkcolor ${Solid_X} ${Solid_Y} 1 1 0
 251
 252 set only_screen 1