0024387: Tests - use system-independent fonts in test cases
[occt.git] / tests / 3rdparty / export / A3
... / ...
CommitLineData
1puts "============"
2puts "OCC21091"
3puts "OCC21450"
4puts "============"
5puts ""
6
7vfont add [locate_data_file DejaVuSans.ttf] SansFont
8
9vtrihedron trihedron
10
11vpoint p1 -300 -300 -300
12vdrawtext 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 SansFont
13
14vpoint p2 -300 -300 -100
15vdrawtext 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 SansFont
16
17vpoint p3 -100 -100 -300
18vdrawtext 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 SansFont
19
20vpoint p4 -100 -100 -100
21vdrawtext 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 SansFont
22
23
24vpoint p5 -300 -100 -300
25vdrawtext 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 SansFont
26
27vpoint p6 -100 -300 -300
28vdrawtext 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 SansFont
29
30vpoint p7 -300 -100 -100
31vdrawtext 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 SansFont
32
33vpoint p8 -100 -300 -100
34vdrawtext 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 SansFont
35
36vaxis ax1 100 100 100 100 100 0
37
38box a 110 110 110 200 200 200
39vdisplay a
40
41set aFile $imagedir/ExportToPS.ps
42
43set format PS
44
45set size 10646