Практика программирования (Бейсик, Си, Паскаль)



         

Закрашивание и заполнение замкнутых областей - часть 11


LINE (100,100)-(200,200),,B PAINT (150,150),M1$,15 END

Сравнительно несложная модификация этой программы позволяет изобразить фрагмент кирпичной стены:

Программа 8_11.bas

' Построение кирпичной стены SCREEN 12

I1$=CHR$(&HFF) ' байт с битами повышенной интенсивности

B0$=CHR$(&H0) ' байт с нулевыми битами синего цвета

G0$=CHR$(&H0) ' байт с нулевыми битами зеленого цвета

R8$=CHR$(&HFF) ' байт с единичными Ситами красного цвета

RL$=CHR$(&H40) ' красный бит слева

RR$=CHR$(£H2) ' красный бит справа

M1$=M1$+B0$+G0$+R8$+I1$: M1$=M1$+B0$+G0$+RL$+I1$

M1$=M1$+B0$+G0$+RL$+I1$: M1$=M1$+B0$+G0$+RL$+I1$

M1$=M1$+B0$+G0$+R8$+I1$: M1$=M1$+B0$+G0$+RR$+I1$

M1$=M1$+B0$+G0$+RR$+I1$: Ml$=Ml$+B0$+G0$+RR$+Il$

LINE (100,100)-(200,200),,B

PAINT (150,150),M1$,15 END




Содержание  Назад  Вперед