visionmercer/qb64-include
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

a start

Browse source
This commit is contained in:
visionmercer 2022-03-18 18:33:58 +01:00
commit 0741413c93
11 changed files with 144 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

19
grayscale.bm Normal file
View file

@ -0,0 +1,19 @@
Sub grayscale (image As Long)
Dim mimg As _MEM
Dim As _Offset start, length
Dim As _Unsigned _Byte inputRed, inputGreen, inputBlue, nc
mimg = _MemImage(image)
start = mimg.OFFSET
length = start + _Width(image) * _Height(image) * 4
Do
inputBlue = _MemGet(mimg, start, _Unsigned _Byte)
inputGreen = _MemGet(mimg, start + 1, _Unsigned _Byte)
inputRed = _MemGet(mimg, start + 2, _Unsigned _Byte)
nc = (inputRed * 0.21) + (inputGreen * 0.72) + (inputBlue * 0.07)
_MemPut mimg, start, nc As _Unsigned _Byte
_MemPut mimg, start + 1, nc As _Unsigned _Byte
_MemPut mimg, start + 2, nc As _Unsigned _Byte
start = start + 4
Loop Until start = length
_MemFree mimg
End Sub