Форум программистов, компьютерный форум, киберфорум
C++ Builder
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.71/21: Рейтинг темы: голосов - 21, средняя оценка - 4.71
46 / 46 / 18
Регистрация: 25.10.2011
Сообщений: 183

Двойная буферизация Borland C++ Builder

11.11.2013, 16:24. Показов 4279. Ответов 10
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Суть вопроса, думаю ясна. И всё же: объясните как её использовать, что бы не писать вручную. Ибо просто
C++
1
Form1->DoubleBuffered = true;
Не хватает. Для интересующихся весь код программы прилагается. "Включается" буферизация в myInit.
Кликните здесь для просмотра всего текста
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
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include <math.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
struct Gf3 {
    float x;
    float y;
    float z;
};
 
struct Tetrahedron {
    Gf3 p1;
    Gf3 p2;
    Gf3 p3;
    Gf3 t;
} main_p;
 
int nDivisions = 5; // < 9
int R = 300;
float angle = 0.0;
 
void myInit(void);
POINT projection(Gf3);
void triangle(Gf3,Gf3,Gf3);
void tetrahedron(Tetrahedron);
Gf3 NormalizeCoords(Gf3);
void DivideTriangle(Gf3,Gf3,Gf3,int);
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
bool click = false;
void __fastcall TForm1::FormClick(TObject *Sender)
{
        if (!click) {
                for(; angle<360; angle = angle+1) {
                        Sleep(10);
                        Form1->OnPaint(Sender);
                }       click = true;
        } else
                Form1->Close();
}
//---------------------------------------------------------------------------
void myInit(void) {
        Form1->ControlStyle << csOpaque;
        Form1->DoubleBuffered = true;
    Form1->Canvas->Brush->Color = clBlack;
    Form1->Canvas->Brush->Style = bsSolid;
    Form1->Canvas->FillRect(Rect(0,0,Form1->Width,Form1->Height));
    Form1->Canvas->Pen->Color = clWhite;
 
    Gf3 p1,p2,p3,t;
    t.x = 0.0; t.y = 0.0; t.z = 1.0;
    p1.x = 0.0; p1.y = 0.942809; p1.z = -0.333333;
    p2.x = -0.816497; p2.y = -0.471405; p2.z = -0.333333;
    p3.x = 0.816497; p3.y = -0.471405; p3.z = -0.333333;
 
    p1 = NormalizeCoords(p1);
    p2 = NormalizeCoords(p2);
    p3 = NormalizeCoords(p3);
    t = NormalizeCoords(t);
 
    main_p.p1 = p1;       main_p.p2 = p2;
    main_p.p3 = p3;       main_p.t = t;
}
//--------------------------------------------------------------------------
void __fastcall TForm1::FormPaint(TObject *Sender)
{
        myInit();
        tetrahedron(main_p);
}
//--------------------------------------------------------------------------
void triangle(Gf3 p1, Gf3 p2, Gf3 p3)
{
    Form1->Canvas->MoveTo(projection(p1).x,projection(p1).y);
    Form1->Canvas->LineTo(projection(p2).x,projection(p2).y);
    Form1->Canvas->LineTo(projection(p3).x,projection(p3).y);
    Form1->Canvas->LineTo(projection(p1).x,projection(p1).y);
}
//--------------------------------------------------------------------------
void tetrahedron(Tetrahedron obj)
{
    DivideTriangle(obj.p1,obj.p2,obj.p3,nDivisions);
    DivideTriangle(obj.p1,obj.p2,obj.t,nDivisions);
    DivideTriangle(obj.p2,obj.p3,obj.t,nDivisions);
    DivideTriangle(obj.p1,obj.p3,obj.t,nDivisions);
}
//--------------------------------------------------------------------------
Gf3 NormalizeCoords(Gf3 o)
{
    float len = sqrt( o.x*o.x + o.y*o.y + o.z*o.z );
    if (len < 0) return o;
    Gf3 result;        result.x = o.x/len;
    result.y = o.y/len;  result.z = o.z/len;
    return result;
}
//--------------------------------------------------------------------------
void DivideTriangle(Gf3 p1,Gf3 p2,Gf3 p3,int N)
{
    if (!N) {
        triangle(p1,p2,p3);
        return;
    }
 
    Gf3 p12, p13, p23;
    Gf3 temp;
    temp.x = (p1.x+p2.x)/2.0;
    temp.y = (p1.y+p2.y)/2.0;
    temp.z = (p1.z+p2.z)/2.0;
    p12 = NormalizeCoords(temp);
    temp.x = (p1.x+p3.x)/2.0;
    temp.y = (p1.y+p3.y)/2.0;
    temp.z = (p1.z+p3.z)/2.0;
    p13 = NormalizeCoords(temp);
    temp.x = (p2.x+p3.x)/2.0;
    temp.y = (p2.y+p3.y)/2.0;
    temp.z = (p2.z+p3.z)/2.0;
    p23 = NormalizeCoords(temp);
 
    DivideTriangle(p1,p12,p13,N-1);
    DivideTriangle(p2,p12,p23,N-1);
    DivideTriangle(p3,p23,p13,N-1);
    DivideTriangle(p23,p12,p13,N-1);
}
//--------------------------------------------------------------------------
POINT projection(Gf3 p)
{
        POINT result;
        int Ox = Form1->Width / 2;
        int Oy = Form1->Height /2;
 
        float c = cos(M_PI*angle/180.0);
        float s = sin(M_PI*angle/180.0);
 
        result.x = Ox + R*(p.x*c - p.z*s);
        result.y = Oy - R*(-(s*s)*p.x + p.y*c - c*s*p.z);
        
        return result;
}
//--------------------------------------------------------------------------
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
11.11.2013, 16:24
Ответы с готовыми решениями:

Двойная буферизация(простенький пример)
Всем доброго времяни суток!) Работаю в C++ Builder и столкнулся с такой проблемой. При перемещение картинки во время исполнения...

Пропали цвет Panel и не работает двойная буферизация на Windows 7
Привет! Делал приложение в Windows XP в RAD Studio. Сейчас перешел на Windows 7. Почему-то пропали цвет Panel и не работает двойная...

Подскажите где можно найти Borland C++ Builder или Borland Developer Studio 2006 C++ ? Очень надо.
Подскажите где можно найти Borland C++ Builder или Borland Developer Studio 2006 C++ ? Очень надо.

10
Почетный модератор
Эксперт С++
 Аватар для SatanaXIII
5851 / 2862 / 392
Регистрация: 01.11.2011
Сообщений: 6,906
11.11.2013, 16:31
Цитата Сообщение от Hunter13ua Посмотреть сообщение
Суть вопроса, думаю ясна.
Ага. Особенно когда вопроса-то самого нет.
Цитата Сообщение от Hunter13ua Посмотреть сообщение
Не хватает.
Как понять не хватает?
0
46 / 46 / 18
Регистрация: 25.10.2011
Сообщений: 183
11.11.2013, 16:33  [ТС]
Понять так, что от строчки Form1->DoubleBuffered = true; прорисовка не изменилась. Как "моргала", так и дальше моргает. Тут уж я не понимаю как с ним работать, поэтому вопрос состоял в просьбе объяснить как с двойной буферизацией подружиться.
0
Почетный модератор
Эксперт С++
 Аватар для SatanaXIII
5851 / 2862 / 392
Регистрация: 01.11.2011
Сообщений: 6,906
11.11.2013, 16:53
Цитата Сообщение от Hunter13ua Посмотреть сообщение
вопрос состоял в просьбе объяснить как с двойной буферизацией подружиться
Ага. Двойная буферизация работает следующим образом: без двойной буферизации при перерисовке формы все ее элементы рисуются на форме в порядке очереди; с двойной буферизацией все элементы рисуются так же по очереди, но не в форму, а в буфер (собственно откуда во фразе двойная буферизация слово буферизация) в памяти. Затем сформированный буфер отображается. Пока не закончилось его формирование все время отрисовывается старый буфер. По этому ничего и не моргает.

Включать ее следует один раз для конкретной формы. Можно в OnCreate(). Выключать не обязательно.
Попробуйте вынести ее из FormPaint().
0
46 / 46 / 18
Регистрация: 25.10.2011
Сообщений: 183
11.11.2013, 17:45  [ТС]
Вынес. Работает одинаково: что есть эта строка, что её нету..
C++
1
2
3
4
void __fastcall TForm1::FormCreate(TObject *Sender)
{
        Form1->DoubleBuffered = true;
}
Добавлено через 38 минут
Хорошо, подам наводящий вопрос. В какой момент программа должна понять, что пора выводить на экран буфер? Был опыт работы с OpenGL. Так там четко видно, что, при включении двойной буферизации, рисует всегда в буфер, а при вызове glSwapBuffers() выводит буфер на экран.
0
Эксперт С++
 Аватар для Avazart
8489 / 6156 / 615
Регистрация: 10.12.2010
Сообщений: 28,683
Записей в блоге: 30
11.11.2013, 18:11
Попробуй убрать :
C++
1
Form1->Canvas->FillRect(Rect(0,0,Form1->Width,Form1->Height));
Оно вроде нафиг не нужно...

Можно еще так попробовать:
Cоздаешь TBitmap рисуешь на его канве, а потом только прорисовываешь его(TBitmap) на канве формы.
0
46 / 46 / 18
Регистрация: 25.10.2011
Сообщений: 183
12.11.2013, 02:13  [ТС]
Avazart, нет, та строчка нужна 100%. Это не "очистительная" строчка, а "подготавливающая" холст.
На битмапе знаю, что можно. Но это и есть "вручную". А я спрашиваю конкретно про посредство формы.

Добавлено через 7 часов 14 минут
Avazart, т.к. путного ответа нету, буду делать битмапами. Вопрос только такой возникает: как прорисовать битмап на форму?
C++
1
2
Graphics::TBitmap *BUFFER = (a%2) ? BUF1 : BUF2;
        Form1->Canvas->Draw(0,0,BUFFER);
Так не прокатило.
0
Эксперт С++
 Аватар для Avazart
8489 / 6156 / 615
Регистрация: 10.12.2010
Сообщений: 28,683
Записей в блоге: 30
12.11.2013, 02:43
Цитата Сообщение от Hunter13ua Посмотреть сообщение
Это не "очистительная" строчка, а "подготавливающая" холст.
Так что очищать ? ты же рисуешь не в Image, тут нет запоминания...
0
Почетный модератор
Эксперт С++
 Аватар для SatanaXIII
5851 / 2862 / 392
Регистрация: 01.11.2011
Сообщений: 6,906
12.11.2013, 09:27
Hunter13ua, нда. Не слабенько у вас там расчетов с плавающей точкой в секунду.
Во-первых скажите почему у вас в цикле вращения sleep именно десять?
Во-вторых лучше было бы убрать из функции инициализации вот это все и перенести опять же в какой-нибудь OnCreate()
C++
1
2
3
4
5
6
7
8
        //Form1->ControlStyle << csOpaque;
        //Form1->DoubleBuffered = true;
    //Form1->Canvas->Brush->Color = clBlack;
    //Form1->Canvas->Brush->Style = bsSolid;
    
    Form1->Canvas->FillRect(Form1->Canvas->ClipRect);//Form1->Canvas->FillRect(Rect(0,0,Form1->Width,Form1->Height));
 
    //Form1->Canvas->Pen->Color = clWhite;
И вообще (мысли вслух) инициализация должна происходить один раз, а не каждую итерацию бесконечного наибыстрейшего цикла. Может там можно в логике что-то поменять? Код сферы ваш?

Цитата Сообщение от Hunter13ua Посмотреть сообщение
Так не прокатило.
Вывести bitmap на канву формы
1
46 / 46 / 18
Регистрация: 25.10.2011
Сообщений: 183
12.11.2013, 11:13  [ТС]
Цитата Сообщение от SatanaXIII Посмотреть сообщение
Hunter13ua, нда. Не слабенько у вас там расчетов с плавающей точкой в секунду.
Не спорю. Нагруженная графика для канваса. В двух словах - триангуляция сферы. Вычислений много. Сделал на glut (работало замечательно) - так сказали переделать на Canvas.
Цитата Сообщение от SatanaXIII Посмотреть сообщение
Во-первых скажите почему у вас в цикле вращения sleep именно десять?
На глаз подобрал. Больше - слишком медленно; меньше - даже заметить, что происходит не успевал. Разве это существенно ?
Цитата Сообщение от SatanaXIII Посмотреть сообщение
Во-вторых лучше было бы убрать из функции инициализации вот это все и перенести опять же в какой-нибудь OnCreate()
Про это действительно не подумал. Существенно облегчит работу канве. Переделал. Код сферы - мой, да.
На счет битмапа на форму - не получилось всё равно: вызывал Canvas->Draw(0,0,Buffer); в FormPaint, но никакого результата. Как пытался? Создал глобальный указатель на битмап, проинициализоровал в OnCreate, функции прорисовки формы перенёс в буфер, а в FormPaint оставил только Draw. Итог: чистый экран. Пока рабочий код с комментариями выглядит так:
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
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include <math.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
struct Gf3 {
    float x;
    float y;
    float z;
};
 
struct Tetrahedron {
    Gf3 p1;
    Gf3 p2;
    Gf3 p3;
    Gf3 t;
} main_p; // îñíîâíîé òåòðàýäð
 
//ãëîáàëüíûå ïåðåìåííûå
int nDivisions = 0; // ãëóáèíà ðåêóðñèè ( < 9 )
int R = 300;     //ðàäèóñ ñôåðû ( â ïèêñåëÿõ )
float angle = 0.0;   // òåêóùèé óãîë îáçîðà
 
//ïðîòîòèïû ôóíêöèé
POINT projection(Gf3);
void triangle(Gf3,Gf3,Gf3);
void tetrahedron(Tetrahedron);
Gf3 NormalizeCoords(Gf3);
void DivideTriangle(Gf3,Gf3,Gf3,int);
Gf3 center(Gf3,Gf3);
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
//ïåðâûé êëèê - âûçûâàåò öèêë
//â öèêëå ïðîèñçîäèò ñìåíà óãëà îáçîðà è âûçîâ OnPaint
//âòîðîé êëèê - çàêðûòèå ïðèëîæåíèÿ
// -- â öèêëå ïðèñóòñòâóåò çàäåðæêà ìåæäó êàäðàìè äëÿ çàìåäëåíèÿ
//                           ïðè ìàëîé ãëóáèíå ðåêóðñèè
bool click = false;
void __fastcall TForm1::FormClick(TObject *Sender)
{
        if (!click) {
                for(; angle<360; angle = angle + 1.0) {
                        Sleep(10);
                        Form1->OnPaint(Sender);
                }       click = true;
        } else
                Form1->Close();
}
//--------------------------------------------------------------------------
//FormPaint: çàëèâêà ôîíà è ðèñîâàíèå òåòðàýäðà íà í¸ì
void __fastcall TForm1::FormPaint(TObject *Sender)
{
        Canvas->FillRect(Form1->Canvas->ClipRect);
        tetrahedron(main_p);
}
//--------------------------------------------------------------------------
//ïðîðèñîâêà îäíîãî òðåóãîëüíèêà
void triangle(Gf3 p1, Gf3 p2, Gf3 p3)
{
        Form1->Canvas->MoveTo(projection(p1).x,projection(p1).y);
        Form1->Canvas->LineTo(projection(p2).x,projection(p2).y);
        Form1->Canvas->LineTo(projection(p3).x,projection(p3).y);
        Form1->Canvas->LineTo(projection(p1).x,projection(p1).y);
}
//--------------------------------------------------------------------------
//ïðîðèñîâêà òåòðàýäðà
void tetrahedron(Tetrahedron obj)
{
    DivideTriangle(obj.p1,obj.p2,obj.p3,nDivisions);
    DivideTriangle(obj.p1,obj.p2,obj.t,nDivisions);
    DivideTriangle(obj.p2,obj.p3,obj.t,nDivisions);
    DivideTriangle(obj.p1,obj.p3,obj.t,nDivisions);
}
//--------------------------------------------------------------------------
//âûíåñåíèå êîîðäèíàòû íà ðàäèóñ ñôåðû
Gf3 NormalizeCoords(Gf3 o)
{
    float len = sqrt( o.x*o.x + o.y*o.y + o.z*o.z );
    if (len < 0) return o;
    Gf3 result;        result.x = o.x/len;
    result.y = o.y/len;  result.z = o.z/len;
    return result;
}
//--------------------------------------------------------------------------
//ðåêóðñèâíàÿ ôóíêöèÿ äåëåíèÿ òðåóãîëüíèêà ( êàê â òðåóãîëüíèêå Ñåðïèíñêîãî )
// ñ ïîñëåäóþùèì âûíåñåíèåì êîîðäèíàò íà ðàäèóñ ñôåðû
void DivideTriangle(Gf3 p1,Gf3 p2,Gf3 p3,int N)
{
    if (!N) {
        triangle(p1,p2,p3);
        return;
    }
 
    Gf3 p12 = NormalizeCoords(center(p1,p2));
    Gf3 p13 = NormalizeCoords(center(p1,p3));
    Gf3 p23 = NormalizeCoords(center(p3,p2));
    
    DivideTriangle(p1,p12,p13,N-1);
    DivideTriangle(p2,p12,p23,N-1);
    DivideTriangle(p3,p23,p13,N-1);
    DivideTriangle(p23,p12,p13,N-1);
}
//--------------------------------------------------------------------------
//ïðîåêöèÿ 3ä â 2ä
POINT projection(Gf3 p)
{
        POINT result;
        int Ox = Form1->Width / 2;
        int Oy = Form1->Height /2;
 
        float c = cos(M_PI*angle/180.0);
        float s = sin(M_PI*angle/180.0);
 
        result.x = Ox + R*(p.x*c - p.z*s);
        result.y = Oy - R*(-(s*s)*p.x + p.y*c - c*s*p.z);
        
        return result;
}
//--------------------------------------------------------------------------
//âêëþ÷åíèå äâîéíîé áóôåðèçàöèè
//íàñòðîéêà öâåòà è ñòèëÿ êèñòè äëÿ çàëèâêè ôîíà
//íàñòðîéêà öâåòà ðó÷êà ( áåëûì ïî ÷åðíîìó )
//çàïîëíåíèå êîîðäèíàò îñíîâíîãî òåòðàåäðà
void __fastcall TForm1::FormCreate(TObject *Sender)
{
        Form1->DoubleBuffered = true;
    Form1->Canvas->Brush->Color = clBlack;
    Form1->Canvas->Brush->Style = bsSolid;
    Form1->Canvas->Pen->Color = clWhite;
 
    Gf3 p1,p2,p3,t;
    t.x = 0.0; t.y = 0.0; t.z = 1.0;
    p1.x = 0.0; p1.y = 0.942809; p1.z = -0.333333;
    p2.x = -0.816497; p2.y = -0.471405; p2.z = -0.333333;
    p3.x = 0.816497; p3.y = -0.471405; p3.z = -0.333333;
 
    p1 = NormalizeCoords(p1);
    p2 = NormalizeCoords(p2);
    p3 = NormalizeCoords(p3);
    t = NormalizeCoords(t);
 
    main_p.p1 = p1;       main_p.p2 = p2;
    main_p.p3 = p3;       main_p.t = t;
}
//---------------------------------------------------------------------------
//íàõîæäåíèå ñåðåäèííîé òî÷êè ìåæäó äâóìÿ êîîðäèíàòàìè
Gf3 center(Gf3 p1,Gf3 p2)
{
        Gf3 result;
        result.x = (p1.x + p2.x) / 2.0;
        result.y = (p1.y + p2.y) / 2.0;
        result.z = (p1.z + p2.z) / 2.0;
        return result;
}
//---------------------------------------------------------------------------
0
Почетный модератор
Эксперт С++
 Аватар для SatanaXIII
5851 / 2862 / 392
Регистрация: 01.11.2011
Сообщений: 6,906
13.12.2013, 13:00
Лучший ответ Сообщение было отмечено SatanaXIII как решение

Решение

Hunter13ua, все я починил.

Кликните здесь для просмотра всего текста
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
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include <math.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
struct Gf3 {
    float x;
    float y;
    float z;
};
 
struct Tetrahedron {
    Gf3 p1;
    Gf3 p2;
    Gf3 p3;
    Gf3 t;
} main_p;
 
int nDivisions = 5; // < 9
int R = 300;
float angle = 0.0;
 
Graphics::TBitmap *bm;     ///////////////////////// <- Вот здесь
 
void myInit(void);
POINT projection(Gf3);
void triangle(Gf3,Gf3,Gf3);
void tetrahedron(Tetrahedron);
Gf3 NormalizeCoords(Gf3);
void DivideTriangle(Gf3,Gf3,Gf3,int);
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
bm = new Graphics::TBitmap;
bm->Height = this->Height;
bm->Width  = this->Width;
}
//---------------------------------------------------------------------------
bool click = false;
void __fastcall TForm1::FormClick(TObject *Sender)
{
        if (!click) {
                for(; angle<360; angle = angle+1) {
                        Sleep(10);
                        Form1->OnPaint(Sender);
                }       click = true;
        } else
                Form1->Close();
}
//---------------------------------------------------------------------------
void myInit(void) {
        Form1->ControlStyle << csOpaque;
        Form1->DoubleBuffered = true;
 
    bm->Canvas->Brush->Color = clBlack;     ///////////////////////// <- Вот здесь
    bm->Canvas->Brush->Style = bsSolid;
    bm->Canvas->FillRect(Rect(0,0,Form1->Width,Form1->Height));
    bm->Canvas->Pen->Color = clWhite;
 
    Gf3 p1,p2,p3,t;
    t.x = 0.0; t.y = 0.0; t.z = 1.0;
    p1.x = 0.0; p1.y = 0.942809; p1.z = -0.333333;
    p2.x = -0.816497; p2.y = -0.471405; p2.z = -0.333333;
    p3.x = 0.816497; p3.y = -0.471405; p3.z = -0.333333;
 
    p1 = NormalizeCoords(p1);
    p2 = NormalizeCoords(p2);
    p3 = NormalizeCoords(p3);
    t = NormalizeCoords(t);
 
    main_p.p1 = p1;       main_p.p2 = p2;
    main_p.p3 = p3;       main_p.t = t;
}
//--------------------------------------------------------------------------
void __fastcall TForm1::FormPaint(TObject *Sender)
{
        myInit();
        tetrahedron(main_p);
        Form1->Canvas->Draw( 0, 0, bm );     ///////////////////////// <- Вот здесь
}
//--------------------------------------------------------------------------
void triangle(Gf3 p1, Gf3 p2, Gf3 p3)
{
    bm->Canvas->MoveTo(projection(p1).x,projection(p1).y);     ///////////////////////// <- Вот здесь
    bm->Canvas->LineTo(projection(p2).x,projection(p2).y);
    bm->Canvas->LineTo(projection(p3).x,projection(p3).y);
    bm->Canvas->LineTo(projection(p1).x,projection(p1).y);
}
//--------------------------------------------------------------------------
void tetrahedron(Tetrahedron obj)
{
    DivideTriangle(obj.p1,obj.p2,obj.p3,nDivisions);
    DivideTriangle(obj.p1,obj.p2,obj.t,nDivisions);
    DivideTriangle(obj.p2,obj.p3,obj.t,nDivisions);
    DivideTriangle(obj.p1,obj.p3,obj.t,nDivisions);
}
//--------------------------------------------------------------------------
Gf3 NormalizeCoords(Gf3 o)
{
    float len = sqrt( o.x*o.x + o.y*o.y + o.z*o.z );
    if (len < 0) return o;
    Gf3 result;        result.x = o.x/len;
    result.y = o.y/len;  result.z = o.z/len;
    return result;
}
//--------------------------------------------------------------------------
void DivideTriangle(Gf3 p1,Gf3 p2,Gf3 p3,int N)
{
    if (!N) {
        triangle(p1,p2,p3);
        return;
    }
 
    Gf3 p12, p13, p23;
    Gf3 temp;
    temp.x = (p1.x+p2.x)/2.0;
    temp.y = (p1.y+p2.y)/2.0;
    temp.z = (p1.z+p2.z)/2.0;
    p12 = NormalizeCoords(temp);
    temp.x = (p1.x+p3.x)/2.0;
    temp.y = (p1.y+p3.y)/2.0;
    temp.z = (p1.z+p3.z)/2.0;
    p13 = NormalizeCoords(temp);
    temp.x = (p2.x+p3.x)/2.0;
    temp.y = (p2.y+p3.y)/2.0;
    temp.z = (p2.z+p3.z)/2.0;
    p23 = NormalizeCoords(temp);
 
    DivideTriangle(p1,p12,p13,N-1);
    DivideTriangle(p2,p12,p23,N-1);
    DivideTriangle(p3,p23,p13,N-1);
    DivideTriangle(p23,p12,p13,N-1);
}
//--------------------------------------------------------------------------
POINT projection(Gf3 p)
{
        POINT result;
        int Ox = Form1->Width / 2;
        int Oy = Form1->Height /2;
 
        float c = cos(M_PI*angle/180.0);
        float s = sin(M_PI*angle/180.0);
 
        result.x = Ox + R*(p.x*c - p.z*s);
        result.y = Oy - R*(-(s*s)*p.x + p.y*c - c*s*p.z);
        
        return result;
}
//--------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
delete bm;     ///////////////////////// <- Вот здесь
}
//---------------------------------------------------------------------------


Скажите спасибо UI, что заставил меня вспомнить о вашем проекте, ///////////////////////// <- Вот здесь
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
13.12.2013, 13:00
Помогаю со студенческими работами здесь

Borland C++ Builder 6
Здравствуйте! Подскажите, что это за код... Как сделать, чтобы он отоброзился у меня? bool __fastcall TMainForm::ClipboardCheck(void) ...

Borland C++ Builder
Здраствуйте уважаемые программисты,очент глупый вопрос но все же...кто-нибудь знает где можно скачать толковый учебник по Borland C++...

Borland C++ Builder 6
Здравствуйте! Подскажите, как переносить курсор, кнопкой Еnter с клавиатуры? Сперва сделал так: if (Edit1-&gt;Text.Length() == 10)...

Вопросы по Borland C++ Builder 6.0
Приветствую Вас! У меня есть вопрос, по поводу файлов ресурсов *.res; : Как я могу подключить дополнительный фаил ресурса к проекту и при...

Рисование в Borland Builder C++ .
Вот в паскале всё просто - InitGraph() и потом что хошь то и делай. Как рисовать простоые вещи(2х мерные, просто линии и точки) в Borland...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
11
Ответ Создать тему
Новые блоги и статьи
Уведомление о неверно выбранном значении справочника
Maks 06.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt
8Observer8 05.04.2026
Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .
AkelPad-скрипты, структуры, и немного лирики..
testuser2 05.04.2026
Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II
kumehtar 04.04.2026
Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизитов табличной части документа
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .
wmic не является внутренней или внешней командой
Maks 02.04.2026
Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru