Update savebinarypbm.bm

This commit is contained in:
visionmercer 2022-09-19 13:13:54 +02:00
commit 81be6f0fd0

View file

@ -1,5 +1,10 @@
$if saveBinaryPBM = undefined then $if saveBinaryPBM = undefined then
$let saveBinaryPBM = defined $let saveBinaryPBM = defined
' ## Save binary PBM
' * Syntax: ``SaveBinaryPBM(ImageHandle as Long, Filename As String)``
' ### Info
' * Saves any image to Monochrome binary PBM image file.
' * All colors other than black will be white
Sub saveBinaryPBM (handle As Long, filename As String) Sub saveBinaryPBM (handle As Long, filename As String)
Dim imgwidth As Long Dim imgwidth As Long
Dim imgheight As Long Dim imgheight As Long