mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
9aa684edf4
Unstable test cases were reviewed Modified test cases using checktrend command Modified test cases for Linux platform Modified test cases for Debug mode
60 lines
1.8 KiB
Plaintext
Executable File
60 lines
1.8 KiB
Plaintext
Executable File
puts "============"
|
|
puts "OCC21091"
|
|
puts "OCC21450"
|
|
puts "============"
|
|
puts ""
|
|
#vexport
|
|
#vexport full_file_path {PS | EPS | TEX | PDF | SVG | PGF } : exports the view to a vector file of a given format
|
|
#Testing export to SVG format
|
|
|
|
vinit
|
|
vtrihedron trihedron
|
|
|
|
vpoint p1 -300 -300 -300
|
|
vdrawtext OpenCascade -300 -300 -300 000 255 000 0 0 000 0 15 1 Courier
|
|
vpoint p2 -300 -300 -100
|
|
vdrawtext OpenCascade -300 -300 -100 000 255 000 0 0 000 0 15 1 Courier
|
|
vpoint p3 -100 -100 -300
|
|
vdrawtext OpenCascade -100 -100 -300 000 255 000 0 0 000 0 15 1 Courier
|
|
vpoint p4 -100 -100 -100
|
|
vdrawtext OpenCascade -100 -100 -100 000 255 000 0 0 000 0 15 1 Courier
|
|
|
|
|
|
vpoint p5 -300 -100 -300
|
|
vdrawtext OpenCascade -300 -100 -300 000 255 000 0 0 000 0 15 1 Courier
|
|
vpoint p6 -100 -300 -300
|
|
vdrawtext OpenCascade -100 -300 -300 000 255 000 0 0 000 0 15 1 Courier
|
|
vpoint p7 -300 -100 -100
|
|
vdrawtext OpenCascade -300 -100 -100 000 255 000 0 0 000 0 15 1 Courier
|
|
vpoint p8 -100 -300 -100
|
|
vdrawtext OpenCascade -100 -300 -100 000 255 000 0 0 000 0 15 1 Courier
|
|
|
|
vaxis ax1 100 100 100 100 100 0
|
|
|
|
box a 110 110 110 200 200 200
|
|
vdisplay a
|
|
|
|
file delete -force ${imagedir}/${test_image}.svg
|
|
set aFile ${imagedir}/${test_image}.svg
|
|
|
|
vexport ${aFile} SVG
|
|
|
|
if { [string compare $tcl_platform(platform) "windows"] != 0 } {
|
|
set refsize 14191
|
|
} else {
|
|
set refsize 14075
|
|
}
|
|
|
|
if { [file exists ${aFile}] } {
|
|
puts "Export to SVG file was done"
|
|
set filesize [file size ${aFile}]
|
|
if { $filesize != $refsize } {
|
|
puts "Error: Export to SVG file was done but size of file is incorrect (refsize = $refsize, current = $filesize)."
|
|
puts "Error: Compare content of resulting SVG file with reference."
|
|
puts "Error: Update refsize if it's necessary."
|
|
}
|
|
} else {
|
|
puts "Faulty : Export to SVG file was not done"
|
|
}
|
|
|
|
set only_screen 1 |