Update savebinarypbm.bm
This commit is contained in:
parent
32e3ed4cb6
commit
ee5f32f7a9
1 changed files with 1 additions and 1 deletions
|
|
@ -21,7 +21,7 @@ Sub saveBinaryPBM (handle As Long, filename As String)
|
|||
Put #1, , header
|
||||
For y = 0 To imgheight - 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
|
||||
outbyte = _SetBit(outbyte, 7 - (bytecount Mod 8))
|
||||
Else
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue