tests/bugs/vis/bug23253

   1 puts "============"
   2 puts "OCC23253"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 # Additional viewer 3d draw-commands vleft, vfront, ...
   7 #######################################################################
   8
   9 set BugNumber OCC23253
  10
  11 box b 10 20 30
  12 ptorus t 50 10
  13
  14 vinit
  15 vsetdispmode 1
  16
  17 vdisplay b
  18 vdisplay t
  19 vfit
  20
  21 set status 0
  22
  23 #####
  24 vaxo
  25 #####
  26
  27 set x1 120
  28 set y1 260
  29 checkcolor $x1 $y1 0.91 0.64 0.11
  30
  31 set x2 120
  32 set y2 260
  33 checkcolor $x2 $y2 0.91 0.64 0.11
  34
  35 #####
  36 vtop
  37 #####
  38
  39 set x1 125
  40 set y1 135
  41 checkcolor $x1 $y1 1 1 0.92
  42
  43 set x2 220
  44 set y2 200
  45 checkcolor $x2 $y2 1 1 0.94
  46
  47 #####
  48 vleft
  49 #####
  50
  51 set x1 120
  52 set y1 230
  53 checkcolor $x1 $y1 0.92 0.66 0.11
  54
  55 set x2 190
  56 set y2 170
  57 checkcolor $x2 $y2 1 1 0.94
  58
  59 #####
  60 vright
  61 #####
  62
  63 set x1 120
  64 set y1 230
  65 checkcolor $x1 $y1 0.93 0.66 0.11
  66
  67 set x2 220
  68 set y2 170
  69 checkcolor $x2 $y2 1 1 0.94
  70
  71 #####
  72 vfront
  73 #####
  74
  75 set x1 120
  76 set y1 230
  77 checkcolor $x1 $y1 0.92 0.66 0.11
  78
  79 set x2 240
  80 set y2 170
  81 checkcolor $x2 $y2 1 1 0.94
  82
  83 #####
  84 vback
  85 #####
  86
  87 set x1 120
  88 set y1 230
  89 checkcolor $x1 $y1 0.93 0.66 0.11
  90
  91 set x2 170
  92 set y2 170
  93 checkcolor $x2 $y2 1 1 0.94
  94
  95 #####
  96 vbottom
  97 #####
  98
  99 set x1 90
 100 set y1 300
 101 checkcolor $x1 $y1 0.81 0.58 0.09
 102
 103 set x2 220
 104 set y2 250
 105 checkcolor $x2 $y2 1 1 0.94
 106
 107 set only_screen 1