tests/bugs/vis/bug21091_7

   1 puts "============"
   2 puts "OCC21091"
   3 puts "OCC21450"
   4 puts "============"
   5 puts ""
   6
   7 vfont add [locate_data_file DejaVuSans.ttf] SansFont
   8
   9 vinit
  10 checkview -screenshot -3d -path ${imagedir}/${test_image}.png
  11
  12 vtrihedron trihedron
  13
  14 vpoint p1 -300 -300 -300
  15 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
  16
  17 vpoint p2 -300 -300 -100
  18 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
  19
  20 vpoint p3 -100 -100 -300
  21 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
  22
  23 vpoint p4 -100 -100 -100
  24 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
  25
  26
  27 vpoint p5 -300 -100 -300
  28 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
  29
  30 vpoint p6 -100 -300 -300
  31 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
  32
  33 vpoint p7 -300 -100 -100
  34 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
  35
  36 vpoint p8 -100 -300 -100
  37 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
  38
  39 vaxis ax1 100 100 100 100 100 0
  40
  41 box a 110 110 110 200 200 200
  42 vdisplay a
  43
  44 set aFile $imagedir/${test_image}.tex
  45
  46 vcaps -ffp 1
  47 vexport ${aFile} TEX
  48
  49 if { [file exists ${aFile}] } {
  50    puts "Export to TEX file successful"
  51    set filesize [file size ${aFile}]
  52    puts "Size of TEX file = $filesize"
  53    if { $filesize > 1500 } {
  54       puts "Error : Export to TEX file succeeded but size of file is incorrect"
  55    }
  56 } else {
  57    puts "Error : Export to TEX file has failed"
  58 }