All Font Program

copthesaint · **Posted:** Sun Feb 15, 2009 3:25 pm

This 19 line attachment will let make using Font.Draw Alot Shorter.
With this you won't have to name fonts, and Free them.

code:

% Program will let you draw all font types and all sizes for the font.
var fontName : array 1 .. 234 of string
var FontNumSet, FontViewChange : int := 0
var FontSetAll : array 1 .. 234 of int
function FontSelect (FontNum : int, Size : int) : int
FontNumSet := 0
Font.StartName
loop
FontNumSet += 1
fontName (FontNumSet) := Font.GetName
exit when fontName (FontNumSet) = ""
end loop
fontName (FontNum) := fontName (FontNum) + ":" + (intstr (Size))
FontSetAll (FontNum) := Font.New (fontName (FontNum))
result FontSetAll (FontNum)
end FontSelect
Font.Draw ("AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz", 5, 25, FontSelect (98, 13), black)

SNIPERDUDE · **Posted:** Tue Feb 17, 2009 12:52 pm

Why didn't I think of this?

Good add.

copthesaint · **Posted:** Tue Feb 17, 2009 1:55 pm

Thank you

BigBear · **Posted:** Wed Mar 04, 2009 3:17 pm

so that 234 is that the amount of fonts you have on your computer?

Should you use Font.GetName to determine how many fonts a given computer has.

Or is 234 the max amount of fonts that turing supports?

With Vista Home Premium I have 209 fonts.

copthesaint · **Posted:** Wed Mar 04, 2009 6:13 pm

Here Is a WAY better version of it.

Turing:

unit
module FONT
export DrawFont
class AllFont
export FontSelect
type FontsRec :
record
FontNew : int
end record
var FontSET : FontsRec
function FontSelect (FontName : string, Size : int) : int
FontSET.FontNew := Font.New (FontName + ":" + intstr (Size))
result FontSET.FontNew
end FontSelect
end AllFont
var ForwardAllFont : pointer to AllFont
procedure DrawFont (StringValue : string, Xvalue, Yvalue, Color, FontSIZE : int, FontNAME : string)
new AllFont, ForwardAllFont
Font.Draw (StringValue, Xvalue, Yvalue, ForwardAllFont -> FontSelect ("Arial", FontSIZE), Color)
end DrawFont
end FONT

This is to load it:

Turing:

import ( FONT in "FONT.tu" )
loop
FONT.DrawFont ("Hello", 56, 76, green, 17, "Arial")
View.Update
delay (10)
cls
end loop

There It is. The problem with the first program i that the fonts change with every computer so that isn't very good for a program.

The_Bean · **Posted:** Wed Mar 04, 2009 7:00 pm

So all that is basically removing the need of making a new variable to hold the font, so wouldn't it be easier to:

Turing:

proc FontDraw (text : string, x, y : int, fontName : string, fontSize, c : int)
var font := Font.New (fontName + ":" + intstr (fontSize))
Font.Draw (text, x, y, font, c)
end FontDraw
FontDraw ("Hello", 56, 76, "Arial", 17, green)

copthesaint · **Posted:** Wed Mar 04, 2009 7:27 pm

Yea but at the same time I'm teaching myself classes and exporting/importing so I decided to do it that way so later I could add too it. (GUI)

BigBear · **Posted:** Fri May 01, 2009 7:34 pm

http://compsci.ca/v3/viewtopic.php?t=17295&highlight=

	Computer Science Canada Programming C, C++, Java, PHP, Ruby, Turing, VB Username: Password: Register
Wiki Blog Search Turing Chat Room Members