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

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

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

Процедура LineTo.

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

    Procedure LineTo(X, Y : Integer);

  • Описание:

    Рисует линию от текущего указателя (CP) до (X,Y).

  • Замечания:

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

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

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

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

    Line(100, 100, 200, 200);

    Первый метод медленнее и использует большее количество кода. Используйте LineTo только втом случае, если текущий указатель находится в конечной точке линии. Используйте LineRel, чтобы рисовать линию относительно текущего указателя CP. Второй метод не изменяет значение CP.

    LineTo перемещает текущий указатель (CP) на (X, Y).

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

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

  • Пример:

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



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