KB#00062-How to determine the CPI and POINT size of the SYSPRINTer's font
How to determine the CPI and POINT size of the SYSPRINTer's font
To determine what the CPI and POINT Size of the current FONT, you can do the following:
This can then be plugged into a 'font' mnemonic as:
This example starts with a FONT=,ROWS=,COLS= on the OPEN mode. Assume that in a report you need to print a large piece of text to emphasize something, but then you want to go back to the original size text.
0010 LET CHAN=UNT
0020 OPEN (CHAN,MODE="FONT=Courier,ROWS=66,COLS=80")"LP"
0030 DIM F_1$:TMPL(CHAN,IND=1); LET F_1$=FIN(CHAN,IND=1)
0040 LET CPI=F_1.XPPI/F_1.CHAR_WIDTH
0050 LET POINTS=72.2*F_1.CHAR_HEIGHT/F_1.YPPI
0060 PRINT (CHAN)"All kinds of neat data"
0070 PRINT (CHAN)'FONT'("Letter Gothic",5,20),"This should be large"
0080 PRINT (CHAN)'FONT'(F_1.FONT$,CPI,POINTS),"Back to regular size and font."
0090 PRINT (CHAN)'FF',; CLOSE (CHAN)
Last Modified: 12/18/1997 Product: Visual PRO/5 Operating System: Windows
BASIS structures five components of their technology into the BBx Generations.