Mercurial > hg > forks > multipaint-js
annotate multipaint.pde @ 216:d3eba28c26e5
Some launcher / UI improvements.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Tue, 04 Sep 2018 15:29:10 +0300 |
parents | b3579297e04e |
children | 9b715f7489b2 |
rev | line source |
---|---|
35 | 1 // |
159 | 2 // Multipaint.JS 1.8.2018 |
35 | 3 // Tero Heikkinen (Dr. TerrorZ) |
4 // ProcessingJS port and changes by Matti Hämäläinen (ccr/TNSP) | |
5 // processing setup draw and file things here | |
6 // | |
0
ebd5689e2985
Initial import of Multipaint sketch version 22.5.2017.
Tero Heikkinen
parents:
diff
changeset
|
7 |
148 | 8 // Supported |
176 | 9 final int C64 = 0, MSX = 5, SPECTRUM = 6, C64M = 10, |
10 PLUS4 = 9, PLUS4M = 19, CPC = 2; | |
148 | 11 |
12 // Experimental or incomplete | |
13 final int C64NOLIMIT = 32; // Commodore 64 without attribute limitations | |
14 final int C64FLI = 20, C64FLIM = 21; // incomplete FLI & AFLI modes | |
15 final int TIMEX = 7, JR200 = 8, AMIGA = 11, ATARIST = 12; | |
2
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
16 final int PICO8 = 88; |
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
17 final int UNIA = 33; |
148 | 18 final int COCO3 = 34; |
19 final int BK0010 = 99; | |
20 final int QLLOW = 66; | |
21 | |
22 // Reserved but completely unimplemented | |
23 final int VIC = 22; // VIC-20 | |
24 final int CGA = 23; // 320 x 200 PC CGA screen with black, white, cyan, magenta | |
25 final int CGAX = 24; // 320 x 200 PC CGA screen with black, yellow, green, red-ish | |
26 final int EGA = 200; // 320 x 200 PC EGA screen, 16 colors of 64 | |
27 final int VGA = 255; // 320 x 200 PC VGA screen, 256 colors of 65536 | |
28 final int NES = 90; // 8-bit NES | |
29 final int SEGAM = 91; // 8-bit Sega Master System | |
30 | |
176 | 31 final int GRIDMODE_OLD = 0; |
32 final int GRIDMODE_NEW = 1; | |
33 final int AR_FLAT = 1; | |
34 final int AR_SQUARE = 0; | |
35 | |
16
f356d9c176a6
ProcessingJS does not provide "platform" variables, we need to define them ourselves.
Matti Hamalainen <ccr@tnsp.org>
parents:
15
diff
changeset
|
36 final int PEESEE = 0, MACOSX = 1, PSJS = 2; |
113
f87c6577e696
Cleanups and few comments added.
Matti Hamalainen <ccr@tnsp.org>
parents:
112
diff
changeset
|
37 final int COMMAND = 157; // Marq's cmd/ctrl solution |
69 | 38 |
179
934934bb1fbb
Rename global variable s/machine/g_machine/g
Matti Hamalainen <ccr@tnsp.org>
parents:
178
diff
changeset
|
39 int g_machine = -1; // change this to autoselect |
16
f356d9c176a6
ProcessingJS does not provide "platform" variables, we need to define them ourselves.
Matti Hamalainen <ccr@tnsp.org>
parents:
15
diff
changeset
|
40 int platform = PSJS; |
0
ebd5689e2985
Initial import of Multipaint sketch version 22.5.2017.
Tero Heikkinen
parents:
diff
changeset
|
41 |
133
f5c32f6470d0
Begin integrating more changes from Multipaint 1.8.2018.
Matti Hamalainen <ccr@tnsp.org>
parents:
131
diff
changeset
|
42 int[] g_grids = new int[16]; |
f5c32f6470d0
Begin integrating more changes from Multipaint 1.8.2018.
Matti Hamalainen <ccr@tnsp.org>
parents:
131
diff
changeset
|
43 |
2
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
44 int[] g_r = new int[266]; |
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
45 int[] g_g = new int[266]; |
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
46 int[] g_b = new int[266]; |
0
ebd5689e2985
Initial import of Multipaint sketch version 22.5.2017.
Tero Heikkinen
parents:
diff
changeset
|
47 int[] g_rgb = new int[266]; |
ebd5689e2985
Initial import of Multipaint sketch version 22.5.2017.
Tero Heikkinen
parents:
diff
changeset
|
48 |
ebd5689e2985
Initial import of Multipaint sketch version 22.5.2017.
Tero Heikkinen
parents:
diff
changeset
|
49 byte[] g_map = new byte[88000]; |
ebd5689e2985
Initial import of Multipaint sketch version 22.5.2017.
Tero Heikkinen
parents:
diff
changeset
|
50 byte[] g_fillmap = new byte[88000]; |
ebd5689e2985
Initial import of Multipaint sketch version 22.5.2017.
Tero Heikkinen
parents:
diff
changeset
|
51 byte[] g_rmap = new byte[88000]; |
ebd5689e2985
Initial import of Multipaint sketch version 22.5.2017.
Tero Heikkinen
parents:
diff
changeset
|
52 byte[] g_icons = new byte[88000]; |
ebd5689e2985
Initial import of Multipaint sketch version 22.5.2017.
Tero Heikkinen
parents:
diff
changeset
|
53 byte[] g_brush = new byte[88000]; |
ebd5689e2985
Initial import of Multipaint sketch version 22.5.2017.
Tero Heikkinen
parents:
diff
changeset
|
54 byte[] g_template = new byte[16384]; |
ebd5689e2985
Initial import of Multipaint sketch version 22.5.2017.
Tero Heikkinen
parents:
diff
changeset
|
55 byte[] g_redo = new byte[1024]; |
ebd5689e2985
Initial import of Multipaint sketch version 22.5.2017.
Tero Heikkinen
parents:
diff
changeset
|
56 byte[] g_remdo = new byte[1024]; |
ebd5689e2985
Initial import of Multipaint sketch version 22.5.2017.
Tero Heikkinen
parents:
diff
changeset
|
57 int[] g_chaup = new int[64]; |
ebd5689e2985
Initial import of Multipaint sketch version 22.5.2017.
Tero Heikkinen
parents:
diff
changeset
|
58 byte[] g_data = new byte[1024]; |
2
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
59 int[] g_magpix = new int[64]; |
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
60 int[] g_magpiy = new int[64]; |
0
ebd5689e2985
Initial import of Multipaint sketch version 22.5.2017.
Tero Heikkinen
parents:
diff
changeset
|
61 |
2
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
62 byte g_realfront, g_realback; |
0
ebd5689e2985
Initial import of Multipaint sketch version 22.5.2017.
Tero Heikkinen
parents:
diff
changeset
|
63 |
176 | 64 int g_tooltrigger, g_prevtool, g_rband, g_rbang, g_boxreconstruct, |
65 g_charlimit, g_animx, g_animy, g_animframes, g_animno, g_animtime, | |
182
55a3fee48fe1
Implement UI resolution changer.
Matti Hamalainen <ccr@tnsp.org>
parents:
179
diff
changeset
|
66 g_animspeed, g_keymacpos, g_forced_width, g_forced_height, |
55a3fee48fe1
Implement UI resolution changer.
Matti Hamalainen <ccr@tnsp.org>
parents:
179
diff
changeset
|
67 g_hadjust, g_vadjust; |
176 | 68 |
69 int g_wheelup = int(':'), g_wheeldown = int(';'), g_middlebutton = int(','); | |
70 int g_gridmode = GRIDMODE_OLD; | |
71 int g_pixelw = 1; | |
72 int g_aspect = AR_SQUARE; | |
73 | |
205
3b1afb0b9b30
Clean up key event handling and add support for g_alt.
Matti Hamalainen <ccr@tnsp.org>
parents:
195
diff
changeset
|
74 boolean g_control = false, g_shift = false, g_alt = false, |
176 | 75 g_dirty, g_inhibit_aspect = false; |
76 | |
77 String g_formatname, g_formatext, | |
78 filename = "", sfilename = "", | |
79 g_name, g_exportext = "", | |
80 g_exportname = "", g_keymacro = "", | |
81 g_forced_palette = ""; | |
82 | |
69 | 83 |
0
ebd5689e2985
Initial import of Multipaint sketch version 22.5.2017.
Tero Heikkinen
parents:
diff
changeset
|
84 //dimensions |
2
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
85 int X, Y, MX, MY; |
0
ebd5689e2985
Initial import of Multipaint sketch version 22.5.2017.
Tero Heikkinen
parents:
diff
changeset
|
86 //generic mouse |
154 | 87 boolean g_klikkeri, g_iconmode = false; |
143 | 88 int g_ofx, g_ofy, g_button, g_realbutton, g_mx, g_my, g_orx, g_ory, g_msx, g_msy; |
0
ebd5689e2985
Initial import of Multipaint sketch version 22.5.2017.
Tero Heikkinen
parents:
diff
changeset
|
89 //rubberband,mouse |
2
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
90 int g_phase, g_rx, g_ry, g_rx2, g_ry2, g_rubbermode; |
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
91 int g_prex, g_prey, g_storedcoordx, g_storedcoordy; |
0
ebd5689e2985
Initial import of Multipaint sketch version 22.5.2017.
Tero Heikkinen
parents:
diff
changeset
|
92 //window positioning |
2
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
93 int g_windowx, g_windowy, g_maglocx, g_maglocy; |
183
1cb7ecd73554
Rename global variable g_uizoom to g_uiscale and mpUIZoom -> mpUIScale.
Matti Hamalainen <ccr@tnsp.org>
parents:
182
diff
changeset
|
94 int g_hedge, g_vedge, g_uiscale, g_wzoom; |
0
ebd5689e2985
Initial import of Multipaint sketch version 22.5.2017.
Tero Heikkinen
parents:
diff
changeset
|
95 //icons & gui stuff |
154 | 96 int g_iconx, g_icony, g_piconx, g_picony; |
2
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
97 int g_gridx, g_gridy, g_spare; |
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
98 int g_farge, g_backg, g_ofarge, g_repanel, g_msgctr; |
0
ebd5689e2985
Initial import of Multipaint sketch version 22.5.2017.
Tero Heikkinen
parents:
diff
changeset
|
99 //machine related color properties |
2
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
100 int g_attrimode, g_britemode, g_multic, g_backmode, g_maxcolors, g_hzoomer; |
0
ebd5689e2985
Initial import of Multipaint sketch version 22.5.2017.
Tero Heikkinen
parents:
diff
changeset
|
101 float g_palsteps; |
ebd5689e2985
Initial import of Multipaint sketch version 22.5.2017.
Tero Heikkinen
parents:
diff
changeset
|
102 //brush, tool parameters |
2
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
103 int g_bsourcex, g_bsourcey, g_bsourcex2, g_bsourcey2; |
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
104 int g_bsize, g_btype; |
0
ebd5689e2985
Initial import of Multipaint sketch version 22.5.2017.
Tero Heikkinen
parents:
diff
changeset
|
105 |
ebd5689e2985
Initial import of Multipaint sketch version 22.5.2017.
Tero Heikkinen
parents:
diff
changeset
|
106 |
83 | 107 void setup() |
108 { | |
176 | 109 // Get settings from Javascript runner, or use defaults |
179
934934bb1fbb
Rename global variable s/machine/g_machine/g
Matti Hamalainen <ccr@tnsp.org>
parents:
178
diff
changeset
|
110 g_machine = (mpMachine >= 0) ? mpMachine : C64; |
183
1cb7ecd73554
Rename global variable g_uizoom to g_uiscale and mpUIZoom -> mpUIScale.
Matti Hamalainen <ccr@tnsp.org>
parents:
182
diff
changeset
|
111 g_uiscale = (mpUIScale >= 1 && mpUIScale <= 3) ? mpUIScale : 2; |
188
6fba2c255319
More work on the MP.JS launcher.
Matti Hamalainen <ccr@tnsp.org>
parents:
186
diff
changeset
|
112 g_forced_width = mpUIForcedWidth > 0 ? mpUIForcedWidth : 0; |
6fba2c255319
More work on the MP.JS launcher.
Matti Hamalainen <ccr@tnsp.org>
parents:
186
diff
changeset
|
113 g_forced_height = mpUIForcedHeight > 0 ? mpUIForcedHeight : 0; |
212
b3579297e04e
Implement rest of the stuff needed for selecting external palettes in the
Matti Hamalainen <ccr@tnsp.org>
parents:
205
diff
changeset
|
114 g_forced_palette = mpUIPalette ? mpUIPalette : ""; |
176 | 115 g_animspeed = 1; |
116 | |
216
d3eba28c26e5
Some launcher / UI improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
212
diff
changeset
|
117 mpHideGUI(); |
d3eba28c26e5
Some launcher / UI improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
212
diff
changeset
|
118 |
148 | 119 //normi |
2
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
120 g_magpix[0] = 3; |
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
121 g_magpix[1] = 8; |
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
122 g_magpix[2] = 16; |
148 | 123 g_magpiy[0] = 3; |
124 g_magpiy[1] = 8; | |
125 g_magpiy[2] = 16; | |
126 | |
127 //mini | |
2
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
128 g_magpix[10] = 2; |
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
129 g_magpix[11] = 6; |
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
130 g_magpix[12] = 16; |
148 | 131 g_magpiy[10] = 2; |
132 g_magpiy[11] = 6; | |
133 g_magpiy[12] = 16; | |
134 | |
135 //maxi | |
2
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
136 g_magpix[20] = 4; |
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
137 g_magpix[21] = 16; |
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
138 g_magpix[22] = 32; |
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
139 g_magpiy[20] = 4; |
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
140 g_magpiy[21] = 16; |
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
141 g_magpiy[22] = 32; |
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
142 |
148 | 143 //FLAT normi |
144 g_magpix[100] = 3; | |
145 g_magpix[101] = 9; | |
146 g_magpix[102] = 12; | |
147 g_magpiy[100] = 2; | |
148 g_magpiy[101] = 6; | |
149 g_magpiy[102] = 8; | |
150 | |
151 //FLAT mini | |
152 g_magpix[110] = 3; | |
153 g_magpix[111] = 9; | |
154 g_magpix[112] = 12; | |
155 g_magpiy[110] = 2; | |
156 g_magpiy[111] = 6; | |
157 g_magpiy[112] = 8; | |
158 | |
159 //FLAT maxi | |
160 g_magpix[120] = 6; | |
161 g_magpix[121] = 12; | |
162 g_magpix[122] = 21; | |
163 g_magpiy[120] = 4; | |
164 g_magpiy[121] = 8; | |
165 g_magpiy[122] = 14; | |
166 | |
176 | 167 // Setup other stuff |
183
1cb7ecd73554
Rename global variable g_uizoom to g_uiscale and mpUIZoom -> mpUIScale.
Matti Hamalainen <ccr@tnsp.org>
parents:
182
diff
changeset
|
168 if (g_uiscale >= 1 && g_uiscale <= 3) |
1cb7ecd73554
Rename global variable g_uizoom to g_uiscale and mpUIZoom -> mpUIScale.
Matti Hamalainen <ccr@tnsp.org>
parents:
182
diff
changeset
|
169 g_wzoom = g_uiscale + 1; |
148 | 170 |
183
1cb7ecd73554
Rename global variable g_uizoom to g_uiscale and mpUIZoom -> mpUIScale.
Matti Hamalainen <ccr@tnsp.org>
parents:
182
diff
changeset
|
171 g_hedge = 32 * g_uiscale; |
1cb7ecd73554
Rename global variable g_uizoom to g_uiscale and mpUIZoom -> mpUIScale.
Matti Hamalainen <ccr@tnsp.org>
parents:
182
diff
changeset
|
172 g_vedge = 32 * g_uiscale; |
2
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
173 |
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
174 g_spare = 0; |
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
175 g_bsize = 0; |
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
176 g_btype = 0; |
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
177 g_phase = 0; |
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
178 g_button = LEFT; |
148 | 179 |
180 g_data[int('f')] = 1; // fill on | |
181 g_data[int('g')] = 1; // grid on | |
153
9f4e6f888120
Integrate more changes from v1.8.2018.
Matti Hamalainen <ccr@tnsp.org>
parents:
150
diff
changeset
|
182 g_data[int('m')] = 0; |
9f4e6f888120
Integrate more changes from v1.8.2018.
Matti Hamalainen <ccr@tnsp.org>
parents:
150
diff
changeset
|
183 g_data[int('M')] = 0; // mags off |
148 | 184 |
2
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
185 set_tool(3); |
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
186 |
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
187 g_gridx = 8; |
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
188 g_gridy = 8; |
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
189 g_multic = 0; |
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
190 g_repanel = -2; |
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
191 |
179
934934bb1fbb
Rename global variable s/machine/g_machine/g
Matti Hamalainen <ccr@tnsp.org>
parents:
178
diff
changeset
|
192 mpSetupMachine(g_machine); |
162 | 193 mpSetUIColors(); |
179
934934bb1fbb
Rename global variable s/machine/g_machine/g
Matti Hamalainen <ccr@tnsp.org>
parents:
178
diff
changeset
|
194 |
934934bb1fbb
Rename global variable s/machine/g_machine/g
Matti Hamalainen <ccr@tnsp.org>
parents:
178
diff
changeset
|
195 g_icons = mpLoadBinaryFile("icons.bin"); |
153
9f4e6f888120
Integrate more changes from v1.8.2018.
Matti Hamalainen <ccr@tnsp.org>
parents:
150
diff
changeset
|
196 |
176 | 197 if (g_forced_palette.length() > 3) |
198 mpLoadPalette(g_forced_palette); | |
153
9f4e6f888120
Integrate more changes from v1.8.2018.
Matti Hamalainen <ccr@tnsp.org>
parents:
150
diff
changeset
|
199 |
9f4e6f888120
Integrate more changes from v1.8.2018.
Matti Hamalainen <ccr@tnsp.org>
parents:
150
diff
changeset
|
200 int truwinsizex = X * g_magpix[magmode()]; |
9f4e6f888120
Integrate more changes from v1.8.2018.
Matti Hamalainen <ccr@tnsp.org>
parents:
150
diff
changeset
|
201 int truwinsizey = Y * g_magpiy[magmode()]; |
176 | 202 |
203 if (g_forced_width == 0 || g_forced_height == 0) | |
153
9f4e6f888120
Integrate more changes from v1.8.2018.
Matti Hamalainen <ccr@tnsp.org>
parents:
150
diff
changeset
|
204 { |
9f4e6f888120
Integrate more changes from v1.8.2018.
Matti Hamalainen <ccr@tnsp.org>
parents:
150
diff
changeset
|
205 g_hadjust = 0; |
9f4e6f888120
Integrate more changes from v1.8.2018.
Matti Hamalainen <ccr@tnsp.org>
parents:
150
diff
changeset
|
206 g_vadjust = 0; |
9f4e6f888120
Integrate more changes from v1.8.2018.
Matti Hamalainen <ccr@tnsp.org>
parents:
150
diff
changeset
|
207 |
9f4e6f888120
Integrate more changes from v1.8.2018.
Matti Hamalainen <ccr@tnsp.org>
parents:
150
diff
changeset
|
208 int hsize = truwinsizex + g_hedge + (22) * g_wzoom; |
9f4e6f888120
Integrate more changes from v1.8.2018.
Matti Hamalainen <ccr@tnsp.org>
parents:
150
diff
changeset
|
209 int vsize = truwinsizey + g_vedge + (14) * g_wzoom; |
9f4e6f888120
Integrate more changes from v1.8.2018.
Matti Hamalainen <ccr@tnsp.org>
parents:
150
diff
changeset
|
210 |
9f4e6f888120
Integrate more changes from v1.8.2018.
Matti Hamalainen <ccr@tnsp.org>
parents:
150
diff
changeset
|
211 while (vsize - g_vedge < (12 * 16) * g_wzoom) |
9f4e6f888120
Integrate more changes from v1.8.2018.
Matti Hamalainen <ccr@tnsp.org>
parents:
150
diff
changeset
|
212 vsize += 2; |
9f4e6f888120
Integrate more changes from v1.8.2018.
Matti Hamalainen <ccr@tnsp.org>
parents:
150
diff
changeset
|
213 |
9f4e6f888120
Integrate more changes from v1.8.2018.
Matti Hamalainen <ccr@tnsp.org>
parents:
150
diff
changeset
|
214 while (hsize - g_hedge < (17 * 16) * g_wzoom) |
9f4e6f888120
Integrate more changes from v1.8.2018.
Matti Hamalainen <ccr@tnsp.org>
parents:
150
diff
changeset
|
215 hsize += 2; |
9f4e6f888120
Integrate more changes from v1.8.2018.
Matti Hamalainen <ccr@tnsp.org>
parents:
150
diff
changeset
|
216 |
9f4e6f888120
Integrate more changes from v1.8.2018.
Matti Hamalainen <ccr@tnsp.org>
parents:
150
diff
changeset
|
217 size(hsize, vsize); |
9f4e6f888120
Integrate more changes from v1.8.2018.
Matti Hamalainen <ccr@tnsp.org>
parents:
150
diff
changeset
|
218 } |
9f4e6f888120
Integrate more changes from v1.8.2018.
Matti Hamalainen <ccr@tnsp.org>
parents:
150
diff
changeset
|
219 |
176 | 220 if (g_forced_width > 800 && g_forced_height > 600) |
221 size(g_forced_width, g_forced_height); | |
153
9f4e6f888120
Integrate more changes from v1.8.2018.
Matti Hamalainen <ccr@tnsp.org>
parents:
150
diff
changeset
|
222 |
9f4e6f888120
Integrate more changes from v1.8.2018.
Matti Hamalainen <ccr@tnsp.org>
parents:
150
diff
changeset
|
223 if (g_inhibit_aspect) |
172
e77a726a587e
Rename FLATRATIO/SQUARERATIO and gridmode OLD/NEW constants to something more sane.
Matti Hamalainen <ccr@tnsp.org>
parents:
168
diff
changeset
|
224 g_aspect = AR_SQUARE; |
153
9f4e6f888120
Integrate more changes from v1.8.2018.
Matti Hamalainen <ccr@tnsp.org>
parents:
150
diff
changeset
|
225 |
9f4e6f888120
Integrate more changes from v1.8.2018.
Matti Hamalainen <ccr@tnsp.org>
parents:
150
diff
changeset
|
226 int paspect = g_wzoom; |
172
e77a726a587e
Rename FLATRATIO/SQUARERATIO and gridmode OLD/NEW constants to something more sane.
Matti Hamalainen <ccr@tnsp.org>
parents:
168
diff
changeset
|
227 if (g_aspect == AR_FLAT) |
153
9f4e6f888120
Integrate more changes from v1.8.2018.
Matti Hamalainen <ccr@tnsp.org>
parents:
150
diff
changeset
|
228 { |
9f4e6f888120
Integrate more changes from v1.8.2018.
Matti Hamalainen <ccr@tnsp.org>
parents:
150
diff
changeset
|
229 if (g_wzoom == 2) paspect = 1; |
9f4e6f888120
Integrate more changes from v1.8.2018.
Matti Hamalainen <ccr@tnsp.org>
parents:
150
diff
changeset
|
230 if (g_wzoom == 3) paspect = 2; |
9f4e6f888120
Integrate more changes from v1.8.2018.
Matti Hamalainen <ccr@tnsp.org>
parents:
150
diff
changeset
|
231 if (g_wzoom == 4) paspect = 3; |
9f4e6f888120
Integrate more changes from v1.8.2018.
Matti Hamalainen <ccr@tnsp.org>
parents:
150
diff
changeset
|
232 } |
9f4e6f888120
Integrate more changes from v1.8.2018.
Matti Hamalainen <ccr@tnsp.org>
parents:
150
diff
changeset
|
233 |
9f4e6f888120
Integrate more changes from v1.8.2018.
Matti Hamalainen <ccr@tnsp.org>
parents:
150
diff
changeset
|
234 g_windowx = width - (g_hedge) - (truwinsizex); |
9f4e6f888120
Integrate more changes from v1.8.2018.
Matti Hamalainen <ccr@tnsp.org>
parents:
150
diff
changeset
|
235 g_windowx = g_windowx / 2; |
9f4e6f888120
Integrate more changes from v1.8.2018.
Matti Hamalainen <ccr@tnsp.org>
parents:
150
diff
changeset
|
236 g_windowy = height - (g_vedge) - (truwinsizey); |
9f4e6f888120
Integrate more changes from v1.8.2018.
Matti Hamalainen <ccr@tnsp.org>
parents:
150
diff
changeset
|
237 g_windowy = g_windowy / 2; |
9f4e6f888120
Integrate more changes from v1.8.2018.
Matti Hamalainen <ccr@tnsp.org>
parents:
150
diff
changeset
|
238 |
9f4e6f888120
Integrate more changes from v1.8.2018.
Matti Hamalainen <ccr@tnsp.org>
parents:
150
diff
changeset
|
239 if (g_hadjust > 0) |
9f4e6f888120
Integrate more changes from v1.8.2018.
Matti Hamalainen <ccr@tnsp.org>
parents:
150
diff
changeset
|
240 g_windowx = width - (g_hedge) - (g_wzoom * X) - g_hadjust; |
9f4e6f888120
Integrate more changes from v1.8.2018.
Matti Hamalainen <ccr@tnsp.org>
parents:
150
diff
changeset
|
241 |
9f4e6f888120
Integrate more changes from v1.8.2018.
Matti Hamalainen <ccr@tnsp.org>
parents:
150
diff
changeset
|
242 if (g_vadjust > 0) |
9f4e6f888120
Integrate more changes from v1.8.2018.
Matti Hamalainen <ccr@tnsp.org>
parents:
150
diff
changeset
|
243 g_windowy = height - (g_vedge) - (paspect * Y) - g_vadjust; |
2
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
244 |
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
245 switcher(3); |
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
246 |
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
247 g_map[4] = byte(g_maxcolors - 1); |
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
248 g_ofarge = g_farge; |
7
c848a6133cfc
Fix many calculations (divisions) that assume integer variable division
Matti Hamalainen <ccr@tnsp.org>
parents:
4
diff
changeset
|
249 MX = int(X / 8); |
c848a6133cfc
Fix many calculations (divisions) that assume integer variable division
Matti Hamalainen <ccr@tnsp.org>
parents:
4
diff
changeset
|
250 MY = int(Y / 8); |
2
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
251 g_realfront = byte(g_farge); |
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
252 g_realback = byte(g_backg); |
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
253 |
83 | 254 for (int y = 0; y < Y; y++) |
255 for (int x = 0; x < X; x++) | |
69 | 256 absolute_clearpoint(x, y); |
2
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
257 |
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
258 switcher(2); |
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
259 noStroke(); |
150 | 260 background(g_r[263], g_g[263], g_b[263]); |
2
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
261 sussborder(); |
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
262 setup_raster(); |
83 | 263 |
159 | 264 message(" Multipaint| - 2018 -||v1.8.2018.JS"); |
2
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
265 message("*"); |
89 | 266 g_dirty = true; |
0
ebd5689e2985
Initial import of Multipaint sketch version 22.5.2017.
Tero Heikkinen
parents:
diff
changeset
|
267 } |
ebd5689e2985
Initial import of Multipaint sketch version 22.5.2017.
Tero Heikkinen
parents:
diff
changeset
|
268 |
2
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
269 |
162 | 270 void mpSetUIColors() |
271 { | |
272 // UI colors | |
273 makecolor(256, 0xff, 0, 0xff); | |
274 makecolor(257, 180, 180, 180); | |
275 // g_rgb[257] = 0xff808080; | |
276 makecolor(258, 0, 0, 0); | |
277 makecolor(259, 48, 48, 48); | |
278 | |
279 // R,G and B for the palette sliders | |
280 makecolor(260, 255, 0, 0); | |
281 makecolor(261, 0, 255, 0); | |
282 makecolor(262, 0, 0, 255); | |
283 makecolor(263, 48, 48, 48); //backest UI background | |
284 | |
285 } | |
286 | |
216
d3eba28c26e5
Some launcher / UI improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
212
diff
changeset
|
287 |
d3eba28c26e5
Some launcher / UI improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
212
diff
changeset
|
288 function mpDisplayGUI() |
d3eba28c26e5
Some launcher / UI improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
212
diff
changeset
|
289 { |
d3eba28c26e5
Some launcher / UI improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
212
diff
changeset
|
290 var velem = stGE("mpUI"); |
d3eba28c26e5
Some launcher / UI improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
212
diff
changeset
|
291 if (velem) |
d3eba28c26e5
Some launcher / UI improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
212
diff
changeset
|
292 { |
d3eba28c26e5
Some launcher / UI improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
212
diff
changeset
|
293 stClearChildren(velem); |
d3eba28c26e5
Some launcher / UI improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
212
diff
changeset
|
294 velem.style.display = "block"; |
d3eba28c26e5
Some launcher / UI improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
212
diff
changeset
|
295 velem.style.background = "red"; |
d3eba28c26e5
Some launcher / UI improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
212
diff
changeset
|
296 velem.focus(); |
d3eba28c26e5
Some launcher / UI improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
212
diff
changeset
|
297 } |
d3eba28c26e5
Some launcher / UI improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
212
diff
changeset
|
298 return velem; |
d3eba28c26e5
Some launcher / UI improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
212
diff
changeset
|
299 } |
d3eba28c26e5
Some launcher / UI improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
212
diff
changeset
|
300 |
d3eba28c26e5
Some launcher / UI improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
212
diff
changeset
|
301 |
d3eba28c26e5
Some launcher / UI improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
212
diff
changeset
|
302 function mpHideGUI() |
d3eba28c26e5
Some launcher / UI improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
212
diff
changeset
|
303 { |
d3eba28c26e5
Some launcher / UI improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
212
diff
changeset
|
304 var velem = stGE("mpUI"); |
d3eba28c26e5
Some launcher / UI improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
212
diff
changeset
|
305 if (velem) |
d3eba28c26e5
Some launcher / UI improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
212
diff
changeset
|
306 { |
d3eba28c26e5
Some launcher / UI improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
212
diff
changeset
|
307 velem.style.display = "none"; |
d3eba28c26e5
Some launcher / UI improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
212
diff
changeset
|
308 stClearChildren(velem); |
d3eba28c26e5
Some launcher / UI improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
212
diff
changeset
|
309 } |
d3eba28c26e5
Some launcher / UI improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
212
diff
changeset
|
310 return velem; |
d3eba28c26e5
Some launcher / UI improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
212
diff
changeset
|
311 } |
d3eba28c26e5
Some launcher / UI improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
212
diff
changeset
|
312 |
d3eba28c26e5
Some launcher / UI improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
212
diff
changeset
|
313 |
101
e5c147a7bf98
Remove fexists(), it's not in use.
Matti Hamalainen <ccr@tnsp.org>
parents:
97
diff
changeset
|
314 void mpSetTitle(String str) |
e5c147a7bf98
Remove fexists(), it's not in use.
Matti Hamalainen <ccr@tnsp.org>
parents:
97
diff
changeset
|
315 { |
29
249c4f5742f3
Refactor the import/export stuff a bit and the GUI bits for JS.
Matti Hamalainen <ccr@tnsp.org>
parents:
28
diff
changeset
|
316 console.log("TITLE: '" + str + "'"); |
0
ebd5689e2985
Initial import of Multipaint sketch version 22.5.2017.
Tero Heikkinen
parents:
diff
changeset
|
317 } |
ebd5689e2985
Initial import of Multipaint sketch version 22.5.2017.
Tero Heikkinen
parents:
diff
changeset
|
318 |
28
edcf9039552b
Add several new helper functions for loading and saving formats using Javascript facilities.
Matti Hamalainen <ccr@tnsp.org>
parents:
27
diff
changeset
|
319 |
69 | 320 void draw() |
321 { | |
113
f87c6577e696
Cleanups and few comments added.
Matti Hamalainen <ccr@tnsp.org>
parents:
112
diff
changeset
|
322 if (!focused) |
f87c6577e696
Cleanups and few comments added.
Matti Hamalainen <ccr@tnsp.org>
parents:
112
diff
changeset
|
323 { |
2
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
324 g_control = false; |
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
325 g_shift = false; |
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
326 } |
0
ebd5689e2985
Initial import of Multipaint sketch version 22.5.2017.
Tero Heikkinen
parents:
diff
changeset
|
327 |
72
5e7553e9aee0
Improve 'dirty' flag for only updating canvas when something changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
69
diff
changeset
|
328 // If there should be no update, do not update. |
73
d2a89e88f958
When in rubberband mode, do not delay screen updates.
Matti Hamalainen <ccr@tnsp.org>
parents:
72
diff
changeset
|
329 if (!g_dirty && !g_rubbermode) |
72
5e7553e9aee0
Improve 'dirty' flag for only updating canvas when something changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
69
diff
changeset
|
330 return; |
5e7553e9aee0
Improve 'dirty' flag for only updating canvas when something changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
69
diff
changeset
|
331 g_dirty = false; |
5e7553e9aee0
Improve 'dirty' flag for only updating canvas when something changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
69
diff
changeset
|
332 |
5e7553e9aee0
Improve 'dirty' flag for only updating canvas when something changes.
Matti Hamalainen <ccr@tnsp.org>
parents:
69
diff
changeset
|
333 // Animate animbrush |
113
f87c6577e696
Cleanups and few comments added.
Matti Hamalainen <ccr@tnsp.org>
parents:
112
diff
changeset
|
334 if (g_data[int('n')] == 1) |
f87c6577e696
Cleanups and few comments added.
Matti Hamalainen <ccr@tnsp.org>
parents:
112
diff
changeset
|
335 { |
f87c6577e696
Cleanups and few comments added.
Matti Hamalainen <ccr@tnsp.org>
parents:
112
diff
changeset
|
336 if (++g_animtime > 8 - g_animspeed * 2) |
f87c6577e696
Cleanups and few comments added.
Matti Hamalainen <ccr@tnsp.org>
parents:
112
diff
changeset
|
337 { |
2
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
338 animbrush_do(); |
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
339 g_animtime = 0; |
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
340 } |
0
ebd5689e2985
Initial import of Multipaint sketch version 22.5.2017.
Tero Heikkinen
parents:
diff
changeset
|
341 } |
9
dfdc18b62fab
Change the help() function and its usage to have more than one parameter to
Matti Hamalainen <ccr@tnsp.org>
parents:
7
diff
changeset
|
342 |
40 | 343 // Update some mouse variables |
113
f87c6577e696
Cleanups and few comments added.
Matti Hamalainen <ccr@tnsp.org>
parents:
112
diff
changeset
|
344 if (g_data[int('m')] == 0 && g_data[int('M')] == 0) |
f87c6577e696
Cleanups and few comments added.
Matti Hamalainen <ccr@tnsp.org>
parents:
112
diff
changeset
|
345 { |
39 | 346 g_mx = g_msx - g_windowx; |
347 g_my = g_msy - g_windowy; | |
113
f87c6577e696
Cleanups and few comments added.
Matti Hamalainen <ccr@tnsp.org>
parents:
112
diff
changeset
|
348 } |
f87c6577e696
Cleanups and few comments added.
Matti Hamalainen <ccr@tnsp.org>
parents:
112
diff
changeset
|
349 else |
f87c6577e696
Cleanups and few comments added.
Matti Hamalainen <ccr@tnsp.org>
parents:
112
diff
changeset
|
350 { |
39 | 351 g_mx = mouseX; |
352 g_my = mouseY; | |
2
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
353 } |
11 | 354 |
2
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
355 g_msx = mouseX; |
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
356 g_msy = mouseY; |
39 | 357 |
40 | 358 // Actual tool drawing |
145
5af8b5ddf349
Merge and clean up changes from v1.8.2018
Matti Hamalainen <ccr@tnsp.org>
parents:
143
diff
changeset
|
359 if (g_tooltrigger == 1 && |
5af8b5ddf349
Merge and clean up changes from v1.8.2018
Matti Hamalainen <ccr@tnsp.org>
parents:
143
diff
changeset
|
360 g_mx <= width - g_hedge && |
5af8b5ddf349
Merge and clean up changes from v1.8.2018
Matti Hamalainen <ccr@tnsp.org>
parents:
143
diff
changeset
|
361 g_my <= height - g_vedge) |
5af8b5ddf349
Merge and clean up changes from v1.8.2018
Matti Hamalainen <ccr@tnsp.org>
parents:
143
diff
changeset
|
362 do_tool(g_mx, g_my, g_button); |
39 | 363 |
0
ebd5689e2985
Initial import of Multipaint sketch version 22.5.2017.
Tero Heikkinen
parents:
diff
changeset
|
364 switcher(0); |
ebd5689e2985
Initial import of Multipaint sketch version 22.5.2017.
Tero Heikkinen
parents:
diff
changeset
|
365 |
142 | 366 for (int i = 0; i < 1024; i++) |
2
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
367 g_remdo[i] = 0; |
39 | 368 |
40 | 369 // Tool drawing for shows |
135 | 370 int savebut = g_button; |
186 | 371 int tt = tool(); |
372 if (tt != 5) | |
113
f87c6577e696
Cleanups and few comments added.
Matti Hamalainen <ccr@tnsp.org>
parents:
112
diff
changeset
|
373 { |
40 | 374 if (g_phase == 0) |
375 g_button = LEFT; | |
39 | 376 do_tool(g_mx, g_my, LEFT); |
0
ebd5689e2985
Initial import of Multipaint sketch version 22.5.2017.
Tero Heikkinen
parents:
diff
changeset
|
377 } |
148 | 378 else |
379 storecoords(g_mx, g_my); | |
380 | |
186 | 381 if (tt == 6) do_line(g_rx, g_ry, g_rx2, g_ry2, 0); |
382 if (tt == 7) do_circle(g_rx, g_ry, g_rx2, g_ry2); | |
383 if (tt == 8) do_rectangle(g_rx, g_ry, g_rx2, g_ry2); | |
135 | 384 g_button = savebut; |
39 | 385 |
40 | 386 // Screen update stuff |
0
ebd5689e2985
Initial import of Multipaint sketch version 22.5.2017.
Tero Heikkinen
parents:
diff
changeset
|
387 loadPixels(); |
2
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
388 viewport(); |
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
389 switcher(1); |
145
5af8b5ddf349
Merge and clean up changes from v1.8.2018
Matti Hamalainen <ccr@tnsp.org>
parents:
143
diff
changeset
|
390 |
5af8b5ddf349
Merge and clean up changes from v1.8.2018
Matti Hamalainen <ccr@tnsp.org>
parents:
143
diff
changeset
|
391 if (g_pgrab) |
5af8b5ddf349
Merge and clean up changes from v1.8.2018
Matti Hamalainen <ccr@tnsp.org>
parents:
143
diff
changeset
|
392 preview_box_drag(); |
5af8b5ddf349
Merge and clean up changes from v1.8.2018
Matti Hamalainen <ccr@tnsp.org>
parents:
143
diff
changeset
|
393 |
5af8b5ddf349
Merge and clean up changes from v1.8.2018
Matti Hamalainen <ccr@tnsp.org>
parents:
143
diff
changeset
|
394 preview_window(); |
136
12cf30907f26
More work on integrating changes from v1.8.2018
Matti Hamalainen <ccr@tnsp.org>
parents:
135
diff
changeset
|
395 update_ui(false); |
40 | 396 updatePixels(); |
11 | 397 |
113
f87c6577e696
Cleanups and few comments added.
Matti Hamalainen <ccr@tnsp.org>
parents:
112
diff
changeset
|
398 // Message control |
40 | 399 if (g_msgctr > 0) |
400 g_msgctr--; | |
2
5eb3559e1778
Run everything through JS-beautifier and remove trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
401 |
113
f87c6577e696
Cleanups and few comments added.
Matti Hamalainen <ccr@tnsp.org>
parents:
112
diff
changeset
|
402 // Macro handling |
f87c6577e696
Cleanups and few comments added.
Matti Hamalainen <ccr@tnsp.org>
parents:
112
diff
changeset
|
403 if (g_keymacro.length() > g_keymacpos) |
f87c6577e696
Cleanups and few comments added.
Matti Hamalainen <ccr@tnsp.org>
parents:
112
diff
changeset
|
404 { |
0
ebd5689e2985
Initial import of Multipaint sketch version 22.5.2017.
Tero Heikkinen
parents:
diff
changeset
|
405 macro_command(g_keymacro.charAt(g_keymacpos)); |
ebd5689e2985
Initial import of Multipaint sketch version 22.5.2017.
Tero Heikkinen
parents:
diff
changeset
|
406 g_keymacpos++; |
ebd5689e2985
Initial import of Multipaint sketch version 22.5.2017.
Tero Heikkinen
parents:
diff
changeset
|
407 } |
ebd5689e2985
Initial import of Multipaint sketch version 22.5.2017.
Tero Heikkinen
parents:
diff
changeset
|
408 } |