mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-27 12:53:42 +02:00
307 lines
10 KiB
ObjectPascal
307 lines
10 KiB
ObjectPascal
{
|
|
* CVOpenGLBuffer.h
|
|
* CoreVideo
|
|
*
|
|
* Copyright (c) 2004 Apple Computer, Inc. All rights reserved.
|
|
*
|
|
}
|
|
{ Pascal Translation: Gorazd Krosl, <gorazd_1957@yahoo.ca>, 2009 }
|
|
{ Pascal Translation Update: Jonas Maebe <jonas@freepascal.org>, October 2012 }
|
|
{ Pascal Translation Update: Jonas Maebe <jonas@freepascal.org>, August 2015 }
|
|
{
|
|
Modified for use with Free Pascal
|
|
Version 308
|
|
Please report any bugs to <gpc@microbizz.nl>
|
|
}
|
|
|
|
{$ifc not defined MACOSALLINCLUDE or not MACOSALLINCLUDE}
|
|
{$mode macpas}
|
|
{$modeswitch cblocks}
|
|
{$packenum 1}
|
|
{$macro on}
|
|
{$inline on}
|
|
{$calling mwpascal}
|
|
|
|
{$IFNDEF FPC_DOTTEDUNITS}
|
|
unit CVOpenGLBuffer;
|
|
{$ENDIF FPC_DOTTEDUNITS}
|
|
interface
|
|
{$setc UNIVERSAL_INTERFACES_VERSION := $0400}
|
|
{$setc GAP_INTERFACES_VERSION := $0308}
|
|
|
|
{$ifc not defined USE_CFSTR_CONSTANT_MACROS}
|
|
{$setc USE_CFSTR_CONSTANT_MACROS := TRUE}
|
|
{$endc}
|
|
|
|
{$ifc defined CPUPOWERPC and defined CPUI386}
|
|
{$error Conflicting initial definitions for CPUPOWERPC and CPUI386}
|
|
{$endc}
|
|
{$ifc defined FPC_BIG_ENDIAN and defined FPC_LITTLE_ENDIAN}
|
|
{$error Conflicting initial definitions for FPC_BIG_ENDIAN and FPC_LITTLE_ENDIAN}
|
|
{$endc}
|
|
|
|
{$ifc not defined __ppc__ and defined CPUPOWERPC32}
|
|
{$setc __ppc__ := 1}
|
|
{$elsec}
|
|
{$setc __ppc__ := 0}
|
|
{$endc}
|
|
{$ifc not defined __ppc64__ and defined CPUPOWERPC64}
|
|
{$setc __ppc64__ := 1}
|
|
{$elsec}
|
|
{$setc __ppc64__ := 0}
|
|
{$endc}
|
|
{$ifc not defined __i386__ and defined CPUI386}
|
|
{$setc __i386__ := 1}
|
|
{$elsec}
|
|
{$setc __i386__ := 0}
|
|
{$endc}
|
|
{$ifc not defined __x86_64__ and defined CPUX86_64}
|
|
{$setc __x86_64__ := 1}
|
|
{$elsec}
|
|
{$setc __x86_64__ := 0}
|
|
{$endc}
|
|
{$ifc not defined __arm__ and defined CPUARM}
|
|
{$setc __arm__ := 1}
|
|
{$elsec}
|
|
{$setc __arm__ := 0}
|
|
{$endc}
|
|
{$ifc not defined __arm64__ and defined CPUAARCH64}
|
|
{$setc __arm64__ := 1}
|
|
{$elsec}
|
|
{$setc __arm64__ := 0}
|
|
{$endc}
|
|
|
|
{$ifc defined cpu64}
|
|
{$setc __LP64__ := 1}
|
|
{$elsec}
|
|
{$setc __LP64__ := 0}
|
|
{$endc}
|
|
|
|
|
|
{$ifc defined __ppc__ and __ppc__ and defined __i386__ and __i386__}
|
|
{$error Conflicting definitions for __ppc__ and __i386__}
|
|
{$endc}
|
|
|
|
{$ifc defined __ppc__ and __ppc__}
|
|
{$setc TARGET_CPU_PPC := TRUE}
|
|
{$setc TARGET_CPU_PPC64 := FALSE}
|
|
{$setc TARGET_CPU_X86 := FALSE}
|
|
{$setc TARGET_CPU_X86_64 := FALSE}
|
|
{$setc TARGET_CPU_ARM := FALSE}
|
|
{$setc TARGET_CPU_ARM64 := FALSE}
|
|
{$setc TARGET_OS_MAC := TRUE}
|
|
{$setc TARGET_OS_IPHONE := FALSE}
|
|
{$setc TARGET_IPHONE_SIMULATOR := FALSE}
|
|
{$setc TARGET_OS_EMBEDDED := FALSE}
|
|
{$elifc defined __ppc64__ and __ppc64__}
|
|
{$setc TARGET_CPU_PPC := FALSE}
|
|
{$setc TARGET_CPU_PPC64 := TRUE}
|
|
{$setc TARGET_CPU_X86 := FALSE}
|
|
{$setc TARGET_CPU_X86_64 := FALSE}
|
|
{$setc TARGET_CPU_ARM := FALSE}
|
|
{$setc TARGET_CPU_ARM64 := FALSE}
|
|
{$setc TARGET_OS_MAC := TRUE}
|
|
{$setc TARGET_OS_IPHONE := FALSE}
|
|
{$setc TARGET_IPHONE_SIMULATOR := FALSE}
|
|
{$setc TARGET_OS_EMBEDDED := FALSE}
|
|
{$elifc defined __i386__ and __i386__}
|
|
{$setc TARGET_CPU_PPC := FALSE}
|
|
{$setc TARGET_CPU_PPC64 := FALSE}
|
|
{$setc TARGET_CPU_X86 := TRUE}
|
|
{$setc TARGET_CPU_X86_64 := FALSE}
|
|
{$setc TARGET_CPU_ARM := FALSE}
|
|
{$setc TARGET_CPU_ARM64 := FALSE}
|
|
{$ifc defined iphonesim}
|
|
{$setc TARGET_OS_MAC := FALSE}
|
|
{$setc TARGET_OS_IPHONE := TRUE}
|
|
{$setc TARGET_IPHONE_SIMULATOR := TRUE}
|
|
{$elsec}
|
|
{$setc TARGET_OS_MAC := TRUE}
|
|
{$setc TARGET_OS_IPHONE := FALSE}
|
|
{$setc TARGET_IPHONE_SIMULATOR := FALSE}
|
|
{$endc}
|
|
{$setc TARGET_OS_EMBEDDED := FALSE}
|
|
{$elifc defined __x86_64__ and __x86_64__}
|
|
{$setc TARGET_CPU_PPC := FALSE}
|
|
{$setc TARGET_CPU_PPC64 := FALSE}
|
|
{$setc TARGET_CPU_X86 := FALSE}
|
|
{$setc TARGET_CPU_X86_64 := TRUE}
|
|
{$setc TARGET_CPU_ARM := FALSE}
|
|
{$setc TARGET_CPU_ARM64 := FALSE}
|
|
{$ifc defined iphonesim}
|
|
{$setc TARGET_OS_MAC := FALSE}
|
|
{$setc TARGET_OS_IPHONE := TRUE}
|
|
{$setc TARGET_IPHONE_SIMULATOR := TRUE}
|
|
{$elsec}
|
|
{$setc TARGET_OS_MAC := TRUE}
|
|
{$setc TARGET_OS_IPHONE := FALSE}
|
|
{$setc TARGET_IPHONE_SIMULATOR := FALSE}
|
|
{$endc}
|
|
{$setc TARGET_OS_EMBEDDED := FALSE}
|
|
{$elifc defined __arm__ and __arm__}
|
|
{$setc TARGET_CPU_PPC := FALSE}
|
|
{$setc TARGET_CPU_PPC64 := FALSE}
|
|
{$setc TARGET_CPU_X86 := FALSE}
|
|
{$setc TARGET_CPU_X86_64 := FALSE}
|
|
{$setc TARGET_CPU_ARM := TRUE}
|
|
{$setc TARGET_CPU_ARM64 := FALSE}
|
|
{$setc TARGET_OS_MAC := FALSE}
|
|
{$setc TARGET_OS_IPHONE := TRUE}
|
|
{$setc TARGET_IPHONE_SIMULATOR := FALSE}
|
|
{$setc TARGET_OS_EMBEDDED := TRUE}
|
|
{$elifc defined __arm64__ and __arm64__}
|
|
{$setc TARGET_CPU_PPC := FALSE}
|
|
{$setc TARGET_CPU_PPC64 := FALSE}
|
|
{$setc TARGET_CPU_X86 := FALSE}
|
|
{$setc TARGET_CPU_X86_64 := FALSE}
|
|
{$setc TARGET_CPU_ARM := FALSE}
|
|
{$setc TARGET_CPU_ARM64 := TRUE}
|
|
{$ifc defined ios}
|
|
{$setc TARGET_OS_MAC := FALSE}
|
|
{$setc TARGET_OS_IPHONE := TRUE}
|
|
{$setc TARGET_OS_EMBEDDED := TRUE}
|
|
{$elsec}
|
|
{$setc TARGET_OS_MAC := TRUE}
|
|
{$setc TARGET_OS_IPHONE := FALSE}
|
|
{$setc TARGET_OS_EMBEDDED := FALSE}
|
|
{$endc}
|
|
{$setc TARGET_IPHONE_SIMULATOR := FALSE}
|
|
{$elsec}
|
|
{$error __ppc__ nor __ppc64__ nor __i386__ nor __x86_64__ nor __arm__ nor __arm64__ is defined.}
|
|
{$endc}
|
|
|
|
{$ifc defined __LP64__ and __LP64__ }
|
|
{$setc TARGET_CPU_64 := TRUE}
|
|
{$elsec}
|
|
{$setc TARGET_CPU_64 := FALSE}
|
|
{$endc}
|
|
|
|
{$ifc defined FPC_BIG_ENDIAN}
|
|
{$setc TARGET_RT_BIG_ENDIAN := TRUE}
|
|
{$setc TARGET_RT_LITTLE_ENDIAN := FALSE}
|
|
{$elifc defined FPC_LITTLE_ENDIAN}
|
|
{$setc TARGET_RT_BIG_ENDIAN := FALSE}
|
|
{$setc TARGET_RT_LITTLE_ENDIAN := TRUE}
|
|
{$elsec}
|
|
{$error Neither FPC_BIG_ENDIAN nor FPC_LITTLE_ENDIAN are defined.}
|
|
{$endc}
|
|
{$setc ACCESSOR_CALLS_ARE_FUNCTIONS := TRUE}
|
|
{$setc CALL_NOT_IN_CARBON := FALSE}
|
|
{$setc OLDROUTINENAMES := FALSE}
|
|
{$setc OPAQUE_TOOLBOX_STRUCTS := TRUE}
|
|
{$setc OPAQUE_UPP_TYPES := TRUE}
|
|
{$setc OTCARBONAPPLICATION := TRUE}
|
|
{$setc OTKERNEL := FALSE}
|
|
{$setc PM_USE_SESSION_APIS := TRUE}
|
|
{$setc TARGET_API_MAC_CARBON := TRUE}
|
|
{$setc TARGET_API_MAC_OS8 := FALSE}
|
|
{$setc TARGET_API_MAC_OSX := TRUE}
|
|
{$setc TARGET_CARBON := TRUE}
|
|
{$setc TARGET_CPU_68K := FALSE}
|
|
{$setc TARGET_CPU_MIPS := FALSE}
|
|
{$setc TARGET_CPU_SPARC := FALSE}
|
|
{$setc TARGET_OS_UNIX := FALSE}
|
|
{$setc TARGET_OS_WIN32 := FALSE}
|
|
{$setc TARGET_RT_MAC_68881 := FALSE}
|
|
{$setc TARGET_RT_MAC_CFM := FALSE}
|
|
{$setc TARGET_RT_MAC_MACHO := TRUE}
|
|
{$setc TYPED_FUNCTION_POINTERS := TRUE}
|
|
{$setc TYPE_BOOL := FALSE}
|
|
{$setc TYPE_EXTENDED := FALSE}
|
|
{$setc TYPE_LONGLONG := TRUE}
|
|
{$IFDEF FPC_DOTTEDUNITS}
|
|
uses MacOsApi.MacTypes,MacOsApi.CFBase,MacOsApi.CFString,MacOsApi.CFDictionary,MacOsApi.CVReturns,MacOsApi.CVImageBuffer,MacOsApi.CGLTypes,MacOsApi.Macgl;
|
|
{$ELSE FPC_DOTTEDUNITS}
|
|
uses MacTypes,CFBase,CFString,CFDictionary,CVReturns,CVImageBuffer,CGLTypes,macgl;
|
|
{$ENDIF FPC_DOTTEDUNITS}
|
|
{$endc} {not MACOSALLINCLUDE}
|
|
|
|
|
|
{$ifc TARGET_OS_MAC}
|
|
|
|
{$ALIGN POWER}
|
|
|
|
{! @header CVOpenGLBuffer.h
|
|
@copyright 2004 Apple Computer, Inc. All rights reserved.
|
|
@availability Mac OS X 10.4 or later
|
|
@discussion A CoreVideo buffer derives from a generic buffer and can be an ImageBuffer or PixelBuffer.
|
|
|
|
}
|
|
|
|
|
|
var kCVOpenGLBufferWidth: CFStringRef; external name '_kCVOpenGLBufferWidth'; (* attribute const *)
|
|
(* AVAILABLE_MAC_OS_X_VERSION_10_4_AND_LATER *)
|
|
var kCVOpenGLBufferHeight: CFStringRef; external name '_kCVOpenGLBufferHeight'; (* attribute const *)
|
|
(* AVAILABLE_MAC_OS_X_VERSION_10_4_AND_LATER *)
|
|
var kCVOpenGLBufferTarget: CFStringRef; external name '_kCVOpenGLBufferTarget'; (* attribute const *)
|
|
(* AVAILABLE_MAC_OS_X_VERSION_10_4_AND_LATER *)
|
|
var kCVOpenGLBufferInternalFormat: CFStringRef; external name '_kCVOpenGLBufferInternalFormat'; (* attribute const *)
|
|
(* AVAILABLE_MAC_OS_X_VERSION_10_4_AND_LATER *)
|
|
var kCVOpenGLBufferMaximumMipmapLevel: CFStringRef; external name '_kCVOpenGLBufferMaximumMipmapLevel'; (* attribute const *)
|
|
(* AVAILABLE_MAC_OS_X_VERSION_10_4_AND_LATER *)
|
|
|
|
type
|
|
CVOpenGLBufferRef = CVImageBufferRef;
|
|
|
|
function CVOpenGLBufferGetTypeID: CFTypeID; external name '_CVOpenGLBufferGetTypeID';
|
|
(* AVAILABLE_MAC_OS_X_VERSION_10_4_AND_LATER *)
|
|
|
|
{!
|
|
@function CVOpenGLBufferRetain
|
|
@abstract Retains a CVOpenGLBuffer object
|
|
@discussion Equivalent to CFRetain, but NULL safe
|
|
@param buffer A CVOpenGLBuffer object that you want to retain.
|
|
@result A CVOpenGLBuffer object that is the same as the passed in buffer.
|
|
}
|
|
function CVOpenGLBufferRetain( buffer: CVOpenGLBufferRef ): CVOpenGLBufferRef; external name '_CVOpenGLBufferRetain';
|
|
(* AVAILABLE_MAC_OS_X_VERSION_10_4_AND_LATER *)
|
|
|
|
{!
|
|
@function CVOpenGLBufferRelease
|
|
@abstract Releases a CVOpenGLBuffer object
|
|
@discussion Equivalent to CFRelease, but NULL safe
|
|
@param buffer A CVOpenGLBuffer object that you want to release.
|
|
}
|
|
procedure CVOpenGLBufferRelease( buffer: CVOpenGLBufferRef ); external name '_CVOpenGLBufferRelease';
|
|
(* AVAILABLE_MAC_OS_X_VERSION_10_4_AND_LATER *)
|
|
|
|
{!
|
|
@function CVOpenGLBufferCreate
|
|
@abstract Create a new CVOpenGLBuffer that may be used for OpenGL rendering purposes
|
|
@param width The width of the buffer in pixels
|
|
@param height The height of the buffer in pixels
|
|
@param attributes A CFDictionaryRef containing other desired attributes of the buffer (texture target, internal format, max mipmap level, etc.).
|
|
May be NULL. Defaults are GL_TEXTURE_RECTANGLE_EXT, GL_RGBA, and 0 for kCVOpenGLBufferTarget, kCVOpenGLBufferInternalFormat and kCVOpenGLBufferMaximumMipmapLevel,
|
|
respectively.
|
|
@param bufferOut The newly created buffer will be placed here.
|
|
@result kCVReturnSuccess if the attachment succeeded
|
|
}
|
|
function CVOpenGLBufferCreate( allocator: CFAllocatorRef; width: size_t; height: size_t; attributes: CFDictionaryRef; var bufferOut: CVOpenGLBufferRef ): CVReturn; external name '_CVOpenGLBufferCreate';
|
|
(* AVAILABLE_MAC_OS_X_VERSION_10_4_AND_LATER *)
|
|
|
|
{!
|
|
@function CVOpenGLBufferGetAttributes
|
|
@param openGLBuffer Target OpenGL Buffer.
|
|
@result CVOpenGLBuffer attributes dictionary, NULL if not set.
|
|
}
|
|
function CVOpenGLBufferGetAttributes( openGLBuffer: CVOpenGLBufferRef ): CFDictionaryRef; external name '_CVOpenGLBufferGetAttributes';
|
|
(* AVAILABLE_MAC_OS_X_VERSION_10_4_AND_LATER *)
|
|
|
|
{!
|
|
@function CVOpenGLBufferAttach
|
|
@param openGLBuffer The buffer you wish to attach a GL context to
|
|
@param cglContext The CGLContextObj you wish to attach
|
|
@param face The target GL face enum (0 for non cube maps)
|
|
@param level The mipmap level index you wish to attach to
|
|
@param screen The virtual screen number you want to use
|
|
@result kCVReturnSuccess if the attachment succeeded
|
|
}
|
|
function CVOpenGLBufferAttach( openGLBuffer: CVOpenGLBufferRef; cglContext: CGLContextObj; face: GLenum; level: GLint; screen: GLint ): CVReturn; external name '_CVOpenGLBufferAttach';
|
|
(* AVAILABLE_MAC_OS_X_VERSION_10_4_AND_LATER *)
|
|
|
|
{$endc} // TARGET_OS_MAC
|
|
{$ifc not defined MACOSALLINCLUDE or not MACOSALLINCLUDE}
|
|
|
|
end.
|
|
{$endc} {not MACOSALLINCLUDE}
|