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

Update savebinarypbm.bm

Browse source
This commit is contained in:
visionmercer 2022-06-13 13:17:01 +02:00 • committed by GitHub
commit ee5f32f7a9
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
savebinarypbm.bm
View file

@ -21,7 +21,7 @@ Sub saveBinaryPBM (handle As Long, filename As String)
Put #1, , header Put #1, , header
For y = 0 To imgheight - 1 For y = 0 To imgheight - 1
For x = 0 To imgwidth - 1 For x = 0 To imgwidth - 1
c = (Point(x, y) = _RGB32(0, 0, 0)) c = (Point(x, y) = _RGB(0, 0, 0))
If c <> 0 Then If c <> 0 Then
outbyte = _SetBit(outbyte, 7 - (bytecount Mod 8)) outbyte = _SetBit(outbyte, 7 - (bytecount Mod 8))
Else Else