Вопрос по Pascal

[companent]

Может кто знает, как сделать прогу, выводящую на экран эллипс(или триугольник), вращающийся вокруг своего центра.

[-=) BeaveR (=-]

нереально...

[companent]

С эллипсом получилось!
А вот правильный триугольник не вращается...
Хоть посоветуйте где почитать можно

[-Smile-]

А ты расскажи как эллипс сделал +)

[The_God]

ты три виршынки триугольничечга умнажай на матрицу трансформации (вращения) в цикле, и соидиняй получиные виршынки отрезочками.. и будит на твоей улице зачот

[companent]

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

ты три виршынки триугольничечга умнажай на матрицу трансформации (вращения) в цикле, и соидиняй получиные виршынки отрезочками.. и будит на твоей улице зачот

Спасибо канечьно за информацию, но в исходнике это было бы интересснее...

[-Smile-]

Сообщение от -Smile-

А ты расскажи как эллипс сделал +)

Повторюсь... =)

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

Может кто знает, как сделать прогу, выводящую на экран эллипс(или триугольник), вращающийся вокруг своего центра.

И еще вопрос: где у треугольника центр??

[companent]

Вот как это выглядит для эллипса:


uses Crt, Graph;
Function max(a, b: Integer): Integer;
Begin
max := a;
If a < b Then max := b;
End;
const
r1=150;
r2=100;
r2d = 180/Pi;
ms = 50;
type
TGraphix = Object
Constructor Init;
Destructor Done;
End;
TEllipse = Object(TGraphix)
a, b: integer;
X0, Y0: Integer;
Angle: Integer;
Constructor Init(TheA, TheB, CoordX, CoordY: Integer);
Destructor Done;
Procedure Show(Visible: Boolean);
Procedure Rotate;
End;
Constructor TGraphix.Init;
Var
GrDriver, GrMode, ErrCode: Integer;
Begin
GrDriver := Detect;
InitGraph(GrDriver, GrMode, '');
ErrCode := GraphResult;
If ErrCode <> grOk Then Fail;
End;
Destructor TGraphix.Done;
Begin
CloseGraph;
End;
Constructor TEllipse.Init(TheA, TheB, CoordX, CoordY: Integer);
Begin
If not Inherited Init Then Fail;
a := TheA; b := TheB;
X0 := CoordX; Y0 := CoordY;
End;
Destructor TEllipse.Done;
Begin
Inherited Done;
End;
Procedure TEllipse.Show(Visible: Boolean);
Var
Alpha, Phi, _X, _Y: Real;
i, X, Y: Integer;
Begin
If Visible Then Begin
Alpha := Angle/r2d;
PutPixel(320, 240, White);
For i := 0 To 359 Do Begin
Phi := i / r2d;
_X := a * Cos(phi);
_Y := b * Sin(phi);
X := Trunc(x0 + _X * Cos(Alpha) - _Y * Sin(Alpha));
Y := Trunc(y0 + _X * Sin(Alpha) + _Y * Cos(Alpha));
PutPixel(X, Y, White);
End;
End
Else Begin
SetFillStyle(SolidFill, GetBkColor);
SetColor(Black);
FillEllipse(X0, Y0, max(a, b)+10, max(a, b)+10);
End;
End;
Procedure TEllipse.Rotate;
Begin
Show(False);
Inc(Angle);
Show(True);
End;
Var
ell: TEllipse;
begin
If not ell.Init(r1, r2, 320, 240) Then Exit;
Repeat
ell.Rotate;
Delay(ms);
Until KeyPressed;
While Keypressed Do ReadKey;
ell.Done;
end.

[fishca]

Сообщение от -Smile-

Повторюсь... =)
И еще вопрос: где у треугольника центр??

На пересечении медиан или биссектриссссссссссссс

[-Smile-]

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

На пересечении медиан или биссектриссссссссссссс

Ну центр может быть описанной или вписанной окружности, например.

[companent]

Центр где угодно, это не важно!
Главное чтобы триугольник был правильным и вращался!

[Xtnshtcgjkjdbyjq]

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

Центр где угодно, это не важно

Поржал.

[-Smile-]

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

Центр где угодно, это не важно!
Главное чтобы триугольник был правильным и вращался!

Ну вот если правильный, то уже лучше. :Р

[maximn]

companent, я чего-то не пойму, тебе написать формулу матрицы вращения?

[Xtnshtcgjkjdbyjq]

Из центра треугольника проводишь отрезок до одной из вершин. Вторая вершина будет на таком же расстоянии под углом 2/3Pi, третья - то же, но -2/3Pi. Соединяешь три получившихся точки - получил треугольник. А дальше циклично меняешь угол первого отрезка от 0 до бесконечности - все акуенно крутится.