0027626: Attempt to display shape in 3d leads to very long calculation loop
[occt.git] / tests / bugs / vis / bug25783_2
1 puts "============"
2 puts "OCC25783_1"
3 puts "Draw 2d objects in top-down mode."
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 -2dTopDown -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 -2dTopDown -overlay
18
19 # display polyline in overlay in the top left corner of the view
20 text2brep ttl "Top-Left" -font SansFont -height 30
21 vdisplay  ttl -2dTopDown -trsfPersPos -1 -1 5 -osd
22 polyline  ltl 0 0 0 0 100 0 100 100 0 100 50 0 50 0 0 0 0 0
23 vdisplay  ltl -2dTopDown -trsfPersPos -1 -1 3 -overlay
24
25 # display polyline in overlay in the bottom left corner of the view
26 text2brep tbl "Bottom-Left" -font SansFont -height 30 -pos -27 0 0
27 vdisplay  tbl -2dTopDown -trsfPersPos -1 1 30 -osd
28 polyline  lbl 0 -100 0 0 0 0 100 0 0 100 -50 0 50 -100 0 0 -100 0
29 vdisplay  lbl -2dTopDown -trsfPersPos -1 1 3 -overlay
30
31 # display polyline in overlay in the bottom right corner of the view
32 text2brep tbr Bottom-Right -font SansFont -height 30 -pos -145 0 0
33 vdisplay  tbr -2dTopDown -trsfPersPos 1 1 30 -osd
34 polyline  lbr -100 -100 0 -100 0 0 0 0 0 0 -50 0 -50 -100 0 -100 -100 0
35 vdisplay  lbr -2dTopDown -trsfPersPos 1 1 3 -overlay
36
37 # display polyline in overlay in the top right corner of the view
38 text2brep ttr "Top-Right" -font SansFont -height 30 -pos -130 0 0
39 vdisplay  ttr -2dTopDown -trsfPersPos 1 -1 5 -osd
40 polyline  ltr -100 0 0 -100 100 0 0 100 0 0 50 0 -50 0 0 -100 0 0
41 vdisplay  ltr -2dTopDown -trsfPersPos 1 -1 3 -overlay
42
43 vdump ${imagedir}/${casename}.png