Задание пользовательских линий

Процедура SetLineStyle (type, pattern, thick: word) устанавливает стиль вычерчиваемых линий. Здесь type, pattern, thick – соответственно тип, образец и толщина линии.

Пользователь должен задать образец линии, который записывается во 2-ом параметре Pattern. Образец задается с помощью 4-х шестнадцатеричных чисел (от 0 до F). Если вы помните, то каждое шестнадцатеричное число кодируется 4-мя двоичными битами. На рис. 6 показано соответствие между шестнадцатеричным числом и двоичным числом.

Рис.6.

 

Там где бит, имеет значение 1, в линии ставится штрих, а там где – 0, не ставится.

Например, зададим в качестве 2-го параметра 4 шестнадцатеричных числа F 5 F 5. Запишем эти числа в двоичном коде, согласно таблице сверху : 1111 0101 1111 0101.

На рис.7 представлен увеличенный фрагмент линии, заданный с помощью пользовательских параметров.

Рис.7. Пример пользовательской линии

 

В этой линии штрихи определяются цифрой 1, а пропуски – цифрой 0. Сначала идет 4 штриха, затем 1 пропуск, затем 1 штрих, затем один пропуск, затем 5 штрихов (дальше все повторяется). Т.е. эта линия соответствует параметру F 5 F 5.

Рис.8. Стиль линии

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

Параметр thick может принимать одно из двух значений:

·        NormWidth=1 {толщина в 1 пиксель}

·        ThickWidth=3 {толщина в 3 пикселя}