tests/bugs/vis/bug215

   1 puts "========"
   2 puts "OCC215"
   3 puts "========"
   4
   5 restore [locate_data_file OCC215.brep] result
   6 checkshape result
   7
   8 tclean result
   9 vinit
  10 vdisplay result
  11 vfit
  12
  13 set scale    6.29714883567995
  14 set proj_X   0.344812899827957
  15 set proj_Y   -0.830477952957153
  16 set proj_Z   0.43750473856926
  17 set up_X     -0.368759274482727
  18 set up_Y     0.308769434690475
  19 set up_Z     0.876742839813232
  20 set at_X     39.9465644699194
  21 set at_Y     74.2135758209193
  22 set at_Z     37.7440421525395
  23
  24 vviewparams -scale ${scale} -proj ${proj_X} ${proj_Y} ${proj_Z} -up ${up_X} ${up_Y} ${up_Z} -at ${at_X} ${at_Y} ${at_Z}
  25
  26 set x_coord 229
  27 set y_coord 94
  28
  29 checkcolor $x_coord $y_coord 1 1 0
  30
  31 set only_screen 1
  32