1

#include "stdafx.h"

     2

#include "ttd.h"

     3

#include "table/strings.h"

     4

#include "window.h"

     5

#include "gui.h"

     6

#include "gfx.h"

     7

#include "player.h"

     8

#include "economy.h"

     9

#include "signs.h"

    10

#include "strings.h"

    11

#include "debug.h"

    12

    13

static uint _legend_excludebits;

    14

static uint _legend_cargobits;

    15

    16

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

    17

/* GENERIC GRAPH DRAWER */

    18

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

    19

    20

enum {GRAPH_NUM = 16};

    21

    22

typedef struct GraphDrawer {

    23

	uint sel; // bitmask of the players *excluded* (e.g. 11111111 means that no players are shown)

    24

	byte num_dataset;

    25

	byte num_on_x_axis;

    26

	byte month;

    27

	byte year;

    28

	bool include_neg;

    29

	byte num_vert_lines;

    30

	uint16 unk61A;

    31

	uint16 unk61C;

    32

	int left, top;

    33

	uint height;

    34

	StringID format_str_y_axis;

    35

	byte color_3, color_2, bg_line_color;

    36

	byte colors[GRAPH_NUM];

    37

	uint64 cost[GRAPH_NUM][24]; // last 2 years

    38

} GraphDrawer;

    39

    40

#define INVALID_VALUE 0x80000000

    41

    42

static void DrawGraph(GraphDrawer *gw)

    43

{

    44

    45

	int i,j,k;

    46

	uint x,y,old_x,old_y;

    47

	int color;

    48

	int right, bottom;

    49

	int num_x, num_dataset;

    50

	uint64 *row_ptr, *col_ptr;

    51

	int64 mx;

    52

	int adj_height;

    53

	uint64 y_scaling, tmp;

    54

	int64 value;

    55

	int64 cur_val;

    56

	uint sel;

    57

    58

	/* the colors and cost array of GraphDrawer must accomodate

    59

	 * both values for cargo and players. So if any are higher, quit */

    60

	assert(GRAPH_NUM >= NUM_CARGO && GRAPH_NUM >= MAX_PLAYERS);

    61

    62

	color = _color_list[gw->bg_line_color].window_color_1b;

    63

    64

	/* draw the vertical lines */

    65

	i = gw->num_vert_lines; assert(i > 0);

    66

	x = gw->left + 66;

    67

	bottom = gw->top + gw->height - 1;

    68

	do {

    69

		GfxFillRect(x, gw->top, x, bottom, color);

    70

		x += 22;

    71

	} while (--i);

    72

    73

	/* draw the horizontal lines */

    74

	i = 9;

    75

	x = gw->left + 44;

    76

	y = gw->height + gw->top;

    77

	right = gw->left + 44 + gw->num_vert_lines*22-1;

    78

    79

	do {

    80

		GfxFillRect(x, y, right, y, color);

    81

		y -= gw->height >> 3;

    82

	} while (--i);

    83

    84

	/* draw vertical edge line */

    85

	GfxFillRect(x, gw->top, x, bottom, gw->color_2);

    86

    87

	adj_height = gw->height;

    88

	if (gw->include_neg) adj_height >>= 1;

    89

    90

	/* draw horiz edge line */

    91

	y = adj_height + gw->top;

    92

	GfxFillRect(x, y, right, y, gw->color_2);

    93

    94

	/* find the max element */

    95

	if (gw->num_on_x_axis == 0)

    96

		return;

    97

    98

	num_dataset = gw->num_dataset;

    99

	assert(num_dataset > 0);

   100

   101

	row_ptr = gw->cost[0];

   102

	mx = 0;

   103

		/* bit selection for the showing of various players, base max element

   104

		 * on to-be shown player-information. This way the graph can scale */

   105

	sel = gw->sel;

   106

	do {

   107

		if (!(sel&1)) {

   108

			num_x = gw->num_on_x_axis;

   109

			assert(num_x > 0);

   110

			col_ptr = row_ptr;

   111

			do {

   112

				if (*col_ptr != INVALID_VALUE) {

   113

					mx = max64(mx, myabs64(*col_ptr));

   114

				}

   115

			} while (col_ptr++, --num_x);

   116

		}

   117

	} while (sel>>=1, row_ptr+=24, --num_dataset);

   118

   119

	/* setup scaling */

   120

	y_scaling = INVALID_VALUE;

   121

	value = adj_height * 2;

   122

   123

	if (mx > value) {

   124

		mx = (mx + 7) & ~7;

   125

		y_scaling = (((uint64) (value>>1) << 32) / mx);

   126

		value = mx;

   127

	}

   128

   129

	/* draw text strings on the y axis */

   130

	tmp = value;

   131

	if (gw->include_neg) tmp >>= 1;

   132

	x = gw->left + 45;

   133

	y = gw->top - 3;

   134

	i = 9;

   135

	do {

   136

		SetDParam(0, gw->format_str_y_axis);

   137

		SetDParam64(1, (int64)tmp);

   138

		tmp -= (value >> 3);

   139

		DrawStringRightAligned(x, y, STR_0170, gw->color_3);

   140

		y += gw->height >> 3;

   141

	} while (--i);

   142

   143

	/* draw strings on the x axis */

   144

	if (gw->month != 0xFF) {

   145

		x = gw->left + 44;

   146

		y = gw->top + gw->height + 1;

   147

		j = gw->month;

   148

		k = gw->year + MAX_YEAR_BEGIN_REAL;

   149

		i = gw->num_on_x_axis;assert(i>0);

   150

		do {

   151

			SetDParam(2, k);

   152

			SetDParam(0, j + STR_0162_JAN);

   153

			SetDParam(1, j + STR_0162_JAN + 2);

   154

			DrawString(x, y, j == 0 ? STR_016F : STR_016E, gw->color_3);

   155

   156

			j += 3;

   157

			if (j >= 12) {

   158

				j = 0;

   159

				k++;

   160

			}

   161

			x += 22;

   162

		} while (--i);

   163

	} else {

   164

		x = gw->left + 52;

   165

		y = gw->top + gw->height + 1;

   166

		j = gw->unk61A;

   167

		i = gw->num_on_x_axis;assert(i>0);

   168

		do {

   169

			SetDParam(0, j);

   170

			DrawString(x, y, STR_01CB, gw->color_3);

   171

			j += gw->unk61C;

   172

			x += 22;

   173

		} while (--i);

   174

	}

   175

   176

	/* draw lines and dots */

   177

	i = 0;

   178

	row_ptr = gw->cost[0];

   179

	sel = gw->sel; // show only selected lines. GraphDrawer qw->sel set in Graph-Legend (_legend_excludebits)

   180

	do {

   181

		if (!(sel & 1)) {

   182

			x = gw->left + 55;

   183

			j = gw->num_on_x_axis;assert(j>0);

   184

			col_ptr = row_ptr;

   185

			color = gw->colors[i];

   186

			old_y = old_x = INVALID_VALUE;

   187

			do {

   188

				cur_val = *col_ptr++;

   189

				if (cur_val != INVALID_VALUE) {

   190

					y = adj_height - BIGMULSS64(cur_val, y_scaling >> 1, 31) + gw->top;

   191

   192

					GfxFillRect(x-1, y-1, x+1, y+1, color);

   193

					if (old_x != INVALID_VALUE)

   194

						GfxDrawLine(old_x, old_y, x, y, color);

   195

   196

					old_x = x;

   197

					old_y = y;

   198

				} else {

   199

					old_x = INVALID_VALUE;

   200

				}

   201

			} while (x+=22,--j);

   202

		}

   203

	} while (sel>>=1,row_ptr+=24, ++i < gw->num_dataset);

   204

}

   205

   206

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

   207

/* GRAPH LEGEND */

   208

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

   209

   210

void DrawPlayerIcon(int p, int x, int y)

   211

{

   212

	DrawSprite(SPRITE_PALETTE(PLAYER_SPRITE_COLOR(p) + 0x2EB), x, y);

   213

}

   214

   215

static void GraphLegendWndProc(Window *w, WindowEvent *e)

   216

{

   217

	Player *p;

   218

   219

	switch(e->event) {

   220

	case WE_PAINT:

   221

		FOR_ALL_PLAYERS(p) {

   222

			if (!p->is_active)

   223

				SETBIT(_legend_excludebits, p->index);

   224

		}

   225

		w->click_state = ((~_legend_excludebits) << 3);

   226

		DrawWindowWidgets(w);

   227

   228

		FOR_ALL_PLAYERS(p) {

   229

			if (!p->is_active)

   230

				continue;

   231

   232

			DrawPlayerIcon(p->index, 4, 18+p->index*12);

   233

   234

			SetDParam(0, p->name_1);

   235

			SetDParam(1, p->name_2);

   236

			SetDParam(2, GetPlayerNameString(p->index, 3));

   237

			DrawString(21,17+p->index*12,STR_7021,HASBIT(_legend_excludebits, p->index) ? 0x10 : 0xC);

   238

		}

   239

		break;

   240

   241

	case WE_CLICK:

   242

		if (IS_INT_INSIDE(e->click.widget, 3, 11)) {

   243

			_legend_excludebits ^= (1 << (e->click.widget-3));

   244

			SetWindowDirty(w);

   245

			InvalidateWindow(WC_INCOME_GRAPH, 0);

   246

			InvalidateWindow(WC_OPERATING_PROFIT, 0);

   247

			InvalidateWindow(WC_DELIVERED_CARGO, 0);

   248

			InvalidateWindow(WC_PERFORMANCE_HISTORY, 0);

   249

			InvalidateWindow(WC_COMPANY_VALUE, 0);

   250

		}

   251

		break;

   252

	}

   253

}

   254

   255

static const Widget _graph_legend_widgets[] = {

   256

{    WWT_TEXTBTN,   RESIZE_NONE,    14,     0,    10,     0,    13, STR_00C5, STR_018B_CLOSE_WINDOW},

   257

{    WWT_CAPTION,   RESIZE_NONE,    14,    11,   249,     0,    13, STR_704E_KEY_TO_COMPANY_GRAPHS, STR_018C_WINDOW_TITLE_DRAG_THIS},

   258

{     WWT_IMGBTN,   RESIZE_NONE,    14,     0,   249,    14,   113, 0x0,STR_NULL},

   259

{     WWT_IMGBTN,   RESIZE_NONE,    14,     2,   247,    16,    27, 0x0,STR_704F_CLICK_HERE_TO_TOGGLE_COMPANY},

   260

{     WWT_IMGBTN,   RESIZE_NONE,    14,     2,   247,    28,    39, 0x0,STR_704F_CLICK_HERE_TO_TOGGLE_COMPANY},

   261

{     WWT_IMGBTN,   RESIZE_NONE,    14,     2,   247,    40,    51, 0x0,STR_704F_CLICK_HERE_TO_TOGGLE_COMPANY},

   262

{     WWT_IMGBTN,   RESIZE_NONE,    14,     2,   247,    52,    63, 0x0,STR_704F_CLICK_HERE_TO_TOGGLE_COMPANY},

   263

{     WWT_IMGBTN,   RESIZE_NONE,    14,     2,   247,    64,    75, 0x0,STR_704F_CLICK_HERE_TO_TOGGLE_COMPANY},

   264

{     WWT_IMGBTN,   RESIZE_NONE,    14,     2,   247,    76,    87, 0x0,STR_704F_CLICK_HERE_TO_TOGGLE_COMPANY},

   265

{     WWT_IMGBTN,   RESIZE_NONE,    14,     2,   247,    88,    99, 0x0,STR_704F_CLICK_HERE_TO_TOGGLE_COMPANY},

   266

{     WWT_IMGBTN,   RESIZE_NONE,    14,     2,   247,   100,   111, 0x0,STR_704F_CLICK_HERE_TO_TOGGLE_COMPANY},

   267

{   WIDGETS_END},

   268

};

   269

   270

static const WindowDesc _graph_legend_desc = {

   271

	-1, -1, 250, 114,

   272

	WC_GRAPH_LEGEND,0,

   273

	WDF_STD_TOOLTIPS | WDF_STD_BTN | WDF_DEF_WIDGET,

   274

	_graph_legend_widgets,

   275

	GraphLegendWndProc

   276

};

   277

   278

static void ShowGraphLegend(void)

   279

{

   280

	AllocateWindowDescFront(&_graph_legend_desc, 0);

   281

}

   282

   283

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

   284

/* OPERATING PROFIT */

   285

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

   286

   287

static void SetupGraphDrawerForPlayers(GraphDrawer *gd)

   288

{

   289

	Player *p;

   290

	uint excludebits = _legend_excludebits;

   291

	int nums;

   292

	int mo,yr;

   293

   294

	// Exclude the players which aren't valid

   295

	FOR_ALL_PLAYERS(p) {

   296

		if (!p->is_active) SETBIT(excludebits,p->index);

   297

	}

   298

	gd->sel = excludebits;

   299

	gd->num_vert_lines = 24;

   300

   301

	nums = 0;

   302

	FOR_ALL_PLAYERS(p) {

   303

		if (p->is_active) nums = max(nums,p->num_valid_stat_ent);

   304

	}

   305

	gd->num_on_x_axis = min(nums,24);

   306

   307

	mo = (_cur_month/3-nums)*3;

   308

	yr = _cur_year;

   309

	while (mo < 0) {

   310

		yr--;

   311

		mo += 12;

   312

	}

   313

   314

	gd->year = yr;

   315

	gd->month = mo;

   316

}

   317

   318

static void OperatingProfitWndProc(Window *w, WindowEvent *e)

   319

{

   320

	switch(e->event) {

   321

	case WE_PAINT: {

   322

		GraphDrawer gd;

   323

		Player *p;

   324

		int i,j;

   325

		int numd;

   326

   327

		DrawWindowWidgets(w);

   328

   329

		gd.left = 2;

   330

		gd.top = 18;

   331

		gd.height = 136;

   332

		gd.include_neg = true;

   333

		gd.format_str_y_axis = STR_CURRCOMPACT32;

   334

		gd.color_3 = 0x10;

   335

		gd.color_2 = 0xD7;

   336

		gd.bg_line_color = 0xE;

   337

   338

		SetupGraphDrawerForPlayers(&gd);

   339

   340

		numd = 0;

   341

		FOR_ALL_PLAYERS(p) {

   342

			if (p->is_active) {

   343

				gd.colors[numd] = _color_list[p->player_color].window_color_bgb;

   344

				for(j=gd.num_on_x_axis,i=0; --j >= 0;) {

   345

					gd.cost[numd][i] = (j >= p->num_valid_stat_ent) ? INVALID_VALUE : (uint64)(p->old_economy[j].income + p->old_economy[j].expenses);

   346

					i++;

   347

				}

   348

			}

   349

			numd++;

   350

		}

   351

   352

		gd.num_dataset = numd;

   353

   354

		DrawGraph(&gd);

   355

	}	break;

   356

	case WE_CLICK:

   357

		if (e->click.widget == 2) /* Clicked on Legend */

   358

			ShowGraphLegend();

   359

		break;

   360

	}

   361

}

   362

   363

static const Widget _operating_profit_widgets[] = {

   364

{    WWT_TEXTBTN,   RESIZE_NONE,    14,     0,    10,     0,    13, STR_00C5,												STR_018B_CLOSE_WINDOW},

   365

{    WWT_CAPTION,   RESIZE_NONE,    14,    11,   525,     0,    13, STR_7025_OPERATING_PROFIT_GRAPH, STR_018C_WINDOW_TITLE_DRAG_THIS},

   366

{ WWT_PUSHTXTBTN,   RESIZE_NONE,    14,   526,   575,     0,    13, STR_704C_KEY,										STR_704D_SHOW_KEY_TO_GRAPHS},

   367

{     WWT_IMGBTN,   RESIZE_NONE,    14,     0,   575,    14,   173, 0x0,															STR_NULL},

   368

{   WIDGETS_END},

   369

};

   370

   371

static const WindowDesc _operating_profit_desc = {

   372

	-1, -1, 576, 174,

   373

	WC_OPERATING_PROFIT,0,

   374

	WDF_STD_TOOLTIPS | WDF_STD_BTN | WDF_DEF_WIDGET | WDF_UNCLICK_BUTTONS,

   375

	_operating_profit_widgets,

   376

	OperatingProfitWndProc

   377

};

   378

   379

   380

void ShowOperatingProfitGraph(void)

   381

{

   382

	if (AllocateWindowDescFront(&_operating_profit_desc, 0)) {

   383

		InvalidateWindow(WC_GRAPH_LEGEND, 0);

   384

	}

   385

}

   386

   387

   388

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

   389

/* INCOME GRAPH */

   390

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

   391

   392

static void IncomeGraphWndProc(Window *w, WindowEvent *e)

   393

{

   394

	switch(e->event) {

   395

	case WE_PAINT: {

   396

		GraphDrawer gd;

   397

		Player *p;

   398

		int i,j;

   399

		int numd;

   400

   401

		DrawWindowWidgets(w);

   402

   403

		gd.left = 2;

   404

		gd.top = 18;

   405

		gd.height = 104;

   406

		gd.include_neg = false;

   407

		gd.format_str_y_axis = STR_CURRCOMPACT32;

   408

		gd.color_3 = 0x10;

   409

		gd.color_2 = 0xD7;

   410

		gd.bg_line_color = 0xE;

   411

		SetupGraphDrawerForPlayers(&gd);

   412

   413

		numd = 0;

   414

		FOR_ALL_PLAYERS(p) {

   415

			if (p->is_active) {

   416

				gd.colors[numd] = _color_list[p->player_color].window_color_bgb;

   417

				for(j=gd.num_on_x_axis,i=0; --j >= 0;) {

   418

					gd.cost[numd][i] = (j >= p->num_valid_stat_ent) ? INVALID_VALUE : (uint64)p->old_economy[j].income;

   419

					i++;

   420

				}

   421

			}

   422

			numd++;

   423

		}

   424

   425

		gd.num_dataset = numd;

   426

   427

		DrawGraph(&gd);

   428

		break;

   429

	}

   430

   431

	case WE_CLICK:

   432

		if (e->click.widget == 2)

   433

			ShowGraphLegend();

   434

		break;

   435

	}

   436

}

   437

   438

static const Widget _income_graph_widgets[] = {

   439

{    WWT_TEXTBTN,   RESIZE_NONE,    14,     0,    10,     0,    13, STR_00C5,							STR_018B_CLOSE_WINDOW},

   440

{    WWT_CAPTION,   RESIZE_NONE,    14,    11,   525,     0,    13, STR_7022_INCOME_GRAPH, STR_018C_WINDOW_TITLE_DRAG_THIS},

   441

{ WWT_PUSHTXTBTN,   RESIZE_NONE,    14,   526,   575,     0,    13, STR_704C_KEY,					STR_704D_SHOW_KEY_TO_GRAPHS},

   442

{     WWT_IMGBTN,   RESIZE_NONE,    14,     0,   575,    14,   141, 0x0,										STR_NULL},

   443

{   WIDGETS_END},

   444

};

   445

   446

static const WindowDesc _income_graph_desc = {

   447

	-1, -1, 576, 142,

   448

	WC_INCOME_GRAPH,0,

   449

	WDF_STD_TOOLTIPS | WDF_STD_BTN | WDF_DEF_WIDGET | WDF_UNCLICK_BUTTONS,

   450

	_income_graph_widgets,

   451

	IncomeGraphWndProc

   452

};

   453

   454

void ShowIncomeGraph(void)

   455

{

   456

	if (AllocateWindowDescFront(&_income_graph_desc, 0)) {

   457

		InvalidateWindow(WC_GRAPH_LEGEND, 0);

   458

	}

   459

}

   460

   461

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

   462

/* DELIVERED CARGO */

   463

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

   464

   465

static void DeliveredCargoGraphWndProc(Window *w, WindowEvent *e)

   466

{

   467

	switch(e->event) {

   468

	case WE_PAINT: {

   469

		GraphDrawer gd;

   470

		Player *p;

   471

		int i,j;

   472

		int numd;

   473

   474

		DrawWindowWidgets(w);

   475

   476

		gd.left = 2;

   477

		gd.top = 18;

   478

		gd.height = 104;

   479

		gd.include_neg = false;

   480

		gd.format_str_y_axis = STR_7024;

   481

		gd.color_3 = 0x10;

   482

		gd.color_2 = 0xD7;

   483

		gd.bg_line_color = 0xE;

   484

		SetupGraphDrawerForPlayers(&gd);

   485

   486

		numd = 0;

   487

		FOR_ALL_PLAYERS(p) {

   488

			if (p->is_active) {

   489

				gd.colors[numd] = _color_list[p->player_color].window_color_bgb;

   490

				for(j=gd.num_on_x_axis,i=0; --j >= 0;) {

   491

					gd.cost[numd][i] = (j >= p->num_valid_stat_ent) ? INVALID_VALUE : (uint64)p->old_economy[j].delivered_cargo;

   492

					i++;

   493

				}

   494

			}

   495

			numd++;

   496

		}

   497

   498

		gd.num_dataset = numd;

   499

   500

		DrawGraph(&gd);

   501

		break;

   502

	}

   503

   504

	case WE_CLICK:

   505

		if (e->click.widget == 2)

   506

			ShowGraphLegend();

   507

		break;

   508

	}

   509

}

   510

   511

static const Widget _delivered_cargo_graph_widgets[] = {

   512