1

/* $Id$ */

     2

     3

#include "../stdafx.h"

     4

     5

#ifdef WITH_SDL

     6

     7

#include "../openttd.h"

     8

#include "../debug.h"

     9

#include "../functions.h"

    10

#include "../gfx.h"

    11

#include "../macros.h"

    12

#include "../sdl.h"

    13

#include "../window.h"

    14

#include "../network.h"

    15

#include "../variables.h"

    16

#include "sdl_v.h"

    17

#include <SDL.h>

    18

    19

static SDL_Surface *_sdl_screen;

    20

static bool _all_modes;

    21

    22

#define MAX_DIRTY_RECTS 100

    23

static SDL_Rect _dirty_rects[MAX_DIRTY_RECTS];

    24

static int _num_dirty_rects;

    25

    26

static void SdlVideoMakeDirty(int left, int top, int width, int height)

    27

{

    28

	if (_num_dirty_rects < MAX_DIRTY_RECTS) {

    29

		_dirty_rects[_num_dirty_rects].x = left;

    30

		_dirty_rects[_num_dirty_rects].y = top;

    31

		_dirty_rects[_num_dirty_rects].w = width;

    32

		_dirty_rects[_num_dirty_rects].h = height;

    33

	}

    34

	_num_dirty_rects++;

    35

}

    36

    37

static SDL_Color pal[256];

    38

    39

static void UpdatePalette(uint start, uint end)

    40

{

    41

	uint i;

    42

    43

	for (i = start; i != end; i++) {

    44

		pal[i].r = _cur_palette[i].r;

    45

		pal[i].g = _cur_palette[i].g;

    46

		pal[i].b = _cur_palette[i].b;

    47

		pal[i].unused = 0;

    48

	}

    49

    50

	SDL_CALL SDL_SetColors(_sdl_screen, pal, start, end);

    51

}

    52

    53

static void InitPalette(void)

    54

{

    55

	UpdatePalette(0, 256);

    56

}

    57

    58

static void CheckPaletteAnim(void)

    59

{

    60

	if(_pal_last_dirty != -1) {

    61

		UpdatePalette(_pal_first_dirty, _pal_last_dirty + 1);

    62

		_pal_last_dirty = -1;

    63

	}

    64

}

    65

    66

static void DrawSurfaceToScreen(void)

    67

{

    68

	int n = _num_dirty_rects;

    69

	if (n != 0) {

    70

		_num_dirty_rects = 0;

    71

		if (n > MAX_DIRTY_RECTS)

    72

			SDL_CALL SDL_UpdateRect(_sdl_screen, 0, 0, 0, 0);

    73

		else

    74

			SDL_CALL SDL_UpdateRects(_sdl_screen, n, _dirty_rects);

    75

	}

    76

}

    77

    78

static const uint16 default_resolutions[][2] = {

    79

	{ 640,  480},

    80

	{ 800,  600},

    81

	{1024,  768},

    82

	{1152,  864},

    83

	{1280,  800},

    84

	{1280,  960},

    85

	{1280, 1024},

    86

	{1400, 1050},

    87

	{1600, 1200},

    88

	{1680, 1050},

    89

	{1920, 1200}

    90

};

    91

    92

static void GetVideoModes(void)

    93

{

    94

	int i;

    95

	SDL_Rect **modes;

    96

    97

	modes = SDL_CALL SDL_ListModes(NULL, SDL_SWSURFACE + (_fullscreen ? SDL_FULLSCREEN : 0));

    98

    99

	if (modes == NULL)

   100

		error("sdl: no modes available");

   101

   102

	_all_modes = (modes == (void*)-1);

   103

   104

	if (_all_modes) {

   105

		// all modes available, put some default ones here

   106

		memcpy(_resolutions, default_resolutions, sizeof(default_resolutions));

   107

		_num_resolutions = lengthof(default_resolutions);

   108

	} else {

   109

		int n = 0;

   110

		for (i = 0; modes[i]; i++) {

   111

			int w = modes[i]->w;

   112

			int h = modes[i]->h;

   113

			if (IS_INT_INSIDE(w, 640, MAX_SCREEN_WIDTH + 1) &&

   114

					IS_INT_INSIDE(h, 480, MAX_SCREEN_HEIGHT + 1)) {

   115

				int j;

   116

				for (j = 0; j < n; j++) {

   117

					if (_resolutions[j][0] == w && _resolutions[j][1] == h) break;

   118

				}

   119

   120

				if (j == n) {

   121

					_resolutions[j][0] = w;

   122

					_resolutions[j][1] = h;

   123

					if (++n == lengthof(_resolutions)) break;

   124

				}

   125

			}

   126

		}

   127

		_num_resolutions = n;

   128

		SortResolutions(_num_resolutions);

   129

	}

   130

}

   131

   132

static int GetAvailableVideoMode(int *w, int *h)

   133

{

   134

	int i;

   135

	int best;

   136

	uint delta;

   137

   138

	// all modes available?

   139

	if (_all_modes)

   140

		return 1;

   141

   142

	// is the wanted mode among the available modes?

   143

	for (i = 0; i != _num_resolutions; i++) {

   144

		if(*w == _resolutions[i][0] && *h == _resolutions[i][1])

   145

			return 1;

   146

	}

   147

   148

	// use the closest possible resolution

   149

	best = 0;

   150

	delta = abs((_resolutions[0][0] - *w) * (_resolutions[0][1] - *h));

   151

	for (i = 1; i != _num_resolutions; ++i) {

   152

		uint newdelta = abs((_resolutions[i][0] - *w) * (_resolutions[i][1] - *h));

   153

		if (newdelta < delta) {

   154

			best = i;

   155

			delta = newdelta;

   156

		}

   157

	}

   158

	*w = _resolutions[best][0];

   159

	*h = _resolutions[best][1];

   160

	return 2;

   161

}

   162

   163

extern const char _openttd_revision[];

   164

   165

static bool CreateMainSurface(int w, int h)

   166

{

   167

	SDL_Surface *newscreen;

   168

	char caption[50];

   169

   170

	GetAvailableVideoMode(&w, &h);

   171

   172

	DEBUG(misc, 1) ("sdl: using mode %dx%d", w, h);

   173

   174

	// DO NOT CHANGE TO HWSURFACE, IT DOES NOT WORK

   175

	newscreen = SDL_CALL SDL_SetVideoMode(w, h, 8, SDL_SWSURFACE | SDL_HWPALETTE | (_fullscreen ? SDL_FULLSCREEN : SDL_RESIZABLE));

   176

	if (newscreen == NULL)

   177

		return false;

   178

   179

	_screen.width = newscreen->w;

   180

	_screen.height = newscreen->h;

   181

	_screen.pitch = newscreen->pitch;

   182

   183

	_sdl_screen = newscreen;

   184

	InitPalette();

   185

   186

	snprintf(caption, sizeof(caption), "OpenTTD %s", _openttd_revision);

   187

	SDL_CALL SDL_WM_SetCaption(caption, caption);

   188

	SDL_CALL SDL_ShowCursor(0);

   189

   190

	GameSizeChanged();

   191

   192

	return true;

   193

}

   194

   195

typedef struct VkMapping {

   196

	uint16 vk_from;

   197

	byte vk_count;

   198

	byte map_to;

   199

} VkMapping;

   200

   201

#define AS(x, z) {x, 0, z}

   202

#define AM(x, y, z, w) {x, y - x, z}

   203

   204

static const VkMapping _vk_mapping[] = {

   205

	// Pageup stuff + up/down

   206

	AM(SDLK_PAGEUP, SDLK_PAGEDOWN, WKC_PAGEUP, WKC_PAGEDOWN),

   207

	AS(SDLK_UP,			WKC_UP),

   208

	AS(SDLK_DOWN,		WKC_DOWN),

   209

	AS(SDLK_LEFT,		WKC_LEFT),

   210

	AS(SDLK_RIGHT,	WKC_RIGHT),

   211

   212

	AS(SDLK_HOME,		WKC_HOME),

   213

	AS(SDLK_END,		WKC_END),

   214

   215

	AS(SDLK_INSERT,	WKC_INSERT),

   216

	AS(SDLK_DELETE,	WKC_DELETE),

   217

   218

	// Map letters & digits

   219

	AM(SDLK_a, SDLK_z, 'A', 'Z'),

   220

	AM(SDLK_0, SDLK_9, '0', '9'),

   221

   222

	AS(SDLK_ESCAPE,	WKC_ESC),

   223

	AS(SDLK_PAUSE,  WKC_PAUSE),

   224

	AS(SDLK_BACKSPACE,	WKC_BACKSPACE),

   225

   226

	AS(SDLK_SPACE,		WKC_SPACE),

   227

	AS(SDLK_RETURN,		WKC_RETURN),

   228

	AS(SDLK_TAB,			WKC_TAB),

   229

   230

	// Function keys

   231

	AM(SDLK_F1, SDLK_F12, WKC_F1, WKC_F12),

   232

   233

	// Numeric part.

   234

	// What is the virtual keycode for numeric enter??

   235

	AM(SDLK_KP0, SDLK_KP9, WKC_NUM_0, WKC_NUM_9),

   236

	AS(SDLK_KP_DIVIDE,		WKC_NUM_DIV),

   237

	AS(SDLK_KP_MULTIPLY,	WKC_NUM_MUL),

   238

	AS(SDLK_KP_MINUS,			WKC_NUM_MINUS),

   239

	AS(SDLK_KP_PLUS,			WKC_NUM_PLUS),

   240

	AS(SDLK_KP_ENTER,			WKC_NUM_ENTER),

   241

	AS(SDLK_KP_PERIOD,		WKC_NUM_DECIMAL)

   242

};

   243

   244

static uint32 ConvertSdlKeyIntoMy(SDL_keysym *sym)

   245

{

   246

	const VkMapping *map;

   247

	uint key = 0;

   248

	for (map = _vk_mapping; map != endof(_vk_mapping); ++map) {

   249

		if ((uint)(sym->sym - map->vk_from) <= map->vk_count) {

   250

			key = sym->sym - map->vk_from + map->map_to;

   251

			break;

   252

		}

   253

	}

   254

   255

	// check scancode for BACKQUOTE key, because we want the key left of "1", not anything else (on non-US keyboards)

   256

#if defined(WIN32) || defined(__OS2__)

   257

	if (sym->scancode == 41) key |= WKC_BACKQUOTE;

   258

#elif defined(__APPLE__)

   259

	if (sym->scancode == 10) key |= WKC_BACKQUOTE;

   260

#elif defined(__MORPHOS__)

   261

	if (sym->scancode == 0)  key |= WKC_BACKQUOTE;  // yes, that key is code '0' under MorphOS :)

   262

#elif defined(__BEOS__)

   263

	if (sym->scancode == 17)  key |= WKC_BACKQUOTE;

   264

#elif defined(__SVR4) && defined(__sun)

   265

	if (sym->scancode == 60) key |= WKC_BACKQUOTE;

   266

	if (sym->scancode == 49) key |= WKC_BACKSPACE;

   267

#elif defined(__sgi__)

   268

	if (sym->scancode == 22) key |= WKC_BACKQUOTE;

   269

#else

   270

	if (sym->scancode == 41) key |= WKC_BACKQUOTE; // Linux console

   271

	if (sym->scancode == 49) key |= WKC_BACKQUOTE;

   272

#endif

   273

   274

	// META are the command keys on mac

   275

	if (sym->mod & KMOD_META) key |= WKC_META;

   276

	if (sym->mod & KMOD_SHIFT) key |= WKC_SHIFT;

   277

	if (sym->mod & KMOD_CTRL) key |= WKC_CTRL;

   278

	if (sym->mod & KMOD_ALT) key |= WKC_ALT;

   279

	// these two lines really help porting hotkey combos. Uncomment to use -- Bjarni

   280

	//printf("scancode character pressed %d\n", sym->scancode);

   281

	//printf("unicode character pressed %d\n", sym->unicode);

   282

	return (key << 16) + sym->unicode;

   283

}

   284

   285

extern void DoExitSave(void);

   286

   287

static int PollEvent(void)

   288

{

   289

	SDL_Event ev;

   290

   291

	if (!SDL_CALL SDL_PollEvent(&ev))

   292

		return -2;

   293

   294

	switch (ev.type) {

   295

	case SDL_MOUSEMOTION:

   296

		if (_cursor.fix_at) {

   297

			int dx = ev.motion.x - _cursor.pos.x;

   298

			int dy = ev.motion.y - _cursor.pos.y;

   299

			if (dx != 0 || dy != 0) {

   300

				_cursor.delta.x += dx;

   301

				_cursor.delta.y += dy;

   302

				SDL_CALL SDL_WarpMouse(_cursor.pos.x, _cursor.pos.y);

   303

			}

   304

		} else {

   305

			_cursor.delta.x = ev.motion.x - _cursor.pos.x;

   306

			_cursor.delta.y = ev.motion.y - _cursor.pos.y;

   307

			_cursor.pos.x = ev.motion.x;

   308

			_cursor.pos.y = ev.motion.y;

   309

			_cursor.dirty = true;

   310

		}

   311

		break;

   312

   313

	case SDL_MOUSEBUTTONDOWN:

   314

		if (_rightclick_emulate && (SDL_CALL SDL_GetModState() & (KMOD_LCTRL | KMOD_RCTRL)))

   315

			ev.button.button = SDL_BUTTON_RIGHT;

   316

   317

		switch (ev.button.button) {

   318

			case SDL_BUTTON_LEFT:

   319

				_left_button_down = true;

   320

				break;

   321

			case SDL_BUTTON_RIGHT:

   322

				_right_button_down = true;

   323

				_right_button_clicked = true;

   324

				break;

   325

			case SDL_BUTTON_WHEELUP:

   326

				_cursor.wheel--;

   327

				break;

   328

			case SDL_BUTTON_WHEELDOWN:

   329

				_cursor.wheel++;

   330

				break;

   331

			default:

   332

				break;

   333

		}

   334

		break;

   335

   336

	case SDL_MOUSEBUTTONUP:

   337

		if (_rightclick_emulate) {

   338

			_right_button_down = false;

   339

			_left_button_down = false;

   340

			_left_button_clicked = false;

   341

		} else if (ev.button.button == SDL_BUTTON_LEFT) {

   342

			_left_button_down = false;

   343

			_left_button_clicked = false;

   344

		} else if (ev.button.button == SDL_BUTTON_RIGHT) {

   345

			_right_button_down = false;

   346

		}

   347

		break;

   348

   349

	case SDL_QUIT:

   350

		// do not ask to quit on the main screen

   351

		if (_game_mode != GM_MENU) {

   352

			if(_patches.autosave_on_exit) {

   353

				DoExitSave();

   354

				return ML_QUIT;

   355

			} else

   356

				AskExitGame();

   357

		} else

   358

			return ML_QUIT;

   359

		break;

   360

   361

		case SDL_KEYDOWN: /* Toggle full-screen on ALT + ENTER/F */

   362

		if ((ev.key.keysym.mod & (KMOD_ALT | KMOD_META)) &&

   363

				(ev.key.keysym.sym == SDLK_RETURN || ev.key.keysym.sym == SDLK_f)) {

   364

			ToggleFullScreen(!_fullscreen);

   365

		} else

   366

			_pressed_key = ConvertSdlKeyIntoMy(&ev.key.keysym);

   367

   368

		break;

   369

   370

	case SDL_VIDEORESIZE: {

   371

		int w = clamp(ev.resize.w, 64, MAX_SCREEN_WIDTH);

   372

		int h = clamp(ev.resize.h, 64, MAX_SCREEN_HEIGHT);

   373

		ChangeResInGame(w, h);

   374

		break;

   375

	}

   376

	}

   377

	return -1;

   378

}

   379

   380

static const char *SdlVideoStart(const char * const *parm)

   381

{

   382

	char buf[30];

   383

   384

	const char *s = SdlOpen(SDL_INIT_VIDEO);

   385

	if (s != NULL) return s;

   386

   387

	SDL_CALL SDL_VideoDriverName(buf, 30);

   388

	DEBUG(misc, 1) ("sdl: using driver '%s'", buf);

   389

   390

	GetVideoModes();

   391

	CreateMainSurface(_cur_resolution[0], _cur_resolution[1]);

   392

	MarkWholeScreenDirty();

   393

   394

	SDL_CALL SDL_EnableKeyRepeat(SDL_DEFAULT_REPEAT_DELAY, SDL_DEFAULT_REPEAT_INTERVAL);

   395

	SDL_CALL SDL_EnableUNICODE(1);

   396

	return NULL;

   397

}

   398

   399

static void SdlVideoStop(void)

   400

{

   401

	SdlClose(SDL_INIT_VIDEO);

   402

}

   403

   404

static int SdlVideoMainLoop(void)

   405

{

   406

	uint32 next_tick = SDL_CALL SDL_GetTicks() + 30;

   407

	uint32 cur_ticks;

   408

	uint32 pal_tick = 0;

   409

	int i;

   410

	uint32 mod;

   411

	int numkeys;

   412

	Uint8 *keys;

   413

   414

	for (;;) {

   415

		InteractiveRandom(); // randomness

   416

   417

		while ((i = PollEvent()) == -1) {}

   418

		if (i >= 0) return i;

   419

   420

		if (_exit_game) return ML_QUIT;

   421

   422

		mod = SDL_CALL SDL_GetModState();

   423

		keys = SDL_CALL SDL_GetKeyState(&numkeys);

   424

#if defined(_DEBUG)

   425

		if (_shift_pressed)

   426

#else

   427

		if (keys[SDLK_TAB])

   428

#endif

   429

		{

   430

			if (!_networking && _game_mode != GM_MENU) _fast_forward |= 2;

   431

		} else if (_fast_forward & 2) {

   432

			_fast_forward = 0;

   433

		}

   434

   435

		cur_ticks = SDL_CALL SDL_GetTicks();

   436

		if ((_fast_forward && !_pause) || cur_ticks > next_tick)

   437

			next_tick = cur_ticks;

   438

   439

		if (cur_ticks == next_tick) {

   440

			next_tick += 30;

   441

   442

			_ctrl_pressed = !!(mod & (KMOD_LCTRL | KMOD_RCTRL));

   443

			_shift_pressed = !!(mod & (KMOD_LSHIFT | KMOD_RSHIFT));

   444

			_dbg_screen_rect = !!(mod & KMOD_CAPS);

   445

   446

			// determine which directional keys are down

   447

			_dirkeys =

   448

				(keys[SDLK_LEFT]  ? 1 : 0) |

   449

				(keys[SDLK_UP]    ? 2 : 0) |

   450

				(keys[SDLK_RIGHT] ? 4 : 0) |

   451

				(keys[SDLK_DOWN]  ? 8 : 0);

   452

			GameLoop();

   453

   454

			_screen.dst_ptr = _sdl_screen->pixels;

   455

			UpdateWindows();

   456

			if (++pal_tick > 4) {

   457

				CheckPaletteAnim();

   458

				pal_tick = 1;

   459

			}

   460

			DrawSurfaceToScreen();

   461

		} else {

   462

			SDL_CALL SDL_Delay(1);

   463

			_screen.dst_ptr = _sdl_screen->pixels;

   464

			DrawTextMessage();

   465

			DrawMouseCursor();

   466

			DrawSurfaceToScreen();

   467

		}

   468

	}

   469

}

   470

   471

static bool SdlVideoChangeRes(int w, int h)

   472

{

   473

	return CreateMainSurface(w, h);

   474

}

   475

   476

static void SdlVideoFullScreen(bool full_screen)

   477

{

   478

	_fullscreen = full_screen;

   479

	GetVideoModes(); // get the list of available video modes

   480

	if (!_video_driver->change_resolution(_cur_resolution[0], _cur_resolution[1]))

   481

		_fullscreen ^= true; // switching resolution failed, put back full_screen to original status

   482

}

   483

   484

const HalVideoDriver _sdl_video_driver = {

   485

	SdlVideoStart,

   486

	SdlVideoStop,

   487

	SdlVideoMakeDirty,

   488

	SdlVideoMainLoop,

   489

	SdlVideoChangeRes,

   490

	SdlVideoFullScreen,

   491

};

   492

   493

#endif