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
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
28 vaxis ax1 100 100 100 100 100 0
30 box a 110 110 110 200 200 200
33 set aFile $imagedir/ExportToPS.ps