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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
PROGRAM BestModeID;
{***********************************************************************
* This is example shows how to use p96BestModeIDTagList()
*
* tabt (Mon Aug 28 14:07:40 1995)
***********************************************************************}
{
Translated to fpc pascal.
1 Mars 2001.
Updated for fpc 1.0.7
08 Jan 2003.
nils.sjoholm@mailbox.swipnet.se
}
uses exec, amigados, agraphics, picasso96api, utility;
Const
template : pchar = 'Width=W/N,Height=H/N,Depth=D/N';
vecarray : Array[0..2] of long = (0,0,0);
fmtstrings : Array [1..(Ord(RGBFB_MaxFormats)-2)] OF pchar = (
'RGBFB_NONE',
'RGBFB_CLUT',
'RGBFB_R8G8B8',
'RGBFB_B8G8R8',
'RGBFB_R5G6B5PC',
'RGBFB_R5G5B5PC',
'RGBFB_A8R8G8B8',
'RGBFB_A8B8G8R8',
'RGBFB_R8G8B8A8',
'RGBFB_B8G8R8A8',
'RGBFB_R5G6B5',
'RGBFB_R5G5B5',
'RGBFB_B5G6R5PC',
'RGBFB_B5G5R5PC');
Var
DisplayID,
width,
height,
depth : longint;
rda : pRDArgs;
Begin
width:=640;
height:=480;
depth:=24;
rda:=ReadArgs (template,Addr(vecarray),Nil);
If rda<>Nil Then Begin
If vecarray[0]<> 0 then width := long(@vecarray[0]);
If vecarray[1]<> 0 then height := long(@vecarray[1]);
If vecarray[2]<> 0 then depth := long(@vecarray[2]);
FreeArgs(rda);
End;
DisplayID:=p96BestModeIDTags([P96BIDTAG_NominalWidth, width,
P96BIDTAG_NominalHeight, height,
P96BIDTAG_Depth, depth,
P96BIDTAG_FormatsForbidden, (RGBFF_R5G5B5 or RGBFF_R5G5B5PC or RGBFF_B5G5R5PC),
TAG_DONE]);;
If DisplayID>0 Then Begin
Writeln ('DisplayID: ', hexstr(DisplayID,8));
If DisplayID<>INVALID_ID Then Begin
Writeln ('Width: ', p96GetModeIDAttr(DisplayID, P96IDA_WIDTH));
Writeln ('Height: ', p96GetModeIDAttr(DisplayID, P96IDA_HEIGHT));
Writeln ('Depth: ', p96GetModeIDAttr(DisplayID, P96IDA_DEPTH));
Writeln ('BytesPerPixel: ', p96GetModeIDAttr(DisplayID, P96IDA_BYTESPERPIXEL));
Writeln ('BitsPerPixel: ', p96GetModeIDAttr(DisplayID, P96IDA_BITSPERPIXEL));
Writeln ('RGBFormat: ', fmtstrings[p96GetModeIDAttr(DisplayID,P96IDA_RGBFORMAT)+1]);
If p96GetModeIDAttr(DisplayID, P96IDA_ISP96)<>0 Then
Writeln ('Is P96: yes')
Else
Writeln ('Is P96: no');
End;
End Else
Writeln ('DisplayID is 0.');
End.
|
