0030942: Draw Harness, ViewerTest - command vdefaults should abort script on unknown...

[occt.git] / tests / bugs / vis / bug25783_1

puts "============"
puts "OCC25783_1"
puts "Draw 2D objects."
puts "============"
puts ""

vfont add [locate_data_file DejaVuSans.ttf] SansFont

vinit View1
vclear
vaxo

# display polyline in overlay
text2brep tcc "Center" -font SansFont -height 30
vdisplay  tcc -2d center -osd
polyline  lcc -50 -50 0 -50 50 0 50 50 0 50 0 0 0 -50 0 -50 -50 0
vdisplay  lcc -2d center -overlay

# display polyline in overlay in the bottom left corner of the view
text2brep tbl "Bottom-Left" -font SansFont -height 30
vdisplay  tbl -2d bottomLeft 5 5 -osd
polyline  lbl 0 0 0 0 100 0 100 100 0 100 50 0 50 0 0 0 0 0
vdisplay  lbl -2d bottomLeft 3 3 -overlay

# display polyline in overlay in the top left corner of the view
text2brep ttl "Top-Left" -font SansFont -height 30 -pos -27 0 0
vdisplay  ttl -2d topLeft 30 30 -osd
polyline  ltl 0 -100 0 0 0 0 100 0 0 100 -50 0 50 -100 0 0 -100 0
vdisplay  ltl -2d topLeft  3  3 -overlay

# display polyline in overlay in the top right corner of the view
text2brep ttr "Top-Right" -font SansFont -height 30 -pos -100 0 0
vdisplay  ttr -2d topRight 30 30 -osd
polyline  ltr -100 -100 0 -100 0 0 0 0 0 0 -50 0 -50 -100 0 -100 -100 0
vdisplay  ltr -2d topRight  3  3 -overlay

# display polyline in overlay in the bottom right corner of the view
text2brep tbr "Bottom-Right" -font SansFont -height 30 -pos -165 0 0
vdisplay  tbr -2d bottomRight 5 5 -osd
polyline  lbr -100 0 0 -100 100 0 0 100 0 0 50 0 -50 0 0 -100 0 0
vdisplay  lbr -2d bottomRight 3 3 -overlay

vdump ${imagedir}/${casename}.png