This repository has been archived by the owner on Feb 11, 2021. It is now read-only.
/
SDL_xbios.c
980 lines (837 loc) · 26.9 KB
1
2
/*
SDL - Simple DirectMedia Layer
3
Copyright (C) 1997-2006 Sam Lantinga
4
5
This library is free software; you can redistribute it and/or
6
modify it under the terms of the GNU Lesser General Public
7
License as published by the Free Software Foundation; either
8
version 2.1 of the License, or (at your option) any later version.
9
10
11
12
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13
Lesser General Public License for more details.
14
15
16
17
You should have received a copy of the GNU Lesser General Public
License along with this library; if not, write to the Free Software
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
18
19
20
21
Sam Lantinga
slouken@libsdl.org
*/
22
#include "SDL_config.h"
23
24
25
26
27
28
29
30
31
32
33
/*
* Xbios SDL video driver
*
* Patrice Mandin
*/
#include <sys/stat.h>
#include <unistd.h>
/* Mint includes */
34
#include <mint/cookie.h>
35
36
37
38
39
#include <mint/osbind.h>
#include <mint/falcon.h>
#include "SDL_video.h"
#include "SDL_mouse.h"
40
41
42
#include "../SDL_sysvideo.h"
#include "../SDL_pixels_c.h"
#include "../../events/SDL_events_c.h"
43
44
45
46
47
#include "../ataricommon/SDL_ataric2p_s.h"
#include "../ataricommon/SDL_atarievents_c.h"
#include "../ataricommon/SDL_atarimxalloc_c.h"
#include "../ataricommon/SDL_atarigl_c.h"
48
#include "SDL_xbios.h"
49
#include "SDL_xbios_blowup.h"
50
#include "SDL_xbios_centscreen.h"
51
#include "SDL_xbios_sb3.h"
52
53
/* Debug print info */
54
#if 0
55
56
57
58
#define DEBUG_PRINT(what) \
{ \
printf what; \
}
59
#define DEBUG_VIDEO_XBIOS 1
60
61
62
63
#else
#define DEBUG_PRINT(what)
#undef DEBUG_VIDEO_XBIOS
#endif
64
65
/* Initialization/Query functions */
66
67
68
69
static int XBIOS_VideoInit(_THIS);
static void XBIOS_VideoQuit(_THIS);
#if 0
70
71
72
73
74
75
76
static SDL_Rect **XBIOS_ListModes(_THIS, SDL_PixelFormat * format,
Uint32 flags);
static SDL_Surface *XBIOS_SetVideoMode(_THIS, SDL_Surface * current,
int width, int height, int bpp,
Uint32 flags);
static int XBIOS_SetColors(_THIS, int firstcolor, int ncolors,
SDL_Color * colors);
77
78
/* Hardware surface functions */
79
80
81
82
83
84
static int XBIOS_AllocHWSurface(_THIS, SDL_Surface * surface);
static int XBIOS_LockHWSurface(_THIS, SDL_Surface * surface);
static int XBIOS_FlipHWSurface(_THIS, SDL_Surface * surface);
static void XBIOS_UnlockHWSurface(_THIS, SDL_Surface * surface);
static void XBIOS_FreeHWSurface(_THIS, SDL_Surface * surface);
static void XBIOS_UpdateRects(_THIS, int numrects, SDL_Rect * rects);
85
86
#if SDL_VIDEO_OPENGL
87
88
89
90
/* OpenGL functions */
static void XBIOS_GL_SwapBuffers(_THIS);
#endif
91
92
/* To setup palette */
93
94
static unsigned short TT_palette[256];
static unsigned long F30_palette[256];
95
#endif
96
97
98
/* Xbios driver bootstrap functions */
99
100
static int
XBIOS_Available(void)
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
unsigned long cookie_vdo, cookie_mil, cookie_hade, cookie_scpn;
/* Milan/Hades Atari clones do not have an Atari video chip */
if ((Getcookie(C__MIL, &cookie_mil) == C_FOUND) ||
(Getcookie(C_hade, &cookie_hade) == C_FOUND)) {
return 0;
}
/* Cookie _VDO present ? if not, assume ST machine */
if (Getcookie(C__VDO, &cookie_vdo) != C_FOUND) {
cookie_vdo = VDO_ST << 16;
}
/* Test if we have a monochrome monitor plugged in */
switch (cookie_vdo >> 16) {
case VDO_ST:
case VDO_STE:
if (Getrez() == (ST_HIGH >> 8))
return 0;
break;
case VDO_TT:
if ((EgetShift() & ES_MODE) == TT_HIGH)
return 0;
break;
case VDO_F30:
if (VgetMonitor() == MONITOR_MONO)
return 0;
if (Getcookie(C_SCPN, &cookie_scpn) == C_FOUND) {
if (!SDL_XBIOS_SB3Usable((scpn_cookie_t *) cookie_scpn)) {
return 0;
}
}
break;
default:
return 0;
}
return 1;
140
141
}
142
143
static void
XBIOS_DeleteDevice(SDL_VideoDevice * device)
144
{
145
SDL_free(device->driverdata);
146
SDL_free(device);
147
148
}
149
150
static SDL_VideoDevice *
XBIOS_CreateDevice(int devindex)
151
{
152
SDL_VideoDevice *device;
153
SDL_VideoData *data;
154
155
/* Initialize all variables that we clean on shutdown */
156
device = (SDL_VideoDevice *) SDL_calloc(1, sizeof(SDL_VideoDevice));
157
if (device) {
158
data = (struct SDL_VideoData *) SDL_calloc(1, sizeof(SDL_VideoData));
159
}
160
if (!device || !data) {
161
162
163
164
SDL_OutOfMemory();
if (device) {
SDL_free(device);
}
165
return NULL;
166
}
167
device->driverdata = data;
168
169
170
/* Video functions */
device->VideoInit = XBIOS_VideoInit;
171
device->VideoQuit = XBIOS_VideoQuit;
172
173
174
175
176
177
178
/* Modes */
device->GetDisplayModes = NULL /*XBIOS_GetDisplayModes*/;
device->SetDisplayMode = NULL /*XBIOS_SetDisplayMode*/;
/* Events */
device->PumpEvents = SDL_Atari_PumpEvents;
179
180
#if SDL_VIDEO_OPENGL
181
182
183
/* OpenGL functions */
device->GL_LoadLibrary = SDL_AtariGL_LoadLibrary;
device->GL_GetProcAddress = SDL_AtariGL_GetProcAddress;
184
device->GL_CreateContext = NULL;
185
device->GL_MakeCurrent = SDL_AtariGL_MakeCurrent;
186
187
188
189
device->GL_SetSwapInterval = NULL;
device->GL_GetSwapInterval = NULL;
device->GL_SwapWindow = XBIOS_GL_SwapBuffers;
device->GL_DeleteContext = NULL;
190
191
#endif
192
device->free = XBIOS_DeleteDevice;
193
194
return device;
195
196
197
}
VideoBootStrap XBIOS_bootstrap = {
198
"xbios", "Atari Xbios driver",
199
XBIOS_Available, XBIOS_CreateDevice
200
201
};
202
#if 0
203
204
205
void
SDL_XBIOS_AddMode(_THIS, Uint16 modecode, Uint16 width, Uint16 height,
Uint16 depth, SDL_bool flags)
206
{
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
int i, curpos;
xbiosmode_t *current_mode;
/* Check if mode already exists */
if (XBIOS_modelist) {
current_mode = XBIOS_modelist;
for (i = 0; i < XBIOS_nummodes; i++, current_mode++) {
if (current_mode->width != width)
continue;
if (current_mode->height != height)
continue;
if (current_mode->depth != depth)
continue;
return;
}
}
++XBIOS_nummodes;
XBIOS_modelist =
(xbiosmode_t *) SDL_realloc(XBIOS_modelist,
XBIOS_nummodes * sizeof(xbiosmode_t));
/* Keep the list sorted: bpp, width, height */
curpos = 0;
for (i = 0; i < XBIOS_nummodes - 1; i++) {
if (XBIOS_modelist[i].depth <= depth) {
if (XBIOS_modelist[i].width < width) {
break;
} else if (XBIOS_modelist[i].width == width) {
if (XBIOS_modelist[i].height <= height) {
break;
}
}
}
curpos++;
}
/* Push remaining modes further */
for (i = XBIOS_nummodes - 1; i > curpos; i--) {
SDL_memcpy(&XBIOS_modelist[i], &XBIOS_modelist[i - 1],
sizeof(xbiosmode_t));
}
XBIOS_modelist[curpos].number = modecode;
XBIOS_modelist[curpos].width = width;
XBIOS_modelist[curpos].height = height;
XBIOS_modelist[curpos].depth = depth;
XBIOS_modelist[curpos].doubleline = flags;
256
}
257
#endif
258
259
static int
260
XBIOS_VideoInit(_THIS)
261
{
262
263
264
XBIOS_InitModes(_this);
#if 0
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
int i, j8, j16;
xbiosmode_t *current_mode;
unsigned long cookie_blow, cookie_scpn, cookie_cnts;
/* Initialize all variables that we clean on shutdown */
memset(SDL_modelist, 0, sizeof(SDL_modelist));
/* Cookie _VDO present ? if not, assume ST machine */
if (Getcookie(C__VDO, &XBIOS_cvdo) != C_FOUND) {
XBIOS_cvdo = VDO_ST << 16;
}
/* Allocate memory for old palette */
XBIOS_oldpalette = (void *) SDL_malloc(256 * sizeof(long));
if (!XBIOS_oldpalette) {
SDL_SetError("Unable to allocate memory for old palette\n");
return (-1);
}
/* Initialize video mode list */
/* and save current screen status (palette, screen address, video mode) */
XBIOS_nummodes = 0;
XBIOS_modelist = NULL;
XBIOS_centscreen = SDL_FALSE;
switch (XBIOS_cvdo >> 16) {
case VDO_ST:
case VDO_STE:
{
short *oldpalette;
SDL_XBIOS_AddMode(this, ST_LOW >> 8, 320, 200, 4, SDL_FALSE);
XBIOS_oldvbase = Physbase();
XBIOS_oldvmode = Getrez();
switch (XBIOS_oldvmode << 8) {
case ST_LOW:
XBIOS_oldnumcol = 16;
break;
case ST_MED:
XBIOS_oldnumcol = 4;
break;
case ST_HIGH:
XBIOS_oldnumcol = 2;
break;
default:
XBIOS_oldnumcol = 0;
break;
}
oldpalette = (short *) XBIOS_oldpalette;
for (i = 0; i < XBIOS_oldnumcol; i++) {
*oldpalette++ = Setcolor(i, -1);
}
vformat->BitsPerPixel = 8;
}
break;
case VDO_TT:
SDL_XBIOS_AddMode(this, TT_LOW, 320, 480, 8, SDL_FALSE);
/* Software double-lined mode */
SDL_XBIOS_AddMode(this, TT_LOW, 320, 240, 8, SDL_TRUE);
XBIOS_oldvbase = Logbase();
XBIOS_oldvmode = EgetShift();
switch (XBIOS_oldvmode & ES_MODE) {
case TT_LOW:
XBIOS_oldnumcol = 256;
break;
case ST_LOW:
case TT_MED:
XBIOS_oldnumcol = 16;
break;
case ST_MED:
XBIOS_oldnumcol = 4;
break;
case ST_HIGH:
case TT_HIGH:
XBIOS_oldnumcol = 2;
break;
default:
XBIOS_oldnumcol = 0;
break;
}
if (XBIOS_oldnumcol) {
EgetPalette(0, XBIOS_oldnumcol, XBIOS_oldpalette);
}
vformat->BitsPerPixel = 8;
break;
case VDO_F30:
switch (VgetMonitor()) {
case MONITOR_MONO:
/* Not usable */
break;
case MONITOR_RGB:
case MONITOR_TV:
SDL_XBIOS_AddMode(this, BPS16 | COL80 | OVERSCAN | VERTFLAG,
768, 480, 16, SDL_FALSE);
SDL_XBIOS_AddMode(this, BPS16 | COL80 | OVERSCAN, 768, 240,
16, SDL_FALSE);
SDL_XBIOS_AddMode(this, BPS16 | COL80 | VERTFLAG, 640, 400,
16, SDL_FALSE);
SDL_XBIOS_AddMode(this, BPS16 | COL80, 640, 200, 16, SDL_FALSE);
SDL_XBIOS_AddMode(this, BPS16 | OVERSCAN | VERTFLAG, 384,
480, 16, SDL_FALSE);
SDL_XBIOS_AddMode(this, BPS16 | OVERSCAN, 384, 240, 16,
SDL_FALSE);
SDL_XBIOS_AddMode(this, BPS16 | VERTFLAG, 320, 400, 16,
SDL_FALSE);
SDL_XBIOS_AddMode(this, BPS16, 320, 200, 16, SDL_FALSE);
SDL_XBIOS_AddMode(this, BPS8 | COL80 | OVERSCAN | VERTFLAG,
768, 480, 8, SDL_FALSE);
SDL_XBIOS_AddMode(this, BPS8 | COL80 | OVERSCAN, 768, 240, 8,
SDL_FALSE);
SDL_XBIOS_AddMode(this, BPS8 | COL80 | VERTFLAG, 640, 400, 8,
SDL_FALSE);
SDL_XBIOS_AddMode(this, BPS8 | COL80, 640, 200, 8, SDL_FALSE);
SDL_XBIOS_AddMode(this, BPS8 | OVERSCAN | VERTFLAG, 384, 480,
8, SDL_FALSE);
SDL_XBIOS_AddMode(this, BPS8 | OVERSCAN, 384, 240, 8, SDL_FALSE);
SDL_XBIOS_AddMode(this, BPS8 | VERTFLAG, 320, 400, 8, SDL_FALSE);
SDL_XBIOS_AddMode(this, BPS8, 320, 200, 8, SDL_FALSE);
break;
case MONITOR_VGA:
SDL_XBIOS_AddMode(this, BPS16, 320, 480, 16, SDL_FALSE);
SDL_XBIOS_AddMode(this, BPS16 | VERTFLAG, 320, 240, 16,
SDL_FALSE);
SDL_XBIOS_AddMode(this, BPS8 | COL80, 640, 480, 8, SDL_FALSE);
SDL_XBIOS_AddMode(this, BPS8 | COL80 | VERTFLAG, 640, 240, 8,
SDL_FALSE);
SDL_XBIOS_AddMode(this, BPS8, 320, 480, 8, SDL_FALSE);
SDL_XBIOS_AddMode(this, BPS8 | VERTFLAG, 320, 240, 8, SDL_FALSE);
break;
}
XBIOS_oldvbase = Logbase();
XBIOS_oldvmode = VsetMode(-1);
XBIOS_oldnumcol = 1 << (1 << (XBIOS_oldvmode & NUMCOLS));
if (XBIOS_oldnumcol > 256) {
XBIOS_oldnumcol = 0;
}
if (XBIOS_oldnumcol) {
VgetRGB(0, XBIOS_oldnumcol, XBIOS_oldpalette);
}
vformat->BitsPerPixel = 16;
/* Keep vga/rvb, and pal/ntsc bits */
current_mode = XBIOS_modelist;
for (i = 0; i < XBIOS_nummodes; i++) {
Uint16 newvmode;
newvmode = current_mode->number;
newvmode &= ~(VGA | PAL);
newvmode |= XBIOS_oldvmode & (VGA | PAL);
current_mode->number = newvmode;
current_mode++;
}
/* Initialize BlowUp/SB3/Centscreen stuff if present */
if (Getcookie(C_BLOW, &cookie_blow) == C_FOUND) {
SDL_XBIOS_BlowupInit(this, (blow_cookie_t *) cookie_blow);
} else if (Getcookie(C_SCPN, &cookie_scpn) == C_FOUND) {
SDL_XBIOS_SB3Init(this, (scpn_cookie_t *) cookie_scpn);
} else if (Getcookie(C_CNTS, &cookie_cnts) == C_FOUND) {
XBIOS_oldvmode = SDL_XBIOS_CentscreenInit(this);
XBIOS_centscreen = SDL_TRUE;
}
break;
}
/* Determine the current screen size */
if (XBIOS_nummodes > 0) {
/* FIXME: parse video mode list to search for current mode */
this->info.current_w = XBIOS_modelist[0].width;
this->info.current_h = XBIOS_modelist[0].height;
}
current_mode = XBIOS_modelist;
j8 = j16 = 0;
for (i = 0; i < XBIOS_nummodes; i++, current_mode++) {
switch (current_mode->depth) {
case 4:
case 8:
SDL_modelist[0][j8] = SDL_malloc(sizeof(SDL_Rect));
SDL_modelist[0][j8]->x = SDL_modelist[0][j8]->y = 0;
SDL_modelist[0][j8]->w = current_mode->width;
SDL_modelist[0][j8]->h = current_mode->height;
XBIOS_videomodes[0][j8] = current_mode;
j8++;
break;
case 16:
SDL_modelist[1][j16] = SDL_malloc(sizeof(SDL_Rect));
SDL_modelist[1][j16]->x = SDL_modelist[1][j16]->y = 0;
SDL_modelist[1][j16]->w = current_mode->width;
SDL_modelist[1][j16]->h = current_mode->height;
XBIOS_videomodes[1][j16] = current_mode;
j16++;
break;
}
}
SDL_modelist[0][j8] = NULL;
SDL_modelist[1][j16] = NULL;
XBIOS_screens[0] = NULL;
XBIOS_screens[1] = NULL;
XBIOS_shadowscreen = NULL;
/* Update hardware info */
this->info.hw_available = 1;
this->info.video_mem = (Uint32) Atari_SysMalloc(-1L, MX_STRAM);
/* Init chunky to planar routine */
SDL_Atari_C2pConvert = SDL_Atari_C2pConvert8;
484
485
#if SDL_VIDEO_OPENGL
486
SDL_AtariGL_InitPointers(this);
487
488
#endif
489
490
#endif
491
return (0);
492
493
}
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
static void
XBIOS_VideoQuit(_THIS)
{
/* int i, j;*/
XBIOS_QuitModes(_this);
Atari_ShutdownEvents();
#if 0
/* Restore video mode and palette */
#ifndef DEBUG_VIDEO_XBIOS
switch (XBIOS_cvdo >> 16) {
case VDO_ST:
case VDO_STE:
Setscreen(-1, XBIOS_oldvbase, XBIOS_oldvmode);
if (XBIOS_oldnumcol) {
Setpalette(XBIOS_oldpalette);
}
break;
case VDO_TT:
Setscreen(-1, XBIOS_oldvbase, -1);
EsetShift(XBIOS_oldvmode);
if (XBIOS_oldnumcol) {
EsetPalette(0, XBIOS_oldnumcol, XBIOS_oldpalette);
}
break;
case VDO_F30:
Setscreen(-1, XBIOS_oldvbase, -1);
if (XBIOS_centscreen) {
SDL_XBIOS_CentscreenRestore(this, XBIOS_oldvmode);
} else {
VsetMode(XBIOS_oldvmode);
}
if (XBIOS_oldnumcol) {
VsetRGB(0, XBIOS_oldnumcol, XBIOS_oldpalette);
}
break;
}
Vsync();
#endif
#if SDL_VIDEO_OPENGL
if (gl_active) {
SDL_AtariGL_Quit(this, SDL_TRUE);
}
#endif
if (XBIOS_oldpalette) {
SDL_free(XBIOS_oldpalette);
XBIOS_oldpalette = NULL;
}
XBIOS_FreeBuffers(this);
/* Free mode list */
for (j = 0; j < NUM_MODELISTS; j++) {
for (i = 0; i < SDL_NUMMODES; i++) {
if (SDL_modelist[j][i] != NULL) {
SDL_free(SDL_modelist[j][i]);
SDL_modelist[j][i] = NULL;
}
}
}
if (XBIOS_modelist) {
SDL_free(XBIOS_modelist);
XBIOS_nummodes = 0;
XBIOS_modelist = NULL;
}
this->screen->pixels = NULL;
#endif
}
#if 0
569
570
static SDL_Rect **
XBIOS_ListModes(_THIS, SDL_PixelFormat * format, Uint32 flags)
571
{
572
573
574
575
576
/* 8 bits -> list 0 */
/* 16 bits -> list 1 */
if ((format->BitsPerPixel != 8) && (format->BitsPerPixel != 16)) {
return NULL;
}
577
578
return (SDL_modelist[(format->BitsPerPixel) >> 4]);
579
580
}
581
582
static void
XBIOS_FreeBuffers(_THIS)
583
{
584
585
586
587
588
589
590
591
592
593
594
595
596
int i;
for (i = 0; i < 2; i++) {
if (XBIOS_screensmem[i] != NULL) {
Mfree(XBIOS_screensmem[i]);
XBIOS_screensmem[i] = NULL;
}
}
if (XBIOS_shadowscreen != NULL) {
Mfree(XBIOS_shadowscreen);
XBIOS_shadowscreen = NULL;
}
597
598
}
599
600
601
static SDL_Surface *
XBIOS_SetVideoMode(_THIS, SDL_Surface * current,
int width, int height, int bpp, Uint32 flags)
602
{
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
int mode, new_depth;
int i;
xbiosmode_t *new_video_mode;
Uint32 new_screen_size;
Uint32 modeflags;
/* Free current buffers */
XBIOS_FreeBuffers(this);
/* Limit bpp */
if (bpp > 16) {
bpp = 16;
}
bpp >>= 4;
/* Search if the mode exists (width, height, bpp) */
for (mode = 0; SDL_modelist[bpp][mode]; ++mode) {
if ((SDL_modelist[bpp][mode]->w == width) &&
(SDL_modelist[bpp][mode]->h == height)) {
break;
}
}
if (SDL_modelist[bpp][mode] == NULL) {
SDL_SetError("Couldn't find requested mode in list");
return (NULL);
}
modeflags = SDL_FULLSCREEN | SDL_PREALLOC;
/* Allocate needed buffers: simple/double buffer and shadow surface */
new_video_mode = XBIOS_videomodes[bpp][mode];
new_depth = new_video_mode->depth;
if (new_depth == 4) {
SDL_Atari_C2pConvert = SDL_Atari_C2pConvert4;
new_depth = 8;
modeflags |= SDL_SWSURFACE | SDL_HWPALETTE;
} else if (new_depth == 8) {
SDL_Atari_C2pConvert = SDL_Atari_C2pConvert8;
modeflags |= SDL_SWSURFACE | SDL_HWPALETTE;
} else {
modeflags |= SDL_HWSURFACE;
}
new_screen_size = width * height * ((new_depth) >> 3);
new_screen_size += 256; /* To align on a 256 byte adress */
if (new_depth == 8) {
XBIOS_shadowscreen = Atari_SysMalloc(new_screen_size, MX_PREFTTRAM);
if (XBIOS_shadowscreen == NULL) {
SDL_SetError("Can not allocate %d KB for shadow buffer",
new_screen_size >> 10);
return (NULL);
}
SDL_memset(XBIOS_shadowscreen, 0, new_screen_size);
}
/* Output buffer needs to be twice in size for the software double-line mode */
XBIOS_doubleline = SDL_FALSE;
if (new_video_mode->doubleline) {
new_screen_size <<= 1;
XBIOS_doubleline = SDL_TRUE;
}
XBIOS_screensmem[0] = Atari_SysMalloc(new_screen_size, MX_STRAM);
if (XBIOS_screensmem[0] == NULL) {
XBIOS_FreeBuffers(this);
SDL_SetError("Can not allocate %d KB for frame buffer",
new_screen_size >> 10);
return (NULL);
}
SDL_memset(XBIOS_screensmem[0], 0, new_screen_size);
XBIOS_screens[0] =
(void *) (((long) XBIOS_screensmem[0] + 256) & 0xFFFFFF00UL);
680
681
#if SDL_VIDEO_OPENGL
682
683
684
685
686
if (flags & SDL_INTERNALOPENGL) {
if (this->gl_config.double_buffer) {
flags |= SDL_DOUBLEBUF;
}
}
687
688
#endif
689
690
691
/* Double buffer ? */
if (flags & SDL_DOUBLEBUF) {
XBIOS_screensmem[1] = Atari_SysMalloc(new_screen_size, MX_STRAM);
692
693
694
695
696
697
698
699
if (XBIOS_screensmem[1] == NULL) {
XBIOS_FreeBuffers(this);
SDL_SetError("Can not allocate %d KB for double buffer",
new_screen_size >> 10);
return (NULL);
}
SDL_memset(XBIOS_screensmem[1], 0, new_screen_size);
700
701
702
703
704
705
706
707
708
709
710
711
XBIOS_screens[1] =
(void *) (((long) XBIOS_screensmem[1] + 256) & 0xFFFFFF00UL);
modeflags |= SDL_DOUBLEBUF;
}
/* Allocate the new pixel format for the screen */
if (!SDL_ReallocFormat(current, new_depth, 0, 0, 0, 0)) {
XBIOS_FreeBuffers(this);
SDL_SetError("Couldn't allocate new pixel format for requested mode");
return (NULL);
}
712
713
714
715
current->w = XBIOS_width = width;
current->h = XBIOS_height = height;
current->pitch = (width * new_depth) >> 3;
716
717
718
/* this is for C2P conversion */
XBIOS_pitch = (new_video_mode->width * new_video_mode->depth) >> 3;
719
720
721
722
723
if (new_depth == 8)
current->pixels = XBIOS_shadowscreen;
else
current->pixels = XBIOS_screens[0];
724
725
XBIOS_fbnum = 0;
726
727
#if SDL_VIDEO_OPENGL
728
729
730
731
732
733
734
735
736
if (flags & SDL_INTERNALOPENGL) {
if (!SDL_AtariGL_Init(this, current)) {
XBIOS_FreeBuffers(this);
SDL_SetError("Can not create OpenGL context");
return NULL;
}
modeflags |= SDL_INTERNALOPENGL;
}
737
738
#endif
739
current->flags = modeflags;
740
741
/* Now set the video mode */
742
#ifndef DEBUG_VIDEO_XBIOS
743
Setscreen(-1, XBIOS_screens[0], -1);
744
#endif
745
746
747
switch (XBIOS_cvdo >> 16) {
case VDO_ST:
748
#ifndef DEBUG_VIDEO_XBIOS
749
Setscreen(-1, -1, new_video_mode->number);
750
#endif
751
752
753
754
755
/* Reset palette */
for (i = 0; i < 16; i++) {
TT_palette[i] =
((i >> 1) << 8) | (((i * 8) / 17) << 4) | (i >> 1);
}
756
#ifndef DEBUG_VIDEO_XBIOS
757
Setpalette(TT_palette);
758
#endif
759
760
break;
case VDO_STE:
761
#ifndef DEBUG_VIDEO_XBIOS
762
Setscreen(-1, -1, new_video_mode->number);
763
#endif
764
765
766
767
768
769
770
/* Reset palette */
for (i = 0; i < 16; i++) {
int c;
c = ((i & 1) << 3) | ((i >> 1) & 7);
TT_palette[i] = (c << 8) | (c << 4) | c;
}
771
#ifndef DEBUG_VIDEO_XBIOS
772
Setpalette(TT_palette);
773
#endif
774
775
break;
case VDO_TT:
776
#ifndef DEBUG_VIDEO_XBIOS
777
EsetShift(new_video_mode->number);
778
#endif
779
780
break;
case VDO_F30:
781
#ifndef DEBUG_VIDEO_XBIOS
782
783
784
785
786
if (XBIOS_centscreen) {
SDL_XBIOS_CentscreenSetmode(this, width, height, new_depth);
} else {
VsetMode(new_video_mode->number);
}
787
#endif
788
789
790
791
792
793
794
/* Set hardware palette to black in True Colour */
if (new_depth == 16) {
SDL_memset(F30_palette, 0, sizeof(F30_palette));
VsetRGB(0, 256, F30_palette);
}
break;
}
795
796
Vsync();
797
798
this->UpdateRects = XBIOS_UpdateRects;
799
800
return (current);
801
802
803
}
/* We don't actually allow hardware surfaces other than the main one */
804
805
static int
XBIOS_AllocHWSurface(_THIS, SDL_Surface * surface)
806
{
807
return (-1);
808
809
}
810
811
static void
XBIOS_FreeHWSurface(_THIS, SDL_Surface * surface)
812
{
813
return;
814
815
}
816
817
static int
XBIOS_LockHWSurface(_THIS, SDL_Surface * surface)
818
{
819
return (0);
820
821
}
822
823
static void
XBIOS_UnlockHWSurface(_THIS, SDL_Surface * surface)
824
{
825
return;
826
827
}
828
829
static void
XBIOS_UpdateRects(_THIS, int numrects, SDL_Rect * rects)
830
{
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
SDL_Surface *surface;
surface = this->screen;
if ((surface->format->BitsPerPixel) == 8) {
int i;
for (i = 0; i < numrects; i++) {
void *source, *destination;
int x1, x2;
x1 = rects[i].x & ~15;
x2 = rects[i].x + rects[i].w;
if (x2 & 15) {
x2 = (x2 | 15) + 1;
}
source = surface->pixels;
source += surface->pitch * rects[i].y;
source += x1;
destination = XBIOS_screens[XBIOS_fbnum];
destination += XBIOS_pitch * rects[i].y;
destination += x1;
/* Convert chunky to planar screen */
SDL_Atari_C2pConvert(source,
destination,
x2 - x1,
rects[i].h,
XBIOS_doubleline,
surface->pitch, XBIOS_pitch);
}
}
865
#ifndef DEBUG_VIDEO_XBIOS
866
Setscreen(-1, XBIOS_screens[XBIOS_fbnum], -1);
867
#endif
868
869
870
871
872
873
874
875
Vsync();
if ((surface->flags & SDL_DOUBLEBUF) == SDL_DOUBLEBUF) {
XBIOS_fbnum ^= 1;
if ((surface->format->BitsPerPixel) > 8) {
surface->pixels = XBIOS_screens[XBIOS_fbnum];
}
}
876
877
}
878
879
static int
XBIOS_FlipHWSurface(_THIS, SDL_Surface * surface)
880
{
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
if ((surface->format->BitsPerPixel) == 8) {
void *destscr;
int destx;
/* Center on destination screen */
destscr = XBIOS_screens[XBIOS_fbnum];
destscr += XBIOS_pitch * ((XBIOS_height - surface->h) >> 1);
destx = (XBIOS_width - surface->w) >> 1;
destx &= ~15;
destscr += destx;
/* Convert chunky to planar screen */
SDL_Atari_C2pConvert(surface->pixels,
destscr,
surface->w,
surface->h,
XBIOS_doubleline, surface->pitch, XBIOS_pitch);
}
899
#ifndef DEBUG_VIDEO_XBIOS
900
Setscreen(-1, XBIOS_screens[XBIOS_fbnum], -1);
901
#endif
902
Vsync();
903
904
905
906
907
908
909
if ((surface->flags & SDL_DOUBLEBUF) == SDL_DOUBLEBUF) {
XBIOS_fbnum ^= 1;
if ((surface->format->BitsPerPixel) > 8) {
surface->pixels = XBIOS_screens[XBIOS_fbnum];
}
}
910
911
return (0);
912
913
}
914
915
static int
XBIOS_SetColors(_THIS, int firstcolor, int ncolors, SDL_Color * colors)
916
{
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
int i;
int r, v, b;
switch (XBIOS_cvdo >> 16) {
case VDO_ST:
case VDO_STE:
for (i = 0; i < ncolors; i++) {
r = colors[i].r;
v = colors[i].g;
b = colors[i].b;
TT_palette[firstcolor + i] =
((r * 30) + (v * 59) + (b * 11)) / 100;
}
SDL_Atari_C2pConvert4_pal(TT_palette); /* convert the lighting */
break;
case VDO_TT:
for (i = 0; i < ncolors; i++) {
r = colors[i].r;
v = colors[i].g;
b = colors[i].b;
TT_palette[i] = ((r >> 4) << 8) | ((v >> 4) << 4) | (b >> 4);
}
941
#ifndef DEBUG_VIDEO_XBIOS
942
EsetPalette(firstcolor, ncolors, TT_palette);
943
#endif
944
945
946
947
948
949
950
951
952
break;
case VDO_F30:
for (i = 0; i < ncolors; i++) {
r = colors[i].r;
v = colors[i].g;
b = colors[i].b;
F30_palette[i] = (r << 16) | (v << 8) | b;
}
953
#ifndef DEBUG_VIDEO_XBIOS
954
VsetRGB(firstcolor, ncolors, F30_palette);
955
#endif
956
957
break;
}
958
959
return (1);
960
}
961
#endif
962
963
964
965
/* Note: If we are terminated, this could be called in the middle of
another SDL video routine -- notably UpdateRects.
*/
966
967
#if 0
968
#if SDL_VIDEO_OPENGL
969
970
971
static void
XBIOS_GL_SwapBuffers(_THIS)
972
{
973
974
975
SDL_AtariGL_SwapBuffers(this);
XBIOS_FlipHWSurface(this, this->screen);
SDL_AtariGL_MakeCurrent(this);
976
977
}
978
#endif
979
#endif
980
/* vi: set ts=4 sw=4 expandtab: */