Нарисовать вращающийся пропеллер

@wall · Регистрация: 28.11.2015

Студворк — интернет-сервис помощи студентам

вот такой, есть код на восьмиугольник

@demmax2004 · 21.12.2015, 15:38

У меня код работает, что я делаю не так ?

@wall · 21.12.2015, 15:47 **[ТС]**

demon_7, При касании
фигурой (пропеллера) границ рабочей области, она отражается от ее
стенок, при этом изменяется направление вращения

@demmax2004 · 21.12.2015, 16:00

Радиус пропеллера ты знаешь расстояние до границ тоже определяется просто путем разницы между центром фигуры и краями формы

@wall · 21.12.2015, 16:16 **[ТС]**

demmax2004, а можно кодом написать скину исходник проги

@gunslinger · 22.12.2015, 02:26

Движение графического объекта по траектории, вращение, изменение цвета
Отскок фигуры от препятствия

@wall · 22.12.2015, 16:54 **[ТС]**

есть но оно не подходит к моей фигуре

@Почтальон · 22.12.2015, 18:41

А причем тут фигура? https://www.cyberforum.ru/post8523235.html это для кого написали ?

@demmax2004 · 22.12.2015, 21:08

У него пропеллер квадратный поэтому и не подходит

@wall · 22.12.2015, 21:50 **[ТС]**

помогите плиззз с кодом исходник кину

@wall · 06.01.2016, 15:13 **[ТС]**

ну подскажи пожалуйста

@Yox · 27.02.2016, 13:38

wall, Поясни плиз отрезки кода

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
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);

как они именно работают???

@Yox · 27.02.2016, 13:57

Такая проблема. Есть код.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "UnitFormMain.h"
#define pi 3.1415926535897
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
        posX = 0; posXv = 12;
        posY = 0; posYv = 3;
        color1G = 255; color1v = -3;
        color2B = 0; color2G = 255; color2v = -3;
        R = 100;
        r1 = 0; r1v = 0.08;
        r2 = 0; r2v = -0.03;
 
        Edit1->Text = IntToStr((int)posX);
        Edit2->Text = IntToStr((int)posY);
        Edit4->Text = IntToStr((int)posXv);
        Edit3->Text = IntToStr((int)posYv);
        ClientWidth = 394;
        Panel6->Anchors << akRight; 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::LabelClick(TObject *Sender)
{
        ((TLabel*)Sender)->FocusControl->SetFocus();        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::EditKeyPress(TObject *Sender, char &Key)
{
        if ((Key < '0' || Key > '9') && Key != (char)8) Key = (char)0;        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::EditChange(TObject *Sender)
{
        if (((TEdit*)Sender)->Text.Length() == 0)
        {
                ((TEdit*)Sender)->Text = "0";
                ((TEdit*)Sender)->SelectAll();
        }
        if (SpeedButton2->Enabled)
        {
                posX = StrToFloat(Edit1->Text);
                posY = StrToFloat(Edit2->Text);
                posXv = StrToFloat(Edit4->Text);
                posYv = StrToFloat(Edit3->Text);
                PaintBox1->Repaint();
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
        Constraints->MinWidth = Width - ClientWidth + 393;
        Constraints->MinHeight = Height - ClientHeight + 217;
}
//---------------------------------------------------------------------------
void TForm1::nextColor(void)
{
        color1G += color1v;
        if (color1G > 255)
        {
                color1G = 255 * 2 - color1G;
                color1v *= -1;
        }
        if (color1G < 0)
        {
                color1G = -color1G;
                color1v *= -1;
        }
        color2B -= color2v;
        color2G += color2v;
        if (color2B > 255 || color2G < 0)
        {
                color2B = 255 * 2 - color2B;
                color2G = -color2G;
                color2v *= -1;
        }
        if (color2B < 0 || color2G > 255)
        {
                color2B = -color2B;
                color2G = 255 * 2 - color2G;
                color2v *= -1;
        }
}               
//---------------------------------------------------------------------------
void TForm1::nextPos(void)
{
        posX += posXv;
        if (posX < 0)
        {
                posX = -posX;
                posXv *= -1;
                r1v *= -1;
                color1v *= -1;
                color2v *= -1;
        }
        if (posX > Panel6->ClientWidth - R)
        {
                posX = 2 * (Panel6->ClientWidth - R) - posX;
                posXv *= -1; 
                r1v *= -1;   
                color1v *= -1;
                color2v *= -1;
        }
        posY += posYv;
        if (posY < 0)
        {
                posY = -posY;
                posYv *= -1;  
                r1v *= -1; 
                color1v *= -1;
                color2v *= -1;
        }
        if (posY > Panel6->ClientHeight - R)
        {
                posY = 2 * (Panel6->ClientHeight - R) - posY;
                posYv *= -1;  
                r1v *= -1;   
                color1v *= -1;
                color2v *= -1;
        }
        r1 += r1v;
        r2 += r2v;
        if (r1 > 2 * pi) r1 -= 2 * pi;
        if (r2 > 2 * pi) r2 -= 2 * pi;
}
//---------------------------------------------------------------------------
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);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
        nextColor();
        nextPos();
        PaintBox1->Repaint();
        Edit1->Text = IntToStr((int)posX);
        Edit2->Text = IntToStr((int)posY);
        Edit4->Text = IntToStr((int)posXv);
        Edit3->Text = IntToStr((int)posYv);
        TrackBar1->Position = r1v * 100;
        TrackBar2->Position = r2v * 100;
        TrackBar3->Position = R;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
        if (SpeedButton1->Caption == "Çàïóñòèòü")
        {
                posX = StrToFloat(Edit1->Text);
                posY = StrToFloat(Edit2->Text);
                posXv = StrToFloat(Edit4->Text);
                posYv = StrToFloat(Edit3->Text);
                SpeedButton1->Caption = "Ñòîï";
                SpeedButton1->Width += SpeedButton2->Width;
        }
        else
        {
                SpeedButton1->Caption = "Çàïóñòèòü";       
                SpeedButton1->Width -= SpeedButton2->Width;
        }
        Timer1->Enabled = !Timer1->Enabled;
        SpeedButton2->Enabled = !SpeedButton2->Enabled;
        Edit1->ReadOnly = !Edit1->ReadOnly;
        Edit2->ReadOnly = !Edit2->ReadOnly;
        Edit3->ReadOnly = !Edit3->ReadOnly;
        Edit4->ReadOnly = !Edit4->ReadOnly;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::TrackBar1Change(TObject *Sender)
{
        Label8->Caption = FloatToStr((double)TrackBar1->Position / 100);
        if (Panel7->Visible) r1v = (double)TrackBar1->Position / 100;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::TrackBar2Change(TObject *Sender)
{
        Label10->Caption = FloatToStr((double)TrackBar2->Position / 100); 
        if (Panel7->Visible) r2v = (double)TrackBar2->Position / 100;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::TrackBar3Change(TObject *Sender)
{
        Label12->Caption = IntToStr(TrackBar3->Position);  
        if (Panel7->Visible)
        {
                R = (double)TrackBar3->Position;
                PaintBox1->Repaint();
        }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::SpeedButton2Click(TObject *Sender)
{
        if (SpeedButton1->Enabled)
        {
                ClientWidth += Panel7->Width + 8;
                Panel6->Width -= Panel7->Width + 8;
                Constraints->MinWidth += Panel7->Width + 8;
                Panel7->Show();
        }
        else
        {                                              
                Panel7->Hide();       
                Constraints->MinWidth -= Panel7->Width + 8;   
                Panel6->Width += Panel7->Width + 8;
                ClientWidth -= Panel7->Width + 8;
        }
        SpeedButton1->Enabled = !SpeedButton1->Enabled;
}
//---------------------------------------------------------------------------

Он делает такое вот!
А нужно что бы он был такой

Новые блоги и статьи Все статьи Все блоги /
Паттерн очереди действий/команд (Action / Command Queue). Система очереди действий и кат-сцен с SDL3 Callbacks, cglm и OpenGL 8Observer8 07.11.2026 Содержание блога \| English Version Руководство для начинающих по реализации паттерна очереди действий/ команд (Action / Command Queue) на C++ (C++20) с использованием официального SDL3 Callbacks. . .	Проверка полного ФИО в типовом справочнике Maks 07.11.2026 Решение реализовано в конфигурации КА2, на примере справочника "КонтактныеЛицаПартнеров". Задача: Запрет инициалов. Не допускаеть использование сокращений вида "И. И. ", "И. И. ", "И И" и. . .	Про "Windows must die!" kumehtar 04.11.2026 Знаете, чет накатило. . . . Когда-то это было почти боевым кличем: мол, нормальный человек сидит на DOS, OS/ 2 или Linux, а вот это вот - Must Die. А теперь человек произносит «мастдай» с усмешкой - и. . .	Красочные поля с номером страницы svg+background-image russiannick 04.11.2026 Красочные поля с номером страницы не менее важны чем в эпоху бумажных книг. Посему спешу представить почтеннейшей публике этот важный инструмент который эти поля и формирует. В процессе разработки. . .
Вступаем в новую фазу генерации favicons, векторную. russiannick 02.11.2026 Теперь нет нужды скрывать что используется простой svg. Исходный код изображения помещаем в поле и жмем кнопку. Исходник преобразуется в вид корректный для помещения в favicon или в url(). Нажатие. . .	Генератор паролей (вариант №4) Maks 01.11.2026 После публикации 3-го варианта генератора паролей, разослал его своим коллегам (с целью оценки), в итоге были получены следующие рекомендации: 1. Вернуть возможность использования знаков \| 1 l I;. . .	Генератор паролей (вариант №3) Maks 30.10.2026 Финальная версия генератора паролей 1С. Доработка решения в этот раз коснулась только визуальной части, а именно, добавлен реквизит ДопПараметры (тип Булево), который скрывает/ отображает реквизиты:. . .	Магическое мышление и магия, современная наука не отличима от магии (говорит ИИ Джемени) zorxor 30.10.2026 Джемени, расскажи, пожалуйста, что такое магическое мышление, что такое магия, почему современная наука чем-то напоминает магию? Фраза «Любая достаточно развитая технология неотличима от магии». . .

@wall 3 / 3 / 1 Регистрация: 28.11.2015 Сообщений: 33

	Нарисовать вращающийся пропеллер 28.11.2015, 15:29. Показов 3285. Ответов 31 Метки нет (Все метки) вот такой, есть код на восьмиугольник Изображения 0

@demmax2004 120 / 142 / 46 Регистрация: 31.10.2014 Сообщений: 721 Записей в блоге: 1
	21.12.2015, 15:38
	У меня код работает, что я делаю не так ? 0

@wall 3 / 3 / 1 Регистрация: 28.11.2015 Сообщений: 33
	21.12.2015, 15:47 [ТС]
	demon_7, При касании фигурой (пропеллера) границ рабочей области, она отражается от ее стенок, при этом изменяется направление вращения 0

@demmax2004 120 / 142 / 46 Регистрация: 31.10.2014 Сообщений: 721 Записей в блоге: 1
	21.12.2015, 16:00
	Радиус пропеллера ты знаешь расстояние до границ тоже определяется просто путем разницы между центром фигуры и краями формы 0

@gunslinger place status here 3192 / 2227 / 640 Регистрация: 20.07.2013 Сообщений: 6,028
	22.12.2015, 02:26
	Движение графического объекта по траектории, вращение, изменение цвета Отскок фигуры от препятствия 0

@wall 3 / 3 / 1 Регистрация: 28.11.2015 Сообщений: 33
	22.12.2015, 16:54 [ТС]
	есть но оно не подходит к моей фигуре 0

@Почтальон управление сложностью 1693 / 1306 / 259 Регистрация: 22.03.2015 Сообщений: 7,545 Записей в блоге: 5
	22.12.2015, 18:41
	А причем тут фигура? https://www.cyberforum.ru/post8523235.html это для кого написали ? 0

@demmax2004 120 / 142 / 46 Регистрация: 31.10.2014 Сообщений: 721 Записей в блоге: 1
	22.12.2015, 21:08
	У него пропеллер квадратный поэтому и не подходит 1

@wall 3 / 3 / 1 Регистрация: 28.11.2015 Сообщений: 33
	22.12.2015, 21:50 [ТС]
	помогите плиззз с кодом исходник кину 0

@wall 3 / 3 / 1 Регистрация: 28.11.2015 Сообщений: 33
	06.01.2016, 15:13 [ТС]
	ну подскажи пожалуйста 0