/
stud_22-365
/
GLXEngine
Обзор
Документация
Войти
/
stud_22-365
/
GLXEngine
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
v2.2
Source/OpenCL.GL.pas
169 строк
6 KB
GLScene
Merged duplicate assets
28 дек 2022, 15:50
28 дек 2022, 15:50
537f47c
Код
Авторство
О чём код?
// // The graphics platform GLScene https://github.com/glscene // unit OpenCL.GL; (* Conversion of OpenCL header file: cl_gl.h to CL_GL.pas, from http://www.khronos.org/registry/cl/. *) ///***************************************************************************** // * Copyright (c) 2008-2020 The Khronos Group Inc. // * // * Permission is hereby granted, free of charge, to any person obtaining a // * copy of this software and/or associated documentation files (the // * "Materials"), to deal in the Materials without restriction, including // * without limitation the rights to use, copy, modify, merge, publish, // * distribute, sublicense, and/or sell copies of the Materials, and to // * permit persons to whom the Materials are furnished to do so, subject to // * the following conditions: // * // * The above copyright notice and this permission notice shall be included // * in all copies or substantial portions of the Materials. // * // * THE MATERIALS ARE PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, // * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF // * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. // * IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY // * CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, // * TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE // * MATERIALS OR THE USE OR OTHER DEALINGS IN THE MATERIALS. // ****************************************************************************/ interface uses OpenCL.Import, OpenCL.Platform; type PGLuint = ^Cardinal; Tcl_gl_object_type = Tcl_uint; Pcl_gl_object_type = ^Tcl_gl_object_type; Tcl_gl_texture_info = Tcl_uint; Pcl_gl_texture_info = ^Tcl_gl_texture_info; Tcl_gl_platform_info = Tcl_uint; Pcl_gl_platform_info = ^Tcl_gl_platform_info; __GLsync = record end; Pcl_GLsync = ^__GLsync; //* cl_gl_object_type = 0x2000 - 0x200F enum values are currently taken *// const CL_GL_OBJECT_BUFFER = $2000; CL_GL_OBJECT_TEXTURE2D = $2001; CL_GL_OBJECT_TEXTURE3D = $2002; CL_GL_OBJECT_RENDERBUFFER = $2003; CL_GL_OBJECT_TEXTURE2D_ARRAY = $200E; CL_GL_OBJECT_TEXTURE1D = $200F; CL_GL_OBJECT_TEXTURE1D_ARRAY = $2010; CL_GL_OBJECT_TEXTURE_BUFFER = $2011; //* cl_gl_texture_info *// CL_GL_TEXTURE_TARGET = $2004; CL_GL_MIPMAP_LEVEL = $2005; CL_GL_NUM_SAMPLES = $2012; function clCreateFromGLBuffer(context: Tcl_context; flags: Tcl_mem_flags; bufobj: Cardinal; errcode_ret: Pcl_int): Tcl_mem; //< CL_API_SUFFIX__VERSION_1_0; stdcall; external LibOpenCL; function clCreateFromGLTexture3D(context: Tcl_context; flags: Tcl_mem_flags; target: Cardinal; miplevel: Integer; texture: Cardinal; errcode_ret: Pcl_int): Tcl_mem; //< CL_API_SUFFIX__VERSION_1_2; stdcall; external LibOpenCL; function clCreateFromGLRenderbuffer(context: Tcl_context; flags: Tcl_mem_flags; renderbuffer: Cardinal; errcode_ret: Pcl_int): Tcl_mem; //< CL_API_SUFFIX__VERSION_1_0; stdcall; external LibOpenCL; function clGetGLObjectInfo(memobj: Tcl_mem; gl_object_type: Pcl_gl_object_type; gl_object_name: PGLuint): Tcl_int; //< CL_API_SUFFIX__VERSION_1_0; stdcall; external LibOpenCL; function clGetGLTextureInfo(memobj: Tcl_mem; param_name: Tcl_gl_texture_info; param_value_size: NativeUInt; param_value: Pointer; param_value_size_ret: Psize_t): Tcl_int; //< CL_API_SUFFIX__VERSION_1_0; stdcall; external LibOpenCL; function clEnqueueAcquireGLObjects(command_queue: Tcl_command_queue; num_objects: Tcl_uint; mem_objects: Pcl_mem; num_events_in_wait_list: Tcl_uint; event_wait_list: Pcl_event; event: Pcl_event): Tcl_int; //< CL_API_SUFFIX__VERSION_1_0; stdcall; external LibOpenCL; function clEnqueueReleaseGLObjects(command_queue: Tcl_command_queue; num_objects: Tcl_uint; mem_objects: Pcl_mem; num_events_in_wait_list: Tcl_uint; event_wait_list: Pcl_event; event: Pcl_event): Tcl_int; //< CL_API_SUFFIX__VERSION_1_0; stdcall; external LibOpenCL; //* Deprecated OpenCL 1.1 APIs *// (* function clCreateFromGLTexture2D(); *) (* function clCreateFromGLTexture3D(); *) const //* cl_khr_gl_sharing extension *// cl_khr_gl_sharing = 1; type Tcl_gl_context_info = Tcl_uint; Pcl_gl_context_info = ^Tcl_gl_context_info; const //* Additional Error Codes *// CL_INVALID_GL_SHAREGROUP_REFERENCE_KHR = -1000; //* cl_gl_context_info *// CL_CURRENT_DEVICE_FOR_GL_CONTEXT_KHR = $2006; CL_DEVICES_FOR_GL_CONTEXT_KHR = $2007; //* Additional cl_context_properties *// CL_GL_CONTEXT_KHR = $2008; CL_EGL_DISPLAY_KHR = $2009; CL_GLX_DISPLAY_KHR = $200A; CL_WGL_HDC_KHR = $200B; CL_CGL_SHAREGROUP_KHR = $200C; function clGetGLContextInfoKHR(properties: Tcl_context_properties; param_name: Tcl_gl_context_info; param_value_size: NativeUInt; param_value: Pointer; param_value_size_ret: Psize_t): Tcl_int; stdcall; external LibOpenCL; (* function clGetGLContextInfoKHR_fn(properties: Pcl_context_properties; param_name: Tcl_gl_context_info; param_value_size: Tsize_t; param_value: Pointer; param_value_size_ret: Psize_t): Tcl_int; stdcall; external LibOpenCL; *) //-------------------------------------------------------------------- implementation //-------------------------------------------------------------------- end.