Circunferencia y orbita

[[seoane]]

Empezado por Cecilio

Yo estoy usanto Tshape, pero da unos saltos grandiiiisimos.

El ángulo lo debes expresar en radianes y no en grados.

Y por si no te acuerdas : 180º = pi radianes

[paldave]

Point es una variable del tipo TPoint que se utiliza así:

Código Delphi [-]
procedure Form1.Button1Click;
var Point:TPoint;
begin
  Point.x:=...
  Point.y:=...
  Form1.Canvas.Pixels[Point.x,Point.y]:=clBlue;
end;

o

Código Delphi [-]
procedure Form1.Button1Click;
var x,y:Integer;
begin
  x:=...
  y:=...
  Form1.Canvas.Pixels[x,y]:=clBlue;
end;

El objeto Shape no es el más adecuado porque no tiene un canvas. Utiliza otro. En el ejemplo dibujé directamente sobre el Form.

[Dado de baja]

Ahora va Genial.

Viendo los saltos que daba, miré el artículo que me recomendó ñuño y vi el ejemplo en c, así que pude resolverlo, pero sin caer en que eran radianes.

Ahora he incorporado los grados, con la función que me recomendais.

Va perfecto. (aunque los puntos no se dibujan, aunque no me preocupa mucho, ya que usaré Shape o un bitmap.)

sois mis ídolos. Gracias por la ayuda.