tests/bugs/vis/bug25783_1

   1 puts "============"
   2 puts "OCC25783_1"
   3 puts "Draw 2D objects."
   4 puts "============"
   5 puts ""
   6
   7 vfont add [locate_data_file DejaVuSans.ttf] SansFont
   8
   9 vinit View1
  10 vclear
  11 vaxo
  12
  13 # display polyline in overlay
  14 text2brep tcc "Center" -font SansFont -height 30
  15 vdisplay  tcc -2d -osd
  16 polyline  lcc -50 -50 0 -50 50 0 50 50 0 50 0 0 0 -50 0 -50 -50 0
  17 vdisplay  lcc -2d -overlay
  18
  19 # display polyline in overlay in the bottom left corner of the view
  20 text2brep tbl "Bottom-Left" -font SansFont -height 30
  21 vdisplay  tbl -2d -trsfPersPos -1 -1 5 -osd
  22 polyline  lbl 0 0 0 0 100 0 100 100 0 100 50 0 50 0 0 0 0 0
  23 vdisplay  lbl -2d -trsfPersPos -1 -1 3 -overlay
  24
  25 # display polyline in overlay in the top left corner of the view
  26 text2brep ttl "Top-Left" -font SansFont -height 30 -pos -27 0 0
  27 vdisplay  ttl -2d -trsfPersPos -1 1 30 -osd
  28 polyline  ltl 0 -100 0 0 0 0 100 0 0 100 -50 0 50 -100 0 0 -100 0
  29 vdisplay  ltl -2d -trsfPersPos -1 1 3  -overlay
  30
  31 # display polyline in overlay in the top right corner of the view
  32 text2brep ttr "Top-Right" -font SansFont -height 30 -pos -100 0 0
  33 vdisplay  ttr -2d -trsfPersPos 1 1 30 -osd
  34 polyline  ltr -100 -100 0 -100 0 0 0 0 0 0 -50 0 -50 -100 0 -100 -100 0
  35 vdisplay  ltr -2d -trsfPersPos 1 1 3  -overlay
  36
  37 # display polyline in overlay in the bottom right corner of the view
  38 text2brep tbr "Bottom-Right" -font SansFont -height 30 -pos -165 0 0
  39 vdisplay  tbr -2d -trsfPersPos 1 -1 5 -osd
  40 polyline  lbr -100 0 0 -100 100 0 0 100 0 0 50 0 -50 0 0 -100 0 0
  41 vdisplay  lbr -2d -trsfPersPos 1 -1 3 -overlay
  42
  43 vdump ${imagedir}/${casename}.png