tests/3rdparty/export/A3

   1 puts "============"
   2 puts "OCC21091"
   3 puts "OCC21450"
   4 puts "============"
   5 puts ""
   6
   7 vfont add [locate_data_file DejaVuSans.ttf] SansFont
   8
   9 vtrihedron trihedron
  10
  11 vpoint p1 -300 -300 -300
  12 vdrawtext 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
  14 vpoint p2 -300 -300 -100
  15 vdrawtext 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
  17 vpoint p3 -100 -100 -300
  18 vdrawtext 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
  20 vpoint p4 -100 -100 -100
  21 vdrawtext 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
  24 vpoint p5 -300 -100 -300
  25 vdrawtext 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
  27 vpoint p6 -100 -300 -300
  28 vdrawtext 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
  30 vpoint p7 -300 -100 -100
  31 vdrawtext 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
  33 vpoint p8 -100 -300 -100
  34 vdrawtext 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
  36 vaxis ax1 100 100 100 100 100 0
  37
  38 box a 110 110 110 200 200 200
  39 vdisplay a
  40
  41 set aFile $imagedir/ExportToPS.ps
  42
  43 set format PS
  44
  45 set size 10646