[occt.git] / tests / 3rdparty / export / A2

puts "============"
puts "OCC21091"
puts "OCC21450"
puts "============"
puts ""

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/ExportToPDF.pdf

set format PDF

set size 10343
Commit	Line	Data
40093367	1	puts "============"
	2	puts "OCC21091"
	3	puts "OCC21450"
	4	puts "============"
	5	puts ""
	6
	7	vtrihedron trihedron
	8
	9	vpoint p1 -300 -300 -300
	10	vdrawtext OpenCascade -300 -300 -300 000 255 000 0 0 000 0 15 1 Courier
	11	vpoint p2 -300 -300 -100
	12	vdrawtext OpenCascade -300 -300 -100 000 255 000 0 0 000 0 15 1 Courier
	13	vpoint p3 -100 -100 -300
	14	vdrawtext OpenCascade -100 -100 -300 000 255 000 0 0 000 0 15 1 Courier
	15	vpoint p4 -100 -100 -100
	16	vdrawtext OpenCascade -100 -100 -100 000 255 000 0 0 000 0 15 1 Courier
	17
	18
	19	vpoint p5 -300 -100 -300
	20	vdrawtext OpenCascade -300 -100 -300 000 255 000 0 0 000 0 15 1 Courier
	21	vpoint p6 -100 -300 -300
	22	vdrawtext OpenCascade -100 -300 -300 000 255 000 0 0 000 0 15 1 Courier
	23	vpoint p7 -300 -100 -100
	24	vdrawtext OpenCascade -300 -100 -100 000 255 000 0 0 000 0 15 1 Courier
	25	vpoint p8 -100 -300 -100
	26	vdrawtext OpenCascade -100 -300 -100 000 255 000 0 0 000 0 15 1 Courier
	27
	28	vaxis ax1 100 100 100 100 100 0
	29
	30	box a 110 110 110 200 200 200
	31	vdisplay a
	32
8418c617	33	set aFile $imagedir/ExportToPDF.pdf
40093367	34
	35	set format PDF
	36
	37	set size 10343