Grayscale image: Difference between revisions

Content added Content deleted
Line 393: Line 393:


FOR ptr = head TO tail STEP 3 ' transform color triplets
FOR ptr = head TO tail STEP 3 ' transform color triplets
b = PEEK(ptr + 0, 1) ' read Windows colors stored in BGR format
b = PEEK(ptr + 0, 1) ' read Windows colors stored in BGR order
g = PEEK(ptr + 1, 1)
g = PEEK(ptr + 1, 1)
r = PEEK(ptr + 2, 1)
r = PEEK(ptr + 2, 1)