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 ### FIRST PART
  41
  42 # Check Shape color
  43 checkcolor ${Shape_X} ${Shape_Y} 1 1 0
  44
  45 # Check Vertex color
  46 checkcolor ${Vertex_X} ${Vertex_Y} 1 1 0
  47
  48 # Check Edge color
  49 checkcolor ${Edge_X} ${Edge_Y} 1 1 0
  50
  51 # Check Wire color
  52 checkcolor ${Wire_X} ${Wire_Y} 1 1 0
  53
  54 # Check Face color
  55 checkcolor ${Face_X} ${Face_Y} 1 1 0
  56
  57 # Check Shell color
  58 checkcolor ${Shell_X} ${Shell_Y} 1 1 0
  59
  60 # Check Solid color
  61 checkcolor ${Solid_X} ${Solid_Y} 1 1 0
  62
  63 ### SECOND PART
  64
  65 # Check Shape color
  66 vmoveto 1 1
  67 set SetSelectMode 0
  68 OCC74_set b ${SetSelectMode}
  69 set GetSelectMode [OCC74_get b]
  70 if { ${GetSelectMode} != ${SetSelectMode} } {
  71    puts "Select Mode = ${GetSelectMode}"
  72    puts "OCC74: Get Select Mode Error "
  73 }
  74 vmoveto ${Shape_X} ${Shape_Y}
  75
  76 checkcolor ${Shape_X} ${Shape_Y} 0 1 1
  77
  78 # Check Vertex color
  79 vmoveto 1 1
  80 set SetSelectMode 1
  81 OCC74_set b ${SetSelectMode}
  82 set GetSelectMode [OCC74_get b]
  83 if { ${GetSelectMode} != ${SetSelectMode} } then {
  84    puts "Select Mode = ${GetSelectMode}"
  85    puts "OCC74: Get Select Mode Error "
  86 }
  87 vmoveto ${Vertex_X} ${Vertex_Y}
  88
  89 checkcolor ${Vertex_X} ${Vertex_Y} 0 1 1
  90
  91 # Check Edge color
  92 vmoveto 1 1
  93 set SetSelectMode 2
  94 OCC74_set b ${SetSelectMode}
  95 set GetSelectMode [OCC74_get b]
  96 if { ${GetSelectMode} != ${SetSelectMode} } then {
  97    puts "Select Mode = ${GetSelectMode}"
  98    puts "OCC74: Get Select Mode Error "
  99 }
 100 vmoveto ${Edge_X} ${Edge_Y}
 101
 102 checkcolor ${Edge_X} ${Edge_Y} 0 1 1
 103
 104 # Check Wire color
 105 vmoveto 1 1
 106 set SetSelectMode 3
 107 OCC74_set b ${SetSelectMode}
 108 set GetSelectMode [OCC74_get b]
 109 if { ${GetSelectMode} != ${SetSelectMode} } then {
 110    puts "Select Mode = ${GetSelectMode}"
 111    puts "OCC74: Get Select Mode Error "
 112 }
 113 vmoveto ${Wire_X} ${Wire_Y}
 114
 115 checkcolor ${Wire_X} ${Wire_Y} 0 1 1
 116
 117 # Check Face color
 118 vmoveto 1 1
 119 set SetSelectMode 4
 120 OCC74_set b ${SetSelectMode}
 121 set GetSelectMode [OCC74_get b]
 122 if { ${GetSelectMode} != ${SetSelectMode} } then {
 123    puts "Select Mode = ${GetSelectMode}"
 124    puts "OCC74: Get Select Mode Error "
 125 }
 126 vmoveto ${Face_X} ${Face_Y}
 127
 128 checkcolor ${Face_X} ${Face_Y} 0 1 1
 129
 130 # Check Shell color
 131 vmoveto 1 1
 132 set SetSelectMode 5
 133 OCC74_set b ${SetSelectMode}
 134 set GetSelectMode [OCC74_get b]
 135 if { ${GetSelectMode} != ${SetSelectMode} } then {
 136    puts "Select Mode = ${GetSelectMode}"
 137    puts "OCC74: Get Select Mode Error "
 138 }
 139 vmoveto ${Shell_X} ${Shell_Y}
 140
 141 checkcolor ${Shell_X} ${Shell_Y} 0 1 1
 142
 143 # Check Solid color
 144 vmoveto 1 1
 145 set SetSelectMode 6
 146 OCC74_set b ${SetSelectMode}
 147 set GetSelectMode [OCC74_get b]
 148 if { ${GetSelectMode} != ${SetSelectMode} } then {
 149    puts "Select Mode = ${GetSelectMode}"
 150    puts "OCC74: Get Select Mode Error "
 151 }
 152 vmoveto ${Solid_X} ${Solid_Y}
 153
 154 checkcolor ${Solid_X} ${Solid_Y} 0 1 1
 155
 156 ### THIRD PART
 157
 158 set SetSelectMode -1
 159 OCC74_set b ${SetSelectMode}
 160 set GetSelectMode [OCC74_get b]
 161 if { ${GetSelectMode} != ${SetSelectMode} } then {
 162    puts "Select Mode = ${GetSelectMode}"
 163    puts "OCC74: Get Select Mode Error "
 164 }
 165
 166 # Check Shape color
 167 vmoveto 1 1
 168 vmoveto ${Shape_X} ${Shape_Y}
 169
 170 checkcolor ${Shape_X} ${Shape_Y} 1 1 0
 171
 172 # Check Vertex color
 173 vmoveto 1 1
 174 vmoveto ${Vertex_X} ${Vertex_Y}
 175
 176 checkcolor ${Vertex_X} ${Vertex_Y} 1 1 0
 177
 178 # Check Edge color
 179 vmoveto 1 1
 180 vmoveto ${Edge_X} ${Edge_Y}
 181
 182 checkcolor ${Edge_X} ${Edge_Y} 1 1 0
 183
 184 # Check Wire color
 185 vmoveto 1 1
 186 vmoveto ${Wire_X} ${Wire_Y}
 187
 188 checkcolor ${Wire_X} ${Wire_Y} 1 1 0
 189
 190 # Check Face color
 191 vmoveto 1 1
 192 vmoveto ${Face_X} ${Face_Y}
 193
 194 checkcolor ${Face_X} ${Face_Y} 1 1 0
 195
 196 # Check Shell color
 197 vmoveto 1 1
 198 vmoveto ${Shell_X} ${Shell_Y}
 199
 200 checkcolor ${Shell_X} ${Shell_Y} 1 1 0
 201
 202 # Check Solid color
 203 vmoveto 1 1
 204 vmoveto ${Solid_X} ${Solid_Y}
 205
 206 checkcolor ${Solid_X} ${Solid_Y} 1 1 0
 207
 208 set only_screen 1