Very Computer

Hi All, is there a way to draw a line with a angle value?

Here is what i've gotten so far but haven't been able to get it to work.

Thanks for any and all advice..

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  CenterX, CenterY, VectX, VectY: integer;
  X1: integer;
  DX,DY,Angle,Dis:Real;
  Cx,Cy,Xd,Yd:Real;
begin
  Cx:=ClientWidth div 2;Cy:=ClientHeight div 2;
  Xd := Cx-X;
  Yd := Cy-Y;
  Dis := ARCTAN2(Yd, Xd);
  Dx := Cos(Dis*Pi/180);
  Dy := Sin(Dis*Pi/180);
  For X:= 0 to 100 do
  begin
  Cx:=Cx-Dx;Cy:=Cy-Dy;
  Form1.Canvas.Pixels[Round(Cx),Round(Cy)]:=clwhite;
  end;
end;

How about :
 image1.canvas.pen.color:=clbalck;
 image1.canvas.moveto(x1,y1);
 image1.canvas.lineto(x2,y2);

If you don't want to use the line proc, I have an algorithm on
one of my delphi pages.

Rene
--
Ing.Buero R.Tschaggelar - http://www.ibrtses.com

The second point,  (X2,Y2), on the line would be:

X2 = X1 + R*COS(theta)
Y2 = Y1 + R*SIN(theta)

Remember that theta needs to be in Radians.  You can use the
math library routine DegToRad to convert Degrees to Radians.
You will also need to use TRUNC or ROUND, e.g.,
ROUND(R*COS(theta)), since the trig computations involve
floating point.

The points [ R*COS(theta), R*SIN(theta) ] would give you
points around a circle of radius R as a function of theta.

--
efg

Overland Park, KS  USA

efg's Computer Lab:  http://www.efg2.com/Lab

I am trying to plot an image and it is displayed upside down, not to mention
the scale is completely off.  I am able to do this in Visual Basic using a
Picture control with a minimum of fuss.

TIA,

Norb

Quote:> You want to draw non horizontal line ?

> How about :
>  image1.canvas.pen.color:=clbalck;
>  image1.canvas.moveto(x1,y1);
>  image1.canvas.lineto(x2,y2);

> If you don't want to use the line proc, I have an algorithm on
> one of my delphi pages.

> Rene
> --
> Ing.Buero R.Tschaggelar - http://www.ibrtses.com