forks/multipaint-js: Interface.pde annotate

annotate Interface.pde @ 131:9d17f991f102

Move undo and spare page management into buffers.pde as in Multipaint 2018.

author	Matti Hamalainen <ccr@tnsp.org>
date	Sun, 05 Aug 2018 10:44:45 +0300
parents	b9b60552667e
children	f5c32f6470d0

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
131 9d17f991f102 Move undo and spare page management into buffers.pde as in Multipaint 2018. Matti Hamalainen <ccr@tnsp.org> parents: 109 diff changeset	185 void sussborder()
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	186 {
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	187 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	188 g_boxreconstruct = 2;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	189 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	190
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	191
131 9d17f991f102 Move undo and spare page management into buffers.pde as in Multipaint 2018. Matti Hamalainen <ccr@tnsp.org> parents: 109 diff changeset	192 void makecolor(int c, int rr, int gg, int bb)
9d17f991f102 Move undo and spare page management into buffers.pde as in Multipaint 2018. Matti Hamalainen <ccr@tnsp.org> parents: 109 diff changeset	193 {
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	194 //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	195 //the rest is not stored
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	196 if (c < 256) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	197 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	198 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	199 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	200 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	201 g_r[c] = rr;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	202 g_g[c] = gg;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	203 g_b[c] = bb;
8 f97ee354db2a Various minor code cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	204
f97ee354db2a Various minor code cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	205 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	206 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	207
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	208
131 9d17f991f102 Move undo and spare page management into buffers.pde as in Multipaint 2018. Matti Hamalainen <ccr@tnsp.org> parents: 109 diff changeset	209 int fylli()
9d17f991f102 Move undo and spare page management into buffers.pde as in Multipaint 2018. Matti Hamalainen <ccr@tnsp.org> parents: 109 diff changeset	210 {
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	211 //for the animated rubberband thingy
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	212 g_rband++;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	213 if (g_rband > g_rbang) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	214 g_rband = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	215 g_rbang++;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	216 if (g_rbang > 12) g_rbang = 8;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	217 }
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	218 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	219 return 1;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	220 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	221
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	222
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	223 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	224 int ad = x1 + y1 * width;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	225 //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	226 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	227 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	228 pixels[ad + xx] = rgb;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	229 }
8 f97ee354db2a Various minor code cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	230 ad += width;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	231 }
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	232 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	233
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	234
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	235 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	236 int ad = x1 + y1 * width;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	237 //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	238 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	239 for (int xx = 0; xx < w; xx++) {
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	240 if (xx == 0 \|\| yy == 0 \|\| xx == w - 1 \|\| yy == h - 1)
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	241 pixels[ad + xx] = rgb;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	242 }
8 f97ee354db2a Various minor code cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	243 ad += width;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	244 }
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	245 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	246
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	247
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	248 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	249 // transparent rectangle
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	250 // fixed tp, for grid drawing
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	251
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	252 //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	253 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	254 int ad = x1 + y1 * width;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	255
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	256 if (g_gridmode == NEW) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	257 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	258 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	259 s = pixels[ad + xx];
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	260 fout = 0;
43 df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	261
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	262 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	263 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	264 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	265 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	266 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	267 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	268 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	269 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	270 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	271 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	272 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	273 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	274 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	275 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	276 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	277 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	278
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	279 pixels[ad + xx] = fout;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	280 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	281 ad = ad + width;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	282 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	283 return;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	284 }
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	285
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	286 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	287 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	288 s = pixels[ad + xx];
8 f97ee354db2a Various minor code cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	289
f97ee354db2a Various minor code cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	290 r = (s >> 16) & 0xff;
f97ee354db2a Various minor code cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	291 g = (s >> 8) & 0xff;
f97ee354db2a Various minor code cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	292 b = (s) & 0xff;
f97ee354db2a Various minor code cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	293
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	294 g = g + 64;
7 c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 6 diff changeset	295
c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 6 diff changeset	296 r = int((r * 2) / 3);
c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 6 diff changeset	297 g = int((g * 2) / 3);
c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 6 diff changeset	298 b = int((b * 2) / 3);
c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 6 diff changeset	299
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	300 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	301 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	302 ad = ad + width;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	303 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	304 }
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
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	307 // 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	308
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	309 void storeparameters() {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	310 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	311 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	312 }
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	313 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	314
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	315
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	316 void restoreparameters() {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	317 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	318 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	319 }
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	320 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	321
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	322
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	323 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	324 //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	325 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	326 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	327 }
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	328 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	329
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	330
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	331 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	332 //draw one icon
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	333 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	334 int metal;
7 c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 6 diff changeset	335
c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 6 diff changeset	336 yy = int(t / 16);
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	337 xx = t - yy * 16;
8 f97ee354db2a Various minor code cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	338
f97ee354db2a Various minor code cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	339 xx *= 2;
f97ee354db2a Various minor code cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	340 yy *= 2;
f97ee354db2a Various minor code cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	341
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	342 ad = 1024 + xx * 8 + yy * 2048;
8 f97ee354db2a Various minor code cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	343
f97ee354db2a Various minor code cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	344 for (int y = 0; y < 16; y++) {
f97ee354db2a Various minor code cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	345 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	346 metal = 0xffa0a0a0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	347 far = 0xff000000;
8 f97ee354db2a Various minor code cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	348 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	349 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	350 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	351 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	352
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	353 if (x == 0 \|\| y == 0) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	354 metal = 0xffe0e0e0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	355 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	356 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	357 }
7 c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 6 diff changeset	358
c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 6 diff changeset	359 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	360
c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 6 diff changeset	361 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	362
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	363 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	364 far = metal;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	365 if (mm == 1) far = 0xffffff80;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	366 }
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	367
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	368 if (t == 66) { //raster icon
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	369 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	370 far = metal;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	371 if (mm == 1) far = 0xffffff80;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	372 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	373 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	374 }
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	375
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	376 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	377 }
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	378 ad = ad + 256;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	379 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	380 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	381
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	382
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	383 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	384 //characters at the help box
14 cecc594d1559 Remove unused code and variables. Matti Hamalainen <ccr@tnsp.org> parents: 13 diff changeset	385 int ad, x, y, xx, yy, far;
cecc594d1559 Remove unused code and variables. Matti Hamalainen <ccr@tnsp.org> parents: 13 diff changeset	386
10 80380099f1ad Check for characters < 32 in drawchar() because 32 is deducted from the value. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	387 if (t < 32) return;
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	388
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	389 t -= 32;
7 c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 6 diff changeset	390 yy = int(t / 32);
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	391 xx = t - yy * 32;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	392 yy = yy + 18;
8 f97ee354db2a Various minor code cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	393
f97ee354db2a Various minor code cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	394 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	395 ad = 1024 + xx * 8 + yy * 2048 + y * 256;
8 f97ee354db2a Various minor code cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	396
f97ee354db2a Various minor code cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	397 for (x = 0; x < 8; x++) {
f97ee354db2a Various minor code cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	398 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	399 far = 0xffb0b0b0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	400 if (g_bsize < 4) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	401 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	402 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	403 } else {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	404 far = 0xff000000;
43 df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	405 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	406 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	407 }
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	408
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	409 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	410 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	411 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	412 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	413
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	414
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	415 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	416 //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	417 if (g_data[int('m')] == 0 && g_data[int('M')] == 0) {
39 5e0306ac3575 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 19 diff changeset	418 if (g_mx + g_windowx >= xx && g_mx + g_windowx < xx + ww &&
5e0306ac3575 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 19 diff changeset	419 g_my + g_windowy >= yy && g_my + g_windowy < yy + hh)
5e0306ac3575 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 19 diff changeset	420 return true;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	421 }
39 5e0306ac3575 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 19 diff changeset	422 else
5e0306ac3575 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 19 diff changeset	423 {
5e0306ac3575 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 19 diff changeset	424 if (g_mx >= xx && g_mx <= xx + ww &&
5e0306ac3575 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 19 diff changeset	425 g_my >= yy && g_my <= yy + hh)
5e0306ac3575 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 19 diff changeset	426 return true;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	427 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	428 return false;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	429 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	430
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	431
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	432 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	433 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	434 g_iconx = -1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	435 g_icony = -1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	436 g_repanel = -2;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	437 return true;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	438 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	439 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	440 g_piconx = -1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	441 g_picony = -1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	442 g_repanel = -2;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	443 return true;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	444 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	445 return false;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	446 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	447
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	448
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	449 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	450 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	451 g_iconx = -1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	452 g_icony = -1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	453 g_repanel = -2;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	454 return true;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	455 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	456 return false;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	457 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	458
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	459
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	460 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	461 //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	462 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	463 if (tex.charCodeAt(tit) != '\|') {
07ddf9cfc6c2 Cast char to int where needed and other related operations. Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	464 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	465 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	466 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	467 }
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	468 xx++;
6 07ddf9cfc6c2 Cast char to int where needed and other related operations. Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	469 } else {
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	470 xx = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	471 yy++;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	472 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	473 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	474 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	475
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	476
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	477 void clearmsg() {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	478 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	479 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	480 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	481 g_chaup[x + y * 16] = 1;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	482 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	483 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	484 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	485
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	486
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	487 void message(String tex) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	488 if (tex.equals("*")) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	489 g_msgctr = 100;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	490 return;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	491 }
19 1fcc61b882f7 Use console.log() to log message() things in browser console. Matti Hamalainen <ccr@tnsp.org> parents: 14 diff changeset	492 console.log("MSG: " + tex);
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	493 clearmsg();
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	494 printat(0, 0, tex);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	495 g_msgctr = 50;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	496 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	497
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	498
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	499 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	500 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	501
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	502 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	503
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	504 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	505
99 cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	506 if (mode >= 1000)
cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	507 {
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	508 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	509 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	510
99 cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	511 if (g_phase == 1)
cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	512 switch (tool())
cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	513 {
cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	514 case 4:
cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	515 case 6:
cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	516 xc = abs(g_rx2 - g_rx) + 1;
cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	517 yc = abs(g_ry2 - g_ry) + 1;
cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	518 break;
cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	519
cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	520 case 7:
cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	521 xc = abs(g_rx2 - g_rx) * 2 + 1;
cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	522 yc = abs(g_ry2 - g_ry) * 2 + 1;
cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	523 break;
cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	524
cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	525 case 8:
cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	526 if (g_data[int('c')] == 1 \|\| g_shift) {
cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	527 xc = abs(g_rx2 - g_rx);
cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	528 yc = abs(g_ry2 - g_ry);
cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	529 } //purkkaa
cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	530 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	531 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	532 yc = abs(g_ry2 - g_ry) + 1;
99 cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	533 }
cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	534 break;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	535 }
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	536
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	537 // coordinates
99 cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	538 if (xc < X && yc < Y)
cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	539 {
13 80727dab1359 Oops, fix the coordinate printing. Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	540 printat(0, 0, "Px:"+ str(xc));
80727dab1359 Oops, fix the coordinate printing. Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	541 printat(6, 0, ", "+ str(yc));
80727dab1359 Oops, fix the coordinate printing. Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	542 printat(0, 1, "Ch:"+ str(int(xc / 8)));
80727dab1359 Oops, fix the coordinate printing. Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	543 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	544
99 cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	545 if (tool() == 6 && g_phase == 1)
cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	546 {
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	547 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	548
dfdc18b62fab Change the help() function and its usage to have more than one parameter to Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	549 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	550 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	551 }
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	552 }
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	553 return;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	554 }
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	555
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	556 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	557
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	558 switch (char(mode)) {
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	559 case '.':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	560 teks = "Preset pens\|.=reset";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	561 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	562 case TAB:
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	563 teks = "Pick color";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	564 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	565 case '<':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	566 teks = "Swap colors\|Right<>Left";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	567 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	568 case '>':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	569 teks = "Pick backgnd\|shift=set";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	570 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	571 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	572 case '1':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	573 teks = "Draw";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	574 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	575 case '2':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	576 teks = "Spray can";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	577 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	578 case '3':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	579 teks = "Continuous\|Draw";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	580 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	581 case '4':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	582 teks = "Grab brush";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	583 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	584 case '5':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	585 teks = "Flood fill";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	586 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	587 case '8':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	588 teks = "Rectangle";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	589 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	590 case '7':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	591 teks = "Ellipse";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	592 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	593 case '6':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	594 teks = "Line";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	595 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	596 case '9':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	597 teks = "Brush tool";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	598 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	599 case '0':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	600 teks = "Magnifier\|m=direct";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	601 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	602 case 'a':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	603 teks = "Bitmap only\|on/off";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	604 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	605 case 'A':
50 8ba88c25f51d Rename some variables. Matti Hamalainen <ccr@tnsp.org> parents: 43 diff changeset	606 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	607 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	608 case 'b':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	609 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	610 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	611 case 'B':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	612 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	613 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	614 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	615 case 'C':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	616 teks = "Set backgnd";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	617 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	618 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	619 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	620 case 'i':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	621 teks = "Increase\|luminance";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	622 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	623 case 'k':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	624 teks = "Decrease\|luminance";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	625 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	626 case 'r':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	627 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	628 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	629 case 'R':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	630 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	631 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	632 case 'd':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	633 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	634 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	635 case 'p':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	636 teks = "Brush\|recolor\|on/off";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	637 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	638 case 'q':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	639 teks = "IQ mode\|on/off";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	640 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	641 case 't':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	642 teks = "Tile mode\|on/off";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	643 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	644 case 'x':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	645 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	646 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	647 case 'y':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	648 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	649 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	650 case 'z':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	651 teks = "Brush\|rotate";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	652 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	653 case 'h':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	654 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	655 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	656 case 'j':
43 df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	657 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	658 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	659 case 'f':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	660 teks = "Geometry\|fill\|on/off";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	661 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	662 case 'c':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	663 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	664 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	665 case 'm':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	666 teks = "Magnify\|on/off";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	667 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	668 case 'g':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	669 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	670 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	671 case 'X':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	672 teks = "Mirror X\|on/off";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	673 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	674 case 'Y':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	675 teks = "Mirror Y\|on/off";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	676 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	677 case 'l':
99 cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	678 teks = "Load a Multipaint";
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	679 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	680 case 's':
99 cd6450dceec2 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 80 diff changeset	681 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	682 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	683 case 'u':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	684 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	685 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	686 case 'U':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	687 teks = "Redo";
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 'e':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	690 teks = "Export PNG";
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 'E':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	693 teks = "Export as\|source";
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 'o':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	696 teks = "Clear\|screen";
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 'O':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	699 teks = "Export\|specific";
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 'n':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	702 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	703 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	704 case 'w':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	705 teks = "Format\|Import:\|no support";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	706 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	707 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	708 case 'W':
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	709 teks = "Export:\|no support";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	710 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	711 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	712
dfdc18b62fab Change the help() function and its usage to have more than one parameter to Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	713 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	714 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	715 break;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	716 }
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	717
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	718 printat(0, 0, teks);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	719 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	720
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	721
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	722 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	723 String pan = "";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	724 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	725 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	726 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	727
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	728
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	729 // 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	730 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	731 if (tabletype == 1) pan = "BCrRfd";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	732 if (tabletype == 2) pan = "ik";
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	733
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	734 x = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	735 y = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	736
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	737 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	738 ad = pan.charCodeAt(tit);
79 dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	739 if (g_repanel <= 0 && realdraw == 1)
dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	740 {
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	741 if (ad != ';' && ad != ':' && ad != '.') {
79 dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	742 int icolor;
dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	743 if (ad == 'j' && g_spare)
dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	744 icolor = 1;
dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	745 else
dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	746 icolor = int(g_data[ad]);
43 df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 42 diff changeset	747
79 dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	748 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	749 }
79 dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	750 else
dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	751 if (ad == ';')
dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	752 {
dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	753 //draw the preset brush box
dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	754 drawchar(xx, yy, 128);
dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	755 drawchar(xx + 8 * g_uizoom, yy, 129);
dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	756 drawchar(xx + 16 * g_uizoom, yy, 130);
dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	757 drawchar(xx + 24 * g_uizoom, yy, 131);
dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	758 drawchar(xx, yy + 8 * g_uizoom, 132);
dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	759 drawchar(xx + 8 * g_uizoom, yy + 8 * g_uizoom, 133);
dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	760 drawchar(xx + 16 * g_uizoom, yy + 8 * g_uizoom, 134);
dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	761 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	762 }
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	763 }
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	764
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	765 //tooltip
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	766 if (ad != ':' && ad != ';' && ad != '.') {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	767 if (realdraw == 0) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	768 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	769 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	770 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	771 //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	772 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	773 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	774 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	775 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	776 if (ad == 'h' && g_realbutton == RIGHT) ad = 'H';
109 b9b60552667e Make right-clicking work on the Load icon. Matti Hamalainen <ccr@tnsp.org> parents: 108 diff changeset	777 if (ad == 'l' && g_realbutton == RIGHT) ad = 'L';
108 a9d8db1726c1 Use the constant for RIGHT mouse button instead of magic number. Matti Hamalainen <ccr@tnsp.org> parents: 99 diff changeset	778 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	779 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	780 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	781 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	782 command(int(ad));
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	783 g_msgctr = 50;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	784 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	785 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	786 if (ad == ';') {
79 dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	787 for (int ii = 0; ii <= 3; ii++)
dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	788 for (int jj = 0; jj <= 1; jj++)
dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	789 {
dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	790 if (doicon(xx + ii * 8 * g_uizoom, yy + jj * 8 * g_uizoom,
dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	791 8 * g_uizoom, 8 * g_uizoom))
dda377b64984 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	792 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	793 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	794 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	795 if (tabletype == 0) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	796 x = x + 16 * g_uizoom;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	797 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	798 if (x > 16 * g_uizoom) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	799 x = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	800 y = y + 16 * g_uizoom;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	801 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	802 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	803 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	804 if (tabletype == 1 \|\| tabletype == 2) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	805 y = y + 16 * g_uizoom;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	806 if (y > 16 * g_uizoom) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	807 y = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	808 x = x + 16 * g_uizoom;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	809 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	810 }
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	811 }
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	812 g_data[int('9')] = 0;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	813 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	814
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	815
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	816 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	817 int res = f + d;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	818 if (machine == PLUS4 \|\| machine == PLUS4M) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	819 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	820 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	821 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	822 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	823 return res;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	824 }
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	825
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	826 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	827 int out[] = {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	828 6,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	829 1,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	830 11,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	831 15,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	832 8,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	833 10,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	834 9,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	835 13,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	836 14,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	837 2,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	838 3,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	839 4,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	840 5,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	841 1,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	842 12,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	843 7
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	844 }; // from "Ptoing"
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	845 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	846 if (d == -1) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	847 if (f == 0) return 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	848 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	849 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	850 }
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	851 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	852 }
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	853
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	854 if (g_map[13] == MSX) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	855 int out[] = {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	856 1,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	857 4,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	858 9,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	859 10,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	860 6,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	861 12,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	862 13,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	863 14,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	864 5,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	865 3,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	866 7,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	867 15,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	868 2,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	869 8,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	870 11,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	871 15
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	872 }; // calculated Y
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	873 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	874 if (d == -1) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	875 if (f == 0) return 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	876 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	877 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	878 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	879 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	880 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	881 return res;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	882 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	883
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	884
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	885 int tool() {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	886 //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	887 //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	888 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	889 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	890 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	891 return 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	892 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	893
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	894
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	895 void set_tool(int s) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	896 //set current tool, for convenience
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	897 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	898 g_data[i] = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	899 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	900 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	901 g_map[12] = byte(s);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	902 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	903
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	904
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	905 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	906 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	907 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	908 if (hand == 0) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	909 g_farge = x;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	910 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	911 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	912 g_realfront = byte(g_farge);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	913 g_realback = byte(g_backg);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	914 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	915 if (hand == 1) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	916 g_backg = x;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	917 g_realback = byte(g_backg);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	918 g_realfront = byte(g_farge);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	919 }
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	920 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	921
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	922
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	923 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	924 g_dirty = true;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	925 //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	926 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	927 g_redo[i] = byte(0);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	928 g_remdo[i] = byte(1);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	929 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	930 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	931 //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	932 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	933
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	934
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	935 void refresh_all() {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	936 refresh();
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	937 g_boxreconstruct = 2;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	938 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	939
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	940
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	941 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	942 if (g_palsteps == 0) return;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	943 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	944 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	945 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	946 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	947 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	948 message("RED:" + i);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	949 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	950 refresh();
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	951 g_boxreconstruct = 2;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	952 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	953 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	954 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	955 message("GREEN:" + i);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	956 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	957 refresh();
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	958 g_boxreconstruct = 2;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	959 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	960 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	961 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	962 message("BLUE:" + i);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	963 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	964 refresh();
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	965 g_boxreconstruct = 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 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	968 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	969 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	970 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	971
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	972 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	973 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	974 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	975 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	976 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	977 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	978 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	979 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	980 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	981
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	982
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	983 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	984 int x, y, ad, yfat;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	985 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	986 int bfat;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	987 float expand, divus;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	988 xonko = 16 * g_uizoom;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	989 yhei = 16 * g_uizoom;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	990 expand = 1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	991 yfat = 4 * g_uizoom;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	992 bfat = 1 * g_uizoom;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	993 if (g_maxcolors > 60) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	994 yhei = 4 * g_uizoom;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	995 yfat = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	996 bfat = 1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	997 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	998 divus = 255 / g_palsteps;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	999 x = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1000 y = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1001 far = 0xff000000;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1002
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1003 maxp = g_maxcolors;
7 c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 6 diff changeset	1004 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	1005
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1006 if (g_maxcolors > 32) {
7 c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 6 diff changeset	1007 maxp = int(g_maxcolors / 2);
c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 6 diff changeset	1008 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	1009 }
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1010
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1011 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	1012
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1013 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	1014 xloc = xo + x * xonko;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1015 yloc = yo + 8 * g_uizoom;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1016 if (g_maxcolors > 60) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1017 yloc = yo + yhei * 7;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1018 if (x > 15 && x <= 30) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1019 xloc = xo + (x - 15) * xonko;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1020 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	1021 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1022 if (x > 30 && x <= 45) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1023 xloc = xo + (x - 30) * xonko;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1024 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	1025 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1026 if (x > 45 && x <= 60) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1027 xloc = xo + (x - 45) * xonko;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1028 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	1029 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1030 if (x > 60 && x <= 75) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1031 xloc = xo + (x - 60) * xonko;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1032 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	1033 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1034 if (x > 75 && x <= 90) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1035 xloc = xo + (x - 75) * xonko;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1036 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	1037 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1038 if (x > 90 && x <= 105) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1039 xloc = xo + (x - 90) * xonko;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1040 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	1041 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1042 if (x > 105 && x <= 120) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1043 xloc = xo + (x - 105) * xonko;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1044 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	1045 }
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1046 }
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1047 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	1048 if (mouseButton == LEFT \|\| mouseButton == CENTER) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1049 selectcolor(0, x);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1050 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1051 if (mouseButton == RIGHT) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1052 selectcolor(1, x);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1053 g_button = LEFT;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1054 }
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1055 }
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1056
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1057 if (g_repanel <= 0) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1058 int index;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1059 index = x;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1060 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	1061 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	1062 far = 0xff000000;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1063 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	1064 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	1065 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	1066
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1067 far = 0xff000000;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1068 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	1069
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1070 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	1071 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	1072 if (yfat == 0) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1073 if (g_farge == x) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1074 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	1075 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	1076 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1077 if (g_backg == x) {
7 c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 6 diff changeset	1078 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	1079 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	1080 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1081 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1082 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	1083 far = 0xff000000;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1084 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	1085 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	1086 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	1087 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	1088 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	1089 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1090 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	1091 far = 0xff000000;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1092 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	1093 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	1094 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1095 if (machine == PLUS4 \|\| machine == PLUS4M) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1096 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	1097 far = 0xff000000;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1098 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	1099 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	1100 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1101 }
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1102 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1103 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1104 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1105
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	1106
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1107 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	1108 int cz = 8 * g_uizoom;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1109 // lcd character display chardisplay textbox
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1110 // coordinates. has its own "dirtychar"
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1111
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1112 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	1113 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	1114 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	1115 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	1116 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	1117 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1118 }
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1119 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1120 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1121
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	1122
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1123 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	1124 int bs = 8 * g_uizoom;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1125 int h = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1126 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	1127 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	1128 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	1129 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	1130 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	1131 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	1132 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	1133 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	1134 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	1135 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	1136 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1137 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1138 if (machine == PLUS4M) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1139 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	1140 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	1141 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	1142 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	1143 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	1144 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	1145 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	1146 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1147 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	1148 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	1149 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	1150 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1151 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1152 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1153
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	1154
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1155 void update_ui() {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1156 if (g_iconmode == 1) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1157 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	1158 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	1159 }
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1160 }
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1161
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1162 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	1163 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	1164
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1165 // 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	1166 // 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	1167
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1168 if (g_repanel > 0) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1169 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	1170 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	1171 if (machine == PLUS4M \|\| machine == PLUS4) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1172 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	1173 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1174 return;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1175 }
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1176
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1177 if (g_repanel > 0) return;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1178
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1179 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	1180 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	1181 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	1182 if (machine == PLUS4M \|\| machine == PLUS4) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1183 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	1184 }
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1185 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	1186 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	1187 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1188
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	1189
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1190 void magport() {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1191 int b = g_uizoom * 2;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1192 int xo = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1193 int yo = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1194 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	1195 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	1196 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	1197 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	1198 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1199 }
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1200 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1201
42 14b7d678dbc2 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	1202
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1203 void viewport() {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1204 // formerly void redo()
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1205 // main machine screen redraw
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1206 // and dirty char update
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1207 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	1208 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	1209 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	1210 int left = 32 * g_uizoom;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1211 raddr = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1212 winsux = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1213 winsuy = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1214 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	1215
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1216 mmode = magmode();
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1217 fari = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1218 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	1219 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	1220 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	1221 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	1222
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1223 psize = g_magpix[mmode];
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1224 mag = psize * 8;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1225 maxx = magx();
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1226 mayy = magy();
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1227
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1228 if (g_boxreconstruct == 1) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1229 g_boxreconstruct = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1230 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	1231 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	1232 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1233 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	1234 g_boxreconstruct = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1235 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	1236 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1237
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1238 maxx--;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1239 mayy--;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1240 zonx = MX - magx();
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1241 zony = MY - magy();
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1242
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1243 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	1244 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	1245 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	1246 if (g_ofy < 0) g_ofy = 0;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1247
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1248 if (mmode == 10) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1249 g_ofx = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1250 g_ofy = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1251 maxx = MX - 1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1252 mayy = MY - 1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1253 winsux = g_windowx;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1254 winsuy = g_windowy;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1255 mag = 16;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1256 } //mini
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1257 if (mmode == 0) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1258 g_ofx = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1259 g_ofy = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1260 maxx = MX - 1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1261 mayy = MY - 1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1262 winsux = g_windowx;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1263 winsuy = g_windowy;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1264 mag = 24;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1265 } //normal
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1266 if (mmode == 20) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1267 g_ofx = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1268 g_ofy = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1269 maxx = MX - 1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1270 mayy = MY - 1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1271 winsux = g_windowx;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1272 winsuy = g_windowy;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1273 mag = 32;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1274 } //maxi
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1275
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1276 b = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1277 c = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1278 a = 5;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1279
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1280 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	1281 winsux = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1282 winsuy = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1283 fill(32, 32, 32);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1284 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1285
8 f97ee354db2a Various minor code cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	1286 for (ywin = 0; ywin <= mayy; ywin++)
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1287 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	1288
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1289 // source coords: is 0,0 if not magged
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1290 xx = g_ofx + xwin;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1291 yy = g_ofy + ywin;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1292 // divided into character area blocks
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1293 // which are only updated if necessary
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1294 xo = xwin;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1295 yo = ywin;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1296
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1297 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	1298
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1299 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	1300
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1301 switch (g_multic) {
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1302 case 0:
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1303 cad = 65536 + xx + ((yy * X) + y * MX);
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1304 a = int(g_map[cad]);
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1305 b = int(g_map[(MX * MY) * 8 + cad]);
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1306 c = int(g_map[(MX * MY) * 8 + cad]);
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1307 break;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1308 case 1:
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1309 cad = 65536 + xx + (yy * MX);
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1310 a = int(g_map[cad]);
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1311 b = int(g_map[cad + 1000]);
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1312 c = int(g_map[cad + 2000]);
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1313 if (machine == PLUS4M) {
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1314 c = int(g_map[2]);
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1315 }
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1316 break;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1317 case 2:
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1318 cad = 65536 + xx + ((yy * X) + y * MX);
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1319 a = int(g_map[cad]);
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1320 b = int(g_map[(MX * MY) * 8 + cad]);
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1321 c = int(g_map[(MX * MY) * 8 + cad]);
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1322 break;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1323 }
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1324
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1325 ad = 1024 + xx * 8 + yy * (X * 8) + y * X;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1326
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1327 int po, vop;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1328
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1329 for (x = 0; x <= 7; x++) { //pixel columns inside pixel row
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1330 vop = int(x / 2);
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1331 if (g_multic == 0) {
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1332 if (int(g_map[ad + x]) == 1) {
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1333 fari = a;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1334 if (fari == 0) fari = g_map[1];
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1335 } else {
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1336 fari = b;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1337 if (fari == 0) fari = g_map[1];
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1338 }
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1339 }
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1340 if (g_multic == 1) {
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1341 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	1342 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	1343 if (po == 1) fari = a; //10
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1344 if (po == 2) fari = b; //01
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1345 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	1346 }
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1347 if (g_multic == 2) { // "amiga" mode
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1348 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	1349 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1350
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1351 if (g_rubbermode == 1) { // rubberband mode
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1352 rubx = x;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1353 if (g_multic == 1 \|\| g_hzoomer == 2) {
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1354 rubx = chop2(x);
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1355 }
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1356 if (fylli() == 1) {
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1357 if (xx * 8 + rubx == g_rx \|\| xx * 8 + rubx == g_rx2) {
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1358 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	1359 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	1360 }
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1361 if (yy * 8 + y == g_ry \|\| yy * 8 + y == g_ry2) {
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1362 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	1363 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	1364 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1365 }
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1366 }
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1367
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1368 color ari = g_rgb[fari];
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1369 switch (mmode) {
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1370 case 0:
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1371 raddr = (xo * 24 + x * 3) + (yo * 24 + y * 3) * width;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1372 raddr = raddr + g_windowx + g_windowy * width;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1373 pixels[raddr] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1374 pixels[raddr + 1] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1375 pixels[raddr + 2] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1376 raddr = raddr + width;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1377 pixels[raddr] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1378 pixels[raddr + 1] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1379 pixels[raddr + 2] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1380 raddr = raddr + width;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1381 pixels[raddr] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1382 pixels[raddr + 1] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1383 pixels[raddr + 2] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1384 break;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1385 case 1:
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1386 raddr = (xo * 64 + x * 8) + (yo * 64 + y * 8) * width;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1387 pixels[raddr] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1388 pixels[raddr + 1] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1389 pixels[raddr + 2] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1390 pixels[raddr + 3] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1391 pixels[raddr + 4] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1392 pixels[raddr + 5] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1393 pixels[raddr + 6] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1394 pixels[raddr + 7] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1395 raddr = raddr + width;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1396 pixels[raddr] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1397 pixels[raddr + 1] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1398 pixels[raddr + 2] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1399 pixels[raddr + 3] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1400 pixels[raddr + 4] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1401 pixels[raddr + 5] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1402 pixels[raddr + 6] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1403 pixels[raddr + 7] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1404 raddr = raddr + width;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1405 pixels[raddr] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1406 pixels[raddr + 1] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1407 pixels[raddr + 2] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1408 pixels[raddr + 3] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1409 pixels[raddr + 4] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1410 pixels[raddr + 5] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1411 pixels[raddr + 6] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1412 pixels[raddr + 7] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1413 raddr = raddr + width;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1414 pixels[raddr] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1415 pixels[raddr + 1] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1416 pixels[raddr + 2] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1417 pixels[raddr + 3] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1418 pixels[raddr + 4] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1419 pixels[raddr + 5] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1420 pixels[raddr + 6] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1421 pixels[raddr + 7] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1422 raddr = raddr + width;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1423 pixels[raddr] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1424 pixels[raddr + 1] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1425 pixels[raddr + 2] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1426 pixels[raddr + 3] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1427 pixels[raddr + 4] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1428 pixels[raddr + 5] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1429 pixels[raddr + 6] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1430 pixels[raddr + 7] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1431 raddr = raddr + width;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1432 pixels[raddr] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1433 pixels[raddr + 1] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1434 pixels[raddr + 2] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1435 pixels[raddr + 3] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1436 pixels[raddr + 4] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1437 pixels[raddr + 5] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1438 pixels[raddr + 6] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1439 pixels[raddr + 7] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1440 raddr = raddr + width;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1441 pixels[raddr] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1442 pixels[raddr + 1] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1443 pixels[raddr + 2] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1444 pixels[raddr + 3] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1445 pixels[raddr + 4] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1446 pixels[raddr + 5] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1447 pixels[raddr + 6] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1448 pixels[raddr + 7] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1449 raddr = raddr + width;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1450 pixels[raddr] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1451 pixels[raddr + 1] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1452 pixels[raddr + 2] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1453 pixels[raddr + 3] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1454 pixels[raddr + 4] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1455 pixels[raddr + 5] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1456 pixels[raddr + 6] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1457 pixels[raddr + 7] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1458 break;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1459 case 2:
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1460 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	1461 break;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1462 // mini modes
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1463 case 10:
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1464 raddr = (xo * 16 + x * 2) + (yo * 8 + y) * width * 2;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1465 raddr = raddr + g_windowx + g_windowy * width;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1466 pixels[raddr] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1467 pixels[raddr + 1] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1468 raddr = raddr + width;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1469 pixels[raddr] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1470 pixels[raddr + 1] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1471 break;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1472 case 11:
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1473 raddr = (xo * 48 + x * 6) + (yo * 48 + y * 6) * width;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1474 pixels[raddr] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1475 pixels[raddr + 1] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1476 pixels[raddr + 2] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1477 pixels[raddr + 3] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1478 pixels[raddr + 4] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1479 pixels[raddr + 5] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1480 raddr = raddr + width;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1481 pixels[raddr] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1482 pixels[raddr + 1] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1483 pixels[raddr + 2] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1484 pixels[raddr + 3] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1485 pixels[raddr + 4] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1486 pixels[raddr + 5] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1487 raddr = raddr + width;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1488 pixels[raddr] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1489 pixels[raddr + 1] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1490 pixels[raddr + 2] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1491 pixels[raddr + 3] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1492 pixels[raddr + 4] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1493 pixels[raddr + 5] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1494 raddr = raddr + width;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1495 pixels[raddr] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1496 pixels[raddr + 1] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1497 pixels[raddr + 2] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1498 pixels[raddr + 3] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1499 pixels[raddr + 4] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1500 pixels[raddr + 5] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1501 raddr = raddr + width;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1502 pixels[raddr] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1503 pixels[raddr + 1] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1504 pixels[raddr + 2] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1505 pixels[raddr + 3] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1506 pixels[raddr + 4] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1507 pixels[raddr + 5] = 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 break;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1516 case 12:
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1517 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	1518 break;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1519 // maxi modes
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1520 case 20:
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1521 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	1522 raddr = raddr + g_windowx + g_windowy * width;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1523 pixels[raddr] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1524 pixels[raddr + 1] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1525 pixels[raddr + 2] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1526 pixels[raddr + 3] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1527 raddr = raddr + width;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1528 pixels[raddr] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1529 pixels[raddr + 1] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1530 pixels[raddr + 2] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1531 pixels[raddr + 3] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1532 raddr = raddr + width;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1533 pixels[raddr] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1534 pixels[raddr + 1] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1535 pixels[raddr + 2] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1536 pixels[raddr + 3] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1537 raddr = raddr + width;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1538 pixels[raddr] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1539 pixels[raddr + 1] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1540 pixels[raddr + 2] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1541 pixels[raddr + 3] = ari;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1542 break;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1543 case 21:
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1544 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	1545 break;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1546 case 22:
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1547 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	1548 break;
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1549 }
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1550 } //one pixel inside pixel row
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1551 } //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	1552
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1553 //draw grid
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1554 //can in principle be non-square
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1555 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	1556 int lapx = int((xx * 8) / g_gridx) * g_gridx;
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1557 if (lapx == (xx * 8)) {
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1558 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	1559 if (g_gridx == 4) {
7 c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 6 diff changeset	1560 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	1561 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	1562 }
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1563 }
7 c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 6 diff changeset	1564 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	1565
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1566 if (lapx == (yy * 8)) {
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1567 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	1568 if (g_gridy == 4) {
7 c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 6 diff changeset	1569 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	1570 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	1571 }
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1572 }
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1573 }
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1574 g_redo[xx + yy * MX] = byte(1);
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1575 } //dirty char?
c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 10 diff changeset	1576 } //x char
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1577 }

Mercurial > hg > forks > multipaint-js

annotate Interface.pde @ 131:9d17f991f102