|
@@ -27,7 +27,7 @@ const
|
|
|
VI_MAX_HEIGHT_NTSC = 480;
|
|
|
|
|
|
VI_MAX_WIDTH_PAL = 720;
|
|
|
- VI_MAX_HEIGHT_PAL = 574;
|
|
|
+ VI_MAX_HEIGHT_PAL = 576;
|
|
|
|
|
|
VI_MAX_WIDTH_MPAL = 720;
|
|
|
VI_MAX_HEIGHT_MPAL = 480;
|
|
@@ -43,18 +43,18 @@ function VI_TVMODE(fmt, mode: cint): cint; inline;
|
|
|
{$define VI_TVMODE_NTSC_INT := VI_TVMODE(VI_NTSC, VI_INTERLACE)}
|
|
|
{$define VI_TVMODE_NTSC_DS := VI_TVMODE(VI_NTSC, VI_NON_INTERLACE)}
|
|
|
{$define VI_TVMODE_NTSC_PROG := VI_TVMODE(VI_NTSC, VI_PROGRESSIVE)}
|
|
|
-{$define VI_TVMODE_NTSC_PROG_DS := VI_TVMODE(VI_NTSC, (VI_PROGRESSIVE or VI_NON_INTERLACE))}
|
|
|
|
|
|
{$define VI_TVMODE_PAL_INT := VI_TVMODE(VI_PAL, VI_INTERLACE)}
|
|
|
{$define VI_TVMODE_PAL_DS := VI_TVMODE(VI_PAL, VI_NON_INTERLACE)}
|
|
|
+{$define VI_TVMODE_PAL_PROG := VI_TVMODE(VI_PAL, VI_PROGRESSIVE)}
|
|
|
|
|
|
{$define VI_TVMODE_EURGB60_INT := VI_TVMODE(VI_EURGB60, VI_INTERLACE)}
|
|
|
{$define VI_TVMODE_EURGB60_DS := VI_TVMODE(VI_EURGB60, VI_NON_INTERLACE)}
|
|
|
{$define VI_TVMODE_EURGB60_PROG := VI_TVMODE(VI_EURGB60, VI_PROGRESSIVE)}
|
|
|
-{$define VI_TVMODE_EURGB60_PROG_DS := VI_TVMODE(VI_EURGB60, (VI_PROGRESSIVE or VI_NON_INTERLACE))}
|
|
|
|
|
|
{$define VI_TVMODE_MPAL_INT := VI_TVMODE(VI_MPAL, VI_INTERLACE)}
|
|
|
{$define VI_TVMODE_MPAL_DS := VI_TVMODE(VI_MPAL, VI_NON_INTERLACE)}
|
|
|
+{$define VI_TVMODE_MPAL_PROG := VI_TVMODE(VI_MPAL, VI_PROGRESSIVE)}
|
|
|
|
|
|
{$define VI_TVMODE_DEBUG_INT := VI_TVMODE(VI_DEBUG, VI_INTERLACE)}
|
|
|
|
|
@@ -73,10 +73,11 @@ var
|
|
|
TVNtsc480Prog: GXRModeObj; cvar; external;
|
|
|
TVNtsc480ProgSoft: GXRModeObj; cvar; external;
|
|
|
TVNtsc480ProgAa: GXRModeObj; cvar; external;
|
|
|
- TVMpal480IntDf: GXRModeObj; cvar; external;
|
|
|
- TVMpal480IntAa: GXRModeObj; cvar; external;
|
|
|
TVMpal240Ds: GXRModeObj; cvar; external;
|
|
|
TVMpal240DsAa: GXRModeObj; cvar; external;
|
|
|
+ TVMpal480IntDf: GXRModeObj; cvar; external;
|
|
|
+ TVMpal480IntAa: GXRModeObj; cvar; external;
|
|
|
+ TVMpal480Prog: GXRModeObj; cvar; external;
|
|
|
TVPal264Ds: GXRModeObj; cvar; external;
|
|
|
TVPal264DsAa: GXRModeObj; cvar; external;
|
|
|
TVPal264Int: GXRModeObj; cvar; external;
|
|
@@ -84,7 +85,8 @@ var
|
|
|
TVPal524IntAa: GXRModeObj; cvar; external;
|
|
|
TVPal528Int: GXRModeObj; cvar; external;
|
|
|
TVPal528IntDf: GXRModeObj; cvar; external;
|
|
|
- TVPal574IntDfScale: GXRModeObj; cvar; external;
|
|
|
+ TVPal576IntDfScale: GXRModeObj; cvar; external;
|
|
|
+ TVPal576ProgScale: GXRModeObj; cvar; external;
|
|
|
TVEurgb60Hz240Ds: GXRModeObj; cvar; external;
|
|
|
TVEurgb60Hz240DsAa: GXRModeObj; cvar; external;
|
|
|
TVEurgb60Hz240Int: GXRModeObj; cvar; external;
|