[occt.git] / tests / 3rdparty / fonts / B1

puts "TODO ?OCC12345 Debian60-64: \\*\\* Exception \\*\\*.*"
puts "TODO ?OCC12345 Debian60-64: An exception was caught"
puts "TODO ?OCC12345 Debian60-64: TEST INCOMPLETE"

puts "============"
puts "OCC24181 Render text as BRep"
puts "============"
puts ""
pload MODELING
pload VISUALIZATION

set THE_TEXT "The quick brown fox\njumps over the lazy dog!"
set THE_FONT_NAME Times-Roman
set THE_FONT_SIZES {12 18 24}

vsetdispmode 1
vtop

set aLine 0
foreach aSize $THE_FONT_SIZES {
  set aText "\[$aSize\] $THE_TEXT"

  vpoint aPnt_$aSize 0.0 $aLine 0.0
  vdrawtext $aText 0.0 $aLine 0.0 000 255 255 0 2 000 1 $aSize 4 $THE_FONT_NAME

  text2brep aBText_$aSize $aText $THE_FONT_NAME $aSize bolditalic composite=0
  ttranslate aBText_$aSize 0.0 $aLine 0.0
  vdisplay  aBText_$aSize
  set aLine [expr $aLine - 4.0 * $aSize]
}

vfit
Commit	Line	Data
4e3aa6b7	1	puts "TODO ?OCC12345 Debian60-64: \\\\ Exception \\\\.*"
	2	puts "TODO ?OCC12345 Debian60-64: An exception was caught"
	3	puts "TODO ?OCC12345 Debian60-64: TEST INCOMPLETE"
	4
b514beda	5	puts "============"
	6	puts "OCC24181 Render text as BRep"
	7	puts "============"
	8	puts ""
	9	pload MODELING
	10	pload VISUALIZATION
	11
	12	set THE_TEXT "The quick brown fox\njumps over the lazy dog!"
	13	set THE_FONT_NAME Times-Roman
	14	set THE_FONT_SIZES {12 18 24}
	15
	16	vsetdispmode 1
	17	vtop
	18
	19	set aLine 0
	20	foreach aSize $THE_FONT_SIZES {
	21	set aText "\[$aSize\] $THE_TEXT"
	22
	23	vpoint aPnt_$aSize 0.0 $aLine 0.0
	24	vdrawtext $aText 0.0 $aLine 0.0 000 255 255 0 2 000 1 $aSize 4 $THE_FONT_NAME
	25
	26	text2brep aBText_$aSize $aText $THE_FONT_NAME $aSize bolditalic composite=0
	27	ttranslate aBText_$aSize 0.0 $aLine 0.0
	28	vdisplay aBText_$aSize
	29	set aLine [expr $aLine - 4.0 * $aSize]
	30	}
	31
	32	vfit