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 proj_X   0.57735
  13 set proj_Y   -0.57735
  14 set proj_Z   0.57735
  15 set up_X     -0.408248
  16 set up_Y     0.408248
  17 set up_Z     0.816497
  18 set at_X     0
  19 set at_Y     0
  20 set at_Z     0
  21
  22 vviewparams -scale ${scale} -proj ${proj_X} ${proj_Y} ${proj_Z} -up ${up_X} ${up_Y} ${up_Z} -at ${at_X} ${at_Y} ${at_Z}
  23
  24 OCC281 ${x} ${y} ${TypeOfMarker}
  25 OCC281 ${x} ${y} ${TypeOfMarker}
  26
  27 OCC281 200 200 0
  28 OCC281 200 200 0
  29 puts "Type of marker mast be blue point!"
  30
  31 checkview -screenshot -3d -path ${imagedir}/${test_image}.png