It's free and works like a charm. But I'm not sure about the algorithm.
void DrawWuCirlce (CDC * pDC, int x, int y, int r)
{
short x1, y1, x2, y2;
float dt = 5;
for ( float theta= 0; theta< 360; theta += dt )
{
x1 = (short)( r*cos(theta*3.141593/180.0)+x);
y1 = (short)(-r*sin(theta*3.141593/180.0)+y);
x2 = (short)( r*cos((theta+dt)*3.141593/180.0)+x);
y2 = (short)(-r*sin((theta+dt)*3.141593/180.0)+y);
DrawWuLine ( pDC, x1, y1, x2, y2, RGB(192,0,0));
}
}
Uses Math, Graphics;
procedure WuLine(ABitmap : TBitmap ; Point1, Point2 : TPoint ; AColor : TColor);
procedure AlphaBlendPixel(ABitmap : TBitmap ; X, Y : integer ; R, G, B : byte ; ARatio : Real);
Var
X1,X2,Y1,Y2 : Integer;
LineColor : TColor;
Point1, Point2 : TPoint;
DrawPlace : TBitmap;
begin
DrawPlace := TBitmap.Create;
DrawPlace := Image1.Picture.Bitmap;
Drawplace.PixelFormat := pf24Bit;
Drawplace.Height := Image1.Height;
DrawPlace.Width := Image1.Width;
X1 := 10, X2 := 100, Y1 := 10, Y2 := 50;
LineColor := clBlack
WuLine(Drawplace, Point(X1,Y1), Point(X2,Y1),SketchColor.Color);
procedure TFormDraw.WuLine(ABitmap : TBitmap ; Point1, Point2 : TPoint ; AColor : TColor);
var
deltax, deltay, loop, start, finish : integer;
dx, dy, dydx : single; // fractional parts
LR, LG, LB : byte;
x1, x2, y1, y2 : integer;
begin
x1 := Point1.X; y1 := Point1.Y;
x2 := Point2.X; y2 := Point2.Y;
deltax := abs(x2 - x1); // Calculate deltax and deltay for initialisation
deltay := abs(y2 - y1);
if (deltax = 0) or (deltay = 0) then begin // straight lines
ABitmap.Canvas.Pen.Color := AColor;
ABitmap.Canvas.MoveTo(x1, y1);
ABitmap.Canvas.LineTo(x2, y2);
exit;
end;
LR := (AColor and $000000FF);
LG := (AColor and $0000FF00) shr 8;
LB := (AColor and $00FF0000) shr 16;
if deltax > deltay then
begin // horizontal or vertical
if y2 > y1 then // determine rise and run
dydx := -(deltay / deltax)
else
dydx := deltay / deltax;
if x2 < x1 then
begin
start := x2; // right to left
finish := x1;
dy := y2;
end else
begin
start := x1; // left to right
finish := x2;
dy := y1;
dydx := -dydx; // inverse slope
end;
for loop := start to finish do
begin
AlphaBlendPixel(ABitmap, loop, trunc(dy), LR, LG, LB, 1 - frac(dy));
AlphaBlendPixel(ABitmap, loop, trunc(dy) + 1, LR, LG, LB, frac(dy));
dy := dy + dydx; // next point
end;
end else
begin
if x2 > x1 then // determine rise and run
dydx := -(deltax / deltay)
else
dydx := deltax / deltay;
if y2 < y1 then
begin
start := y2; // right to left
finish := y1;
dx := x2;
end else
begin
start := y1; // left to right
finish := y2;
dx := x1;
dydx := -dydx; // inverse slope
end;
for loop := start to finish do
begin
AlphaBlendPixel(ABitmap, trunc(dx), loop, LR, LG, LB, 1 - frac(dx));
AlphaBlendPixel(ABitmap, trunc(dx) + 1, loop, LR, LG, LB, frac(dx));
dx := dx + dydx; // next point
end;
end;
end;
// blend a pixel with the current colour
procedure TFormDraw.AlphaBlendPixel(ABitmap : TBitmap ; X, Y : integer ; R, G, B : byte ; ARatio : Real);
Var
LBack, LNew : TRGBTriple;
LMinusRatio : Real;
LScan : PRGBTripleArray;
begin
if (X < 0) or (X > ABitmap.Width - 1) or (Y < 0) or (Y > ABitmap.Height - 1) then
Exit; // clipping
LScan := ABitmap.Scanline[Y];
LMinusRatio := 1 - ARatio;
LBack := LScan[X];
LNew.rgbtBlue := round(B*ARatio + LBack.rgbtBlue*LMinusRatio);
LNew.rgbtGreen := round(G*ARatio + LBack.rgbtGreen*LMinusRatio);
LNew.rgbtRed := round(R*ARatio + LBack.rgbtRed*LMinusRatio);
LScan[X] := LNew;
end;
Title | # Comments | Views | Activity |
---|---|---|---|
Communication Between RC4 Delphi <-> PHP | 3 | 88 | |
How to define IfThen functions in one common unit? | 4 | 36 | |
Delphi: Connect to running MS Outlook | 4 | 32 | |
how to update exe applicatio from internet ? | 6 | 41 |
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
12 Experts available now in Live!