tests/bugs/vis/bug544

   1 puts "========"
   2 puts "OCC544"
   3 puts "========"
   4 puts ""
   5 #################################
   6 ## Problems with the results of MakePipeShell
   7 #################################
   8
   9 vinit
  10 vsetdispmode 1
  11 OCC544
  12 vdisplay result
  13 vsetmaterial result PLASTIC
  14 vsetcolor result MATRABLUE
  15 vsettransparency result 0.5
  16 vsetdispmode 1
  17 vfit
  18
  19 set scale    2.05374
  20 set center_X 169.854
  21 set center_Y -49.5549
  22 set proj_X   0.135192
  23 set proj_Y   -0.978297
  24 set proj_Z   -0.157031
  25 set up_X     -0.399854
  26 set up_Y     -0.198875
  27 set up_Z     0.894743
  28 set at_X     241.985
  29 set at_Y     329.911
  30 set at_Z     390.356
  31
  32 vviewparams ${scale} ${center_X} ${center_Y} ${proj_X} ${proj_Y} ${proj_Z} ${up_X} ${up_Y} ${up_Z} ${at_X} ${at_Y} ${at_Z}
  33
  34 set x1 300
  35 set y1 70
  36
  37 set x2 190
  38 set y2 110
  39
  40 set x3 220
  41 set y3 110
  42
  43 vmoveto ${x1} ${y1}
  44
  45 checkcolor $x3 $y3 0.04 0.04 0.5
  46
  47 set only_screen 1