tests/bugs/vis/bug22332

   1 puts "============"
   2 puts "OCC22332"
   3 puts "============"
   4 puts ""
   5
   6 ######################################################
   7 #
   8 ######################################################
   9
  10 set BUGNUMBER OCC22332
  11
  12 vinit
  13 vclear
  14 box b 100 100 100
  15 vsetdispmode b 1
  16 vdisplay b
  17 vtrihedron tri
  18 vfit
  19
  20 vmoveto 0 0
  21
  22 # TEST LINEWIDTH
  23 # draw a 10px horizontal line at (10,10) - (400,10)
  24 vlayerline 10 10 400 10 10
  25
  26 checkcolor 15 5 1 0 0
  27 checkcolor 15 13 1 0 0
  28 checkcolor 15 14 0 0 0
  29
  30 # TEST LINETYPE
  31 # draw a slashed 10px horizontal line at (10,10) - (400,10)
  32 vlayerline 10 10 400 10 10 1
  33
  34 checkcolor 23 10 1 0 0
  35 checkcolor 25 10 1 0 0
  36 checkcolor 26 10 0 0 0
  37 checkcolor 30 10 0 0 0
  38 checkcolor 32 10 1 0 0
  39
  40 set only_screen 1
  41