0023087: Upgrade of the OCCT test system
[occt.git] / tests / 3rdparty / export / A7
CommitLineData
40093367 1puts "============"
2puts "OCC21091"
3puts "OCC21450"
4puts "============"
5puts ""
6
7vtrihedron trihedron
8
9vpoint p1 -300 -300 -300
10vdrawtext OpenCascade -300 -300 -300 000 255 000 0 0 000 0 15 1 Courier
11vpoint p2 -300 -300 -100
12vdrawtext OpenCascade -300 -300 -100 000 255 000 0 0 000 0 15 1 Courier
13vpoint p3 -100 -100 -300
14vdrawtext OpenCascade -100 -100 -300 000 255 000 0 0 000 0 15 1 Courier
15vpoint p4 -100 -100 -100
16vdrawtext OpenCascade -100 -100 -100 000 255 000 0 0 000 0 15 1 Courier
17
18
19vpoint p5 -300 -100 -300
20vdrawtext OpenCascade -300 -100 -300 000 255 000 0 0 000 0 15 1 Courier
21vpoint p6 -100 -300 -300
22vdrawtext OpenCascade -100 -300 -300 000 255 000 0 0 000 0 15 1 Courier
23vpoint p7 -300 -100 -100
24vdrawtext OpenCascade -300 -100 -100 000 255 000 0 0 000 0 15 1 Courier
25vpoint p8 -100 -300 -100
26vdrawtext OpenCascade -100 -300 -100 000 255 000 0 0 000 0 15 1 Courier
27
28vaxis ax1 100 100 100 100 100 0
29
30box a 110 110 110 200 200 200
31vdisplay a
32
33set aFile $WorkDirectory/ExportToPGF.pgf
34
35set format PGF
36
37set size 21886