1

/* $Id$ */

     2

     3

#include "stdafx.h"

     4

#include "openttd.h"

     5

#include "debug.h"

     6

#include "functions.h"

     7

#include "strings.h"

     8

#include "table/strings.h"

     9

#include "gfx.h"

    10

#include "hal.h"

    11

#include "viewport.h"

    12

#include "player.h"

    13

#include "screenshot.h"

    14

#include "variables.h"

    15

    16

char _screenshot_format_name[8];

    17

uint _num_screenshot_formats;

    18

uint _cur_screenshot_format;

    19

    20

// called by the ScreenShot proc to generate screenshot lines.

    21

typedef void ScreenshotCallback(void *userdata, Pixel *buf, uint y, uint pitch, uint n);

    22

typedef bool ScreenshotHandlerProc(const char *name, ScreenshotCallback *callb, void *userdata, uint w, uint h, int pixelformat, const Colour *palette);

    23

    24

typedef struct {

    25

	const char *name;

    26

	const char *extension;

    27

	ScreenshotHandlerProc *proc;

    28

} ScreenshotFormat;

    29

    30

//************************************************

    31

//*** SCREENSHOT CODE FOR WINDOWS BITMAP (.BMP)

    32

//************************************************

    33

#if defined(_MSC_VER) || defined(__WATCOMC__)

    34

#pragma pack(push, 1)

    35

#endif

    36

    37

typedef struct BitmapFileHeader {

    38

	uint16 type;

    39

	uint32 size;

    40

	uint32 reserved;

    41

	uint32 off_bits;

    42

} GCC_PACK BitmapFileHeader;

    43

assert_compile(sizeof(BitmapFileHeader) == 14);

    44

    45

#if defined(_MSC_VER) || defined(__WATCOMC__)

    46

#pragma pack(pop)

    47

#endif

    48

    49

typedef struct BitmapInfoHeader {

    50

	uint32 size;

    51

	int32 width, height;

    52

	uint16 planes, bitcount;

    53

	uint32 compression, sizeimage, xpels, ypels, clrused, clrimp;

    54

} BitmapInfoHeader;

    55

assert_compile(sizeof(BitmapInfoHeader) == 40);

    56

    57

typedef struct RgbQuad {

    58

	byte blue, green, red, reserved;

    59

} RgbQuad;

    60

assert_compile(sizeof(RgbQuad) == 4);

    61

    62

// generic .BMP writer

    63

static bool MakeBmpImage(const char *name, ScreenshotCallback *callb, void *userdata, uint w, uint h, int pixelformat, const Colour *palette)

    64

{

    65

	BitmapFileHeader bfh;

    66

	BitmapInfoHeader bih;

    67

	RgbQuad rq[256];

    68

	Pixel *buff;

    69

	FILE *f;

    70

	uint i, padw;

    71

	uint n, maxlines;

    72

    73

	// only implemented for 8bit images so far.

    74

	if (pixelformat != 8)

    75

		return false;

    76

    77

	f = fopen(OTTD2FS(name), "wb");

    78

	if (f == NULL) return false;

    79

    80

	// each scanline must be aligned on a 32bit boundary

    81

	padw = ALIGN(w, 4);

    82

    83

	// setup the file header

    84

	bfh.type = TO_LE16('MB');

    85

	bfh.size = TO_LE32(sizeof(bfh) + sizeof(bih) + sizeof(RgbQuad) * 256 + padw * h);

    86

	bfh.reserved = 0;

    87

	bfh.off_bits = TO_LE32(sizeof(bfh) + sizeof(bih) + sizeof(RgbQuad) * 256);

    88

    89

	// setup the info header

    90

	bih.size = TO_LE32(sizeof(BitmapInfoHeader));

    91

	bih.width = TO_LE32(w);

    92

	bih.height = TO_LE32(h);

    93

	bih.planes = TO_LE16(1);

    94

	bih.bitcount = TO_LE16(8);

    95

	bih.compression = 0;

    96

	bih.sizeimage = 0;

    97

	bih.xpels = 0;

    98

	bih.ypels = 0;

    99

	bih.clrused = 0;

   100

	bih.clrimp = 0;

   101

   102

	// convert the palette to the windows format

   103

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

   104

		rq[i].red   = palette[i].r;

   105

		rq[i].green = palette[i].g;

   106

		rq[i].blue  = palette[i].b;

   107

		rq[i].reserved = 0;

   108

	}

   109

   110

	// write file header and info header and palette

   111

	if (fwrite(&bfh, sizeof(bfh), 1, f) != 1) return false;

   112

	if (fwrite(&bih, sizeof(bih), 1, f) != 1) return false;

   113

	if (fwrite(rq, sizeof(rq), 1, f) != 1) return false;

   114

   115

	// use by default 64k temp memory

   116

	maxlines = clamp(65536 / padw, 16, 128);

   117

   118

	// now generate the bitmap bits

   119

	buff = malloc(padw * maxlines); // by default generate 128 lines at a time.

   120

	if (buff == NULL) {

   121

		fclose(f);

   122

		return false;

   123

	}

   124

	memset(buff, 0, padw * maxlines); // zero the buffer to have the padding bytes set to 0

   125

   126

	// start at the bottom, since bitmaps are stored bottom up.

   127

	do {

   128

		// determine # lines

   129

		n = min(h, maxlines);

   130

		h -= n;

   131

   132

		// render the pixels

   133

		callb(userdata, buff, h, padw, n);

   134

   135

		// write each line

   136

		while (n)

   137

			if (fwrite(buff + (--n) * padw, padw, 1, f) != 1) {

   138

				free(buff);

   139

				fclose(f);

   140

				return false;

   141

			}

   142

	} while (h != 0);

   143

   144

	free(buff);

   145

	fclose(f);

   146

   147

	return true;

   148

}

   149

   150

//********************************************************

   151

//*** SCREENSHOT CODE FOR PORTABLE NETWORK GRAPHICS (.PNG)

   152

//********************************************************

   153

#if defined(WITH_PNG)

   154

#include <png.h>

   155

   156

static void PNGAPI png_my_error(png_structp png_ptr, png_const_charp message)

   157

{

   158

	DEBUG(misc, 0) ("ERROR(libpng): %s - %s", message, (char *)png_get_error_ptr(png_ptr));

   159

	longjmp(png_ptr->jmpbuf, 1);

   160

}

   161

   162

static void PNGAPI png_my_warning(png_structp png_ptr, png_const_charp message)

   163

{

   164

	DEBUG(misc, 0) ("WARNING(libpng): %s - %s", message, (char *)png_get_error_ptr(png_ptr));

   165

}

   166

   167

static bool MakePNGImage(const char *name, ScreenshotCallback *callb, void *userdata, uint w, uint h, int pixelformat, const Colour *palette)

   168

{

   169

	png_color rq[256];

   170

	Pixel *buff;

   171

	FILE *f;

   172

	uint i, y, n;

   173

	uint maxlines;

   174

	png_structp png_ptr;

   175

	png_infop info_ptr;

   176

   177

	// only implemented for 8bit images so far.

   178

	if (pixelformat != 8)

   179

		return false;

   180

   181

	f = fopen(OTTD2FS(name), "wb");

   182

	if (f == NULL) return false;

   183

   184

	png_ptr = png_create_write_struct(PNG_LIBPNG_VER_STRING, (char *)name, png_my_error, png_my_warning);

   185

   186

	if (png_ptr == NULL) {

   187

		fclose(f);

   188

		return false;

   189

	}

   190

   191

	info_ptr = png_create_info_struct(png_ptr);

   192

	if (info_ptr == NULL) {

   193

		png_destroy_write_struct(&png_ptr, (png_infopp)NULL);

   194

		fclose(f);

   195

		return false;

   196

	}

   197

   198

	if (setjmp(png_jmpbuf(png_ptr))) {

   199

		png_destroy_write_struct(&png_ptr, &info_ptr);

   200

		fclose(f);

   201

		return false;

   202

	}

   203

   204

	png_init_io(png_ptr, f);

   205

   206

	png_set_filter(png_ptr, 0, PNG_FILTER_NONE);

   207

   208

	png_set_IHDR(png_ptr, info_ptr, w, h, pixelformat, PNG_COLOR_TYPE_PALETTE,

   209

		PNG_INTERLACE_NONE, PNG_COMPRESSION_TYPE_DEFAULT, PNG_FILTER_TYPE_DEFAULT);

   210

   211

	// convert the palette to the .PNG format.

   212

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

   213

		rq[i].red   = palette[i].r;

   214

		rq[i].green = palette[i].g;

   215

		rq[i].blue  = palette[i].b;

   216

	}

   217

   218

	png_set_PLTE(png_ptr, info_ptr, rq, 256);

   219

	png_write_info(png_ptr, info_ptr);

   220

	png_set_flush(png_ptr, 512);

   221

   222

	// use by default 64k temp memory

   223

	maxlines = clamp(65536 / w, 16, 128);

   224

   225

	// now generate the bitmap bits

   226

	buff = malloc(w * maxlines); // by default generate 128 lines at a time.

   227

	if (buff == NULL) {

   228

		png_destroy_write_struct(&png_ptr, &info_ptr);

   229

		fclose(f);

   230

		return false;

   231

	}

   232

	memset(buff, 0, w * maxlines); // zero the buffer to have the padding bytes set to 0

   233

   234

	y = 0;

   235

	do {

   236

		// determine # lines to write

   237

		n = min(h - y, maxlines);

   238

   239

		// render the pixels into the buffer

   240

		callb(userdata, buff, y, w, n);

   241

		y += n;

   242

   243

		// write them to png

   244

		for (i = 0; i != n; i++)

   245

			png_write_row(png_ptr, buff + i * w);

   246

	} while (y != h);

   247

   248

	png_write_end(png_ptr, info_ptr);

   249

	png_destroy_write_struct(&png_ptr, &info_ptr);

   250

   251

	free(buff);

   252

	fclose(f);

   253

	return true;

   254

}

   255

#endif // WITH_PNG

   256

   257

   258

//************************************************

   259

//*** SCREENSHOT CODE FOR ZSOFT PAINTBRUSH (.PCX)

   260

//************************************************

   261

   262

typedef struct {

   263

	byte manufacturer;

   264

	byte version;

   265

	byte rle;

   266

	byte bpp;

   267

	uint32 unused;

   268

	uint16 xmax, ymax;

   269

	uint16 hdpi, vdpi;

   270

	byte pal_small[16*3];

   271

	byte reserved;

   272

	byte planes;

   273

	uint16 pitch;

   274

	uint16 cpal;

   275

	uint16 width;

   276

	uint16 height;

   277

	byte filler[54];

   278

} PcxHeader;

   279

assert_compile(sizeof(PcxHeader) == 128);

   280

   281

static bool MakePCXImage(const char *name, ScreenshotCallback *callb, void *userdata, uint w, uint h, int pixelformat, const Colour *palette)

   282

{

   283

	Pixel *buff;

   284

	FILE *f;

   285

	uint maxlines;

   286

	uint y;

   287

	PcxHeader pcx;

   288

	bool success;

   289

   290

	if (pixelformat != 8 || w == 0)

   291

		return false;

   292

   293

	f = fopen(OTTD2FS(name), "wb");

   294

	if (f == NULL) return false;

   295

   296

	memset(&pcx, 0, sizeof(pcx));

   297

   298

	// setup pcx header

   299

	pcx.manufacturer = 10;

   300

	pcx.version = 5;

   301

	pcx.rle = 1;

   302

	pcx.bpp = 8;

   303

	pcx.xmax = TO_LE16(w - 1);

   304

	pcx.ymax = TO_LE16(h - 1);

   305

	pcx.hdpi = TO_LE16(320);

   306

	pcx.vdpi = TO_LE16(320);

   307

   308

	pcx.planes = 1;

   309

	pcx.cpal = TO_LE16(1);

   310

	pcx.width = pcx.pitch = TO_LE16(w);

   311

	pcx.height = TO_LE16(h);

   312

   313

	// write pcx header

   314

	if (fwrite(&pcx, sizeof(pcx), 1, f) != 1) {

   315

		fclose(f);

   316

		return false;

   317

	}

   318

   319

	// use by default 64k temp memory

   320

	maxlines = clamp(65536 / w, 16, 128);

   321

   322

	// now generate the bitmap bits

   323

	buff = malloc(w * maxlines); // by default generate 128 lines at a time.

   324

	if (buff == NULL) {

   325

		fclose(f);

   326

		return false;

   327

	}

   328

	memset(buff, 0, w * maxlines); // zero the buffer to have the padding bytes set to 0

   329

   330

	y = 0;

   331

	do {

   332

		// determine # lines to write

   333

		uint n = min(h - y, maxlines);

   334

		uint i;

   335

   336

		// render the pixels into the buffer

   337

		callb(userdata, buff, y, w, n);

   338

		y += n;

   339

   340

		// write them to pcx

   341

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

   342

			const Pixel* bufp = buff + i * w;

   343

			byte runchar = bufp[0];

   344

			uint runcount = 1;

   345

			uint j;

   346

   347

			// for each pixel...

   348

			for (j = 1; j < w; j++) {

   349

				Pixel ch = bufp[j];

   350

   351

				if (ch != runchar || runcount >= 0x3f) {

   352

					if (runcount > 1 || (runchar & 0xC0) == 0xC0)

   353

						if (fputc(0xC0 | runcount, f) == EOF) {

   354

							free(buff);

   355

							fclose(f);

   356

							return false;

   357

						}

   358

					if (fputc(runchar, f) == EOF) {

   359

						free(buff);

   360

						fclose(f);

   361

						return false;

   362

					}

   363

					runcount = 0;

   364

					runchar = ch;

   365

				}

   366

				runcount++;

   367

			}

   368

   369

			// write remaining bytes..

   370

			if (runcount > 1 || (runchar & 0xC0) == 0xC0)

   371

				if (fputc(0xC0 | runcount, f) == EOF) {

   372

					free(buff);

   373

					fclose(f);

   374

					return false;

   375

				}

   376

			if (fputc(runchar, f) == EOF) {

   377

				free(buff);

   378

				fclose(f);

   379

				return false;

   380

			}

   381

		}

   382

	} while (y != h);

   383

   384

	free(buff);

   385

   386

	// write 8-bit color palette

   387

	if (fputc(12, f) == EOF) {

   388

		fclose(f);

   389

		return false;

   390

	}

   391

   392

	if (sizeof(*palette) == 3) {

   393

		success = fwrite(palette, 256 * sizeof(*palette), 1, f) == 1;

   394

	} else {

   395

		/* If the palette is word-aligned, copy it to a temporary byte array */

   396

		byte *tmp = malloc(256 * 3);

   397

		uint i;

   398

		for (i = 0; i < 256; i++) {

   399

			tmp[i * 3 + 0] = palette[i].r;

   400

			tmp[i * 3 + 1] = palette[i].g;

   401

			tmp[i * 3 + 2] = palette[i].b;

   402

		}

   403

		success = fwrite(tmp, 256 * 3, 1, f) == 1;

   404

		free(tmp);

   405

	}

   406

   407

	fclose(f);

   408

   409

	return success;

   410

}

   411

   412

//************************************************

   413

//*** GENERIC SCREENSHOT CODE

   414

//************************************************

   415

   416

static const ScreenshotFormat _screenshot_formats[] = {

   417

	{"BMP", "bmp", &MakeBmpImage},

   418

#if defined(WITH_PNG)

   419

	{"PNG", "png", &MakePNGImage},

   420

#endif

   421

	{"PCX", "pcx", &MakePCXImage},

   422

};

   423

   424

void InitializeScreenshotFormats(void)

   425

{

   426

	int i, j;

   427

	for (i = 0, j = 0; i != lengthof(_screenshot_formats); i++)

   428

		if (!strcmp(_screenshot_format_name, _screenshot_formats[i].extension)) {

   429

			j = i;

   430

			break;

   431

		}

   432

	_cur_screenshot_format = j;

   433

	_num_screenshot_formats = lengthof(_screenshot_formats);

   434

}

   435

   436

const char *GetScreenshotFormatDesc(int i)

   437

{

   438

	return _screenshot_formats[i].name;

   439

}

   440

   441

void SetScreenshotFormat(int i)

   442

{

   443

	_cur_screenshot_format = i;

   444

	strcpy(_screenshot_format_name, _screenshot_formats[i].extension);

   445

}

   446

   447

// screenshot generator that dumps the current video buffer

   448

static void CurrentScreenCallback(void *userdata, Pixel *buf, uint y, uint pitch, uint n)

   449

{

   450

	for (; n > 0; --n) {

   451

		memcpy(buf, _screen.dst_ptr + y * _screen.pitch, _screen.width);

   452

		++y;

   453

		buf += pitch;

   454

	}

   455

}

   456

   457

// generate a large piece of the world

   458

static void LargeWorldCallback(void *userdata, Pixel *buf, uint y, uint pitch, uint n)

   459

{

   460

	ViewPort *vp = (ViewPort *)userdata;

   461

	DrawPixelInfo dpi, *old_dpi;

   462

	int wx, left;

   463

   464

	old_dpi = _cur_dpi;

   465

	_cur_dpi = &dpi;

   466

   467

	dpi.dst_ptr = buf;

   468

	dpi.height = n;

   469

	dpi.width = vp->width;

   470

	dpi.pitch = pitch;

   471

	dpi.zoom = 0;

   472

	dpi.left = 0;

   473

	dpi.top = y;

   474

   475

	left = 0;

   476

	while (vp->width - left != 0) {

   477

		wx = min(vp->width - left, 1600);

   478

		left += wx;

   479

   480

		ViewportDoDraw(vp,

   481

			((left - wx - vp->left) << vp->zoom) + vp->virtual_left,

   482

			((y - vp->top) << vp->zoom) + vp->virtual_top,

   483

			((left - vp->left) << vp->zoom) + vp->virtual_left,

   484

			(((y + n) - vp->top) << vp->zoom) + vp->virtual_top

   485

		);

   486

	}

   487

   488

	_cur_dpi = old_dpi;

   489

}

   490

   491

static char *MakeScreenshotName(const char *ext)

   492

{

   493

	static char filename[256];

   494

	char *base;

   495

	int serial;

   496

   497

	if (_game_mode == GM_EDITOR || _game_mode == GM_MENU || _local_player == OWNER_SPECTATOR) {

   498

		sprintf(_screenshot_name, "screenshot");

   499

	} else {

   500

		const Player* p = GetPlayer(_local_player);

   501

		SetDParam(0, p->name_1);

   502

		SetDParam(1, p->name_2);

   503

		SetDParam(2, _date);

   504

		GetString(_screenshot_name, STR_4004);

   505

	}

   506

   507

	base = strchr(_screenshot_name, 0);

   508

	base[0] = '.'; strcpy(base + 1, ext);

   509