0024201: Remove TODO "Tcl Exception: File aaa.stl could not be found" and similar...
[occt.git] / tests / bugs / vis / bug21091_3
CommitLineData
3cdfdc9a 1puts "TODO ?OCC11111 ALL: Faulty : Export to pdf file was done but size of file is incorrect"
a8676008 2
3puts "============"
4puts "OCC21091"
5puts "OCC21450"
6puts "============"
7puts ""
8#vinit
9#vexport
10#vexport full_file_path {PS | EPS | TEX | PDF | SVG | PGF } : exports the view to a vector file of a given format
11#
12
13pload XSDRAW
14vinit
15set only_screen 1
16
17meshfromstl m [locate_data_file shape.stl]
18
19meshdispmode m 34
20
21set aFile $imagedir/${test_image}.pdf
22
23vexport ${aFile} PDF
24
25if { [file exists ${aFile}] } {
26 puts "Export to pdf file was done"
27 set filesize [file size ${aFile}]
28 if { $filesize != 154489 } {
29 puts "Faulty : Export to pdf file was done but size of file is incorrect"
30 }
31} else {
32 puts "Faulty : Export to pdf file was not done"
33}
34
35