forks/multipaint-js: Interface.pde annotate

annotate Interface.pde @ 108:a9d8db1726c1

Use the constant for RIGHT mouse button instead of magic number.

author	Matti Hamalainen <ccr@tnsp.org>
date	Fri, 06 Jul 2018 06:40:43 +0300
parents	cd6450dceec2
children	b9b60552667e

rev	line source
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1 // This collects UI stuff that's not directly related to the viewport
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	2 // i.e. Icons, color selectors and the like, but also undo/spare
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	3
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	4 //fixed raster parameters
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	5 int g_raster_offset_x;
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	6 int g_raster_offset_y;
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	7 int g_raster_no;
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	8
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	9 byte[] g_depressed = new byte[256];
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	10
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	11
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	12 int g_fixedraster[] = {
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	13 1,0,0,0,1,0,0,0,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	14 0,0,1,0,0,0,1,0,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	15 1,0,0,0,1,0,0,0,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	16 0,0,1,0,0,0,1,0,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	17 1,0,0,0,1,0,0,0,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	18 0,0,1,0,0,0,1,0,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	19 1,0,0,0,1,0,0,0,
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	20 0,0,1,0,0,0,1,0
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	21 };
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	22
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	23
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	24 int g_rasterpatterns[] = {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	25
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	26 0,1,1,1,0,1,1,1,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	27 1,1,1,1,1,1,1,1,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	28 1,1,0,1,1,1,0,1,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	29 1,1,1,1,1,1,1,1,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	30 0,1,1,1,0,1,1,1,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	31 1,1,1,1,1,1,1,1,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	32 1,1,0,1,1,1,0,1,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	33 1,1,1,1,1,1,1,1,
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	34
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	35 0,1,1,1,0,1,1,1,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	36 1,1,0,1,1,1,0,1,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	37 0,1,1,1,0,1,1,1,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	38 1,1,0,1,1,1,0,1,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	39 0,1,1,1,0,1,1,1,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	40 1,1,0,1,1,1,0,1,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	41 0,1,1,1,0,1,1,1,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	42 1,1,0,1,1,1,0,1,
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	43
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	44 0,1,1,1,0,1,1,1,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	45 1,0,1,0,1,0,1,0,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	46 1,1,0,1,1,1,0,1,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	47 1,0,1,0,1,0,1,0,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	48 0,1,1,1,0,1,1,1,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	49 1,0,1,0,1,0,1,0,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	50 1,1,0,1,1,1,0,1,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	51 1,0,1,0,1,0,1,0,
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	52
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	53 1,0,1,0,1,0,1,0,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	54 0,1,0,1,0,1,0,1,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	55 1,0,1,0,1,0,1,0,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	56 0,1,0,1,0,1,0,1,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	57 1,0,1,0,1,0,1,0,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	58 0,1,0,1,0,1,0,1,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	59 1,0,1,0,1,0,1,0,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	60 0,1,0,1,0,1,0,1,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	61
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	62 1,0,0,0,1,0,0,0,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	63 0,1,0,1,0,1,0,1,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	64 0,0,1,0,0,0,1,0,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	65 0,1,0,1,0,1,0,1,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	66 1,0,0,0,1,0,0,0,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	67 0,1,0,1,0,1,0,1,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	68 0,0,1,0,0,0,1,0,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	69 0,1,0,1,0,1,0,1,
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	70
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	71 1,0,0,0,1,0,0,0,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	72 0,0,1,0,0,0,1,0,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	73 1,0,0,0,1,0,0,0,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	74 0,0,1,0,0,0,1,0,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	75 1,0,0,0,1,0,0,0,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	76 0,0,1,0,0,0,1,0,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	77 1,0,0,0,1,0,0,0,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	78 0,0,1,0,0,0,1,0,
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	79
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	80 1,0,0,0,1,0,0,0,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	81 0,0,0,0,0,0,0,0,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	82 0,0,1,0,0,0,1,0,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	83 0,0,0,0,0,0,0,0,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	84 1,0,0,0,1,0,0,0,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	85 0,0,0,0,0,0,0,0,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	86 0,0,1,0,0,0,1,0,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	87 0,0,0,0,0,0,0,0,
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	88
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	89 1,1,1,1,1,1,1,1,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	90 0,0,0,0,0,0,0,0,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	91 1,1,1,1,1,1,1,1,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	92 0,0,0,0,0,0,0,0,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	93 1,1,1,1,1,1,1,1,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	94 0,0,0,0,0,0,0,0,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	95 1,1,1,1,1,1,1,1,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	96 0,0,0,0,0,0,0,0,
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	97
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	98 1,0,1,0,1,0,1,0,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	99 0,0,0,0,0,0,0,0,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	100 1,0,1,0,1,0,1,0,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	101 0,0,0,0,0,0,0,0,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	102 1,0,1,0,1,0,1,0,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	103 0,0,0,0,0,0,0,0,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	104 1,0,1,0,1,0,1,0,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	105 0,0,0,0,0,0,0,0,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	106
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	107 1,0,1,0,1,0,1,0,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	108 1,0,1,0,1,0,1,0,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	109 1,0,1,0,1,0,1,0,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	110 1,0,1,0,1,0,1,0,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	111 1,0,1,0,1,0,1,0,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	112 1,0,1,0,1,0,1,0,
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	113 1,0,1,0,1,0,1,0,
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	114 1,0,1,0,1,0,1,0
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	115 };
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	116
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	117
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	118 void setup_raster() {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	119 g_raster_offset_x = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	120 g_raster_offset_y = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	121 g_raster_no = 3;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	122 set_fixed_raster(g_raster_no);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	123 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	124
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	125
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	126 void fixed_raster_command(int par) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	127 if (par == 'p') {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	128 g_raster_no--;
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	129 if (g_raster_no < 0)
14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	130 g_raster_no = 9;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	131 set_fixed_raster(g_raster_no);
4 a1261cd4c676 Int-ize byte array index references when using character, e.g. arr['A'] -> arr[int('A')] Matti Hamalainen <ccr@tnsp.org> parents: 3 diff changeset	132 g_data[int('r')] = 1;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	133 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	134 if (par == 'n') {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	135 g_raster_no++;
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	136 if (g_raster_no > 9)
14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	137 g_raster_no = 0;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	138 set_fixed_raster(g_raster_no);
4 a1261cd4c676 Int-ize byte array index references when using character, e.g. arr['A'] -> arr[int('A')] Matti Hamalainen <ccr@tnsp.org> parents: 3 diff changeset	139 g_data[int('r')] = 1;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	140 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	141 if (par == 'x') {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	142 g_raster_offset_x++;
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	143 if (g_raster_offset_x > 3)
14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	144 g_raster_offset_x = 0;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	145 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	146 if (par == 'y') {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	147 g_raster_offset_y++;
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	148 if (g_raster_offset_y > 3)
14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	149 g_raster_offset_y = 0;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	150 }
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	151 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	152
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	153
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	154 int magmode() {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	155 //return the mode "number" based on g_uizoom and 'm' and 'M'
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	156 //currently valid outputs are 0,10,20,1,11,21,2,12,22
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	157 int base = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	158 if (g_uizoom == 1) base = 10;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	159 if (g_uizoom == 3) base = 20;
4 a1261cd4c676 Int-ize byte array index references when using character, e.g. arr['A'] -> arr[int('A')] Matti Hamalainen <ccr@tnsp.org> parents: 3 diff changeset	160 if (g_data[int('M')] == 1 && g_data[int('m')] == 1) g_data[int('m')] = 0;
a1261cd4c676 Int-ize byte array index references when using character, e.g. arr['A'] -> arr[int('A')] Matti Hamalainen <ccr@tnsp.org> parents: 3 diff changeset	161 if (g_data[int('m')] == 1) base++;
a1261cd4c676 Int-ize byte array index references when using character, e.g. arr['A'] -> arr[int('A')] Matti Hamalainen <ccr@tnsp.org> parents: 3 diff changeset	162 if (g_data[int('M')] == 1) base = base + 2;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	163 return base;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	164 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	165
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	166
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	167 int magx() {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	168 //return the amount of horizontal 8x8 characters in current mode ('m' or 'M')
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	169 int psize, mag;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	170 psize = g_magpix[magmode()];
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	171 mag = psize * 8;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	172 return (width - (33 * g_uizoom)) / mag;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	173 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	174
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	175
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	176 int magy() {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	177 //return the amount of vertical 8x8 characters in current mode ('m' or 'M')
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	178 int psize, mag;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	179 psize = g_magpiy[magmode()];
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	180 mag = psize * 8;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	181 return (height - (33 * g_uizoom)) / mag; //how many chars in a magmode
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	182 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	183
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	184
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	185 void ustats() {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	186 //a debug thingie in case the step undo does not work
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	187 //println("UINDEX:"+g_uindex[g_spare]);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	188 //println("UTOP:"+g_utop[g_spare]);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	189 //println("UBOTTOM:"+g_ubottom[g_spare]);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	190 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	191
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	192
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	193 void store_undo() //to_undo
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	194 {
43 df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	195 if (g_spare)
df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	196 arrayCopy(g_map, g_undobs[g_uindex[g_spare]]);
df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	197 else
df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	198 arrayCopy(g_map, g_undob[g_uindex[g_spare]]);
df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	199
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	200 g_uindex[g_spare]++;
43 df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	201 if (g_uindex[g_spare] > 10)
df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	202 g_uindex[g_spare] = 0;
df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	203
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	204 if (g_uindex[g_spare] == g_ubottom[g_spare]) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	205 g_ubottom[g_spare]++;
43 df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	206 if (g_ubottom[g_spare] > 10)
df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	207 g_ubottom[g_spare] = 0;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	208 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	209 g_utop[g_spare] = g_uindex[g_spare];
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	210
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	211 refreshpalette();
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	212 ustats();
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	213 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	214
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	215
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	216 void restore_undo() {
43 df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	217 if (g_uindex[g_spare] == g_ubottom[g_spare])
df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	218 return;
df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	219
df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	220 if (g_spare)
df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	221 arrayCopy(g_map, g_undobs[g_uindex[g_spare]]);
df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	222 else
df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	223 arrayCopy(g_map, g_undob[g_uindex[g_spare]]);
3 0a8490574442 Replace newArray = oldArray.clone() pattern with arrayCopy(). Matti Hamalainen <ccr@tnsp.org> parents: 2 diff changeset	224
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	225 g_uindex[g_spare]--;
43 df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	226 if (g_uindex[g_spare] < 0)
df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	227 g_uindex[g_spare] = 10;
df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	228
df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	229 if (g_spare)
df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	230 arrayCopy(g_undobs[g_uindex[g_spare]], g_map);
df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	231 else
df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	232 arrayCopy(g_undob[g_uindex[g_spare]], g_map);
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	233
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	234 refreshpalette();
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	235 ustats();
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	236 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	237
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	238
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	239 void redo_undo() {
43 df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	240 if (g_uindex[g_spare] == g_utop[g_spare])
df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	241 return;
df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	242
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	243 g_uindex[g_spare]++;
43 df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	244 if (g_uindex[g_spare] > 10)
df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	245 g_uindex[g_spare] = 0;
df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	246
df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	247 if (g_spare)
df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	248 arrayCopy(g_undobs[g_uindex[g_spare]], g_map);
df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	249 else
df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	250 arrayCopy(g_undob[g_uindex[g_spare]], g_map);
df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	251
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	252 refreshpalette();
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	253 ustats();
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	254 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	255
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	256
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	257 void spare() //dpaint style spare page
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	258 {
43 df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	259 arrayCopy(g_sparepage, g_swappage);
df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	260 arrayCopy(g_map, g_sparepage);
df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	261 arrayCopy(g_swappage, g_map);
df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	262
df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	263 mpSetTitle(g_spare ? sfilename : filename);
df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	264
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	265 g_spare = 1 - g_spare;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	266 g_realfront = byte(g_farge);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	267 g_realback = byte(g_backg);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	268 refreshpalette();
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	269 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	270
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	271
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	272 void switcher(int di) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	273 // this achieves varieties of whole screen copying
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	274 // needed for brush copy and pre-drawing the shapes when a
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	275 // tool is active etc.
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	276 switch (di) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	277 case 0:
3 0a8490574442 Replace newArray = oldArray.clone() pattern with arrayCopy(). Matti Hamalainen <ccr@tnsp.org> parents: 2 diff changeset	278 arrayCopy(g_map, g_rmap);
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	279 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	280 case 1:
3 0a8490574442 Replace newArray = oldArray.clone() pattern with arrayCopy(). Matti Hamalainen <ccr@tnsp.org> parents: 2 diff changeset	281 arrayCopy(g_rmap, g_map);
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	282 for (int i = 0; i < 1024; i++) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	283 if (g_remdo[i] == 1) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	284 g_remdo[i] = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	285 g_redo[i] = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	286 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	287 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	288 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	289 case 2:
3 0a8490574442 Replace newArray = oldArray.clone() pattern with arrayCopy(). Matti Hamalainen <ccr@tnsp.org> parents: 2 diff changeset	290 arrayCopy(g_map, g_brush);
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	291 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	292 case 3:
3 0a8490574442 Replace newArray = oldArray.clone() pattern with arrayCopy(). Matti Hamalainen <ccr@tnsp.org> parents: 2 diff changeset	293 arrayCopy(g_map, g_sparepage);
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	294 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	295 case 4:
3 0a8490574442 Replace newArray = oldArray.clone() pattern with arrayCopy(). Matti Hamalainen <ccr@tnsp.org> parents: 2 diff changeset	296 arrayCopy(g_sparepage, g_mapm);
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	297 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	298 }
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	299 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	300
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	301
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	302 void sussborder() {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	303 makecolor(259, g_r[g_map[0]], g_g[g_map[0]], g_b[g_map[0]]);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	304 g_boxreconstruct = 2;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	305 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	306
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	307
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	308 void makecolor(int c, int rr, int gg, int bb) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	309 //0-255 go to g_map[] up until 1021-1023
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	310 //the rest is not stored
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	311 if (c < 256) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	312 g_map[256 + c * 3] = byte(rr);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	313 g_map[256 + c * 3 + 1] = byte(gg);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	314 g_map[256 + c * 3 + 2] = byte(bb);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	315 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	316 g_r[c] = rr;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	317 g_g[c] = gg;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	318 g_b[c] = bb;
8 f97ee354db2a Various minor code cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	319
f97ee354db2a Various minor code cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	320 g_rgb[c] = 0xff000000 \| ((rr & 0xff) << 16) \| ((gg & 0xff) << 8) \| (bb & 0xff);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	321 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	322
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	323
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	324 int fylli() {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	325 //for the animated rubberband thingy
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	326 g_rband++;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	327 if (g_rband > g_rbang) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	328 g_rband = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	329 g_rbang++;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	330 if (g_rbang > 12) g_rbang = 8;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	331 }
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	332 if (g_rband >= 3) return 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	333 return 1;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	334 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	335
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	336
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	337 void e_rect(int x1, int y1, int w, int h, int rgb) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	338 int ad = x1 + y1 * width;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	339 //updatepixels has to be handled elsewhere
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	340 for (int yy = 0; yy < h; yy++) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	341 for (int xx = 0; xx < w; xx++) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	342 pixels[ad + xx] = rgb;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	343 }
8 f97ee354db2a Various minor code cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	344 ad += width;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	345 }
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	346 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	347
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	348
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	349 void d_rect(int x1, int y1, int w, int h, int rgb) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	350 int ad = x1 + y1 * width;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	351 //updatepixels has to be handled elsewhere
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	352 for (int yy = 0; yy < h; yy++) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	353 for (int xx = 0; xx < w; xx++) {
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	354 if (xx == 0 \|\| yy == 0 \|\| xx == w - 1 \|\| yy == h - 1)
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	355 pixels[ad + xx] = rgb;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	356 }
8 f97ee354db2a Various minor code cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	357 ad += width;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	358 }
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	359 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	360
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	361
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	362 void t_rect(int x1, int y1, int w, int h, int rgb) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	363 // transparent rectangle
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	364 // fixed tp, for grid drawing
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	365
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	366 //the updatepixels rigmarole has to be handled elsewhere
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	367 int r, g, b, s, fout;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	368 int ad = x1 + y1 * width;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	369
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	370 if (g_gridmode == NEW) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	371 for (int yy = 0; yy < h; yy++) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	372 for (int xx = 0; xx < w; xx++) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	373 s = pixels[ad + xx];
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	374 fout = 0;
43 df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	375
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	376 if (g_rgb[0] == s) fout = g_grids[0];
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	377 if (g_rgb[1] == s) fout = g_grids[1];
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	378 if (g_rgb[2] == s) fout = g_grids[2];
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	379 if (g_rgb[3] == s) fout = g_grids[3];
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	380 if (g_rgb[4] == s) fout = g_grids[4];
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	381 if (g_rgb[5] == s) fout = g_grids[5];
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	382 if (g_rgb[6] == s) fout = g_grids[6];
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	383 if (g_rgb[7] == s) fout = g_grids[7];
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	384 if (g_rgb[8] == s) fout = g_grids[8];
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	385 if (g_rgb[9] == s) fout = g_grids[9];
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	386 if (g_rgb[10] == s) fout = g_grids[10];
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	387 if (g_rgb[11] == s) fout = g_grids[11];
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	388 if (g_rgb[12] == s) fout = g_grids[12];
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	389 if (g_rgb[13] == s) fout = g_grids[13];
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	390 if (g_rgb[14] == s) fout = g_grids[14];
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	391 if (g_rgb[15] == s) fout = g_grids[15];
43 df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	392
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	393 pixels[ad + xx] = fout;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	394 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	395 ad = ad + width;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	396 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	397 return;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	398 }
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	399
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	400 for (int yy = 0; yy < h; yy++) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	401 for (int xx = 0; xx < w; xx++) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	402 s = pixels[ad + xx];
8 f97ee354db2a Various minor code cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	403
f97ee354db2a Various minor code cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	404 r = (s >> 16) & 0xff;
f97ee354db2a Various minor code cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	405 g = (s >> 8) & 0xff;
f97ee354db2a Various minor code cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	406 b = (s) & 0xff;
f97ee354db2a Various minor code cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	407
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	408 g = g + 64;
7 c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 6 diff changeset	409
c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 6 diff changeset	410 r = int((r * 2) / 3);
c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 6 diff changeset	411 g = int((g * 2) / 3);
c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 6 diff changeset	412 b = int((b * 2) / 3);
c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 6 diff changeset	413
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	414 pixels[ad + xx] = 0xff000000 + r * 0x10000 + g * 0x100 + b;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	415 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	416 ad = ad + width;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	417 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	418 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	419
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	420
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	421 // parameter store/restore in case some functions need to bypass grid, attribute modes etc
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	422
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	423 void storeparameters() {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	424 for (int i = 0; i <= 255; i++) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	425 g_data[767 + i] = g_data[i];
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	426 }
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	427 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	428
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	429
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	430 void restoreparameters() {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	431 for (int i = 0; i <= 255; i++) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	432 g_data[i] = g_data[767 + i];
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	433 }
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	434 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	435
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	436
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	437 void drawtext(int xo, int yo, String ss) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	438 //draw a bunch of text maybe not needed
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	439 for (int i = 0; i < ss.length(); i++) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	440 drawchar(xo + i * 8 * 2, yo, ss.charAt(i));
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	441 }
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	442 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	443
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	444
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	445 void drawicon(int xo, int yo, int t, int mm) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	446 //draw one icon
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	447 int ad, cad, xx, yy, pop, far;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	448 int metal;
7 c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 6 diff changeset	449
c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 6 diff changeset	450 yy = int(t / 16);
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	451 xx = t - yy * 16;
8 f97ee354db2a Various minor code cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	452
f97ee354db2a Various minor code cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	453 xx *= 2;
f97ee354db2a Various minor code cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	454 yy *= 2;
f97ee354db2a Various minor code cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	455
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	456 ad = 1024 + xx * 8 + yy * 2048;
8 f97ee354db2a Various minor code cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	457
f97ee354db2a Various minor code cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	458 for (int y = 0; y < 16; y++) {
f97ee354db2a Various minor code cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	459 for (int x = 0; x < 16; x++) {
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	460 metal = 0xffa0a0a0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	461 far = 0xff000000;
8 f97ee354db2a Various minor code cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	462 if (t == 18 \|\| (t == 19 && g_backmode == 1)) {
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	463 if (x < 15 && y < 15) far = int(g_rgb[g_farge]);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	464 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	465 if (g_depressed[t] > 0) metal = 0xff606060;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	466
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	467 if (x == 0 \|\| y == 0) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	468 metal = 0xffe0e0e0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	469 if (g_depressed[t] > 0) metal = 0xff303030;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	470 if (t == 56 \|\| t == 9) metal = 0xffa0a0a0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	471 }
7 c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 6 diff changeset	472
c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 6 diff changeset	473 cad = 65536 + (xx + int(x / 8)) + yy * 256 + y * 32;
c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 6 diff changeset	474
c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 6 diff changeset	475 pop = (int(g_icons[cad]) == 0) ? 0 : 1;
c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 6 diff changeset	476
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	477 if (int(g_icons[ad + x]) == pop) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	478 far = metal;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	479 if (mm == 1) far = 0xffffff80;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	480 }
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	481
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	482 if (t == 66) { //raster icon
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	483 if (x >= 1 && y >= 2 && x <= 13 && y <= 12) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	484 far = metal;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	485 if (mm == 1) far = 0xffffff80;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	486 if (get_raster(x + 1, y) == 1) far = 0xff000000;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	487 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	488 }
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	489
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	490 e_rect(xo + x * g_uizoom, yo + y * g_uizoom, g_uizoom, g_uizoom, far);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	491 }
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	492 ad = ad + 256;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	493 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	494 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	495
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	496
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	497 void drawchar(int xo, int yo, int t) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	498 //characters at the help box
14 cecc594d1559 Remove unused code and variables. Matti Hamalainen <ccr@tnsp.org> parents: 13 diff changeset	499 int ad, x, y, xx, yy, far;
cecc594d1559 Remove unused code and variables. Matti Hamalainen <ccr@tnsp.org> parents: 13 diff changeset	500
10 80380099f1ad Check for characters < 32 in drawchar() because 32 is deducted from the value. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	501 if (t < 32) return;
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	502
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	503 t -= 32;
7 c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 6 diff changeset	504 yy = int(t / 32);
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	505 xx = t - yy * 32;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	506 yy = yy + 18;
8 f97ee354db2a Various minor code cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	507
f97ee354db2a Various minor code cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	508 for (y = 0; y < 8; y++) {
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	509 ad = 1024 + xx * 8 + yy * 2048 + y * 256;
8 f97ee354db2a Various minor code cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	510
f97ee354db2a Various minor code cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	511 for (x = 0; x < 8; x++) {
f97ee354db2a Various minor code cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	512 if (int(g_icons[ad + x]) != 0) {
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	513 far = 0xffb0b0b0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	514 if (g_bsize < 4) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	515 if (g_bsize + (g_btype * 4) + 96 == t) far = 0xffffff80;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	516 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	517 } else {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	518 far = 0xff000000;
43 df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	519 if (g_spare && t <= 95) far = 0xff008000; //different background color for spare mode
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	520 if (g_msgctr > 0 && t + 32 < 128) far = 0xff0000ff; //different background color
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	521 }
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	522
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	523 e_rect(xo + x * g_uizoom, yo + y * g_uizoom, g_uizoom, g_uizoom, far);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	524 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	525 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	526 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	527
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	528
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	529 boolean moicon(int xx, int yy, int ww, int hh) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	530 //check mouse/icon boundary without actually drawing the icon
4 a1261cd4c676 Int-ize byte array index references when using character, e.g. arr['A'] -> arr[int('A')] Matti Hamalainen <ccr@tnsp.org> parents: 3 diff changeset	531 if (g_data[int('m')] == 0 && g_data[int('M')] == 0) {
39 5e0306ac3575 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 19 diff changeset	532 if (g_mx + g_windowx >= xx && g_mx + g_windowx < xx + ww &&
5e0306ac3575 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 19 diff changeset	533 g_my + g_windowy >= yy && g_my + g_windowy < yy + hh)
5e0306ac3575 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 19 diff changeset	534 return true;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	535 }
39 5e0306ac3575 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 19 diff changeset	536 else
5e0306ac3575 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 19 diff changeset	537 {
5e0306ac3575 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 19 diff changeset	538 if (g_mx >= xx && g_mx <= xx + ww &&
5e0306ac3575 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 19 diff changeset	539 g_my >= yy && g_my <= yy + hh)
5e0306ac3575 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 19 diff changeset	540 return true;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	541 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	542 return false;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	543 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	544
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	545
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	546 boolean doicon_drag(int xx, int yy, int ww, int hh) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	547 if (g_iconx >= xx && g_iconx < xx + ww && g_icony >= yy && g_icony < yy + hh) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	548 g_iconx = -1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	549 g_icony = -1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	550 g_repanel = -2;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	551 return true;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	552 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	553 if (g_piconx >= xx && g_piconx < xx + ww && g_picony >= yy && g_picony < yy + hh) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	554 g_piconx = -1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	555 g_picony = -1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	556 g_repanel = -2;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	557 return true;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	558 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	559 return false;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	560 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	561
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	562
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	563 boolean doicon(int xx, int yy, int ww, int hh) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	564 if (g_iconx >= xx && g_iconx < xx + ww && g_icony >= yy && g_icony < yy + hh) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	565 g_iconx = -1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	566 g_icony = -1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	567 g_repanel = -2;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	568 return true;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	569 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	570 return false;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	571 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	572
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	573
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	574 void printat(int xx, int yy, String tex) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	575 //creating text into the help box
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	576 for (int tit = 0; tit < tex.length(); tit++) {
6 07ddf9cfc6c2 Cast char to int where needed and other related operations. Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	577 if (tex.charCodeAt(tit) != '\|') {
07ddf9cfc6c2 Cast char to int where needed and other related operations. Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	578 if (g_data[256 + xx + yy * 12] != byte(tex.charCodeAt(tit))) {
07ddf9cfc6c2 Cast char to int where needed and other related operations. Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	579 g_data[256 + xx + yy * 12] = byte(tex.charCodeAt(tit));
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	580 g_chaup[xx + yy * 16] = 1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	581 }
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	582 xx++;
6 07ddf9cfc6c2 Cast char to int where needed and other related operations. Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	583 } else {
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	584 xx = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	585 yy++;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	586 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	587 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	588 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	589
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	590
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	591 void clearmsg() {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	592 for (int y = 0; y <= 3; y++) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	593 for (int x = 0; x <= 11; x++) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	594 g_data[256 + x + y * 12] = byte(32);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	595 g_chaup[x + y * 16] = 1;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	596 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	597 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	598 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	599
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	600
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	601 void message(String tex) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	602 if (tex.equals("*")) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	603 g_msgctr = 100;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	604 return;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	605 }
19 1fcc61b882f7 Use console.log() to log message() things in browser console. Matti Hamalainen <ccr@tnsp.org> parents: 14 diff changeset	606 console.log("MSG: " + tex);
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	607 clearmsg();
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	608 printat(0, 0, tex);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	609 g_msgctr = 50;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	610 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	611
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	612
9 dfdc18b62fab Change the help() function and its usage to have more than one parameter to Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	613 void help(int mode, int xc, int yc) {
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	614 String teks;
9 dfdc18b62fab Change the help() function and its usage to have more than one parameter to Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	615
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	616 if (g_msgctr > 0) return;
9 dfdc18b62fab Change the help() function and its usage to have more than one parameter to Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	617
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	618 clearmsg();
9 dfdc18b62fab Change the help() function and its usage to have more than one parameter to Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	619
99 cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	620 if (mode >= 1000)
cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	621 {
9 dfdc18b62fab Change the help() function and its usage to have more than one parameter to Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	622 xc = int(xc);
dfdc18b62fab Change the help() function and its usage to have more than one parameter to Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	623 yc = int(yc);
dfdc18b62fab Change the help() function and its usage to have more than one parameter to Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	624
99 cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	625 if (g_phase == 1)
cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	626 switch (tool())
cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	627 {
cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	628 case 4:
cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	629 case 6:
cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	630 xc = abs(g_rx2 - g_rx) + 1;
cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	631 yc = abs(g_ry2 - g_ry) + 1;
cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	632 break;
cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	633
cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	634 case 7:
cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	635 xc = abs(g_rx2 - g_rx) * 2 + 1;
cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	636 yc = abs(g_ry2 - g_ry) * 2 + 1;
cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	637 break;
cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	638
cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	639 case 8:
cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	640 if (g_data[int('c')] == 1 \|\| g_shift) {
cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	641 xc = abs(g_rx2 - g_rx);
cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	642 yc = abs(g_ry2 - g_ry);
cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	643 } //purkkaa
cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	644 else {
9 dfdc18b62fab Change the help() function and its usage to have more than one parameter to Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	645 xc = abs(g_rx2 - g_rx) + 1;
dfdc18b62fab Change the help() function and its usage to have more than one parameter to Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	646 yc = abs(g_ry2 - g_ry) + 1;
99 cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	647 }
cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	648 break;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	649 }
9 dfdc18b62fab Change the help() function and its usage to have more than one parameter to Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	650
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	651 // coordinates
99 cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	652 if (xc < X && yc < Y)
cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	653 {
13 80727dab1359 Oops, fix the coordinate printing. Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	654 printat(0, 0, "Px:"+ str(xc));
80727dab1359 Oops, fix the coordinate printing. Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	655 printat(6, 0, ", "+ str(yc));
80727dab1359 Oops, fix the coordinate printing. Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	656 printat(0, 1, "Ch:"+ str(int(xc / 8)));
80727dab1359 Oops, fix the coordinate printing. Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	657 printat(6, 1, ", "+ str(int(yc / 8)));
7 c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 6 diff changeset	658
99 cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	659 if (tool() == 6 && g_phase == 1)
cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	660 {
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	661 float av = getangel(g_rx2 - g_rx, g_ry2 - g_ry);
9 dfdc18b62fab Change the help() function and its usage to have more than one parameter to Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	662
dfdc18b62fab Change the help() function and its usage to have more than one parameter to Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	663 printat(0, 2, nf(dist(0, 0, xc - 1, yc - 1), 0, 2));
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	664 printat(0, 3, nf((av), 0, 2));
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	665 }
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	666 }
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	667 return;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	668 }
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	669
9 dfdc18b62fab Change the help() function and its usage to have more than one parameter to Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	670 printat(7, 3, "Key:" + str(char(mode)));
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	671
9 dfdc18b62fab Change the help() function and its usage to have more than one parameter to Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	672 switch (char(mode)) {
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	673 case '.':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	674 teks = "Preset pens\|.=reset";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	675 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	676 case TAB:
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	677 teks = "Pick color";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	678 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	679 case '<':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	680 teks = "Swap colors\|Right<>Left";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	681 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	682 case '>':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	683 teks = "Pick backgnd\|shift=set";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	684 if (g_backmode == 0) teks = "Pick backgnd\|not here";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	685 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	686 case '1':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	687 teks = "Draw";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	688 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	689 case '2':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	690 teks = "Spray can";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	691 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	692 case '3':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	693 teks = "Continuous\|Draw";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	694 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	695 case '4':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	696 teks = "Grab brush";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	697 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	698 case '5':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	699 teks = "Flood fill";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	700 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	701 case '8':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	702 teks = "Rectangle";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	703 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	704 case '7':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	705 teks = "Ellipse";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	706 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	707 case '6':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	708 teks = "Line";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	709 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	710 case '9':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	711 teks = "Brush tool";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	712 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	713 case '0':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	714 teks = "Magnifier\|m=direct";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	715 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	716 case 'a':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	717 teks = "Bitmap only\|on/off";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	718 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	719 case 'A':
50 8ba88c25f51d Rename some variables. Matti Hamalainen <ccr@tnsp.org> parents: 43 diff changeset	720 teks = "Export as\|" + g_exportext;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	721 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	722 case 'b':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	723 teks = "A.I.\|Behavior\|on/off";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	724 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	725 case 'B':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	726 teks = "Set border\|[Export=N]";
4 a1261cd4c676 Int-ize byte array index references when using character, e.g. arr['A'] -> arr[int('A')] Matti Hamalainen <ccr@tnsp.org> parents: 3 diff changeset	727 if (g_data[int('Q')] == 1) teks = "Set border\|[Export=Y]";
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	728 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	729 case 'C':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	730 teks = "Set backgnd";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	731 if (machine == PLUS4M \|\| machine == PLUS4) teks = "Set backgnd\|V/RMB=back2";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	732 if (int(g_map[1]) == 255) teks = "Set backnd\|-Not here";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	733 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	734 case 'i':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	735 teks = "Increase\|luminance";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	736 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	737 case 'k':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	738 teks = "Decrease\|luminance";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	739 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	740 case 'r':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	741 teks = "Fill raster\|on/off\|RMB=swap";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	742 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	743 case 'R':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	744 teks = "Raster from\|brush\|on/off";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	745 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	746 case 'd':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	747 teks = "Recolor\|right->left\|on/off";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	748 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	749 case 'p':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	750 teks = "Brush\|recolor\|on/off";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	751 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	752 case 'q':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	753 teks = "IQ mode\|on/off";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	754 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	755 case 't':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	756 teks = "Tile mode\|on/off";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	757 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	758 case 'x':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	759 teks = "Brush\|flip X\|on/off";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	760 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	761 case 'y':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	762 teks = "Brush\|flip Y\|on/off";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	763 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	764 case 'z':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	765 teks = "Brush\|rotate";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	766 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	767 case 'h':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	768 teks = "Pen size " + (g_bsize + 1) + "\|LMB/h=less\|RMB/H=bigger";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	769 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	770 case 'j':
43 df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	771 teks = "Switch to\|"+ (!g_spare ? "spare" : "front") +" page\|RMB=CopyTo";
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	772 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	773 case 'f':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	774 teks = "Geometry\|fill\|on/off";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	775 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	776 case 'c':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	777 teks = "Constrain\|to grid\|on/off";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	778 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	779 case 'm':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	780 teks = "Magnify\|on/off";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	781 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	782 case 'g':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	783 teks = "Draw grid\|on/off\|G=size " + str(g_gridx);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	784 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	785 case 'X':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	786 teks = "Mirror X\|on/off";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	787 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	788 case 'Y':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	789 teks = "Mirror Y\|on/off";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	790 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	791 case 'l':
99 cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	792 teks = "Load a Multipaint";
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	793 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	794 case 's':
99 cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	795 teks = "Save as\|[RMB=Save]\|Multipaint";
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	796 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	797 case 'u':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	798 teks = "Undo u LMB\|Redo U RMB";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	799 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	800 case 'U':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	801 teks = "Redo";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	802 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	803 case 'e':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	804 teks = "Export PNG";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	805 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	806 case 'E':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	807 teks = "Export as\|source";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	808 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	809 case 'o':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	810 teks = "Clear\|screen";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	811 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	812 case 'O':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	813 teks = "Export\|specific";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	814 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	815 case 'n':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	816 teks = "Playbrush\|on/off\|RMB=speed";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	817 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	818 case 'w':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	819 teks = "Format\|Import:\|no support";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	820 if (g_formatname != "") teks = "Import as\|" + g_formatname;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	821 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	822 case 'W':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	823 teks = "Export:\|no support";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	824 if (g_formatname != "") teks = "Export as\|" + g_formatname;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	825 break;
9 dfdc18b62fab Change the help() function and its usage to have more than one parameter to Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	826
dfdc18b62fab Change the help() function and its usage to have more than one parameter to Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	827 default:
dfdc18b62fab Change the help() function and its usage to have more than one parameter to Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	828 teks = "No Help";
dfdc18b62fab Change the help() function and its usage to have more than one parameter to Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	829 break;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	830 }
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	831
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	832 printat(0, 0, teks);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	833 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	834
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	835
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	836 void icontable(int xx, int yy, int tabletype, int realdraw) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	837 String pan = "";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	838 int x, y, ad;
4 a1261cd4c676 Int-ize byte array index references when using character, e.g. arr['A'] -> arr[int('A')] Matti Hamalainen <ccr@tnsp.org> parents: 3 diff changeset	839 g_data[int('9')] = 0;
a1261cd4c676 Int-ize byte array index references when using character, e.g. arr['A'] -> arr[int('A')] Matti Hamalainen <ccr@tnsp.org> parents: 3 diff changeset	840 if (g_btype == 9) g_data[int('9')] = 1;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	841
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	842
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	843 // the main and sideboard icon panel order
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	844 if (tabletype == 0) pan = ";;h9::123456::78::pzxy::XYtn::lsEAwW::jc0g::uo::.b";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	845 if (tabletype == 1) pan = "BCrRfd";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	846 if (tabletype == 2) pan = "ik";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	847
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	848 x = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	849 y = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	850
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	851 for (int tit = 0; tit < pan.length(); tit++) {
6 07ddf9cfc6c2 Cast char to int where needed and other related operations. Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	852 ad = pan.charCodeAt(tit);
79 dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	853 if (g_repanel <= 0 && realdraw == 1)
dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	854 {
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	855 if (ad != ';' && ad != ':' && ad != '.') {
79 dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	856 int icolor;
dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	857 if (ad == 'j' && g_spare)
dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	858 icolor = 1;
dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	859 else
dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	860 icolor = int(g_data[ad]);
43 df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	861
79 dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	862 drawicon(xx + x, yy + y, ad - 48, icolor);
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	863 }
79 dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	864 else
dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	865 if (ad == ';')
dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	866 {
dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	867 //draw the preset brush box
dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	868 drawchar(xx, yy, 128);
dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	869 drawchar(xx + 8 * g_uizoom, yy, 129);
dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	870 drawchar(xx + 16 * g_uizoom, yy, 130);
dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	871 drawchar(xx + 24 * g_uizoom, yy, 131);
dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	872 drawchar(xx, yy + 8 * g_uizoom, 132);
dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	873 drawchar(xx + 8 * g_uizoom, yy + 8 * g_uizoom, 133);
dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	874 drawchar(xx + 16 * g_uizoom, yy + 8 * g_uizoom, 134);
dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	875 drawchar(xx + 24 * g_uizoom, yy + 8 * g_uizoom, 135);
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	876 }
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	877 }
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	878
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	879 //tooltip
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	880 if (ad != ':' && ad != ';' && ad != '.') {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	881 if (realdraw == 0) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	882 if (moicon(xx + x, yy + y, 16 * g_uizoom, 16 * g_uizoom)) help(ad);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	883 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	884 if (doicon(xx + x, yy + y, 16 * g_uizoom, 16 * g_uizoom)) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	885 //println(g_realbutton);
108 a9d8db1726c1 Use the constant for RIGHT mouse button instead of magic number. Matti Hamalainen <ccr@tnsp.org> parents: 99 diff changeset	886 if (ad == 'C' && g_realbutton == RIGHT) ad = 'V';
a9d8db1726c1 Use the constant for RIGHT mouse button instead of magic number. Matti Hamalainen <ccr@tnsp.org> parents: 99 diff changeset	887 if (ad == 'B' && g_realbutton == RIGHT) ad = 'Q';
a9d8db1726c1 Use the constant for RIGHT mouse button instead of magic number. Matti Hamalainen <ccr@tnsp.org> parents: 99 diff changeset	888 if (ad == 'u' && g_realbutton == RIGHT) ad = 'U';
a9d8db1726c1 Use the constant for RIGHT mouse button instead of magic number. Matti Hamalainen <ccr@tnsp.org> parents: 99 diff changeset	889 if (ad == 'n' && g_realbutton == RIGHT) ad = 'N';
a9d8db1726c1 Use the constant for RIGHT mouse button instead of magic number. Matti Hamalainen <ccr@tnsp.org> parents: 99 diff changeset	890 if (ad == 'h' && g_realbutton == RIGHT) ad = 'H';
a9d8db1726c1 Use the constant for RIGHT mouse button instead of magic number. Matti Hamalainen <ccr@tnsp.org> parents: 99 diff changeset	891 if (ad == 's' && g_realbutton == RIGHT) ad = 'S';
a9d8db1726c1 Use the constant for RIGHT mouse button instead of magic number. Matti Hamalainen <ccr@tnsp.org> parents: 99 diff changeset	892 if (ad == 'j' && g_realbutton == RIGHT) ad = 'J';
a9d8db1726c1 Use the constant for RIGHT mouse button instead of magic number. Matti Hamalainen <ccr@tnsp.org> parents: 99 diff changeset	893 if (ad == 'g' && g_realbutton == RIGHT) ad = 'G';
a9d8db1726c1 Use the constant for RIGHT mouse button instead of magic number. Matti Hamalainen <ccr@tnsp.org> parents: 99 diff changeset	894 if (ad == 'r' && g_realbutton == RIGHT) ad = g_shift ? '(' : ')';
6 07ddf9cfc6c2 Cast char to int where needed and other related operations. Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	895 command(int(ad));
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	896 g_msgctr = 50;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	897 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	898 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	899 if (ad == ';') {
79 dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	900 for (int ii = 0; ii <= 3; ii++)
dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	901 for (int jj = 0; jj <= 1; jj++)
dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	902 {
dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	903 if (doicon(xx + ii * 8 * g_uizoom, yy + jj * 8 * g_uizoom,
dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	904 8 * g_uizoom, 8 * g_uizoom))
dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	905 command(128 + ii + jj * 4);
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	906 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	907 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	908 if (tabletype == 0) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	909 x = x + 16 * g_uizoom;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	910 if (ad == '.') x = x - 8 * g_uizoom;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	911 if (x > 16 * g_uizoom) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	912 x = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	913 y = y + 16 * g_uizoom;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	914 if (ad == ':') y = y - 14 * g_uizoom;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	915 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	916 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	917 if (tabletype == 1 \|\| tabletype == 2) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	918 y = y + 16 * g_uizoom;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	919 if (y > 16 * g_uizoom) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	920 y = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	921 x = x + 16 * g_uizoom;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	922 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	923 }
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	924 }
4 a1261cd4c676 Int-ize byte array index references when using character, e.g. arr['A'] -> arr[int('A')] Matti Hamalainen <ccr@tnsp.org> parents: 3 diff changeset	925 g_data[int('9')] = 0;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	926 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	927
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	928
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	929 int nextluminance(int f, int d) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	930 int res = f + d;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	931 if (machine == PLUS4 \|\| machine == PLUS4M) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	932 if (f + d * 15 > 120) return f;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	933 if (f + d * 15 < 1) return f;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	934 if (d == 1) return f + 15;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	935 if (d == -1) return f - 15;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	936 return res;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	937 }
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	938
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	939 if (g_map[13] == C64) { //here the "C64" is generic across C64,C64M and potential FLI modes
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	940 int out[] = {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	941 6,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	942 1,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	943 11,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	944 15,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	945 8,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	946 10,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	947 9,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	948 13,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	949 14,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	950 2,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	951 3,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	952 4,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	953 5,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	954 1,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	955 12,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	956 7
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	957 }; // from "Ptoing"
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	958 if (d == 1) res = out[f];
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	959 if (d == -1) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	960 if (f == 0) return 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	961 for (int i = 0; i < g_maxcolors; i++) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	962 if (out[i] == f) res = i;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	963 }
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	964 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	965 }
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	966
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	967 if (g_map[13] == MSX) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	968 int out[] = {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	969 1,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	970 4,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	971 9,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	972 10,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	973 6,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	974 12,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	975 13,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	976 14,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	977 5,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	978 3,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	979 7,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	980 15,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	981 2,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	982 8,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	983 11,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	984 15
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	985 }; // calculated Y
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	986 if (d == 1) res = out[f];
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	987 if (d == -1) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	988 if (f == 0) return 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	989 for (int i = 0; i < g_maxcolors - 1; i++) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	990 if (out[i] == f) res = i;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	991 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	992 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	993 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	994 return res;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	995 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	996
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	997
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	998 int tool() {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	999 //returns the current tool #, for convenience
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1000 //as there is no "tool" variable really
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1001 for (int i = '0'; i <= '9'; i++) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1002 if (g_data[i] == 1) return i - '0';
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1003 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1004 return 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1005 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1006
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1007
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1008 void set_tool(int s) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1009 //set current tool, for convenience
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1010 for (int i = '0'; i <= '9'; i++) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1011 g_data[i] = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1012 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1013 g_data[48 + s] = byte(1);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1014 g_map[12] = byte(s);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1015 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1016
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1017
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1018 void selectcolor(int hand, int x) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1019 if (x >= g_maxcolors) x = x - g_maxcolors;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1020 if (x < 0) x = x + g_maxcolors;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1021 if (hand == 0) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1022 g_farge = x;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1023 g_ofarge = x; //kludgey, the colour and the "original colour"
4 a1261cd4c676 Int-ize byte array index references when using character, e.g. arr['A'] -> arr[int('A')] Matti Hamalainen <ccr@tnsp.org> parents: 3 diff changeset	1024 if (g_btype == 9) g_data[int('p')] = 1;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1025 g_realfront = byte(g_farge);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1026 g_realback = byte(g_backg);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1027 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1028 if (hand == 1) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1029 g_backg = x;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1030 g_realback = byte(g_backg);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1031 g_realfront = byte(g_farge);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1032 }
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1033 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1034
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	1035
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1036 void refresh() {
80 384b301970ac Set g_dirty flag in refresh() to ensure screen update after certain Matti Hamalainen <ccr@tnsp.org> parents: 79 diff changeset	1037 g_dirty = true;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1038 //refreshes all "dirty chars" and icon panels
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1039 for (int i = 0; i < MX * MY; i++) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1040 g_redo[i] = byte(0);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1041 g_remdo[i] = byte(1);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1042 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1043 if (g_boxreconstruct == 0) g_boxreconstruct = 1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1044 //elsewhere use g_boxreconstruct=2 for complete window reconstruction
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1045 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1046
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	1047
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1048 void refresh_all() {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1049 refresh();
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1050 g_boxreconstruct = 2;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1051 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1052
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	1053
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1054 void palettebox(float x0, int y0, float x1) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1055 if (g_palsteps == 0) return;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1056 float expand = ((x1 - x0) / g_palsteps);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1057 int divs = int(255 / (g_palsteps - 1));
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1058 for (int i = 0; i < g_palsteps; i++) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1059 if (doicon_drag(int(x0 + expand * i), y0, int(expand), 7 * g_uizoom)) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1060 g_r[g_farge] = int(i * divs);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1061 message("RED:" + i);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1062 makecolor(g_farge, g_r[g_farge], g_g[g_farge], g_b[g_farge]);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1063 refresh();
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1064 g_boxreconstruct = 2;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1065 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1066 if (doicon_drag(int(x0 + expand * i), y0 + 10 * g_uizoom, int(expand), 7 * g_uizoom)) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1067 g_g[g_farge] = int(i * divs);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1068 message("GREEN:" + i);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1069 makecolor(g_farge, g_r[g_farge], g_g[g_farge], g_b[g_farge]);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1070 refresh();
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1071 g_boxreconstruct = 2;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1072 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1073 if (doicon_drag(int(x0 + expand * i), y0 + 20 * g_uizoom, int(expand), 7 * g_uizoom)) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1074 g_b[g_farge] = int(i * divs);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1075 message("BLUE:" + i);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1076 makecolor(g_farge, g_r[g_farge], g_g[g_farge], g_b[g_farge]);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1077 refresh();
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1078 g_boxreconstruct = 2;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1079 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1080 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1081 e_rect(int(x0), y0, int(x1 - x0), 7 * g_uizoom, g_rgb[258]);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1082 e_rect(int(x0), y0 + 10 * g_uizoom, int(x1 - x0), 7 * g_uizoom, g_rgb[258]);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1083 e_rect(int(x0), y0 + 20 * g_uizoom, int(x1 - x0), 7 * g_uizoom, g_rgb[258]);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1084
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1085 for (int i = 1; i < g_palsteps; i++) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1086 e_rect(int(x0 + expand * i), y0, g_uizoom, 2 * g_uizoom, g_rgb[257]);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1087 e_rect(int(x0 + expand * i), y0 + 10 * g_uizoom, g_uizoom, 2 * g_uizoom, g_rgb[257]);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1088 e_rect(int(x0 + expand * i), y0 + 20 * g_uizoom, g_uizoom, 2 * g_uizoom, g_rgb[257]);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1089 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1090 e_rect(int(x0 + expand * g_r[g_farge] / divs), y0, int(expand), 7 * g_uizoom, g_rgb[260]);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1091 e_rect(int(x0 + expand * g_g[g_farge] / divs), y0 + 10 * g_uizoom, int(expand), 7 * g_uizoom, g_rgb[261]);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1092 e_rect(int(x0 + expand * g_b[g_farge] / divs), y0 + 20 * g_uizoom, int(expand), 7 * g_uizoom, g_rgb[262]);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1093 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1094
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	1095
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1096 void colorselector(int xo, int yo) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1097 int x, y, ad, yfat;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1098 int far, xonko, yhei, maxp, xloc, yloc;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1099 int bfat;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1100 float expand, divus;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1101 xonko = 16 * g_uizoom;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1102 yhei = 16 * g_uizoom;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1103 expand = 1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1104 yfat = 4 * g_uizoom;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1105 bfat = 1 * g_uizoom;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1106 if (g_maxcolors > 60) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1107 yhei = 4 * g_uizoom;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1108 yfat = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1109 bfat = 1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1110 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1111 divus = 255 / g_palsteps;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1112 x = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1113 y = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1114 far = 0xff000000;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1115
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1116 maxp = g_maxcolors;
7 c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 6 diff changeset	1117 xonko = int(int(512 / g_maxcolors) / 2) * g_uizoom;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1118
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1119 if (g_maxcolors > 32) {
7 c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 6 diff changeset	1120 maxp = int(g_maxcolors / 2);
c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 6 diff changeset	1121 xonko = int(1024 / g_maxcolors);
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1122 }
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1123
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1124 if (machine == PLUS4 \|\| machine == PLUS4M) xonko = 15 * g_uizoom;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1125
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1126 for (x = 0; x < g_maxcolors; x++) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1127 xloc = xo + x * xonko;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1128 yloc = yo + 8 * g_uizoom;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1129 if (g_maxcolors > 60) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1130 yloc = yo + yhei * 7;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1131 if (x > 15 && x <= 30) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1132 xloc = xo + (x - 15) * xonko;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1133 yloc = yo + yhei * 6 + yfat * 2;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1134 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1135 if (x > 30 && x <= 45) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1136 xloc = xo + (x - 30) * xonko;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1137 yloc = yo + yhei * 5 + yfat * 4;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1138 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1139 if (x > 45 && x <= 60) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1140 xloc = xo + (x - 45) * xonko;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1141 yloc = yo + yhei * 4 + yfat * 6;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1142 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1143 if (x > 60 && x <= 75) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1144 xloc = xo + (x - 60) * xonko;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1145 yloc = yo + yhei * 3 + yfat * 8;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1146 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1147 if (x > 75 && x <= 90) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1148 xloc = xo + (x - 75) * xonko;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1149 yloc = yo + yhei * 2 + yfat * 10;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1150 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1151 if (x > 90 && x <= 105) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1152 xloc = xo + (x - 90) * xonko;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1153 yloc = yo + yhei * 1 + yfat * 12;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1154 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1155 if (x > 105 && x <= 120) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1156 xloc = xo + (x - 105) * xonko;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1157 yloc = yo + yhei * 0 + yfat * 14;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1158 }
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1159 }
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1160 if (doicon_drag(xloc, yloc, xonko, yhei)) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1161 if (mouseButton == LEFT \|\| mouseButton == CENTER) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1162 selectcolor(0, x);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1163 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1164 if (mouseButton == RIGHT) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1165 selectcolor(1, x);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1166 g_button = LEFT;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1167 }
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1168 }
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1169
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1170 if (g_repanel <= 0) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1171 int index;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1172 index = x;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1173 if (machine == MSX && x == 0) index = g_map[1];
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1174 e_rect(xloc, yloc, xonko, yhei, g_rgb[index]); // the colour blocks
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1175 far = 0xff000000;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1176 if (g_farge == x) far = 0xff808080;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1177 e_rect(xloc, yloc - yfat, xonko, yfat, far);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1178 if (doicon(xloc, yloc - yfat, xonko, yfat)) selectcolor(0, x);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1179
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1180 far = 0xff000000;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1181 if (g_backg == x && yfat > 0) far = 0xff808080;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1182
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1183 e_rect(xloc, yloc + yhei, xonko, yfat, far);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1184 if (doicon(xloc, yloc + yhei, xonko, yfat)) selectcolor(1, x);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1185 if (yfat == 0) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1186 if (g_farge == x) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1187 e_rect(xloc, yloc, xonko / 4, yhei / 4, far);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1188 e_rect(xloc, yloc + 1, xonko / 8, yhei / 4, far);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1189 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1190 if (g_backg == x) {
7 c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 6 diff changeset	1191 e_rect(xloc + xonko - xonko / 4, yloc + yhei - 2, int(xonko / 4), int(yhei / 4), far);
c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 6 diff changeset	1192 e_rect(xloc + xonko - xonko / 8, yloc + yhei - 3, int(xonko / 8), int(yhei / 4), far);
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1193 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1194 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1195 if (int(g_map[0]) == x) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1196 far = 0xff000000;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1197 if (dist(g_r[x], g_g[x], g_b[x], 0, 0, 0) < 1) far = 0xffffffff;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1198 e_rect(xloc, yloc, xonko, bfat, far);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1199 e_rect(xloc, yloc + yhei - bfat, xonko, bfat, far);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1200 e_rect(xloc, yloc, bfat, yhei, far);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1201 e_rect(xloc + xonko - bfat, yloc, bfat, yhei, far);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1202 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1203 if (int(g_map[1]) == x) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1204 far = 0xff000000;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1205 if (dist(g_r[x], g_g[x], g_b[x], 0, 0, 0) < 1) far = 0xffffffff;
7 c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 6 diff changeset	1206 e_rect(xloc + int(xonko / 4), yloc + int(yhei / 4), int(xonko / 4), int(yhei / 4), far);
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1207 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1208 if (machine == PLUS4 \|\| machine == PLUS4M) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1209 if (int(g_map[1]) != 255 && int(g_map[2]) == x) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1210 far = 0xff000000;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1211 if (dist(g_r[x], g_g[x], g_b[x], 0, 0, 0) < 1) far = 0xffffffff;
7 c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 6 diff changeset	1212 e_rect(xloc + xonko - int(xonko / 4) * 2, yloc + yhei - int(yhei / 4) * 2, int(xonko / 4), int(yhei / 4), far);
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1213 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1214 }
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1215 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1216 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1217 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1218
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	1219
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1220 void messagebox(int ox, int oy) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1221 int cz = 8 * g_uizoom;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1222 // lcd character display chardisplay textbox
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1223 // coordinates. has its own "dirtychar"
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1224
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1225 for (int xx = 0; xx <= 11; xx++) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1226 for (int yy = 0; yy <= 3; yy++) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1227 if (g_chaup[xx + yy * 16] == 1) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1228 g_chaup[xx + yy * 16] = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1229 drawchar(ox + xx * cz, oy + yy * cz, g_data[256 + xx + yy * 12]);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1230 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1231 }
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1232 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1233 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1234
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	1235
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1236 void colorindicator(int ox, int oy) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1237 int bs = 8 * g_uizoom;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1238 int h = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1239 if (g_button == RIGHT) h = 1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1240 e_rect(ox, oy, bs * 2, bs * 4, g_rgb[int(g_realback)]);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1241 e_rect(ox + bs / 2, oy + 4 * g_uizoom, 12 * g_uizoom, bs * 2, g_rgb[int(g_realfront)]);
6 07ddf9cfc6c2 Cast char to int where needed and other related operations. Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	1242 if (doicon(ox, oy, bs * 2, bs * 3)) command(int('<'));
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1243 if (machine == C64M \|\| machine == MSX \|\| machine == AMIGA) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1244 e_rect(ox, oy + bs * 3, bs * 2, bs, g_rgb[int(g_map[1])]);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1245 d_rect(ox, oy + bs * 3, bs * 2, bs, g_rgb[int(257)]);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1246 if (doicon(ox, oy + bs * 3, bs * 2, bs)) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1247 if (g_shift == false) selectcolor(h, int(g_map[1]));
6 07ddf9cfc6c2 Cast char to int where needed and other related operations. Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	1248 if (g_shift) command(int('C'));
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1249 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1250 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1251 if (machine == PLUS4M) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1252 e_rect(ox, oy + bs * 3, bs, bs, g_rgb[int(g_map[1])]);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1253 e_rect(ox + 8 * g_uizoom, oy + bs * 3, bs, bs, g_rgb[int(g_map[2])]);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1254 d_rect(ox, oy + bs * 3, bs, bs, g_rgb[int(257)]);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1255 d_rect(ox + 8 * g_uizoom, oy + bs * 3, bs, bs, g_rgb[int(257)]);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1256 if (doicon(ox, oy + bs * 3, bs, bs)) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1257 if (g_shift == false) selectcolor(h, int(g_map[1]));
6 07ddf9cfc6c2 Cast char to int where needed and other related operations. Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	1258 if (g_shift) command(int('C'));
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1259 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1260 if (doicon(ox + 8 * g_uizoom, oy + bs * 3, bs, bs)) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1261 if (g_shift == false) selectcolor(h, int(g_map[2]));
6 07ddf9cfc6c2 Cast char to int where needed and other related operations. Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	1262 if (g_shift) command(int('V'));
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1263 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1264 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1265 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1266
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	1267
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1268 void update_ui() {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1269 if (g_iconmode == 1) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1270 for (int i = 0; i <= 80000; i++) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1271 g_icons[i] = g_map[i];
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1272 }
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1273 }
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1274
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1275 if (g_repanel <= 0) g_repanel++;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1276 messagebox(width - 12 * 8 * g_uizoom, height - 4 * 8 * g_uizoom);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1277
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1278 // when tooltipping, the panels are not really
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1279 // drawn but used for easy coordinate reference
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1280
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1281 if (g_repanel > 0) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1282 icontable(width - 32 * g_uizoom, 0, 0, 0);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1283 icontable(272 * g_uizoom, height - 32 * g_uizoom, 1, 0);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1284 if (machine == PLUS4M \|\| machine == PLUS4) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1285 icontable(240 * g_uizoom, height - 32 * g_uizoom, 2, 0);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1286 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1287 return;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1288 }
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1289
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1290 if (g_repanel > 0) return;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1291
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1292 icontable(width - 32 * g_uizoom - 1, 0, 0, 1);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1293 icontable(272 * g_uizoom, height - 32 * g_uizoom, 1, 1);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1294 palettebox(g_uizoom * 324 + 4, height - 32 * g_uizoom, width - (96 * g_uizoom) - 4);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1295 if (machine == PLUS4M \|\| machine == PLUS4) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1296 icontable(240 * g_uizoom, height - 32 * g_uizoom, 2, 1);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1297 }
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1298 colorselector(0, height - 32 * g_uizoom);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1299 colorindicator(256 * g_uizoom, height - 32 * g_uizoom);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1300 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1301
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	1302
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1303 void magport() {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1304 int b = g_uizoom * 2;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1305 int xo = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1306 int yo = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1307 for (int y = 0; y < Y; y++) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1308 for (int x = 0; x < X; x++) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1309 int raddr = (xo * 24 + x) + (yo * 24 + y) * width;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1310 pixels[raddr] = int(g_rgb[easygetcolor(x, y)]);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1311 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1312 }
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1313 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1314
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	1315
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1316 void viewport() {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1317 // formerly void redo()
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1318 // main machine screen redraw
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1319 // and dirty char update
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1320 int xx, yy, xo, yo, xwin, ywin, x, y, winsux, winsuy, rubx;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1321 int ad, cad, a, b, c, mmode, fari, psize;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1322 int zonx, zony, maxx, mayy, mag, raddr;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1323 int left = 32 * g_uizoom;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1324 raddr = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1325 winsux = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1326 winsuy = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1327 if (g_backmode == 0) g_map[1] = 0; //some computers have overall background
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1328
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1329 mmode = magmode();
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1330 fari = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1331 makecolor(259, g_r[g_map[0]], g_g[g_map[0]], g_b[g_map[0]]); //use border color
4 a1261cd4c676 Int-ize byte array index references when using character, e.g. arr['A'] -> arr[int('A')] Matti Hamalainen <ccr@tnsp.org> parents: 3 diff changeset	1332 if (g_data[int('M')] == 1 && g_data[int('m')] == 1) g_data[int('m')] = 0;
a1261cd4c676 Int-ize byte array index references when using character, e.g. arr['A'] -> arr[int('A')] Matti Hamalainen <ccr@tnsp.org> parents: 3 diff changeset	1333 if (g_data[int('m')] == 1) makecolor(259, 48, 48, 48); //don't use border color in mag modes
a1261cd4c676 Int-ize byte array index references when using character, e.g. arr['A'] -> arr[int('A')] Matti Hamalainen <ccr@tnsp.org> parents: 3 diff changeset	1334 if (g_data[int('M')] == 1) makecolor(259, 48, 48, 48);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1335
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1336 psize = g_magpix[mmode];
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1337 mag = psize * 8;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1338 maxx = magx();
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1339 mayy = magy();
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1340
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1341 if (g_boxreconstruct == 1) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1342 g_boxreconstruct = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1343 e_rect(0, (mayy * psize) * 8, maxx * psize * 8, height - ((g_vedge + g_uizoom * 2) + (mayy * psize * 8)), g_rgb[259]);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1344 e_rect((maxx * psize) * 8, 0, width - (maxx * psize * 8 + (g_hedge + g_uizoom * 2)), height - (g_vedge + g_uizoom), g_rgb[259]);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1345 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1346 if (g_boxreconstruct == 2) { //in case of full window update
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1347 g_boxreconstruct = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1348 e_rect(0, 0, width - (g_hedge + g_uizoom * 2), height - (g_vedge + g_uizoom * 2), g_rgb[259]);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1349 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1350
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1351 maxx--;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1352 mayy--;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1353 zonx = MX - magx();
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1354 zony = MY - magy();
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1355
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1356 if (g_ofx > zonx) g_ofx = zonx;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1357 if (g_ofy > zony) g_ofy = zony;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1358 if (g_ofx < 0) g_ofx = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1359 if (g_ofy < 0) g_ofy = 0;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1360
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1361 if (mmode == 10) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1362 g_ofx = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1363 g_ofy = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1364 maxx = MX - 1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1365 mayy = MY - 1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1366 winsux = g_windowx;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1367 winsuy = g_windowy;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1368 mag = 16;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1369 } //mini
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1370 if (mmode == 0) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1371 g_ofx = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1372 g_ofy = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1373 maxx = MX - 1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1374 mayy = MY - 1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1375 winsux = g_windowx;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1376 winsuy = g_windowy;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1377 mag = 24;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1378 } //normal
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1379 if (mmode == 20) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1380 g_ofx = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1381 g_ofy = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1382 maxx = MX - 1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1383 mayy = MY - 1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1384 winsux = g_windowx;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1385 winsuy = g_windowy;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1386 mag = 32;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1387 } //maxi
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1388
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1389 b = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1390 c = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1391 a = 5;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1392
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1393 if (mmode == 1 \|\| mmode == 2 \|\| mmode == 11 \|\| mmode == 12 \|\| mmode == 21 \|\| mmode == 22) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1394 winsux = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1395 winsuy = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1396 fill(32, 32, 32);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1397 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1398
8 f97ee354db2a Various minor code cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	1399 for (ywin = 0; ywin <= mayy; ywin++)
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1400 for (xwin = 0; xwin <= maxx; xwin++) {
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1401
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1402 // source coords: is 0,0 if not magged
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1403 xx = g_ofx + xwin;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1404 yy = g_ofy + ywin;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1405 // divided into character area blocks
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1406 // which are only updated if necessary
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1407 xo = xwin;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1408 yo = ywin;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1409
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1410 if (int(g_redo[xx + yy * MX]) == 0) {
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1411
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1412 for (y = 0; y <= 7; y++) { //pixel rows inside "char"
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1413
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1414 switch (g_multic) {
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1415 case 0:
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1416 cad = 65536 + xx + ((yy * X) + y * MX);
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1417 a = int(g_map[cad]);
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1418 b = int(g_map[(MX * MY) * 8 + cad]);
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1419 c = int(g_map[(MX * MY) * 8 + cad]);
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1420 break;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1421 case 1:
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1422 cad = 65536 + xx + (yy * MX);
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1423 a = int(g_map[cad]);
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1424 b = int(g_map[cad + 1000]);
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1425 c = int(g_map[cad + 2000]);
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1426 if (machine == PLUS4M) {
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1427 c = int(g_map[2]);
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1428 }
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1429 break;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1430 case 2:
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1431 cad = 65536 + xx + ((yy * X) + y * MX);
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1432 a = int(g_map[cad]);
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1433 b = int(g_map[(MX * MY) * 8 + cad]);
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1434 c = int(g_map[(MX * MY) * 8 + cad]);
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1435 break;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1436 }
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1437
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1438 ad = 1024 + xx * 8 + yy * (X * 8) + y * X;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1439
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1440 int po, vop;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1441
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1442 for (x = 0; x <= 7; x++) { //pixel columns inside pixel row
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1443 vop = int(x / 2);
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1444 if (g_multic == 0) {
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1445 if (int(g_map[ad + x]) == 1) {
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1446 fari = a;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1447 if (fari == 0) fari = g_map[1];
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1448 } else {
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1449 fari = b;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1450 if (fari == 0) fari = g_map[1];
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1451 }
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1452 }
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1453 if (g_multic == 1) {
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1454 po = int(g_map[ad + vop * 2]) + int(g_map[ad + vop * 2 + 1] * 2);
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1455 if (po == 0) fari = g_map[1]; //00 comes from $d021 in real c64 and background 1 in plus/4
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1456 if (po == 1) fari = a; //10
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1457 if (po == 2) fari = b; //01
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1458 if (po == 3) fari = c; //g_map[2];//11 // comes from $d800 in real c64 and background 2 in plus/4
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1459 }
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1460 if (g_multic == 2) { // "amiga" mode
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1461 fari = int(g_map[ad + x]);
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1462 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1463
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1464 if (g_rubbermode == 1) { // rubberband mode
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1465 rubx = x;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1466 if (g_multic == 1 \|\| g_hzoomer == 2) {
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1467 rubx = chop2(x);
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1468 }
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1469 if (fylli() == 1) {
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1470 if (xx * 8 + rubx == g_rx \|\| xx * 8 + rubx == g_rx2) {
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1471 if (yy * 8 + y >= g_ry && yy * 8 + y <= g_ry2) fari = 256;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1472 if (yy * 8 + y >= g_ry && yy * 8 + y <= g_ry2) fari = 256;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1473 }
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1474 if (yy * 8 + y == g_ry \|\| yy * 8 + y == g_ry2) {
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1475 if (xx * 8 + x >= g_rx && xx * 8 + x <= g_rx2) fari = 256;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1476 if (xx * 8 + x >= g_rx && xx * 8 + x <= g_rx2) fari = 256;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1477 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1478 }
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1479 }
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1480
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1481 color ari = g_rgb[fari];
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1482 switch (mmode) {
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1483 case 0:
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1484 raddr = (xo * 24 + x * 3) + (yo * 24 + y * 3) * width;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1485 raddr = raddr + g_windowx + g_windowy * width;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1486 pixels[raddr] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1487 pixels[raddr + 1] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1488 pixels[raddr + 2] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1489 raddr = raddr + width;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1490 pixels[raddr] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1491 pixels[raddr + 1] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1492 pixels[raddr + 2] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1493 raddr = raddr + width;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1494 pixels[raddr] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1495 pixels[raddr + 1] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1496 pixels[raddr + 2] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1497 break;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1498 case 1:
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1499 raddr = (xo * 64 + x * 8) + (yo * 64 + y * 8) * width;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1500 pixels[raddr] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1501 pixels[raddr + 1] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1502 pixels[raddr + 2] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1503 pixels[raddr + 3] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1504 pixels[raddr + 4] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1505 pixels[raddr + 5] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1506 pixels[raddr + 6] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1507 pixels[raddr + 7] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1508 raddr = raddr + width;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1509 pixels[raddr] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1510 pixels[raddr + 1] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1511 pixels[raddr + 2] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1512 pixels[raddr + 3] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1513 pixels[raddr + 4] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1514 pixels[raddr + 5] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1515 pixels[raddr + 6] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1516 pixels[raddr + 7] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1517 raddr = raddr + width;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1518 pixels[raddr] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1519 pixels[raddr + 1] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1520 pixels[raddr + 2] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1521 pixels[raddr + 3] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1522 pixels[raddr + 4] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1523 pixels[raddr + 5] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1524 pixels[raddr + 6] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1525 pixels[raddr + 7] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1526 raddr = raddr + width;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1527 pixels[raddr] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1528 pixels[raddr + 1] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1529 pixels[raddr + 2] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1530 pixels[raddr + 3] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1531 pixels[raddr + 4] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1532 pixels[raddr + 5] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1533 pixels[raddr + 6] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1534 pixels[raddr + 7] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1535 raddr = raddr + width;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1536 pixels[raddr] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1537 pixels[raddr + 1] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1538 pixels[raddr + 2] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1539 pixels[raddr + 3] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1540 pixels[raddr + 4] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1541 pixels[raddr + 5] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1542 pixels[raddr + 6] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1543 pixels[raddr + 7] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1544 raddr = raddr + width;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1545 pixels[raddr] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1546 pixels[raddr + 1] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1547 pixels[raddr + 2] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1548 pixels[raddr + 3] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1549 pixels[raddr + 4] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1550 pixels[raddr + 5] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1551 pixels[raddr + 6] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1552 pixels[raddr + 7] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1553 raddr = raddr + width;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1554 pixels[raddr] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1555 pixels[raddr + 1] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1556 pixels[raddr + 2] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1557 pixels[raddr + 3] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1558 pixels[raddr + 4] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1559 pixels[raddr + 5] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1560 pixels[raddr + 6] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1561 pixels[raddr + 7] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1562 raddr = raddr + width;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1563 pixels[raddr] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1564 pixels[raddr + 1] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1565 pixels[raddr + 2] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1566 pixels[raddr + 3] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1567 pixels[raddr + 4] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1568 pixels[raddr + 5] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1569 pixels[raddr + 6] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1570 pixels[raddr + 7] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1571 break;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1572 case 2:
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1573 e_rect(xo * (64 * g_uizoom) + x * (8 * g_uizoom), yo * (64 * g_uizoom) + y * (8 * g_uizoom), 8 * g_uizoom, 8 * g_uizoom, g_rgb[fari]);
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1574 break;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1575 // mini modes
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1576 case 10:
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1577 raddr = (xo * 16 + x * 2) + (yo * 8 + y) * width * 2;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1578 raddr = raddr + g_windowx + g_windowy * width;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1579 pixels[raddr] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1580 pixels[raddr + 1] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1581 raddr = raddr + width;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1582 pixels[raddr] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1583 pixels[raddr + 1] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1584 break;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1585 case 11:
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1586 raddr = (xo * 48 + x * 6) + (yo * 48 + y * 6) * width;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1587 pixels[raddr] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1588 pixels[raddr + 1] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1589 pixels[raddr + 2] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1590 pixels[raddr + 3] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1591 pixels[raddr + 4] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1592 pixels[raddr + 5] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1593 raddr = raddr + width;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1594 pixels[raddr] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1595 pixels[raddr + 1] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1596 pixels[raddr + 2] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1597 pixels[raddr + 3] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1598 pixels[raddr + 4] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1599 pixels[raddr + 5] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1600 raddr = raddr + width;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1601 pixels[raddr] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1602 pixels[raddr + 1] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1603 pixels[raddr + 2] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1604 pixels[raddr + 3] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1605 pixels[raddr + 4] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1606 pixels[raddr + 5] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1607 raddr = raddr + width;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1608 pixels[raddr] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1609 pixels[raddr + 1] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1610 pixels[raddr + 2] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1611 pixels[raddr + 3] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1612 pixels[raddr + 4] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1613 pixels[raddr + 5] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1614 raddr = raddr + width;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1615 pixels[raddr] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1616 pixels[raddr + 1] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1617 pixels[raddr + 2] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1618 pixels[raddr + 3] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1619 pixels[raddr + 4] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1620 pixels[raddr + 5] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1621 raddr = raddr + width;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1622 pixels[raddr] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1623 pixels[raddr + 1] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1624 pixels[raddr + 2] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1625 pixels[raddr + 3] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1626 pixels[raddr + 4] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1627 pixels[raddr + 5] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1628 break;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1629 case 12:
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1630 e_rect(xo * (64 * g_wzoom) + x * (8 * g_wzoom), yo * (64 * g_wzoom) + y * (8 * g_wzoom), 8 * g_wzoom, 8 * g_wzoom, g_rgb[fari]);
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1631 break;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1632 // maxi modes
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1633 case 20:
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1634 raddr = (xo * (8 * 4) + x * 4) + (yo * (8 * 4) + y * 4) * width;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1635 raddr = raddr + g_windowx + g_windowy * width;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1636 pixels[raddr] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1637 pixels[raddr + 1] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1638 pixels[raddr + 2] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1639 pixels[raddr + 3] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1640 raddr = raddr + width;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1641 pixels[raddr] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1642 pixels[raddr + 1] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1643 pixels[raddr + 2] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1644 pixels[raddr + 3] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1645 raddr = raddr + width;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1646 pixels[raddr] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1647 pixels[raddr + 1] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1648 pixels[raddr + 2] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1649 pixels[raddr + 3] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1650 raddr = raddr + width;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1651 pixels[raddr] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1652 pixels[raddr + 1] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1653 pixels[raddr + 2] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1654 pixels[raddr + 3] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1655 break;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1656 case 21:
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1657 e_rect(xo * (32 * g_wzoom) + x * (4 * g_wzoom), yo * (32 * g_wzoom) + y * (4 * g_wzoom), 4 * g_wzoom, 4 * g_wzoom, g_rgb[fari]);
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1658 break;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1659 case 22:
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1660 e_rect(xo * (64 * g_wzoom) + x * (8 * g_wzoom), yo * (64 * g_wzoom) + y * (8 * g_wzoom), 8 * g_wzoom, 8 * g_wzoom, g_rgb[fari]);
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1661 break;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1662 }
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1663 } //one pixel inside pixel row
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1664 } //one pixel row inside char
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1665
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1666 //draw grid
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1667 //can in principle be non-square
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1668 if (int(g_data[int('g')]) == 1) {
7 c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 6 diff changeset	1669 int lapx = int((xx * 8) / g_gridx) * g_gridx;
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1670 if (lapx == (xx * 8)) {
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1671 t_rect(xo * mag + winsux, yo * mag + winsuy, 1, mag, g_rgb[257]);
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1672 if (g_gridx == 4) {
7 c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 6 diff changeset	1673 t_rect(xo * mag + winsux + 4 * psize, yo * mag + winsuy + 1, 1, int(mag / 2) - 2, g_rgb[257]);
c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 6 diff changeset	1674 t_rect(xo * mag + winsux + 4 * psize, yo * mag + winsuy + mag - int(mag / 2) + 2, 1, int(mag / 2) - 2, g_rgb[257]);
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1675 }
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1676 }
7 c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 6 diff changeset	1677 lapx = int((yy * 8) / g_gridy) * g_gridy;
c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 6 diff changeset	1678
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1679 if (lapx == (yy * 8)) {
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1680 t_rect(xo * mag + winsux + 1, yo * mag + winsuy, mag - 1, 1, g_rgb[257]);
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1681 if (g_gridy == 4) {
7 c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 6 diff changeset	1682 t_rect(xo * mag + winsux + 1, yo * mag + winsuy + 4 * psize, int(mag / 2) - 2, 1, g_rgb[257]);
c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 6 diff changeset	1683 t_rect(xo * mag + winsux + 2 + mag - int(mag / 2), yo * mag + winsuy + 4 * psize, int(mag / 2) - 2, 1, g_rgb[257]);
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1684 }
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1685 }
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1686 }
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1687 g_redo[xx + yy * MX] = byte(1);
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1688 } //dirty char?
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1689 } //x char
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1690 }

Mercurial > hg > forks > multipaint-js

annotate Interface.pde @ 108:a9d8db1726c1