Работа з графикой

[Smitt&Wesson]

Всё верно. Рабоает.
А чтобы треугольники меняли размеры используй TrackBar.

[Snejnaya]

ВОПРОС. как мне найти координаты вершин треугольника когда я знаю радиус и координаты центра?

формулами школьной геометрии вычислить сторону треугольника и его высоту. "Верхняя" вершина равностороннего треугольника на 2/3 высоты выше, чем центр треугольника (т.е. центр описанной около него окружности). А "нижние" вершины треугольника на 1/3 высоты ниже центра и на 1/2 стороны треугольника правее (и, соотвественно, левее) центра.
А вообще можно масштабировать координаты вершин относительно центра треугольника.

Вот так можно...

r- радиус
х0,у0-координаты центра

координаты "правой" вершины
x1=x0+r*cos(330*3.14/180);
y1=y0+r*sin(330*3.14/180);

координаты "левой" вершины
x2=x0+r*cos(210*3.14/180);
y2=y0+r*sin(210*3.14/180);

координаты "верхней" вершины
x3=x0+r*cos(90*3.14/180);
y3=y0+r*sin(90*3.14/180);

это в классических координатах, т.е. надо еще в "экранные" перенести

[satanclaus]

не могу подобрать градус для правой вершины, и при изменении радиуса треугольник соскакивает

[Snejnaya]

в смысле при "разных радиусах"?
по этим формулам

координаты "правой" вершины
x1=x0+r*cos(330*3.14/180);
y1=y0+r*sin(330*3.14/180);

координаты "левой" вершины
x2=x0+r*cos(210*3.14/180);
y2=y0+r*sin(210*3.14/180);

координаты "верхней" вершины
x3=x0+r*cos(90*3.14/180);
y3=y0+r*sin(90*3.14/180);

можно нвычислить координаты вершин треугольника любого радиуса. Т.е. вычислили 3 пары координат с одним радиусом - нарисовали большой треугольник. Потом вычислили три пары координат для другого радиуса - нарисовали малый треугольник. Ничего соскакивать не может. Ну, естественно, надо все координаты в int преобразовывать.

[Snejnaya]

если под "соскакивает" ты имел в виду, что он сразу пропадает, так это не в вычислении координат дело. Надо просто не забывать про Brush->color и Pen->Color
Например:

r=150;
x0=200;
y0=200;

x[0]=(int)(x0+r*cos(330*3.14/180));
y[0]=(int)(y0+r*sin(330*3.14/180));

x[1]=(int)(x0+r*cos(210*3.14/180));
y[1]=(int)(y0+r*sin(210*3.14/180));

x[2]=(int)(x0+r*cos(90*3.14/180));
y[2]=(int)(y0+r*sin(90*3.14/180));

Form1->Canvas->Brush->Color=clMaroon;
Form1->Canvas->Pen->Color=clMaroon;
Form1->Canvas->MoveTo(x[0],y[0]);
Form1->Canvas->LineTo(x[1],y[1]);
Form1->Canvas->LineTo(x[2],y[2]);
Form1->Canvas->LineTo(x[0],y[0]);

Form1->Canvas->FloodFill(x0,y0,clMaroon,1);

по хорошему надо по функциям разбить код - отдельно вычисление координат, отдельно рисование, но это так, черновой набросок.

[satanclaus]

Большое спасибо!!! Всё сделал!
Но вопрос как перевернуть рисунок правильно а то при изменении градусов или треугольник не равносторонний, или весь пеинтбох красний.

и как можна сделать исключения к етой программе????

int r=StrToInt(Edit1->Text);
int x0=200;
int y0=200;
int x[3],y[3];
x[0]=(int)(x0+r*cos(330*3.14/180));
y[0]=(int)(y0+r*sin(330*3.14/180));

x[1]=(int)(x0+r*cos(210*3.14/180));
y[1]=(int)(y0+r*sin(210*3.14/180));

x[2]=(int)(x0+r*cos(90*3.14/180));
y[2]=(int)(y0+r*sin(90*3.14/180));

PaintBox1->Canvas->Brush->Color=clMaroon;
PaintBox1->Canvas->Pen->Color=clMaroon;
PaintBox1->Canvas->MoveTo(x[0],y[0]);
PaintBox1->Canvas->LineTo(x[1],y[1]);
PaintBox1->Canvas->LineTo(x[2],y[2]);
PaintBox1->Canvas->LineTo(x[0],y[0]);

PaintBox1->Canvas->FloodFill(x0,y0,clMaroon,1);

        r=r-25;
x0=200;
 y0=200;

x[0]=(int)(x0+r*cos(330*3.14/180));
y[0]=(int)(y0+r*sin(330*3.14/180));

x[1]=(int)(x0+r*cos(210*3.14/180));
y[1]=(int)(y0+r*sin(210*3.14/180));

x[2]=(int)(x0+r*cos(90*3.14/180));
y[2]=(int)(y0+r*sin(90*3.14/180));

PaintBox1->Canvas->Brush->Color=clWhite;
PaintBox1->Canvas->Pen->Color=clWhite;
PaintBox1->Canvas->MoveTo(x[0],y[0]);
PaintBox1->Canvas->LineTo(x[1],y[1]);
PaintBox1->Canvas->LineTo(x[2],y[2]);
PaintBox1->Canvas->LineTo(x[0],y[0]);

PaintBox1->Canvas->FloodFill(x0,y0,clWhite,1);

[Smitt&Wesson]

Лови код. Треугольник поворачивается и изменяется в размерах.
TrackBar1 - Min = 0
Max = 360

TrackBar1 - Min = 0
Max = 200
Это в инспекторе объектов.
Оба TrackBar-а подключены к одному обработчику.

#include <vcl.h>
#pragma hdrstop
#include "math.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"

int X=200;
int Y=200;

TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::TrackBar1Change(TObject *Sender)
{
Triangle(X,Y,TrackBar2->Position,TrackBar1->Position,clRed, true);
Triangle(X,Y,TrackBar2->Position-10,TrackBar1->Position,clWhite, false);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Triangle(int x, int y, int r, int s, TColor C, bool D)
{
double L=M_PI/180;
int a=s+120, b=a+120, c=b+120;
Canvas->Brush->Color = clWhite;
if(D)Canvas->FloodFill(x+r*cos(a*L),y+r*sin(a*L ),clWhite,fsBorder);
Form1->Canvas->Brush->Color=C;
TPoint points[3];
points[0] = Point(x+r*cos(a*L),y+r*sin(a*L));// Верхняя
points[1] = Point(x+r*cos(b*L),y+r*sin(b*L));// Левая
points[2] = Point(x+r*cos(c*L),y+r*sin(c*L));// Правая
Form1->Canvas->Polygon(points, 3);
}