VB - Anti-Alias Unit

Here's an anti-alias module I wrote some time ago.

For those who don't know what anti-alias is:
When drawing pixels on a point that's between 2 pixels
on the screen, this module will simulate that the pixel is
drawn between those pixels.
This is good when making low/mid-res gfx


It's included in a testprogram that draws some shapes
to see the difference with AA on.


To use this in your own program you need GetDIBBits.bas
and mAntiAlias.bas from the zip and use this code to
draw:

VB Code:

PicBox.Cls
    InitSetDIBPixel PicBox.hDC, PicBox.Image.Handle
    DrawAntiAliasPixel X, Y, Red, Green, Blue
    FinishSetDIBPixel PicBox.hDC, PicBox.Image.Handle
    PicBox.Refresh

Make sure that X and Y are defined as Single or Double
or else the pixels will not need AA-ing.


Try it and tell me what you think!