logo
TurboProlog / Документация / TOM_2

Setusercharsize/4 Графика

Назначение Устанавливает коэффициент умножения для символов,

определенных пользователем

Обращение setusercharsize(Умнx,Делx,Умнy,Делy)

Домены (integer,integer,integer,integer)

Шаблоны описания (вх,вх,вх,вх)

аргументов

Описание setusercharsize устанавливает размер символов,

определенных пользователем. Значение устанавливается,

только если CharSize = 0 при предыдущем вызове

settextstyle.

При вызове setusercharsize устанавливается

коэффициент умножения символов в высоту и в ширину.

Ширина определяется отношением Умнx:Делx. Высота

определяется отношением Умнy:Делy. Например, чтобы

сделать буквы в два раза шире и в два раза ниже,

нужно установить:

Умнx = 2 Делx = 1

Умнy = 3 Делy = 2

Смотри gettextsettings

Пример

include "GRAPDECL.PRO"

goal

/* Инициализация гpафики c автоматическим

определением драйвера */

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

Title = "Text",

/* Нарисовать прямоугольник с текстом внутри */

setTextJustify(center_Text,center_Text),

setUserCharSize(1,1,1,1),

setTextStyle(triplex_Font,horiz_Dir, user_Char_Size),

/* user_Char_Size=0 определено в GRAPDECL.PRO */

textWidth(Title,Width), textHeight(Title,Hight),

setUserCharSize(200,Width,100,Hight),

setTextStyle(triplex_Font,horiz_Dir, user_Char_Size),

rectangle(0,0,200,100),

outtextxy(100,48,Title),

readchar(_),

closegraph.