12.07.2015 Views

Intel® Fortran Libraries Reference

Intel® Fortran Libraries Reference

Intel® Fortran Libraries Reference

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

Descriptions of the Library Routines 2CHARACTER*22 str2real rhinteger h, inwstr = "t'Arial'bih"str1= " "numfonts = INITIALIZEFONTS ( )! Default both height and width. This seems to work! properly. From this setting get the ratio between! height and width.fontnum = SETFONT ("t'Arial'")ireturn = GETFONTINFO(info)rh = real(info%pixheight)/real(info%avgwidth)! Now calculate the height for a width of 40write(*,*) 'Input desired width:'read(*,*) inwh =int(inw*rh)write(str1,'(I3.3)') hstr2 = str//str1print *,str2fontnum = SETFONT (str2)CALL MOVETO (INT2(10), INT2(50), pos)CALL OUTGTEXT('ABCDEFGabcdefg12345!@#$%')CALL MOVETO (INT2(10), INT2(50+10+h), pos)CALL OUTGTEXT('123456789012345678901234')ireturn = GETFONTINFO(info)call settextposition(4,1, rcc)print *, info%avgwidth, info%pixheightENDSETGTEXTROTATIONGraphics Subroutine: Sets the orientation angle of the font text output in degrees. The currentorientation is used in calls to OUTGTEXT. This subroutine is only available on Windows*systems.Module: USE IFQWINSyntaxCALL SETGTEXTROTATION (degree-tenths)2-409

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!