Курсовые работы, лабораторные и дипломы по информатике.

>> Справочник по функциям Turbo Pascal 7.0.

Наши спонсоры:

Процедура Line.

  • Объявление:

    Procedure Line(X1, Y1, X2, Y2 : Integer);

  • Описание:

    Рисует линию из точки с координатами (X1, Y1) в точку с координатами (X2, Y2).

  • Замечания:

    Рисует линию стилем и толщиной, определенными SetLineStyle и использует цвет, установленный обращением к процедуре SetColor. Используйте процедуру SetWriteMode, чтобы определить, какую логическую операцию выполнять для каждой точки линии при ее выводе на экран (MOV или XOR).

    Учтите, что последовательность операторов

    MoveTo(100, 100); LineTo(200, 200);

    является эквивалентной

    Line(100, 100, 200, 200); MoveTo(200, 200);

    Используйте LineTo, когда текущий указатель (CP - Current Pointer) находится в конечной точке линии. Если вы хотите чтобы значение CP изменялось автоматически при рисовании линии, используйте LineRel. Процедура Line не изменяет значение CP.

  • Ограничения:

    Нужно быть в графическом режиме.

  • Пример:

    { Пример программы для процедуры Line }
    Uses Crt, Graph;
    Var Gd, Gm : Integer;
    Begin
    Gd:=Detect;
    InitGraph(Gd, Gm, '');
    If GraphResult <> grOk Then Halt(1);
    Randomize;
    Repeat
    Line(Random(200), Random(200), Random(200), Random(200));
    Until KeyPressed;
    ReadLn;
    CloseGraph;
    End.



Вернуться к оглавлению справочника