OberonPlace.com Forums  

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

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 10-11-2004, 03:54
Peter Clifton
Guest
 
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.


Code:
       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.

Thanks

Peter
Reply With Quote
Reply


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 01:02
Corel Photo Paint 11 Document Events problem cyrilgupta Corel Photo-Paint VBA 1 07-11-2004 12:51
Transfer shapes from Draw to Paint; Using CorelScript in VB6 DWGraphics Corel Photo-Paint VBA 1 18-08-2004 20:49
color profile problem in Photo Paint 9 flip Corel Photo-Paint VBA 2 11-07-2003 03:55
Clipping a bitmap around a 2 pixel line width box wbochar CorelDRAW/Corel DESIGNER VBA 2 19-06-2003 10:07


All times are GMT -5. The time now is 15:13.


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