Add
Параметр для графической функции Put
, который задает ADD (добавление)
в качестве метода блиттинга
Put [ target, ] [ STEP ] ( x,y ), source [ ,( x1,y1 )-( x2,y2 ) ], Add[ ,multiplier ]
Add
Add выбирает добавление в качестве метода блиттинга буфера изображения. Для каждого исходного и конечного пикселя, значения каждого соответствующего компонента суммируются для получения результата.
Добавление насыщается до определенного предела - т.е. если сумма двух чисел равна 256 или более, то она будет обрезана до 255.
Этот метод будет работать во всех цветовых режимах. Цвет маски ( 0 для индексированных изображений, пурпурный (RGB(255, 0, 255)) для полноцветных изображений) будет пропущен, также как и полноцветные значения 0 (RGBA(0, 0, 0, 0)) тоже не будут иметь никакого эффекта.
Синтаксис
Put [ target, ] [ STEP ] ( x,y ), source [ ,( x1,y1 )-( x2,y2 ) ], Add[ ,multiplier ]
Параметры
Add
Требуется.
multiplierНеобязательное значение между 0 и 255. Исходные пиксели
предварительно умножаются на (multiplier / 256)
перед ADD (добавлением). Если этот
параметр опущен, это значение по умолчанию равно 255.
Описание
Add выбирает добавление в качестве метода блиттинга буфера изображения. Для каждого исходного и конечного пикселя, значения каждого соответствующего компонента суммируются для получения результата.
Добавление насыщается до определенного предела - т.е. если сумма двух чисел равна 256 или более, то она будет обрезана до 255.
Этот метод будет работать во всех цветовых режимах. Цвет маски ( 0 для индексированных изображений, пурпурный (RGB(255, 0, 255)) для полноцветных изображений) будет пропущен, также как и полноцветные значения 0 (RGBA(0, 0, 0, 0)) тоже не будут иметь никакого эффекта.
Пример
''открыть графическое окно
ScreenRes 320, 200, 16
''создать спрайт, содержащий круг
Const As Integer r = 32
Dim c As Any Ptr = ImageCreate(r * 2 + 1, r * 2 + 1, 0)
Circle c, (r, r), r, RGB(255, 255, 192), , , 1, f
''положить спрайт с тремя различными multipier(множителями)
''спрайты перекрывают друг друга в середине
Put (146 - r, 108 - r), c, add, 64
Put (174 - r, 108 - r), c, add, 128
Put (160 - r, 84 - r), c, add, 192
''освободить память, используемую для спрайта
ImageDestroy c
''приостановить программу перед закрытием
Sleep
ScreenRes 320, 200, 16
''создать спрайт, содержащий круг
Const As Integer r = 32
Dim c As Any Ptr = ImageCreate(r * 2 + 1, r * 2 + 1, 0)
Circle c, (r, r), r, RGB(255, 255, 192), , , 1, f
''положить спрайт с тремя различными multipier(множителями)
''спрайты перекрывают друг друга в середине
Put (146 - r, 108 - r), c, add, 64
Put (174 - r, 108 - r), c, add, 128
Put (160 - r, 84 - r), c, add, 192
''освободить память, используемую для спрайта
ImageDestroy c
''приостановить программу перед закрытием
Sleep
Отличия от QB
- Новое в FreeBASIC
См. также