Прозрачная полусфера (купол), в основании которой шар

@skinex · Регистрация: 09.03.2013

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

Всем доброго времени суток, есть небольшое задание нарисовать прозрачный купол, в которой вписан шар, в шаре есть пересечения, которые с помощью интегралов я интегрировал, то-есть как из заданного расстояния сделал большее количество пересечении, с помощью производных и интегралов, математически задание я решил, вопросы такие, что стоит лучше использовать OpenGL или просто с помощью Canvas, ну на канвасе я думаю будет не так просто, а вот смотрю больше в сторону OpenGL, и можно либо связать 2 модуля, в 1 будут радиус и прочее мат. данные, а во второй будет собственно рисунок, так возможно ли это сделать, и какие знания нужны для рисования купола, и шар в его основании и в дальнейшем уже пересечении, я читал не мало уроков в интернете, но в основном там пример поданы в с++, что можете посоветовать, подсказать, общался с преподавателем, и он сказал, что если я математически все решил, то нарисовать все можно по трафарету рисунков, трехмерных фигур, вообщем надеюсь на ваши советы.

@skinex · 06.12.2014, 11:00 **[ТС]**

Итак проделав небольшую работу, получилось вот такое вот:

Delphi
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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OpenGL, DGLUT;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormResize(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  HRC : HGLRC ;
  DC: HDC;
  angle: single;
implementation
 
{$R *.dfm}
procedure glutWireSphere (Radius: GLdouble;Slices: GLint;Stacks: GLint);  //êóïîë
const eqn: Array [0.. 3] of GLdouble = (0.0, 1.0, 0.0, 0.0);
eqn2: Array [0.. 3] of GLdouble = (1.0, 0.0, 0.0, 0.0);
begin { glutWireSphere }
if quadObj = nil then
quadObj:=gluNewQuadric;
gluQuadricDrawStyle(quadObj, GLU_LINE);
gluQuadricNormals(quadObj, GLU_SMOOTH);
// óäàëåíèå íèæíåé ïîëîâèíû, äëÿ ó < 0
glClipPlane (GL_CLIP_PLANEO, @eqn); // èäåíòèôèöèðóåì ïëîñêîñòü îòñå÷åíèÿ
glEnable (GL_CLIP_PLANEO); // âêëþ÷àåì ïåðâóþ ïëîñêîñòü îòñå÷åíèÿ
gluSphere(quadObj, Radius, Slices, Stacks); 
end;
 
procedure PointsCirle(r : glFloat;n : Integer;ps : glFloat); //êðóã
var 
 i : integer;
 fx,fy,rx,ry,tx:glFloat;
begin 
 glPointSize(ps);
 glBegin(GL_POINTS);
 tx:=2.0*Pi/n;
 fx:=sin(tx);
 fy:=cos(tx);
 rx:=r;
 ry:=0;
 for i := 1 to n do begin
   glVertex3f(rx,ry,0.0);
   tx:=rx*fx-ry*fy;
   ry:=ry*fx+rx*fy;
   rx:=tx;
 end;
 glEnd;
end;
 
 
procedure SetDCPixelFormat ( hdc : HDC );
 var
  pfd : TPixelFormatDescriptor;
  nPixelFormat : Integer;
 begin
  FillChar (pfd, SizeOf (pfd), 0);
  pfd.dwFlags  := PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or PFD_DOUBLEBUFFER;
   nPixelFormat := ChoosePixelFormat (hdc, @pfd);
  SetPixelFormat (hdc, nPixelFormat, @pfd);
 end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  DC:= GetDC(Form1.Handle);
  SetDCPixelFormat(DC);
  hrc := wglCreateContext(DC);
  wglMakeCurrent(DC, hrc);
 
  glEnable(GL_DEPTH_TEST); // âêëþ÷àåì ïðîâåðêó ðàçðåøåíèÿ ôèãóð (âïåðåäè ñòîÿùàÿ çàêðûâàåò ôèãóðó çà íåé)
  glDepthFunc(GL_LEQUAL); //òèï ïðîâåðêè
  glEnable(GL_LIGHTING);  //âêëþ÷àåì îñâåùåíèå
  glEnable(GL_LIGHT0);    //âêëþ÷àåì èñòî÷íèê ñâåòà ¹0
end;
 
procedure TForm1.FormPaint(Sender: TObject);
begin
 FormResize(Sender);//ïðîöåäóðà îáíîâëåíèÿ
 
  if GetAsyncKeyState(VK_LEFT)<>0 then angle:=angle+0.5;
  if GetAsyncKeyState(VK_RIGHT)<>0 then angle:=angle-0.5;
 
 glClearColor (0.5, 0.5, 0.75, 1.0); // öâåò ôîíà
 glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT );
 
 
 glRotatef(angle,0,0,1);
 
 glpushMatrix;
 glTranslatef(5,0,0);
 glutWireSphere(5,10,10);  //Ñôåðà
 glPopmatrix;
 
 glpushMatrix;
 glTranslatef(5,0,0);
 PointsCirle(5,10,10);  //êðóã
 glPopmatrix;
 
 
SwapBuffers(Canvas.Handle);
end;
 
procedure TForm1.FormResize(Sender: TObject);
begin
  glViewport(0, 0, ClientWidth, ClientHeight); //âûäåëÿåì îáëàñòü êóäà áóäåò âûâîäèòüñÿ íàø áóôåð
  glMatrixMode ( GL_PROJECTION ); //ïåðåõîäèì â ìàòðèöó ïðîåêöèè
  glLoadIdentity;  //Ñáðàñûâàåì òåêóùóþ ìàòðèöó
  glFrustum ( -1 , 1 , -1 , 1 , 1.25 , 100.0 ); //Îáëàñòü âèäèìîñòè
  glMatrixMode ( GL_MODELVIEW ); //ïåðåõîäèì â ìîäåëüíóþ ìàòðèöó
  glLoadIdentity;//Ñáðàñûâàåì òåêóùóþ ìàòðèöó
  gluLookAt(5,5,5,0,0,0,0,0,1);  //ïîçèöèÿ íàáëþäàòåëÿ
  InvalidateRect ( Handle,nil,False );  //ïåðåðèñîâêà ôîðìû
end;
 
end.

В полусферу нужно было вписать не шар а круг, круг я отрисовал, но с куполом небольшая ошибка на этой строке:

Delphi
1
glClipPlane (GL_CLIP_PLANEO, @eqn);

В чем может быть ошибка, что там не верно?

Новые блоги и статьи Все статьи Все блоги /
Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .	Цена ошибки DevAlt 23.08.2026 Человек я беспокойный и потому заинтересовался OCaml, в чате форсили функторы модулей как суперфичу. Пытаясь отдуплить концепт, наткнулся на тутор с простым примером. А главный принцип обучения от. . .	Сегодня суббота, 22.08.2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. zorxor 22.08.2026 Сегодня суббота, 22. 08. 2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. Кто Я, откуда Я пришел и куда Я иду? Эти вопросы не оставляют меня ни на секунду. Жизнь на планете Земля. . .	Жизня: рисунок укладки багажа, сделанный клодом anaschu 21.08.2026 Сделал 15 снимков, он по снимкам сделал схему.
Был там один разговор по поводу свободы в материальном мире. kumehtar 19.08.2026 Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .	Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .	Лето уходит kumehtar 17.08.2026	Мысли в слух kumehtar 17.08.2026 Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .

@skinex 4 / 4 / 4 Регистрация: 09.03.2013 Сообщений: 209

	Прозрачная полусфера (купол), в основании которой шар 14.11.2014, 20:11. Показов 3873. Ответов 20 Метки нет (Все метки) Всем доброго времени суток, есть небольшое задание нарисовать прозрачный купол, в которой вписан шар, в шаре есть пересечения, которые с помощью интегралов я интегрировал, то-есть как из заданного расстояния сделал большее количество пересечении, с помощью производных и интегралов, математически задание я решил, вопросы такие, что стоит лучше использовать OpenGL или просто с помощью Canvas, ну на канвасе я думаю будет не так просто, а вот смотрю больше в сторону OpenGL, и можно либо связать 2 модуля, в 1 будут радиус и прочее мат. данные, а во второй будет собственно рисунок, так возможно ли это сделать, и какие знания нужны для рисования купола, и шар в его основании и в дальнейшем уже пересечении, я читал не мало уроков в интернете, но в основном там пример поданы в с++, что можете посоветовать, подсказать, общался с преподавателем, и он сказал, что если я математически все решил, то нарисовать все можно по трафарету рисунков, трехмерных фигур, вообщем надеюсь на ваши советы. 0