[HolyDel]

function writealpha(x,y,alpha,buff)
writepixelfast x,y,(readpixelfast(buff) and $00FFFFFF)+alpha shl 24),buff
end function
сможете оптимизировать (ускорить расчет)?
изменяет альфу пиксела (вы догадались)