инверсия картинки

Freebasic - инверсия картинки

                                                                                                               
  Принцип работы программы такой. Загружаем картинку с именем 1.bmp на экран (PUT), потом определяем цвет каждой точки картинки с помощью POINT. И тут же рисуем эту точку правее с помощью PSET, инвертируя цвет с помощью NOT. Вот и вся хитрость!


screen 19,32
dim x as integer ' для цикла координаты x
dim y as integer ' для цикла координаты y
dim p as integer ' цвет точки

DIM garray(921604) AS BYTE
BLOAD "1.bmp", @garray(0)
PUT (0,0),garray(0) 'вывод основной картинки


''''''''''''''''''''''''''''''''''''''''''''''''''
for y=0 to 314
for x=0 to 380
p=point (x,y)
pset(x+420,y),not(p) 'инверсия
next x
next y
''''''''''''''''''''''''''''''''''''''''''''''''''''
sleep



В результате у нас получилось:

инверсия картинки

Скачать исходник программы инверсия картинки (папка zip 58кбайта)


Карта сайта
                                                                                                               





Ссылка на эту страницу: Типография: листовки, визитки, буклеты, офсетная печать. визитки.

Добавить сайт freebasic в избранное   Сделать Freebasic стартовой