0
|
1 #include "dmengine.h"
|
|
2 #include "dmtext.h"
|
|
3 #include "dmfft.h"
|
|
4 #include "dmvecmat.h"
|
|
5 #include <math.h>
|
|
6
|
|
7 static int demoInit(DMEngineData *engine);
|
|
8 static void demoShutdown(DMEngineData *engine);
|
|
9 static int demoRender(DMEngineData *engine);
|
|
10
|
|
11
|
|
12 int demoPreInit(DMEngineData *engine)
|
|
13 {
|
|
14 dmInitProg("bussi",
|
2
|
15 "Bussi by AnCiat ProDucTionz",
|
0
|
16 "0", "ENGINE INITTIALISSSIZING!!!!!", NULL);
|
|
17
|
|
18 engine->optPackFilename = "bussi.dat";
|
|
19 engine->optDataPath = NULL;
|
|
20 engine->optResFlags = DRF_USE_PACK | DRF_PRELOAD_RES | DRF_USE_STDIO;
|
|
21
|
|
22 engine->optAudioSetup = DM_ASETUP_JSS;
|
|
23
|
|
24 engine->optVidSetup = DM_VSETUP_ASPECT;
|
|
25 engine->optVidWidth = 640;
|
|
26 engine->optVidHeight = 480;
|
|
27 engine->optVidDepth = 32;
|
|
28 engine->optVFlags = SDL_SWSURFACE;
|
|
29
|
|
30 engine->demoInit = demoInit;
|
|
31 engine->demoRender = demoRender;
|
|
32 engine->demoShutdown = demoShutdown;
|
|
33
|
|
34 return DMERR_OK;
|
|
35 }
|
|
36
|
|
37
|
|
38 #define FFT_SIZE 128
|
|
39 DMFFTContext fft;
|
|
40
|
|
41
|
|
42 static int demoInit(DMEngineData *engine)
|
|
43 {
|
|
44 int i;
|
|
45 JSSModule *mod = NULL;
|
|
46
|
|
47 dmInitializeFFT(&fft, FFT_SIZE);
|
|
48
|
|
49 engineGetResModule(engine, mod, "pas2.xm");
|
|
50
|
|
51 if ((i = jssConvertModuleForPlaying(mod)) != DMERR_OK)
|
|
52 {
|
|
53 dmErrorMsg("Could not convert module for playing, %d: %s\n",
|
|
54 i, dmErrorStr(i));
|
|
55 return DMERR_INIT_FAIL;
|
|
56 }
|
|
57
|
|
58 jvmSetCallback(engine->jssDev, jmpExec, engine->jssPlr);
|
|
59 jmpSetModule(engine->jssPlr, mod);
|
|
60 jmpPlayOrder(engine->jssPlr, 0);
|
|
61 jvmSetGlobalVol(engine->jssDev, 55);
|
|
62
|
|
63 // Jne
|
|
64 srand(15);
|
|
65
|
|
66 return DMERR_OK;
|
|
67 }
|
|
68
|
|
69
|
|
70 static void demoShutdown(DMEngineData *engine)
|
|
71 {
|
|
72 (void) engine;
|
|
73 dmEndFFT(&fft);
|
|
74 }
|
|
75
|
|
76
|
|
77 static inline float dmCX(DMEngineData *engine, const float x)
|
|
78 {
|
|
79 return (x * engine->screen->w);
|
|
80 }
|
|
81
|
|
82
|
|
83 static inline float dmCY(DMEngineData *engine, const float y)
|
|
84 {
|
|
85 return (y * engine->screen->h);
|
|
86 }
|
|
87
|
|
88
|
|
89 static inline float dmQX(DMEngineData *engine, SDL_Surface *img, const float x)
|
|
90 {
|
|
91 return engine->optVidNative ? (img->w * x) : (img->w * engine->screen->w * x) / 640.0f;
|
|
92 }
|
|
93
|
|
94
|
|
95 static inline float dmQY(DMEngineData *engine, SDL_Surface *img, const float y)
|
|
96 {
|
|
97 return engine->optVidNative ? (img->h * y) : (img->h * engine->screen->h * y) / 480.0f;
|
|
98 }
|
|
99
|
|
100
|
|
101 #define DM_RADIAL_BLUR(YC, XC) \
|
|
102 DMVector p1 = { xc, yc, 0, 0 }, p2 = { cx, cy, 0, 0 }, v; \
|
|
103 dm_vector_sub_r(&v, &p2, &p1); \
|
|
104 dm_vector_scale(&v, scale); \
|
|
105 dm_vector_add(&v, &p1); \
|
|
106 if (v.y YC || v.x XC) continue; \
|
|
107 DMColor *dp = pix + xc, \
|
|
108 *q = ((DMColor *)img->pixels) + ((int)(v.y) * pitch) + (int)v.x; \
|
|
109 dp->r = (q->r + dp->r) / 2; \
|
|
110 dp->g = (q->g + dp->g) / 2; \
|
|
111 dp->b = (q->b + dp->b) / 2;
|
|
112
|
|
113
|
|
114
|
|
115 void dmRadialBlur(SDL_Surface *img, const int cx, const int cy, const DMFloat scale)
|
|
116 {
|
|
117 const int pitch = img->pitch / sizeof(DMColor);
|
|
118 int xc, yc;
|
|
119
|
|
120 #pragma omp parallel private(yc, xc) shared(img)
|
|
121 {
|
|
122 #pragma omp sections nowait
|
|
123 {
|
|
124 #pragma omp section
|
|
125 for (yc = cy; yc >= 0; yc--)
|
|
126 {
|
|
127 DMColor *pix = ((DMColor *)img->pixels) + yc * pitch;
|
|
128 for (xc = cx + 1; xc < img->w; xc++)
|
|
129 {
|
|
130 DM_RADIAL_BLUR(< 0, >= img->w)
|
|
131 }
|
|
132 }
|
|
133
|
|
134 #pragma omp section
|
|
135 for (yc = cy; yc >= 0; yc--)
|
|
136 {
|
|
137 DMColor *pix = ((DMColor *)img->pixels) + yc * pitch;
|
|
138 for (xc = cx; xc > 0; xc--)
|
|
139 {
|
|
140 DM_RADIAL_BLUR(< 0, < 0)
|
|
141 }
|
|
142 }
|
|
143
|
|
144 #pragma omp section
|
|
145 for (yc = cy + 1; yc < img->h; yc++)
|
|
146 {
|
|
147 DMColor *pix = ((DMColor *)img->pixels) + yc * pitch;
|
|
148 for (xc = cx; xc > 0; xc--)
|
|
149 {
|
|
150 DM_RADIAL_BLUR(>= img->h, < 0)
|
|
151 }
|
|
152 }
|
|
153
|
|
154 #pragma omp section
|
|
155 for (yc = cy + 1; yc < img->h; yc++)
|
|
156 {
|
|
157 DMColor *pix = ((DMColor *)img->pixels) + yc * pitch;
|
|
158 for (xc = cx + 1; xc < img->w; xc++)
|
|
159 {
|
|
160 DM_RADIAL_BLUR(>= img->h, >= img->w)
|
|
161 }
|
|
162 }
|
|
163 }
|
|
164 }
|
|
165 }
|
|
166
|
|
167
|
|
168
|
|
169 static int demoRender(DMEngineData *engine)
|
|
170 {
|
|
171 float t = engineGetTimeDT(engine);
|
3
|
172
|
0
|
173
|
3
|
174 //
|
0
|
175 // Do FFT
|
3
|
176 //
|
0
|
177 DMFFTType fftPow = 0;
|
|
178 BOOL fftOK = FALSE;
|
|
179 static DMFFTType fftAmp[FFT_SIZE / 2];
|
|
180 static DMFFTType fftData[FFT_SIZE];
|
|
181
|
|
182 dmMutexLock(engine->audioStreamMutex);
|
|
183 if (engine->audioStreamBuf != 0 && engine->audioStreamLen > FFT_SIZE)
|
|
184 {
|
|
185 int i;
|
|
186 Sint16 *buf = (Sint16 *) engine->audioStreamBuf;
|
|
187 for (i = 0; i < FFT_SIZE; i++)
|
|
188 {
|
|
189 fftData[i] = *buf;
|
|
190 buf += 2;
|
|
191 }
|
|
192 fftOK = TRUE;
|
|
193 }
|
|
194 dmMutexUnlock(engine->audioStreamMutex);
|
|
195
|
|
196 if (fftOK)
|
|
197 {
|
|
198 dmRealFFT(&fft, fftData);
|
|
199 dmConvertFFTtoPowerAndSum(&fft, fftData, fftAmp, 1.0, &fftPow, 0.00004f);
|
|
200 }
|
|
201
|
3
|
202
|
|
203 //
|
|
204 // Taustaskrolli
|
|
205 //
|
0
|
206 {
|
3
|
207 static SDL_Surface *tausta = NULL,
|
|
208 *aurinko = NULL,
|
|
209 *puu1 = NULL,
|
|
210 *puu2 = NULL,
|
|
211 *bussi = NULL,
|
|
212 *rengas = NULL;
|
|
213
|
|
214 static DMScaledBlitFunc cblit = NULL, ablit = NULL;
|
|
215 static BOOL nollattu = FALSE;
|
|
216 static DMLerpContext fadeLerp, fadeLerp2, fadeLerp3;
|
|
217
|
|
218 if (!nollattu)
|
|
219 {
|
|
220 dmLerpInit(&fadeLerp, 0, 255, 3000);
|
|
221 dmLerpInit(&fadeLerp2, 0, 255, 4000);
|
|
222 dmLerpInit(&fadeLerp3, 0, 1.2, 3000);
|
|
223 engineGetResImage(engine, tausta, "tausta_pv.png");
|
|
224 engineGetResImage(engine, aurinko, "aurinko.png");
|
|
225 engineGetResImage(engine, puu1, "puu_pv_1.png");
|
|
226 engineGetResImage(engine, puu2, "puu_pv_2.png");
|
|
227 engineGetResImage(engine, bussi, "auto.png");
|
|
228 engineGetResImage(engine, rengas, "rengas.png");
|
|
229 cblit = dmGetScaledBlitFunc(tausta->format, engine->screen->format, DMD_NONE);
|
|
230 ablit = dmGetScaledBlitFunc(bussi->format, engine->screen->format, DMD_TRANSPARENT);
|
|
231 }
|
|
232
|
|
233 int x1 = - ((int)dmQX(engine, tausta, t * 0.2) % tausta->w),
|
|
234 x2 = x1 + tausta->w;
|
|
235
|
|
236 int fadeVal;
|
|
237 if (t < 3 || t > 64)
|
|
238 {
|
|
239 if (t < 3)
|
|
240 fadeVal = dmLerpSCurveClamp(&fadeLerp, engineGetTime(engine, 0));
|
|
241 else
|
|
242 fadeVal = dmLerpSCurveClamp(&fadeLerp2, engineGetTime(engine, 64));
|
|
243
|
|
244 dmClearSurface(engine->screen, dmMapRGB(engine->screen, 0,0,0));
|
|
245 dmScaledBlitSurface32to32TransparentGA(tausta, x1, 0, tausta->w, tausta->h, engine->screen, fadeVal);
|
|
246 dmScaledBlitSurface32to32TransparentGA(tausta, x2, 0, tausta->w, tausta->h, engine->screen, fadeVal);
|
|
247 }
|
|
248 else
|
|
249 {
|
|
250 fadeVal = 255;
|
|
251 cblit(tausta, x1, 0, tausta->w, tausta->h, engine->screen);
|
|
252 cblit(tausta, x2, 0, tausta->w, tausta->h, engine->screen);
|
|
253 }
|
|
254
|
|
255 float qm = sin(t * 0.1 + fftPow * 5) * 15, qm2 = qm*2;
|
|
256 dmScaledBlitSurface32to32TransparentGA(aurinko,
|
|
257 dmCX(engine, 0.8 - dmLerpSCurveClamp(&fadeLerp3, engineGetTime(engine, 0) * 0.01) * 0.3 ) - qm,
|
|
258 dmCY(engine, 0.05) - qm,
|
|
259 aurinko->w + qm2, aurinko->h + qm2,
|
|
260 engine->screen, fadeVal);
|
|
261
|
|
262
|
|
263 // Bussi ajaa sisään
|
|
264 if (t > 4)
|
|
265 {
|
|
266 float
|
|
267 dt = engineGetTime(engine, 4),
|
|
268 ajelu = dmLerpSCurveClamp(&fadeLerp3, dt),
|
|
269 xc = dmCX(engine, -1 + ajelu),
|
|
270 yc = dmCY(engine, 0.35 + sin(t * 10) * 0.005),
|
|
271 yc2 = yc + dmQY(engine, bussi, 0.7) + dmCY(engine, sin(t * 20) * 0.001);
|
|
272
|
|
273 ablit(rengas, xc + dmQX(engine, bussi, 0.07), yc2, dmQX(engine, rengas, 1), dmQY(engine, rengas, 1), engine->screen);
|
|
274 ablit(rengas, xc + dmQX(engine, bussi, 0.80), yc2, dmQX(engine, rengas, 1), dmQY(engine, rengas, 1), engine->screen);
|
|
275 ablit(bussi, xc, yc, dmQX(engine, bussi, 1), dmQY(engine, bussi, 1), engine->screen);
|
|
276 }
|
|
277 }
|
|
278
|
|
279 //
|
|
280 // AP logo
|
|
281 //
|
|
282 if (t > 4 && t < 8)
|
|
283 {
|
|
284 int dt = engineGetTime(engine, 4);
|
0
|
285 static DMLerpContext fadeLerp;
|
3
|
286 static SDL_Surface *logo = NULL;
|
0
|
287 static BOOL nollattu = FALSE;
|
|
288 if (!nollattu)
|
|
289 {
|
3
|
290 dmLerpInit(&fadeLerp, 0, 255, 1000);
|
|
291 engineGetResImage(engine, logo, "ap.png");
|
|
292 nollattu = TRUE;
|
|
293 }
|
|
294
|
|
295 int fadeVal;
|
|
296 if (dt < 1000)
|
|
297 fadeVal = dmLerpSCurveClamp(&fadeLerp, dt);
|
|
298 else
|
|
299 if (dt > 3000)
|
|
300 fadeVal = 255 - dmLerpSCurveClamp(&fadeLerp, dt - 3000);
|
|
301 else
|
|
302 fadeVal = 255;
|
0
|
303
|
3
|
304 dmScaledBlitSurface32to32TransparentGA(logo,
|
|
305 dmQX(engine, logo, 0.2),
|
|
306 dmQY(engine, logo, 0.3),
|
|
307 dmQX(engine, logo, 1),
|
|
308 dmQY(engine, logo, 1),
|
|
309 engine->screen, fadeVal);
|
|
310 }
|
|
311
|
|
312 //
|
|
313 // BUSSI logo
|
|
314 //
|
|
315 if (t > 10 && t < 14)
|
|
316 {
|
|
317 int dt = engineGetTime(engine, 10);
|
|
318 static DMLerpContext fadeLerp;
|
|
319 static SDL_Surface *logo = NULL, *logo2 = NULL;
|
|
320 static BOOL nollattu = FALSE;
|
|
321 if (!nollattu)
|
|
322 {
|
|
323 dmLerpInit(&fadeLerp, 0, 255, 1000);
|
|
324 engineGetResImage(engine, logo, "bussi_logo.png");
|
|
325 engineGetResImage(engine, logo2, "dosa.png");
|
0
|
326 nollattu = TRUE;
|
|
327 }
|
|
328
|
3
|
329 int fadeVal, fadeVal2;
|
|
330 if (dt < 1000)
|
|
331 fadeVal = dmLerpSCurveClamp(&fadeLerp, dt);
|
|
332 else
|
|
333 if (dt > 3000)
|
|
334 fadeVal = 255 - dmLerpSCurveClamp(&fadeLerp, dt - 3000);
|
|
335 else
|
|
336 fadeVal = 255;
|
|
337
|
|
338 if (dt > 1000)
|
|
339 {
|
|
340 if (dt < 2000)
|
|
341 fadeVal2 = dmLerpSCurveClamp(&fadeLerp, dt - 1000);
|
|
342 else
|
|
343 if (dt > 3000)
|
|
344 fadeVal2 = 255 - dmLerpSCurveClamp(&fadeLerp, dt - 3000);
|
|
345 else
|
|
346 fadeVal2 = 255;
|
|
347 }
|
|
348 else
|
|
349 fadeVal2 = 0;
|
0
|
350
|
3
|
351 dmScaledBlitSurface32to32TransparentGA(logo,
|
|
352 dmCX(engine, 0.10),
|
|
353 dmCY(engine, 0.2),
|
|
354 dmQX(engine, logo, 1),
|
|
355 dmQY(engine, logo, 1),
|
|
356 engine->screen, fadeVal);
|
|
357
|
|
358 dmScaledBlitSurface32to32TransparentGA(logo2,
|
|
359 dmCX(engine, 0.6),
|
|
360 dmCY(engine, 0.6),
|
|
361 dmQX(engine, logo2, 1),
|
|
362 dmQY(engine, logo2, 1),
|
|
363 engine->screen, fadeVal2);
|
|
364 }
|
|
365
|
0
|
366
|
3
|
367 {
|
|
368 static DMScaledBlitFunc cblit = NULL;
|
|
369 static SDL_Surface *maski = NULL;
|
|
370 static BOOL nollattu = FALSE;
|
|
371
|
|
372 if (!nollattu)
|
|
373 {
|
|
374 engineGetResImage(engine, maski, "maze.png");
|
|
375 cblit = dmGetScaledBlitFunc(maski->format, engine->screen->format, DMD_TRANSPARENT);
|
|
376 }
|
|
377
|
|
378 cblit(maski,
|
|
379 0, 0,
|
|
380 dmQX(engine, maski, 1),
|
|
381 dmQY(engine, maski, 1),
|
|
382 engine->screen);
|
|
383 }
|
0
|
384
|
|
385 return DMERR_OK;
|
|
386 }
|