(*
* Copyright (C) 2001-2003 Michael Niedermayer <michaelni@gmx.at>
*
* This file is part of FFmpeg.
*
* FFmpeg is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation; either
* version 2.1 of the License, or (at your option) any later version.
*
* FFmpeg is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with FFmpeg; if not, write to the Free Software
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
*)
(*
* @file swscale.h
* @brief
* external api for the swscale stuff
*)
(*
* revision 26183, Thu Mar 6 11:32:25 2008 UTC
*)
unit swscale;
{$IFDEF FPC}
{$MODE DELPHI }
{$PACKENUM 4} (* use 4-byte enums *)
{$PACKRECORDS C} (* C/C++-compatible record packing *)
{$ELSE}
{$MINENUMSIZE 4} (* use 4-byte enums *)
{$ENDIF}
interface
uses
avutil,
UConfig;
const
(* Max. supported version by this header *)
LIBSWSCALE_MAX_VERSION_MAJOR = 0;
LIBSWSCALE_MAX_VERSION_MINOR = 5;
LIBSWSCALE_MAX_VERSION_RELEASE = 1;
LIBSWSCALE_MAX_VERSION = (LIBSWSCALE_MAX_VERSION_MAJOR * VERSION_MAJOR) +
(LIBSWSCALE_MAX_VERSION_MINOR * VERSION_MINOR) +
(LIBSWSCALE_MAX_VERSION_RELEASE * VERSION_RELEASE);
(* Check if linked versions are supported *)
{$IF (LIBSWSCALE_VERSION > LIBSWSCALE_MAX_VERSION)}
{$MESSAGE Warn 'Linked version of libswscale may be unsupported!'}
{$IFEND}
type
TQuadIntArray = array[0..3] of integer;
PQuadIntArray = ^TQuadIntArray;
TIntArray = array[0..0] of integer;
PIntArray = ^TIntArray;
TPByteArray = array[0..0] of Pbyte;
PPByteArray = ^TPByteArray;
const
LIBSWSCALE_VERSION_INT = ((0 shl 16)+(5 shl 8))+0;
LIBSWSCALE_VERSION = '0.5.0';
LIBSWSCALE_BUILD = LIBSWSCALE_VERSION_INT;
LIBSWSCALE_IDENT = 'SwS'+LIBSWSCALE_VERSION;
{* values for the flags, the stuff on the command line is different *}
SWS_FAST_BILINEAR = 1;
SWS_BILINEAR = 2;
SWS_BICUBIC = 4;
SWS_X = 8;
SWS_POINT = $10;
SWS_AREA = $20;
SWS_BICUBLIN = $40;
SWS_GAUSS = $80;
SWS_SINC = $100;
SWS_LANCZOS = $200;
SWS_SPLINE = $400;
SWS_SRC_V_CHR_DROP_MASK = $30000;
SWS_SRC_V_CHR_DROP_SHIFT = 16;
SWS_PARAM_DEFAULT = 123456;
SWS_PRINT_INFO = $1000;
//the following 3 flags are not completely implemented
//internal chrominace subsampling info
SWS_FULL_CHR_H_INT = $2000;
//input subsampling info
SWS_FULL_CHR_H_INP = $4000;
SWS_DIRECT_BGR = $8000;
SWS_ACCURATE_RND = $40000;
SWS_CPU_CAPS_MMX = $80000000;
SWS_CPU_CAPS_MMX2 = $20000000;
SWS_CPU_CAPS_3DNOW = $40000000;
SWS_CPU_CAPS_ALTIVEC = $10000000;
SWS_CPU_CAPS_BFIN = $01000000;
SWS_MAX_REDUCE_CUTOFF = 0.002;
SWS_CS_ITU709 = 1;
SWS_CS_FCC = 4;
SWS_CS_ITU601 = 5;
SWS_CS_ITU624 = 5;
SWS_CS_SMPTE170M = 5;
SWS_CS_SMPTE240M = 7;
SWS_CS_DEFAULT = 5;
type
// when used for filters they must have an odd number of elements
// coeffs cannot be shared between vectors
PSwsVector = ^TSwsVector;
TSwsVector = record
coeff: Pdouble;
length: integer;
end;
// vectors can be shared
PSwsFilter = ^TSwsFilter;
TSwsFilter = record
lumH: PSwsVector;
lumV: PSwsVector;
chrH: PSwsVector;
chrV: PSwsVector;
end;
PSwsContext = ^TSwsContext;
TSwsContext = record
av_class: Pointer;
swScale: Pointer;
srxW,srcH, dstH: integer;
chrSrcW, chrSrcH, chrDstW, chrDstH: integer;
lumXInc, chrXInc, lumYInc, chrYInc: integer;
dstFormat, srcFormat, origDstFormat, origSrcFormat: integer;
chrSrcHSubSample, chrSrcVSubSample, chrIntHSubSample, chrIntVSubSample: integer;
chrDstHSubSample, chrDstVSubSample: integer;
vChrDrop, sliceDir: integer;
param: array[0..1] of double;
{internal structure}
end;
procedure sws_freeContext(swsContext: PSwsContext);
cdecl; external sw__scale;
function sws_getContext(srcW: integer; srcH: integer; srcFormat: integer; dstW: integer; dstH: integer;dstFormat: integer; flags: integer;
srcFilter: PSwsFilter; dstFilter: PSwsFilter; param: Pdouble): PSwsContext;
cdecl; external sw__scale;
function sws_scale(context: PSwsContext; src: PPByteArray; srcStride: PIntArray; srcSliceY: integer; srcSliceH: integer;
dst: PPByteArray; dstStride: PIntArray): integer;
cdecl; external sw__scale;
function sws_scale_ordered(context: PSwsContext; src: PPByteArray; srcStride: PIntArray; srcSliceY: integer;
srcSliceH: integer; dst: PPByteArray; dstStride: PIntArray): integer;
cdecl; external sw__scale; deprecated;
function sws_setColorspaceDetails(c: PSwsContext; inv_table: PQuadIntArray; srcRange: integer; table: PQuadIntArray; dstRange: integer;
brightness: integer; contrast: integer; saturation: integer): integer;
cdecl; external sw__scale;
function sws_getColorspaceDetails(c: PSwsContext; var inv_table: PQuadIntArray; var srcRange: integer; var table: PQuadIntArray; var dstRange: integer;
var brightness: integer; var contrast: integer; var saturation: integer): integer;
cdecl; external sw__scale;
function sws_getGaussianVec(variance: double; quality: double): PSwsVector;
cdecl; external sw__scale;
function sws_getConstVec(c: double; length: integer): PSwsVector;
cdecl; external sw__scale;
function sws_getIdentityVec: PSwsVector;
cdecl; external sw__scale;
procedure sws_scaleVec(a: PSwsVector; scalar: double);
cdecl; external sw__scale;
procedure sws_normalizeVec(a: PSwsVector; height: double);
cdecl; external sw__scale;
procedure sws_convVec(a: PSwsVector; b: PSwsVector);
cdecl; external sw__scale;
procedure sws_addVec(a: PSwsVector; b: PSwsVector);
cdecl; external sw__scale;
procedure sws_subVec(a: PSwsVector; b: PSwsVector);
cdecl; external sw__scale;
procedure sws_shiftVec(a: PSwsVector; shift: integer);
cdecl; external sw__scale;
function sws_cloneVec(a: PSwsVector): PSwsVector;
cdecl; external sw__scale;
procedure sws_printVec(a: PSwsVector);
cdecl; external sw__scale;
procedure sws_freeVec(a: PSwsVector);
cdecl; external sw__scale;
function sws_getDefaultFilter(lumaGBlur: single; chromaGBlur: single; lumaSarpen: single; chromaSharpen: single; chromaHShift: single;
chromaVShift: single; verbose: integer): PSwsFilter;
cdecl; external sw__scale;
procedure sws_freeFilter(filter: PSwsFilter);
cdecl; external sw__scale;
function sws_getCachedContext(context: PSwsContext;
srcW: integer; srcH: integer; srcFormat: integer;
dstW: integer; dstH: integer; dstFormat: integer; flags: integer;
srcFilter: PSwsFilter; dstFilter: PSwsFilter; param: Pdouble): PSwsContext;
cdecl; external sw__scale;
implementation
end.
