[fn12gl34]

Добрый вечер. Пишу игру "Бильярд". В качестве кия выступает вытянутый элипс. Вот вопрос: Как менять угол прорисовки этого элипса по нажатию на клавиши (стрелки, например)
Заранее спасибо

[NumLock]

SetWorldTransform | ModifyWorldTransform

[fn12gl34]

Сообщение от NumLock

SetWorldTransform | ModifyWorldTransform

Спасибо. Погуглил-разобрался

Использую данную процедуру

Код:

procedure CueDraw(ACnv: TCanvas; const X1, Y1, X2, Y2, AAngle: Integer);
var NewF, OldF: TXForm;
begin
form1.Canvas.Pen.Color:=clBlack;
form1.Canvas.Brush.Color:=clYellow;
 SetGraphicsMode(ACnv.Handle, GM_Advanced);
 GetWorldTransform(ACnv.Handle, OldF);
 with NewF do begin
  eM11 := 1 * Cos(AAngle / 360 * Pi * 2);
  eM22 := 1 * Cos(AAngle / 360 * Pi * 2);
  eM12 := 1 * Sin(AAngle / 360 * Pi * 2);
  eM21 := 1 * -Sin(AAngle / 360 * Pi * 2);
  eDX := Round((X1 + X2) / 2);
  eDY := Round((Y1 + Y2) / 2);
 end;
 ModifyWorldTransform(ACnv.Handle, NewF, MWT_LEFTMULTIPLY);
 ACnv.Ellipse(X1, Y1, X2, Y2);
 SetWorldTransform(ACnv.Handle, OldF);
end;

Однако "кий" (элипс) вращается вокруг очень большой точки, мне бы ее снизить до размеров "шара". Попробовал поковырять процедуру, но ничего дельного не вышло. Как поправить?

[fn12gl34]

Грубо говоря, нужно вращать фигуру вокруг точки

[M.A.D.M.A.N.]

А чо, sin и cos уже не в моде?

[NumLock]

Сообщение от fn12gl34

Как поправить?

почитай про параметры eDX и eDY

[fn12gl34]

Сообщение от NumLock

почитай про параметры eDX и eDY

Можно пожалуйста подробней? А то в интернете я ничего не нашел, а ручное ковыряние плодов не принесло