0027704: Numeric inaccuracy due to huge extension of the offset faces
[occt.git] / tests / bugs / vis / bug21091_7
CommitLineData
a8676008 1puts "============"
2puts "OCC21091"
3puts "OCC21450"
4puts "============"
5puts ""
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 TEX format
9
6fb1a930 10vfont add [locate_data_file DejaVuSans.ttf] SansFont
11
a8676008 12vinit
5747059b 13checkview -screenshot -3d -path ${imagedir}/${test_image}.png
a8676008 14
15vtrihedron trihedron
16
17vpoint p1 -300 -300 -300
6fb1a930 18vdrawtext 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
29e2c6d2 19
a8676008 20vpoint p2 -300 -300 -100
6fb1a930 21vdrawtext 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
29e2c6d2 22
a8676008 23vpoint p3 -100 -100 -300
6fb1a930 24vdrawtext 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
29e2c6d2 25
a8676008 26vpoint p4 -100 -100 -100
6fb1a930 27vdrawtext 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
a8676008 28
29
30vpoint p5 -300 -100 -300
6fb1a930 31vdrawtext 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
29e2c6d2 32
a8676008 33vpoint p6 -100 -300 -300
6fb1a930 34vdrawtext 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
29e2c6d2 35
a8676008 36vpoint p7 -300 -100 -100
6fb1a930 37vdrawtext 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
29e2c6d2 38
a8676008 39vpoint p8 -100 -300 -100
6fb1a930 40vdrawtext 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
a8676008 41
42vaxis ax1 100 100 100 100 100 0
43
44box a 110 110 110 200 200 200
45vdisplay a
46
47set aFile $imagedir/${test_image}.tex
48
49vexport ${aFile} TEX
50
51if { [file exists ${aFile}] } {
52 puts "Export to TEX file was done"
53 set filesize [file size ${aFile}]
54 puts "Size of TEX file = $filesize"
0c4ca3bd 55 if { $filesize > 1500 } {
56 puts "Faulty : Export to TEX file was done but size of file is incorrect"
57 }
58} else {
59 puts "Faulty : Export to TEX file was not done"
60}