Модератор: Модераторы
Alex2013 писал(а):У меня вообще "сбой кодировки" на последней строчке проекта .
BlackShark писал(а):Я компилировал версией FPC 3.2.1.
(Нет, иногда "транковые версии" предоставляют например единственный простой путь решения конкретных проблем с LCL, но движок то полностью "во власти творца" неужели "модные дженерики" настолько необходимы ? 
) Alex2013 писал(а):Понты...
Код: Выделить всё
sudo apt-get install libgles2-mesa-dev
sudo apt-get install libgles-dev
Код: Выделить всё
procedure LoopRenderer(const View, Proj: TMatrix4f; M3D: Boolean );
begin
glEnable(GL_DEPTH_TEST);
glPushMatrix();
glLoadIdentity();
glMatrixMode(GL_PROJECTION);
glLoadIdentity();
glLoadMatrixf(@Proj;);
glMatrixMode(GL_MODELVIEW);
glLoadMatrixf(@View);
MyRender( BaseA ,gl_render,m3d); // Вызов моего рендера .
glPopMatrix();
end;
Alex2013 писал(а):Хорошо бы сразу добавить поддержку ВиАр (хотя бы на уровне просмотра без поддержки контролеров ) ...
BlackShark писал(а):Если я правильно понимаю, необходимо отрисовать в одном и том же вьюпорте в разных квадратах две и более сцены???
Код: Выделить всё
procedure LoopVR( M3D: Boolean);
var
VRE: VREvent_t;
I: Integer;
IError: EVRInputError;
State: VRControllerState_t;
PoseData: InputPoseActionData_t;
Controller: TController;
Left, Right: TMatrix4f;
CError: EVRCompositorError;
LeftTexture,
RightTexture: Texture_t;
begin
// Process OpenVR events
while IVRSystem^.PollNextEvent(@VRE, SizeOf(VRE)) do
begin
case EVREventType(VRE.eventType) of
VREvent_TrackedDeviceActivated:
Writeln('Device activated: ', vre.trackedDeviceIndex, '(', IVRSystem^.GetTrackedDeviceClass(vre.trackedDeviceIndex), ')');
VREvent_TrackedDeviceDeactivated:
begin
Writeln('Device deactivated: ', vre.trackedDeviceIndex);
if VRE.trackedDeviceIndex = Controllers[0].DeviceID then
Controllers[0].Side := -1
else
if VRE.trackedDeviceIndex = Controllers[1].DeviceID then
Controllers[1].Side := -1;
end;
end;
end;
// Process HMD position
IVRCompositor^.WaitGetPoses(@TrackedDevicePoses, 8, nil, 0);
for I := 0 to 7 do
begin
case IVRSystem^.GetTrackedDeviceClass(I) of
TrackedDeviceClass_Controller:
begin
//...
end;
TrackedDeviceClass_HMD:
begin
Poses[I] := ConvertVR34ToMatrix(TrackedDevicePoses[I].mDeviceToAbsoluteTracking);
end;
end;
end;
if TrackedDevicePoses[k_unTrackedDeviceIndex_Hmd].bPoseIsValid then
begin
HmdPose := Inverse(Poses[k_unTrackedDeviceIndex_Hmd]);
end;
Left := EyeLeftPose * HmdPose;
Right := EyeRightPose * HmdPose;
//....
// Render
// Left eye
glEnable(GL_MULTISAMPLE);
glBindFramebuffer(GL_FRAMEBUFFER, EyeLeftFB.RenderFramebufferID);
glViewport(0, 0, RenderWidth, RenderHeight);
FRender:=FR_L;
LoopRenderer(Left, EyeLeftProj, M3D);
FRender:=FR_W;
// RenderVRControllers(Left, EyeLeftProj);
glDisable(GL_MULTISAMPLE);
glBindFramebuffer(GL_READ_FRAMEBUFFER, EyeLeftFB.RenderFramebufferID);
glBindFramebuffer(GL_DRAW_FRAMEBUFFER, EyeLeftFB.ResolveFramebufferID);
glBlitFramebuffer(0, 0, RenderWidth, RenderHeight, 0, 0, RenderWidth, RenderHeight, GL_COLOR_BUFFER_BIT, GL_LINEAR);
glBindFramebuffer(GL_READ_FRAMEBUFFER, 0);
glBindFramebuffer(GL_DRAW_FRAMEBUFFER, 0);
// Right eye
glEnable(GL_MULTISAMPLE);
glBindFramebuffer(GL_FRAMEBUFFER, EyeRightFB.RenderFramebufferID);
glViewport(0, 0, RenderWidth, RenderHeight);
FRender:=FR_R;
LoopRenderer(Left, EyeLeftProj, M3D);
FRender:=0;
// RenderVRControllers(Right, EyeRightProj);
glDisable(GL_MULTISAMPLE);
glBindFramebuffer(GL_READ_FRAMEBUFFER, EyeRightFB.RenderFramebufferID);
glBindFramebuffer(GL_DRAW_FRAMEBUFFER, EyeRightFB.ResolveFramebufferID);
glBlitFramebuffer(0, 0, RenderWidth, RenderHeight, 0, 0, RenderWidth, RenderHeight, GL_COLOR_BUFFER_BIT, GL_LINEAR);
glBindFramebuffer(GL_READ_FRAMEBUFFER, 0);
glBindFramebuffer(GL_DRAW_FRAMEBUFFER, 0);
// Render to monitor При переходе к VCL оболочке этот кусок разумеется не работает
//(кроме того мне нужно было сделать чтобы программа работала и без подключения шлема )
{-------------------
glDisable(GL_DEPTH_TEST);
glViewport(0, 0, WIDTH, HEIGHT);
glBindVertexArray(EyeVAO);
glUseProgram(EyeShader.ProgramID);
glBindTexture(GL_TEXTURE_2D, EyeLeftFB.ResolveTextureID);
glDrawElements(GL_TRIANGLES, 6, GL_UNSIGNED_SHORT, Pointer(0));
glBindTexture(GL_TEXTURE_2D, EyeRightFB.ResolveTextureID);
glDrawElements(GL_TRIANGLES, 6, GL_UNSIGNED_SHORT, Pointer(12));
glBindTexture(GL_TEXTURE_2D, 0);
glBindVertexArray(0);
glUseProgram(0);
-----------------------}
// Submit to HMD
LeftTexture.handle := Pointer(EyeLeftFB.ResolveTextureID);
LeftTexture.eType := TextureType_OpenGL;
LeftTexture.eColorSpace := ColorSpace_Gamma;
RightTexture.handle := Pointer(EyeRightFB.ResolveTextureID);
RightTexture.eType := TextureType_OpenGL;
RightTexture.eColorSpace := ColorSpace_Gamma;
CError := IVRCompositor^.Submit(Eye_Left, @LeftTexture, nil, Submit_Default);
if CError <> VRCompositorError_None then
Writeln('Error(Submit_Left): ', CError);
CError := IVRCompositor^.Submit(Eye_Right, @RightTexture, nil, Submit_Default);
if CError <> VRCompositorError_None then
Writeln('Error(Submit_Right): ', CError);
// Force HMD vsync
glFinish;
glFlush;
glFinish;
end;
Alex2013 писал(а):... Я просто нашел в коде исходного примера точку, куда можно вставить свой рендер и научился синхронизировать отображение с положением "виртуальной камеры" по данным трекинга из шлема ).
(С поддержкой контролеров еще не разбирался )
Зы
ИМХО Если OpenVR будет поддерживается на уровне более мнение простого движка это решит множество проблем "с порогом доступности" ВиАр программирования . А то сейчас там ситуация "кто в лес кто по дрова " (особенно в случае Дельфи и Лазаруса )
Alex2013 писал(а):Вроде работает ... Тормоз правда изрядный .
Впрочем у меня на том же железе то же самое ...(около 20 fps при примерно том же уровне сложности сцены )
BlackShark писал(а):А откуда твоя сцена грузится? Из модели, или на лету генерируешь?
Код: Выделить всё
//Прорисовка модели OpenGL
procedure OGL_DrawASC (DX_,DY_,DZ_:Single);
Var
A,b,c,AB,BC,CA,LI:LongInt;
Var
SaCol:integer;
cube_rotation: GLFloat;
Speed: Double;
CK:real;
begin
//Показ модели
for LI:=0 to sl.count-1 do
begin
Sscanf(sl[LI],'A:%d B:%d C:%d AB:%d BC:%d CA:%d' ,
[@A,@B,@C,@AB,@BC,@CA]);
glBegin(GL_TRIANGLES );
CK:=RANDOM(50)/100;
glColor3f(m_rgb.r-ck,m_rgb.g-ck,m_rgb.b-ck);
With Getv(A) do glVertex3f(DX_+x/100,DY_+y/100,DZ_+z/100);
With Getv(b) do glVertex3f(DX_+x/100,DY_+y/100,DZ_+z/100);
With Getv(c) do glVertex3f(DX_+x/100,DY_+y/100,DZ_+z/100);
glEnd();
end;
end;
Код: Выделить всё
// Function to Create a sphere
//----------------------------------
procedure CreateSphere(CX, CY, CZ, Radius : glFloat;
N: Integer; NDX, NDY:Single; var SphereDL:GlInt;Const SBS_F:byte=0);
// N = precision
var I, J ,N2: Integer;
F1,f2,theta1,theta2,theta3 : glFloat;
X, Y, Z, px, py, pz : glFloat;
begin
SphereDL :=glGenLists(1);
glNewList(SphereDL, GL_COMPILE);
if Radius < 0 then Radius :=-Radius;
if n < 0 then n := -n;
if (n < 4) OR (Radius <= 0) then
begin
glBegin(GL_POINTS);
glVertex3f(CX, CY, CZ);
glEnd();
exit;
end;
for J :=0 to N DIV 2 -1 do
begin
theta1 := (J*2*PI/N - PI/2) /ndy;
theta2 := ((J+1)*2*PI/n - PI/2) /ndy;;
glBegin(GL_QUAD_STRIP);
For I :=N downto 0 do
begin
theta3 := (i*2*PI/N)/NDX;
x := cos(theta2) * cos(theta3);
y := sin(theta2);
z := cos(theta2) * sin(theta3);
px := CX + Radius*x;
py := CY + Radius*y;
pz := CZ + Radius*z;
// glNormal3f(X, Y, Z);
Case SBS_F of
0:F1:=1-I/n;
1:F1:=(1-I/n)/2;
2:F1:=0.5+(1-I/n)/2;
end;
glTexCoord2f(f1, 2*(J+1)/n);
glVertex3f(px,py,pz);
X := cos(theta1) * cos(theta3);
Y := sin(theta1);
Z := cos(theta1) * sin(theta3);
px := CX + Radius*X;
py := CY + Radius*Y;
pz := CZ + Radius*Z;
// glNormal3f(X, Y, Z);
glTexCoord2f(F1, 2*j/n);
glVertex3f(px,py,pz);
end;
glEnd();
end;
glEndList();
end;
BlackShark писал(а):Честно, вникать в VR пока времени нет. Если подскажешь что и куда воткнуть, то без проблем.
Код: Выделить всё
program Select_SHA;
{$mode objfpc}{$H+}
//{$APPTYPE GUI}
{$APPTYPE CONSOLE}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms, lazopenglcontext, GL, GLExt, glu, GLFW31, Renderer, vr, Unit1, Unit6,
ET_utils, Coll_OBJ_add_Un_01;
{ you can add units after this }
{$R *.res}
Var
Window0: PGLFWwindow;
procedure InitWindow;
begin
if glfwInit = 0 then
begin
Writeln('Cannot init GLFW!');
Halt;
end;
glfwWindowHint(GLFW_CONTEXT_VERSION_MAJOR, 3);
glfwWindowHint(GLFW_CONTEXT_VERSION_MINOR, 1);
Window0 := glfwCreateWindow(WIDTH, HEIGHT, 'OpenVR', nil, nil);
if Window0 = nil then
begin
Writeln('Cannot create GLFW window!');
Halt;
end;
glfwMakeContextCurrent(Window0);
// glfwSetKeyCallback(Window, @HandleKey);
glfwSwapInterval(1);
if not Load_GL_version_4_3_CORE then
begin
Writeln('OpenGL 4.3 is required!');
Halt;
end;
end;
procedure FreeWindow;
begin
glfwDestroyWindow(Window0);
glfwTerminate;
end;
begin
InitWindow;
InitRenderer;
FreeWindow;
RequireDerivedFormResource:=True;
Application.Scaled:=True;
Application.Initialize;
Application.CreateForm(TMForm, MForm);
Application.CreateForm(TCaptureForm, CaptureForm);
Application.CreateForm(TET_Form, ET_Form);
Application.CreateForm(TFC_ObJ_Add, FC_ObJ_Add);
Application.Run;
end.
Код: Выделить всё
Shader := BSShaderManager.Load('SimpleTexture', TBlackSharkTextureOutShader);
Alex2013 писал(а):Но у меня там есть непонятка с библиотекой glfw3.dll (толку от от нее ноль но без нее InitRenderer не загружает шейдеры в которых я совершенно не разбираюсь, а выкинуть полностью не получается )
Так что на старте там вот такая кривуля стоит .
BlackShark писал(а):Практически всё GL API приведённое в примерах здесь тобой является устаревшим. В акуле такое не используется.
Шейдр не будет без неё грузиться. Шейдер, как и текстуры привязываются к контексту. А эта библиотека создаёт и инициализирует контекст. В моём случае это делается с помощью egl.
Код: Выделить всё
<!DOCTYPE html>
<html>
<head>
<meta charset="utf-8">
<title>Hello, World! - A-Frame</title>
<meta name="description" content="Hello, World! - A-Frame">
<script src="aframe.min.js"></script>
</head>
<body>
<a-scene>
<a-assets>
<img id="box-texture" src="assets/preview.png">
<img id="plane-texture" src="assets/mYmmbrp.jpg">
</a-assets>
<a-box position="-1 0.5 -3" rotation="0 45 0" material="src: #box-texture" ></a-box>
<a-animation attribute="position" to="0 2.2 -5"
direction="alternate" dur="2000"
repeat="indefinite">
</a-animation>
</a-box>
<a-sphere position="0 1.25 -5" radius="1.25" color="#EF2D5E">
</a-sphere>
<a-cylinder position="1 0.75 -3" radius="0.5" height="1.5"
color="#FFC65D" >
</a-cylinder>
<a-plane material="src: #plane-texture"
position="0 0 -4" rotation="-90 0 0" width="4" height="4" color="#7BC8A4"></a-plane>
<a-sky color="#0C0C0C"></a-sky>
</a-scene>
</body>
</html>
Alex2013 писал(а):Кстати по моему "акуле" очень не хватает внятных примеров, "мегадемка" это хорошо, но потрошить ее довольно сложно . ИМХО нужно более четко показать ее возможное применение .
1 "Офисная часть " показать красивую визуализацию данных ( Можно взять простой пример БД добавить и добавить карту (простую ГИС) и графики )
2 В акуле есть отличная возможность для созданий алгоритмических и просто мнемонических схем неплохо сделать простой редактор МС.
3 Не знаю что том с возможностью делать игры но парочка простейших "астероидов" и например 3д тетрис или 3д-лабиринт точно лишними в качестве примеров не будут.
4 Отличным примером был бы "генератор ландшафтов" то есть простейший 3д редактор. (возможно с генерацией сцен "WebVR" благо там все довольно просто устроено )
5 О примере с поддержкой OpenVR я уже писал но добавлю что его можно сделать совсем простым вроде просмотрщика "панорам 360*" но с красивым интерфейсом баго в акуле его сделать плевое дело.
Но разумеется совсем неплохо смотрелся бы например и простой видео плеер .
Alex2013 писал(а):Зы
Разумеется уважаемый автор может справедливо сказать "Вот и займись! А то опять изобретатель ковров самолетов пожаловал"
BlackShark писал(а):помощь в разработке
Alex2013 писал(а):Вот это я понимаю "Привет мир !!" Муа-ха-ха!
"Знакомьтесь: Акула это Мир - Мир это Акула!"
Alex2013 писал(а):Сразу вопрос: как делать скриншот сцены в битмап или текстуру средствами самой "акулы"? (а то "захват по хембеллу" хоть работает, но как-то это через "Африку в Европу")
Код: Выделить всё
TBlackSharkViewPort.Rederer.Screenshot()