OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Developer Forums > VBA > Corel Photo-Paint VBA

Thread Tools Search this Thread Display Modes
Old 10-11-2004, 04:54
Peter Clifton
Posts: n/a
Default Quickest way to paint a pixel?

Hi all

I have finished my suite of Liquid Crystal Display prototyping macros.

To recreate a bitmap from a specific bit/byte order file that mirrors the LCD buffer, I am using Photo-Paint to regenerate the bitmap.

Currently I am using this routine.

       With CorelScript
            .RectangleTool 0, 0, 0, 0, False, False, True
            .FillSolid 8, 0, 0, 0, 0
            For row = 0 To rowMax
                pixelRow = row * 8
                For column = 0 To colMax
                    myByte = myByteArray(row, column)
                    For myBit = 0 To 7
                        If (myByte And (2 ^ myBit)) <> 0 Then
                            .Rectangle column, pixelRow + myBit, column, pixelRow + myBit
                        End If
                    Next myBit
                Next column
            Next row
       End With
Is there a quicker way to paint pixels, or perhaps a clever way to process the array of bytes into a black and white image.


Reply With Quote

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
PAINT 10 - Crop to a circular object colinstone General 1 07-05-2005 02:02
Corel Photo Paint 11 Document Events problem cyrilgupta Corel Photo-Paint VBA 1 07-11-2004 13:51
Transfer shapes from Draw to Paint; Using CorelScript in VB6 DWGraphics Corel Photo-Paint VBA 1 18-08-2004 21:49
color profile problem in Photo Paint 9 flip Corel Photo-Paint VBA 2 11-07-2003 04:55
Clipping a bitmap around a 2 pixel line width box wbochar CorelDRAW/Corel DESIGNER VBA 2 19-06-2003 11:07

All times are GMT -5. The time now is 06:21.

Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2023, Jelsoft Enterprises Ltd.
Copyright © 2011, Oberonplace.com