tests/bugs/vis/bug23709_3

   1 puts "==========="
   2 puts "OCC23709"
   3 puts "==========="
   4 puts ""
   5 ##################################
   6 # Redesign of hlrtest command
   7 ##################################
   8
   9 set x_coord 183
  10 set y_coord 267
  11
  12 restore [locate_data_file bug23709_solidcone.brep] result
  13 vinit
  14 vdisplay result
  15 vrotate 35 0 0
  16 vfit
  17 vhlr on
  18 vhlrtype algo result
  19
  20 checkcolor $x_coord $y_coord 1 1 0
  21
  22 set only_screen 1
  23
  24
  25