0022785: Draw Harness - add possibility to remove a text drawn by the command vdrawtext
[occt.git] / tests / 3rdparty / export / A4
... / ...
CommitLineData
1puts "============"
2puts "OCC21091"
3puts "OCC21450"
4puts "============"
5puts ""
6
7vtrihedron trihedron
8
9vpoint p1 -300 -300 -300
10vdrawtext OC0 OpenCascade -pos -300 -300 -300 -color 0.0 1.0 0.0 -halign left -valign bottom -angle 000 -zoom 0 -height 15 -aspect regular -font Courier
11
12vpoint p2 -300 -300 -100
13vdrawtext OC1 OpenCascade -pos -300 -300 -100 -color 0.0 1.0 0.0 -halign left -valign bottom -angle 000 -zoom 0 -height 15 -aspect regular -font Courier
14
15vpoint p3 -100 -100 -300
16vdrawtext OC2 OpenCascade -pos -100 -100 -300 -color 0.0 1.0 0.0 -halign left -valign bottom -angle 000 -zoom 0 -height 15 -aspect regular -font Courier
17
18vpoint p4 -100 -100 -100
19vdrawtext OC3 OpenCascade -pos -100 -100 -100 -color 0.0 1.0 0.0 -halign left -valign bottom -angle 000 -zoom 0 -height 15 -aspect regular -font Courier
20
21
22vpoint p5 -300 -100 -300
23vdrawtext OC4 OpenCascade -pos -300 -100 -300 -color 0.0 1.0 0.0 -halign left -valign bottom -angle 000 -zoom 0 -height 15 -aspect regular -font Courier
24
25vpoint p6 -100 -300 -300
26vdrawtext OC5 OpenCascade -pos -100 -300 -300 -color 0.0 1.0 0.0 -halign left -valign bottom -angle 000 -zoom 0 -height 15 -aspect regular -font Courier
27
28vpoint p7 -300 -100 -100
29vdrawtext OC6 OpenCascade -pos -300 -100 -100 -color 0.0 1.0 0.0 -halign left -valign bottom -angle 000 -zoom 0 -height 15 -aspect regular -font Courier
30
31vpoint p8 -100 -300 -100
32vdrawtext OC7 OpenCascade -pos -100 -300 -100 -color 0.0 1.0 0.0 -halign left -valign bottom -angle 000 -zoom 0 -height 15 -aspect regular -font Courier
33
34vaxis ax1 100 100 100 100 100 0
35
36box a 110 110 110 200 200 200
37vdisplay a
38
39set aFile $imagedir/ExportToEPS.eps
40
41set format EPS
42
43set size 10590