Пример использования различных видов текста

/* Program CH17EX05.PRO */

include "GRAPDECL.PRO"

goal

initgraph(detect, 0, GraphDriver, GraphMode, ""),

Title = "Font Example",

setTextJustify(center_TEXT, center_TEXT),

setUserCharSize(1, 1, 1, 1),

setTextStyle(triplex_Font, horiz_Dir, user_Char_Size),

textWidth(Tilte, Width), textHeight(Title, Height),

setUserCharSize(200, Width, 100, Height),

setTextStyle(triplex_Font, horiz_Dir, user_Char_Size),

rectangle(0, 0, 200, 100),

outtextxy(100, 48, Title),

setUserCharSize(300, Width, 100, Height),

setTextStyle(gothic_Font, horiz_Dir, user_Char_Size),

rectangle(220, 0, 520, 100),

outtextxy(370, 48, Title),

/* Vertical Sans_Serif Font */

setUserCharSize(200, Width, 150, Height),

setTextStyle(sans_Serif_Font, vert_Dir, user_Char_Size),

rectangle(100, 110, 240, 300),

outtextxy(300, 200, Title),

setTextJustify(left_TEXT, center_TEXT),

setTextStyle(small_Font, horiz_Dir, 1),

outtextxy(380, 200, "Press Key to exit"),

setTextJustify(right_TEXT, center_TEXT),

setTextStyle(small_Font, horiz_Dir, 4),

outtextxy(380, 208, "Press Key to exit"),

setTextJustify(left_TEXT, center_TEXT),

setTextStyle(small_Font, horiz_Dir, 6),

outtextxy(380, 220, "Press Key to exit"),

setTextJustify(center_TEXT, center_TEXT),

setTextStyle(default_Font, horiz_Dir, 2),

outtextxy(380, 240, "Press Key to exit"),

readchar(_),

closegraph.