tests/3rdparty/export/A4

   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 $imagedir/ExportToEPS.eps
  34
  35 set format EPS
  36
  37 set size 10590