tests/bugs/vis/bug281_1

   1 puts "========"
   2 puts "OCC281"
   3 puts "========"
   4
   5 vinit
   6
   7 set x 205
   8 set y 208
   9 set TypeOfMarker 0
  10
  11 set scale    50.0521
  12 set center_X 0
  13 set center_Y 0
  14 set proj_X   0.57735
  15 set proj_Y   -0.57735
  16 set proj_Z   0.57735
  17 set up_X     -0.408248
  18 set up_Y     0.408248
  19 set up_Z     0.816497
  20 set at_X     0
  21 set at_Y     0
  22 set at_Z     0
  23
  24 QASetViewCharac ${scale} ${center_X} ${center_Y} ${proj_X} ${proj_Y} ${proj_Z} ${up_X} ${up_Y} ${up_Z} ${at_X} ${at_Y} ${at_Z}
  25
  26 OCC281 ${x} ${y} ${TypeOfMarker}
  27 OCC281 ${x} ${y} ${TypeOfMarker}
  28
  29 OCC281 200 200 0
  30 OCC281 200 200 0
  31 puts "Type of marker mast be blue point!"
  32
  33 set only_screen 1