tests/bugs/vis/bug21091_3

   1 puts "============"
   2 puts "OCC21091"
   3 puts "OCC21450"
   4 puts "============"
   5 puts ""
   6 #vinit
   7 #vexport
   8 #vexport full_file_path {PS | EPS | TEX | PDF | SVG | PGF } : exports the view to a vector file of a given format
   9 #
  10
  11 pload XSDRAW
  12 vinit
  13
  14 meshfromstl m [locate_data_file shape.stl]
  15
  16 meshtext m
  17
  18 vsetdispmode m 34
  19
  20 file delete -force ${imagedir}/${test_image}.pdf
  21 set aFile ${imagedir}/${test_image}.pdf
  22
  23 vexport ${aFile} PDF
  24
  25 if { [string compare $tcl_platform(platform) "windows"] != 0 } {
  26    set refsize 144401
  27 } else {
  28    set refsize 153993
  29 }
  30
  31 if { [file exists ${aFile}] } {
  32    puts "Export to PDF file was done"
  33    set filesize [file size ${aFile}]
  34    if { $filesize != $refsize } {
  35       puts "Error: Export to PDF file was done but size of file is incorrect (refsize = $refsize, current = $filesize)."
  36           puts "Error: Compare content of resulting PDF file with reference."
  37           puts "Error: Update refsize if it's necessary."
  38    }
  39 } else {
  40    puts "Faulty : Export to PDF file was not done"
  41 }
  42
  43 set only_screen 1
  44