2 puts "Rendering resolution scale factor"
6 catch { set aFontFile [locate_data_file DejaVuSans.ttf] }
8 pload MODELING VISUALIZATION
10 set aLabelFont "Arial"
11 if { "$aFontFile" != "" } {
12 vfont add "$aFontFile" SansFont
13 set aLabelFont "SansFont"
24 vdrawtext t Text2d -font $aLabelFont
26 vdisplay -trsfPers zoom -trsfPersPos 1 0 0 tt
27 text2brep ttl "Top-Left" -font $aLabelFont -height 30 -pos 0 -30 0
28 vdisplay ttl -2d topLeft -dispMode 1
31 vrenderparams -rendScale 1
32 vdump $::imagedir/${::casename}_100.png
34 vrenderparams -rendScale 0.5
35 vdump $::imagedir/${::casename}_050.png
37 vrenderparams -rendScale 0.75
38 vdump $::imagedir/${::casename}_075.png
40 vrenderparams -rendScale 2
41 vdump $::imagedir/${::casename}_200.png