Алгоритмические языки и программирование. Часть 3. Модули в Турбо Паскале. Игошина Л.В. - 30 стр.

                                                                            30




      3) Рисование линии от текущей позиции длиной, определяемой заданием
         смещений по горизонтали и вертикали dx и dy: LineRel(dx,dy);
      Если координаты концов получаемых отрезков выходят за границы
графического экрана (или окна), то часть отрезка обрезается, но текущий
указатель переместиться в точку с координатами конца отрезка, даже если его не
видно на экране.
      Для вычерчиваемых линий можно задать стиль (толщину и тип линии).
      Для задания стиля в модуле Graph определены тип и константы:
      Type
            LineSettingsType = Record
                   LineStyle : Word; {Тип линии}
                   Pattern : Word; {Шаблон типа}
                   Thickness : Word; {Толщина линии}
                                 End;
      Const
            {Для значений поля LineStyle }
            Solidln = 0 { Сплошная линия}
            Dottedln = 1;{ Точечная линия}
            Centerln - 2; { Штрих-пунктирная линия}
            Dashedln = 3; {Пунктирная линия}
            UserBitln = 4 {Тип линий, определяемый пользователем - задается
                             параметром Pattern - шаблон}
            {Для значений поля Thickness}
            NormWidth = 1; {Линия толщиной в 1 пиксель}
            ThickWidth = 3; {Линия толщиной в 3 пикселя}
      По умолчанию используется сплошная линия толщиной в 1 пиксель.
      Для установки нового стиля линий используется процедура:
      SetLineStyle(Тип линии, Шаблон, Толщина),
где Тип линии выбирается из вышеописанных констант от 0 до 4 (или от Solidln
до UserBitln); Шаблон берется равным 0, если параметр Тип линии любой, кроме
4 (UserBitln); Толщина - константа, равная 1 или 3.
      Например, для рисования толстой сплошной линии необходимо задать:
      SetLineStyle(0,0,3) или SetLineStyle(Solidln,0,ThickWidth).
      Пользователь может задать свой тип линии, отличный от типов заданных в
модуле Graph. Для этого необходимо разработать свой шаблон и задать тип линии
4 (или UserBitln).
      Линия представляет собой совокупность отрезков, каждый из которых
имеет длину 16 пикселей. Если длина линии не делится на 16 нацело, то
последний отрезок обрезается. Можно задать свой шаблон как комбинацию из
шестнадцати светящихся или погашенных пикселей. Его представляют как
последовательность, состоящую из 0 и 1: 1 - светиться, 0 - погашено.
      Например, зададим свою пунктирную линию:
1111000011110000 - всего 16 бит или разрядов. Это двоичное представление, но в
Турбо Паскале его необходимо перевести в шестнадцатеричную форму (это будет
шестнадцатеричное число $F0F0), а затем подставить его вместо параметра,
                                                                            30