puts "OCC21450"
puts "============"
puts ""
-#vinit
-#vexport
-#vexport full_file_path {PS | EPS | TEX | PDF | SVG | PGF } : exports the view to a vector file of a given format
-#
pload XSDRAW
vinit
file delete -force ${imagedir}/${test_image}.pdf
set aFile ${imagedir}/${test_image}.pdf
+vcaps -ffp 1
vexport ${aFile} PDF
-if { [string compare $tcl_platform(platform) "windows"] != 0 } {
- set refsize 144401
-} else {
+if { [checkplatform -windows] } {
set refsize 153993
+} else {
+ set refsize 144401
}
if { [file exists ${aFile}] } {