tests/v3d/bugs/bug23253

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