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
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
|
program AllInOne;
{$L build/RotBackgrounds.o}
{$L build/TextBackgrounds.o}
{$L build/Multilayer.o}
{$mode objfpc}
uses
ctypes, nds9, basic, advanced, handmade, scrolling;
type
Demo = record
go: fp;
name: pchar;
description: pchar;
end;
PDemo = ^Demo;
Category = record
name: pchar;
demos: PDemo;
count: integer;
end;
PCategory = ^Category;
var
basicExamples: array [0..12] of Demo = (
(go: @HandMadeTiles; name: 'Handmade Text 256x256'; description: 'Displays a handmade 256 x 256 Text background';),
(go: @Text256x256; name: 'Text 256x256'; description: 'Displays a 256 x 256 Text background';),
(go: @Text256x512; name: 'Text 256x512'; description: 'Displays a 256 x 512 Text background';),
(go: @Text512x256; name: 'Text 512x256'; description: 'Displays a 512 x 256 Text background';),
(go: @Text512x512; name: 'Text 512x512'; description: 'Displays a 512 x 512 Text background';),
(go: @ExRot128x128; name: 'Extended Rotation 128x128'; description: 'Displays a 128 x 128 Extended Rotation background';),
(go: @ExRot256x256; name: 'Extended Rotation 256x256'; description: 'Displays a 256 x 256 Extended Rotation background';),
(go: @ExRot512x512; name: 'Extended Rotation 512x512'; description: 'Displays a 512 x 512 Extended Rotation background';),
(go: @ExRot1024x1024; name: 'Extended Rotation 1024x1024'; description: 'Displays a 1024 x 1024 Extended Rotation background';),
(go: @Rot128x128; name: 'Rotation 128x128'; description: 'Displays a 256 x 256 Rotation background';),
(go: @Rot256x256; name: 'Rotation 256x256'; description: 'Displays a 256 x 256 Rotation background';),
(go: @Rot512x512; name: 'Rotation 512x512'; description: 'Displays a 512 x 512 Rotation background';),
(go: @Rot1024x1024; name: 'Rotation 1024x1024'; description: 'Displays a 1024 x 1024 Rotation background';)
);
bitmapExamples: array [0..9] of Demo = (
(go: @Bmp8_128x128; name: '256 color 128x128'; description: 'Displays a 128 x 128 Bitmap background';),
(go: @Bmp8_256x256; name: '256 color 256x256'; description: 'Displays a 256 x 256 Bitmap background';),
(go: @Bmp8_512x256; name: '256 color 512x256'; description: 'Displays a 512 x 256 Bitmap background';),
(go: @Bmp8_512x512; name: '256 color 512x512'; description: 'Displays a 512 x 512 Bitmap background';),
(go: @Bmp8_512x1024; name: '256 color 512x1024'; description: 'Displays a 512 x 1024 Bitmap background';),
(go: @Bmp8_1024x512; name: '256 color 1024x512'; description: 'Displays a 1024 x 512 Bitmap background';),
(go: @Bmp16_128x128; name: '16-bit color 128x128'; description: 'Displays a 128 x 128 Bitmap background';),
(go: @Bmp16_256x256; name: '16-bit color 256x256'; description: 'Displays a 256 x 256 Bitmap background';),
(go: @Bmp16_512x256; name: '16-bit color 512x256'; description: 'Displays a 512 x 256 Bitmap background';),
(go: @Bmp16_512x512; name: '16-bit color 512x512'; description: 'Displays a 512 x 512 Bitmap background';)
);
scrollingExamples: array [0..6] of Demo = (
(go: @scrollText; name: 'Text Backgrounds'; description: 'Hardware Scrolling of a Text background';),
(go: @scrollRotation; name: 'Rot Backgrounds'; description: 'Hardware Scrolling of a Rotation background';),
(go: @scrollVertical; name: 'Vertical Scrolling'; description: 'Scrolling a large map vertically';),
(go: @scrollHorizontalText; name: 'Horizontal Scrolling (Text)'; description: 'Scrolling a large map horzontally on a text background';),
(go: @scrollHorizontalExRotation; name: 'Horizontal Scrolling (ExRot)'; description: 'Scrolling a large map horzontally on an extended rotation background';),
(go: @scroll4wayText; name: '4 Way Scrolling (Text)'; description: 'Scrolling a large map 4 ways on a text background';),
(go: @scroll4wayExRotation; name: '4 Way Scrolling (Rotation)'; description: 'Scrolling a large map 4 ways on a ex rotation background';)
);
advancedExamples: array [0..4] of Demo = (
(go: @advMosaic; name: 'Mosaic'; description: 'A demo of the Mosaic scaling';),
(go: @advRotating; name: 'Rotation'; description: '';),
(go: @advScaling; name: 'Scaling'; description: '';),
(go: @advExtendedPalette; name: 'Extended Palette'; description: '';),
(go: @advMultipleLayers; name: 'Multiple Text Layers'; description: '';)
);
categories: array [0..3] of Category = (
(name: 'Basic'; demos: @basicExamples; count: sizeof(basicExamples) div sizeof(Demo);),
(name: 'Bitmap'; demos: @bitmapExamples; count: sizeof(bitmapExamples) div sizeof(Demo);),
(name: 'Scrolling'; demos: @scrollingExamples; count: sizeof(scrollingExamples) div sizeof(Demo);),
(name: 'Advanced'; demos: @advancedExamples; count: sizeof(advancedExamples) div sizeof(Demo);)
);
var
keys: integer;
selectedCategory: integer = 0;
selectedDemo: integer = 0;
selected: boolean = false;
catCount: integer;
demoCount: integer = 0;
ci: integer;
di: integer;
begin
while true do
begin
catCount := sizeof(categories) div sizeof(Category);
demoCount := 0;
videoSetModeSub(MODE_0_2D);
consoleDemoInit();
while not selected do
begin
scanKeys();
keys := keysDown();
if (keys and KEY_UP) <> 0 then dec(selectedCategory);
if (keys and KEY_DOWN) <> 0 then inc(selectedCategory);
if (keys and KEY_A) <> 0 then selected := true;
if (selectedCategory < 0) then selectedCategory := catCount - 1;
if (selectedCategory >= catCount) then selectedCategory := 0;
swiWaitForVBlank();
consoleClear();
for ci := 0 to catCount - 1 do
begin
if ci = selectedCategory then
iprintf('%c%d: %s'#10, '*', ci + 1, categories[ci].name)
else
iprintf('%c%d: %s'#10, ' ', ci + 1, categories[ci].name);
end;
end;
selected := false;
demoCount := categories[selectedCategory].count;
while not (selected) do
begin
scanKeys();
keys := keysDown();
if (keys and KEY_UP) <> 0 then dec(selectedDemo);
if (keys and KEY_DOWN) <> 0 then inc(selectedDemo);
if (keys and KEY_A) <> 0 then selected := true;
if (keys and KEY_B) <> 0 then break;
if (selectedDemo < 0) then selectedDemo := demoCount - 1;
if (selectedDemo >= demoCount) then selectedDemo := 0;
swiWaitForVBlank();
consoleClear();
for di := 0 to demoCount - 1 do
begin
if di = selectedDemo then
iprintf('%c%d: %s'#10, '*', di + 1, categories[selectedCategory].demos[di].name)
else
iprintf('%c%d: %s'#10, ' ', di + 1, categories[selectedCategory].demos[di].name);
end;
end;
if (selected) then
begin
consoleClear();
iprintf('Use arrow keys to scroll'#10'Press ''B'' to exit');
categories[selectedCategory].demos[selectedDemo].go();
end;
end;
end.
|
