| 1 | puts "MKV============" |
| 2 | puts "OCC21091" |
| 3 | puts "OCC21450" |
| 4 | puts "============" |
| 5 | puts "" |
| 6 | #vexport |
| 7 | #vexport full_file_path {PS | EPS | TEX | PDF | SVG | PGF } : exports the view to a vector file of a given format |
| 8 | #Testing export to PDF format |
| 9 | |
| 10 | vfont add [locate_data_file DejaVuSans.ttf] SansFont |
| 11 | |
| 12 | vinit |
| 13 | vtrihedron trihedron |
| 14 | |
| 15 | vpoint p1 -300 -300 -300 |
| 16 | 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 |
| 17 | |
| 18 | vpoint p2 -300 -300 -100 |
| 19 | 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 |
| 20 | |
| 21 | vpoint p3 -100 -100 -300 |
| 22 | 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 |
| 23 | |
| 24 | vpoint p4 -100 -100 -100 |
| 25 | 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 |
| 26 | |
| 27 | |
| 28 | vpoint p5 -300 -100 -300 |
| 29 | 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 |
| 30 | |
| 31 | vpoint p6 -100 -300 -300 |
| 32 | 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 |
| 33 | |
| 34 | vpoint p7 -300 -100 -100 |
| 35 | 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 |
| 36 | |
| 37 | vpoint p8 -100 -300 -100 |
| 38 | 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 |
| 39 | |
| 40 | vaxis ax1 100 100 100 100 100 0 |
| 41 | |
| 42 | box a 110 110 110 200 200 200 |
| 43 | vdisplay a |
| 44 | |
| 45 | file delete -force ${imagedir}/${test_image}.pdf |
| 46 | set aFile ${imagedir}/${test_image}.pdf |
| 47 | |
| 48 | vexport ${aFile} PDF |
| 49 | |
| 50 | if { [checkplatform -windows] } { |
| 51 | set refsize 10131 |
| 52 | } else { |
| 53 | set refsize 10107 |
| 54 | } |
| 55 | |
| 56 | if { [file exists ${aFile}] } { |
| 57 | puts "Export to PDF file was done" |
| 58 | set filesize [file size ${aFile}] |
| 59 | if { $filesize != $refsize } { |
| 60 | puts "Error: Export to PDF file was done but size of file is incorrect (refsize = $refsize, current = $filesize)." |
| 61 | puts "Error: Compare content of resulting PDF file with reference." |
| 62 | puts "Error: Update refsize if it's necessary." |
| 63 | } |
| 64 | } else { |
| 65 | puts "Faulty : Export to PDF file was not done" |
| 66 | } |
| 67 | |
| 68 | checkview -screenshot -3d -path ${imagedir}/${test_image}.png |