tests/bugs/vis/bug22795

   1 puts "================"
   2 puts "OCC22795"
   3 puts "================"
   4 puts ""
   5 #########################################################################################################
   6 # Make possible to display some presentable objecys in overlay of others, groupped by display priority
   7 #########################################################################################################
   8
   9 set BugNumber OCC22795
  10
  11 box b 10 10 10
  12 box s 10 10 10
  13 ttranslate s 10 0 0
  14 vdisplay b s
  15 vsetdispmode b 1
  16 vsetdispmode s 1
  17 vfit
  18 vzlayer add
  19 vzlayer add
  20 vzlayer add
  21 set info1 [ vzlayer get ]
  22
  23 vzlayer del 1
  24
  25 set info2 [ vzlayer get ]
  26
  27 set status_vzlayer 0
  28
  29 if { [string compare $info1 "0 1 2 3"] == 0 && [string compare $info1 "0 2 3"] == 0 } {
  30    set status_vzlayer 0
  31 } else {
  32    set status_vzlayer 1
  33 }
  34
  35 vobjzlayer set b 2
  36 set info3 [ vobjzlayer get b ]
  37 set word8 [string compare ${info3} "Z layer id: 2"]
  38
  39 vobjzlayer set s 3
  40 set info4 [ vobjzlayer get s ]
  41 set word9 [string compare ${info4} "Z layer id: 3"]
  42
  43 vzlayer del 3
  44 set info5 [ vobjzlayer get s ]
  45 set word10 [string compare ${info5} "Z layer id: 0"]
  46
  47 set status_vobjzlayer 0
  48
  49 if { ${word8} == 0 && ${word9} == 0 && ${word10} == 0 } {
  50     set status_vobjzlayer 0
  51 } else {
  52     set status_vobjzlayer 1
  53 }
  54
  55 if { ${status_vzlayer} != 0 && ${status_vobjzlayer} != 0 } {
  56     puts "Faulty ${BugNumber}"
  57 } else {
  58     puts "OK ${BugNumber}"
  59 }
  60
  61
  62
  63
  64
  65
  66