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