fpcsrc/packages/libogcfpc/src/ogc/video.inc


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

{$IFDEF OGC_INTERFACE}
type
  VIRetraceCallback = procedure(retraceCnt: cuint32); cdecl;
  VIPositionCallback = procedure(posX, posY: cuint32); cdecl;


function VIDEO_GetNextFramebuffer: pointer; cdecl; external;

function VIDEO_GetCurrentFramebuffer: pointer; cdecl; external;


procedure VIDEO_Init; cdecl; external;

procedure VIDEO_Flush; cdecl; external;

procedure VIDEO_SetBlack(black: cbool); cdecl; external;

function VIDEO_GetNextField: cuint32; cdecl; external;

function VIDEO_GetCurrentLine: cuint32; cdecl; external;

function VIDEO_GetCurrentTvMode: cuint32; cdecl; external;


procedure VIDEO_Configure(rmode: PGXRModeObj); cdecl; external;


function VIDEO_GetFrameBufferSize(rmode: PGXRModeObj): cuint32; cdecl; external;


procedure VIDEO_ClearFrameBuffer(rmode: PGXRModeObj; fb: pointer;
  color: cuint32); cdecl; external;


procedure VIDEO_WaitVSync; cdecl; external;


procedure VIDEO_SetNextFramebuffer(fb: pointer); cdecl; external;


procedure VIDEO_SetNextRightFramebuffer(fb: pointer); cdecl; external;


function VIDEO_SetPreRetraceCallback(callback: VIRetraceCallback)
  : VIRetraceCallback; cdecl; external;


function VIDEO_SetPostRetraceCallback(callback: VIRetraceCallback)
  : VIRetraceCallback; cdecl; external;


function VIDEO_HaveComponentCable: cuint32; cdecl; external;


function VIDEO_GetPreferredMode(mode: PGXRModeObj): PGXRModeObj; cdecl; external;
{$ENDIF OGC_INTERFACE}