mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
a8676008f7
Splitting of subgroups bugs/modalg and bugs/moddata to optimise time of testing Correction of end file in group v3d Small correction of test case
54 lines
1.5 KiB
Plaintext
Executable File
54 lines
1.5 KiB
Plaintext
Executable File
puts "TODO ?OCC11111 ALL: Faulty : Export to"
|
|
|
|
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 PS format
|
|
|
|
vinit
|
|
set only_screen 1
|
|
|
|
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
|
|
|
|
set aFile $imagedir/${test_image}.ps
|
|
|
|
vexport ${aFile} PS
|
|
|
|
if { [file exists ${aFile}] } {
|
|
puts "Export to PS format was done"
|
|
set filesize [file size ${aFile}]
|
|
if { $filesize != 10418 } {
|
|
puts "Faulty : Export to PS format was done but size of file is incorrect"
|
|
}
|
|
} else {
|
|
puts "Faulty : Export to PS format was not done"
|
|
}
|