Помогите дописать прогу

[wall33]

Всем привет есть нюансы помогите исправить

есть код восьмиугольника нужно переделать под вентилятор подскажите как

void __fastcall TForm1::PaintBox1Paint(TObject *Sender)
{
		Graphics::TCanvas* a = ((TPaintBox*)Sender)->Canvas;
		a->Brush->Style = bsSolid;
		a->Pen->Style = psSolid;

		a->Brush->Color = RGB(255, color1G, 0);
		a->Pen->Color = a->Brush->Color;
		a->Ellipse(posX, posY, posX + R, posY + R);

		double cx = posX + R / 2;
		double cy = posY + R / 2;
		double cr = R / 2;
		double pi4 = pi / 2;
		double pi8 = pi / 4;

		a->Brush->Color = RGB(0, color2G, color2B);
		a->Pen->Color = a->Brush->Color;
		a->PenPos = Point(cx + cos(r1) * cr, cy + sin(r1) * cr);
		a->LineTo(cx + cos(r1 + 1 * pi4) * cr, cy + sin(r1 + 1 * pi4) * cr);
		a->LineTo(cx + cos(r1 + 2 * pi4) * cr, cy + sin(r1 + 2 * pi4) * cr);
		a->LineTo(cx + cos(r1 + 3 * pi4) * cr, cy + sin(r1 + 3 * pi4) * cr);
		a->LineTo(cx + cos(r1 + 0 * pi4) * cr, cy + sin(r1 + 0 * pi4) * cr);
		a->FloodFill(cx, cy, a->Brush->Color, fsBorder);

		cr *= sqrt(2) / 2;

		a->Brush->Color = RGB(255, color1G, 0);
		a->Pen->Color = a->Brush->Color;
		a->PenPos = Point(cx + cos(r2) * cr, cy + sin(r2) * cr);
		a->LineTo(cx + cos(r2 + 1 * pi8) * cr, cy + sin(r2 + 1 * pi8) * cr);
		a->LineTo(cx + cos(r2 + 2 * pi8) * cr, cy + sin(r2 + 2 * pi8) * cr);
		a->LineTo(cx + cos(r2 + 3 * pi8) * cr, cy + sin(r2 + 3 * pi8) * cr);
		a->LineTo(cx + cos(r2 + 4 * pi8) * cr, cy + sin(r2 + 4 * pi8) * cr);
		a->LineTo(cx + cos(r2 + 5 * pi8) * cr, cy + sin(r2 + 5 * pi8) * cr);
		a->LineTo(cx + cos(r2 + 6 * pi8) * cr, cy + sin(r2 + 6 * pi8) * cr);
		a->LineTo(cx + cos(r2 + 7 * pi8) * cr, cy + sin(r2 + 7 * pi8) * cr);
		a->LineTo(cx + cos(r2 + 0 * pi8) * cr, cy + sin(r2 + 0 * pi8) * cr);
		a->FloodFill(cx, cy, a->Brush->Color, fsBorder);
}

[Stilet]

переделать под вентилятор

Это как оно должно выглядеть?

[wall33]

вот такой пропеллер

[Smitt&Wesson]

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

[wall33]

ну так помоги как исправить

[Smitt&Wesson]

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

ну так помоги как исправить

А что тут исправлять? Тут заново всё переписывать нужно. Это как минимум пол дня займёт. Стар я, благотворительностью заниматься.

[wall33]

ну помогите очень надо

[Streletz]

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

ну помогите очень надо

Надо так делайте. "Помогите"!="Сделайте за меня"

[Александр3]

Немного не разбираюсь в твоём коде, но тебе нужно описать 13 точек . Могу просто написать без вращения фигуры, но всё равно переделывать придётся. Есть функция Polygon
TPoint poin[13];
poin[0]=Point();
poin[1]=PointPoint();//тут также указываешь координаты
poin[2]=PointPoint();
poin[3]=PointPoint();
....
Canvas->Polygon(poin,12);

[wall33]

спасибо за помощь