forks/multipaint-js: multipaint.pde annotate

annotate multipaint.pde @ 102:287892b5eff8

Add function for checking availability of browser local storage.

author	Matti Hamalainen <ccr@tnsp.org>
date	Fri, 06 Jul 2018 05:27:49 +0300
parents	e5c147a7bf98
children	7a889d59b405

rev	line source
35 eb9157c6a067 Update author blurb. Matti Hamalainen <ccr@tnsp.org> parents: 31 diff changeset	1 //
eb9157c6a067 Update author blurb. Matti Hamalainen <ccr@tnsp.org> parents: 31 diff changeset	2 // Multipaint Metal Edition 22.5.2017
eb9157c6a067 Update author blurb. Matti Hamalainen <ccr@tnsp.org> parents: 31 diff changeset	3 // Tero Heikkinen (Dr. TerrorZ)
eb9157c6a067 Update author blurb. Matti Hamalainen <ccr@tnsp.org> parents: 31 diff changeset	4 // ProcessingJS port and changes by Matti Hämäläinen (ccr/TNSP)
eb9157c6a067 Update author blurb. Matti Hamalainen <ccr@tnsp.org> parents: 31 diff changeset	5 // processing setup draw and file things here
eb9157c6a067 Update author blurb. Matti Hamalainen <ccr@tnsp.org> parents: 31 diff changeset	6 //
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	7
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	8 PrintWriter exwriter;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	9 final int C64 = 0, MSX = 5, SPECTRUM = 6, C64M = 10, PLUS4 = 9, PLUS4M = 19, CPC = 2; // supported
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	10 final int TIMEX = 7, JR200 = 8, AMIGA = 11; // experimental or incomplete
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	11 final int C64FLI = 20, C64FLIM = 21; // experimental
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	12 final int PICO8 = 88;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	13 final int FAKEX = 32; // Commodore 64 without attribute limitations
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	14 final int UNIA = 33;
16 f356d9c176a6 ProcessingJS does not provide "platform" variables, we need to define them ourselves. Matti Hamalainen <ccr@tnsp.org> parents: 15 diff changeset	15 final int PEESEE = 0, MACOSX = 1, PSJS = 2;
69 3d40683b367a Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 60 diff changeset	16
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	17 //-1 & -1 for normal operation
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	18 int 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	19 int platform = PSJS;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	20
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	21 final int COMMAND = 157; // Marq's cmd/ctrl solution
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	22
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	23 int g_active, g_tooltrigger, g_prevtool;
93 aadcd5f7e9dc Misc. cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 92 diff changeset	24 int g_rband, g_rbang, g_boxreconstruct, g_charlimit;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	25 int g_animx, g_animy, g_animframes, g_animno, g_animtime, g_animspeed;
72 5e7553e9aee0 Improve 'dirty' flag for only updating canvas when something changes. Matti Hamalainen <ccr@tnsp.org> parents: 69 diff changeset	26 int g_omag, g_bordh, g_bordv, g_keymacpos, g_dirty;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	27
69 3d40683b367a Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 60 diff changeset	28 boolean fileselect = false, saveas = false, refselect = false,
82 d982486e0a85 Rename variable. Matti Hamalainen <ccr@tnsp.org> parents: 81 diff changeset	29 g_control = false, g_shift = false, exportsrc = false,
69 3d40683b367a Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 60 diff changeset	30 importfmt = false, exportemu = false, exportfmt = false;
3d40683b367a Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 60 diff changeset	31
3d40683b367a Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 60 diff changeset	32 String path = "", refpath = "", filename = "", sfilename = "",
3d40683b367a Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 60 diff changeset	33 elename = "", refname = "",
93 aadcd5f7e9dc Misc. cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 92 diff changeset	34 g_name, g_exportext = "", g_exportname = "", g_keymacro = "";
69 3d40683b367a Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 60 diff changeset	35
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	36
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	37 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	38 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	39 int[] g_b = new int[266];
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	40 int[] g_rgb = new int[266];
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	41
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	42 byte[] g_map = new byte[88000];
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	43 byte[] g_fillmap = new byte[88000];
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	44 byte[] g_sparepage = new byte[88000];
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	45 byte[] g_swappage = new byte[88000];
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	46 byte[] g_rmap = new byte[88000];
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	47 byte[] g_icons = new byte[88000];
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	48 byte[] g_brush = new byte[88000];
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	49 byte[][] g_undob = new byte[11][88000];
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	50 byte[][] g_undobs = new byte[11][88000];
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	51 byte[] g_template = new byte[16384];
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	52 byte[] g_redo = new byte[1024];
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	53 byte[] g_remdo = new byte[1024];
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	54 int[] g_chaup = new int[64];
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	55 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	56 int[] g_uindex = new int[8];
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	57 int[] g_ubottom = new int[8];
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	58 int[] g_utop = new int[8];
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
69 3d40683b367a Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 60 diff changeset	64
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	65 //dimensions
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	66 int X, Y, MX, MY;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	67 //generic mouse
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	68 int g_ofx, g_ofy, g_button, g_realbutton, g_klikkeri, 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	69 //rubberband,mouse
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	70 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	71 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	72 //window positioning
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	73 int g_windowx, g_windowy, g_maglocx, g_maglocy;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	74 int g_hedge, g_vedge, g_uizoom, g_wzoom;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	75 //icons & gui stuff
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	76 int g_iconx, g_icony, g_piconx, g_picony, g_iconmode;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	77 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	78 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	79 //machine related color properties
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	80 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	81 float g_palsteps;
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	82 //brush, tool parameters
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	83 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	84 int g_bsize, g_btype;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	85
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	86
83 6524e83c3ba7 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 82 diff changeset	87 void setup()
6524e83c3ba7 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 82 diff changeset	88 {
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	89 g_magpix[0] = 3;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	90 g_magpix[1] = 8;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	91 g_magpix[2] = 16;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	92 g_magpix[10] = 2;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	93 g_magpix[11] = 6;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	94 g_magpix[12] = 16;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	95 g_magpix[20] = 4;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	96 g_magpix[21] = 16;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	97 g_magpix[22] = 32;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	98
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	99 g_magpiy[0] = 3;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	100 g_magpiy[1] = 8;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	101 g_magpiy[2] = 16;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	102 g_magpiy[10] = 2;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	103 g_magpiy[11] = 6;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	104 g_magpiy[12] = 16;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	105 g_magpiy[20] = 4;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	106 g_magpiy[21] = 16;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	107 g_magpiy[22] = 32;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	108
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	109 g_omag = 1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	110 g_bordh = 64;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	111 g_bordv = 32;
25 13dda1c3ae88 As we launch from a browser now, include the HTML and necessary Javascript Matti Hamalainen <ccr@tnsp.org> parents: 24 diff changeset	112
36 a39b3c9e5c3b Add some comments. Matti Hamalainen <ccr@tnsp.org> parents: 35 diff changeset	113 // Set up UI
25 13dda1c3ae88 As we launch from a browser now, include the HTML and necessary Javascript Matti Hamalainen <ccr@tnsp.org> parents: 24 diff changeset	114 g_uizoom = 2;
13dda1c3ae88 As we launch from a browser now, include the HTML and necessary Javascript Matti Hamalainen <ccr@tnsp.org> parents: 24 diff changeset	115 g_animspeed = 1;
13dda1c3ae88 As we launch from a browser now, include the HTML and necessary Javascript Matti Hamalainen <ccr@tnsp.org> parents: 24 diff changeset	116
36 a39b3c9e5c3b Add some comments. Matti Hamalainen <ccr@tnsp.org> parents: 35 diff changeset	117 // Get machine from Javascript runner, or default to C64
25 13dda1c3ae88 As we launch from a browser now, include the HTML and necessary Javascript Matti Hamalainen <ccr@tnsp.org> parents: 24 diff changeset	118 if (mpMachine)
13dda1c3ae88 As we launch from a browser now, include the HTML and necessary Javascript Matti Hamalainen <ccr@tnsp.org> parents: 24 diff changeset	119 machine = mpMachine;
13dda1c3ae88 As we launch from a browser now, include the HTML and necessary Javascript Matti Hamalainen <ccr@tnsp.org> parents: 24 diff changeset	120 else
13dda1c3ae88 As we launch from a browser now, include the HTML and necessary Javascript Matti Hamalainen <ccr@tnsp.org> parents: 24 diff changeset	121 machine = C64;
13dda1c3ae88 As we launch from a browser now, include the HTML and necessary Javascript Matti Hamalainen <ccr@tnsp.org> parents: 24 diff changeset	122
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	123 switch (g_uizoom) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	124 case 1:
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	125 g_wzoom = 2;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	126 size(700, 468);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	127 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	128 case 2:
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	129 g_wzoom = 3;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	130 size(1058, 708);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	131 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	132 case 3:
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	133 g_wzoom = 4;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	134 size(1460, 950);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	135 break;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	136 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	137
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	138 g_hedge = 32 * g_uizoom;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	139 g_vedge = 32 * g_uizoom;
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 g_uindex[0] = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	142 g_utop[0] = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	143 g_ubottom[0] = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	144 g_uindex[1] = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	145 g_utop[1] = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	146 g_ubottom[1] = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	147 g_spare = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	148 g_bsize = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	149 g_btype = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	150 g_phase = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	151 g_button = LEFT;
4 a1261cd4c676 Int-ize byte array index references when using character, e.g. arr['A'] -> arr[int('A')] Matti Hamalainen <ccr@tnsp.org> parents: 2 diff changeset	152 g_data[int('f')] = 1;
a1261cd4c676 Int-ize byte array index references when using character, e.g. arr['A'] -> arr[int('A')] Matti Hamalainen <ccr@tnsp.org> parents: 2 diff changeset	153 g_data[int('g')] = 1;
29 249c4f5742f3 Refactor the import/export stuff a bit and the GUI bits for JS. Matti Hamalainen <ccr@tnsp.org> parents: 28 diff changeset	154 g_icons = mpLoadBinaryFile("icons.bin");
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	155 set_tool(3);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	156
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	157 g_gridx = 8;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	158 g_gridy = 8;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	159 g_multic = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	160 g_repanel = -2;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	161
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	162 //UI colors
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	163 makecolor(256, 0xff, 0, 0xff);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	164 makecolor(257, 180, 180, 180);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	165 g_rgb[257] = 0xff808080;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	166 makecolor(258, 0, 0, 0);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	167 makecolor(259, 48, 48, 48);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	168 //R,G,B
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	169 makecolor(260, 255, 0, 0);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	170 makecolor(261, 0, 255, 0);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	171 makecolor(262, 0, 0, 255);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	172
81 7ee5e0c590bd Clean set_machine() and rename to mpSetupMachine() Matti Hamalainen <ccr@tnsp.org> parents: 73 diff changeset	173 mpSetupMachine(machine);
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	174 g_windowx = width - (g_hedge) - (g_wzoom * X);
7 c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	175 g_windowx = int(g_windowx / 2);
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	176 g_windowy = height - (g_vedge) - (g_wzoom * Y);
7 c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	177 g_windowy = int(g_windowy / 2);
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	178
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	179 switcher(3);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	180
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	181 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	182 g_ofarge = g_farge;
7 c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	183 MX = int(X / 8);
c848a6133cfc Fix many calculations (divisions) that assume integer variable division Matti Hamalainen <ccr@tnsp.org> parents: 4 diff changeset	184 MY = int(Y / 8);
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	185 g_realfront = byte(g_farge);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	186 g_realback = byte(g_backg);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	187
83 6524e83c3ba7 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 82 diff changeset	188 for (int y = 0; y < Y; y++)
6524e83c3ba7 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 82 diff changeset	189 for (int x = 0; x < X; x++)
69 3d40683b367a Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 60 diff changeset	190 absolute_clearpoint(x, y);
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	191
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	192 switcher(2);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	193 noStroke();
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	194 background(g_r[259], g_g[259], g_b[259]);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	195 sussborder();
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	196 setup_raster();
83 6524e83c3ba7 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 82 diff changeset	197
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	198 message("Multipaint\|Metal\|v22.5.2017");
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	199 message("*");
89 09c1a4aba305 Set dirty flag on setup. Matti Hamalainen <ccr@tnsp.org> parents: 88 diff changeset	200 g_dirty = true;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	201 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	202
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	203
101 e5c147a7bf98 Remove fexists(), it's not in use. Matti Hamalainen <ccr@tnsp.org> parents: 97 diff changeset	204 void mpSetTitle(String str)
e5c147a7bf98 Remove fexists(), it's not in use. Matti Hamalainen <ccr@tnsp.org> parents: 97 diff changeset	205 {
29 249c4f5742f3 Refactor the import/export stuff a bit and the GUI bits for JS. Matti Hamalainen <ccr@tnsp.org> parents: 28 diff changeset	206 console.log("TITLE: '" + str + "'");
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	207 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	208
28 edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	209
102 287892b5eff8 Add function for checking availability of browser local storage. Matti Hamalainen <ccr@tnsp.org> parents: 101 diff changeset	210 bool mpHaveLocalStorage()
287892b5eff8 Add function for checking availability of browser local storage. Matti Hamalainen <ccr@tnsp.org> parents: 101 diff changeset	211 {
287892b5eff8 Add function for checking availability of browser local storage. Matti Hamalainen <ccr@tnsp.org> parents: 101 diff changeset	212 var test = 'mpLSTest';
287892b5eff8 Add function for checking availability of browser local storage. Matti Hamalainen <ccr@tnsp.org> parents: 101 diff changeset	213 try {
287892b5eff8 Add function for checking availability of browser local storage. Matti Hamalainen <ccr@tnsp.org> parents: 101 diff changeset	214 localStorage.setItem(test, test);
287892b5eff8 Add function for checking availability of browser local storage. Matti Hamalainen <ccr@tnsp.org> parents: 101 diff changeset	215 if (localStorage.getItem(test) == test)
287892b5eff8 Add function for checking availability of browser local storage. Matti Hamalainen <ccr@tnsp.org> parents: 101 diff changeset	216 {
287892b5eff8 Add function for checking availability of browser local storage. Matti Hamalainen <ccr@tnsp.org> parents: 101 diff changeset	217 localStorage.removeItem(test);
287892b5eff8 Add function for checking availability of browser local storage. Matti Hamalainen <ccr@tnsp.org> parents: 101 diff changeset	218 return true;
287892b5eff8 Add function for checking availability of browser local storage. Matti Hamalainen <ccr@tnsp.org> parents: 101 diff changeset	219 }
287892b5eff8 Add function for checking availability of browser local storage. Matti Hamalainen <ccr@tnsp.org> parents: 101 diff changeset	220 }
287892b5eff8 Add function for checking availability of browser local storage. Matti Hamalainen <ccr@tnsp.org> parents: 101 diff changeset	221 catch (e) {
287892b5eff8 Add function for checking availability of browser local storage. Matti Hamalainen <ccr@tnsp.org> parents: 101 diff changeset	222 return false;
287892b5eff8 Add function for checking availability of browser local storage. Matti Hamalainen <ccr@tnsp.org> parents: 101 diff changeset	223 }
287892b5eff8 Add function for checking availability of browser local storage. Matti Hamalainen <ccr@tnsp.org> parents: 101 diff changeset	224 return false;
287892b5eff8 Add function for checking availability of browser local storage. Matti Hamalainen <ccr@tnsp.org> parents: 101 diff changeset	225 }
287892b5eff8 Add function for checking availability of browser local storage. Matti Hamalainen <ccr@tnsp.org> parents: 101 diff changeset	226
287892b5eff8 Add function for checking availability of browser local storage. Matti Hamalainen <ccr@tnsp.org> parents: 101 diff changeset	227
54 dee55b8f97a6 Use defined format extensions in the file selector. Also display format name Matti Hamalainen <ccr@tnsp.org> parents: 53 diff changeset	228 function mpLoadFileSelector(fmtname, fmtexts, fcallback)
28 edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	229 {
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	230 var mpUI = stGE("mpUI");
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	231 if (mpUI)
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	232 {
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	233 stClearChildren(mpUI);
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	234 mpUI.style.background = "red";
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	235 mpUI.style.padding = "0.5em";
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	236
54 dee55b8f97a6 Use defined format extensions in the file selector. Also display format name Matti Hamalainen <ccr@tnsp.org> parents: 53 diff changeset	237 mobj = stCE("input", "mpFileSelector");
28 edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	238 mobj.type = "file";
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	239 mobj.name = "name";
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	240 mobj.multiple = false;
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	241
54 dee55b8f97a6 Use defined format extensions in the file selector. Also display format name Matti Hamalainen <ccr@tnsp.org> parents: 53 diff changeset	242 if (fmtexts != null)
dee55b8f97a6 Use defined format extensions in the file selector. Also display format name Matti Hamalainen <ccr@tnsp.org> parents: 53 diff changeset	243 mobj.accept = fmtexts;
28 edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	244
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	245 stAddEventOb(mobj.name, mobj, "change",
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	246 function(evt)
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	247 {
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	248 var files = evt.target.files;
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	249 if (files.length > 0)
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	250 {
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	251 var freader = new FileReader();
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	252
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	253 freader.onloadend = (function(theFile) {
58 8c47708f0196 Oops, forgot to commit this. Matti Hamalainen <ccr@tnsp.org> parents: 56 diff changeset	254 fcallback(theFile, new Uint8Array(freader.result));
28 edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	255 });
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	256
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	257 freader.readAsArrayBuffer(files[0]);
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	258 }
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	259 stClearChildren(mpUI);
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	260 mpUI.style.background = null;
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	261 });
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	262
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	263 mpUI.appendChild(mobj);
54 dee55b8f97a6 Use defined format extensions in the file selector. Also display format name Matti Hamalainen <ccr@tnsp.org> parents: 53 diff changeset	264
dee55b8f97a6 Use defined format extensions in the file selector. Also display format name Matti Hamalainen <ccr@tnsp.org> parents: 53 diff changeset	265 mobj = stCE("span", "mpFileInfo");
dee55b8f97a6 Use defined format extensions in the file selector. Also display format name Matti Hamalainen <ccr@tnsp.org> parents: 53 diff changeset	266 mobj.innerHTML = "Load / import an '<b>"+ fmtname +"</b>' file.";
dee55b8f97a6 Use defined format extensions in the file selector. Also display format name Matti Hamalainen <ccr@tnsp.org> parents: 53 diff changeset	267 mpUI.appendChild(mobj);
28 edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	268 }
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	269 else
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	270 return null;
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	271 }
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	272
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	273
52 4f998eb1700a Add some comments. Matti Hamalainen <ccr@tnsp.org> parents: 51 diff changeset	274 //
4f998eb1700a Add some comments. Matti Hamalainen <ccr@tnsp.org> parents: 51 diff changeset	275 // Basically the same as Processing loadBytes(), but it seems
4f998eb1700a Add some comments. Matti Hamalainen <ccr@tnsp.org> parents: 51 diff changeset	276 // that Processing.JS's loadBytes() is broken at least in v1.4.8
4f998eb1700a Add some comments. Matti Hamalainen <ccr@tnsp.org> parents: 51 diff changeset	277 // and does not return byte-clean data. So roll a replacement of
4f998eb1700a Add some comments. Matti Hamalainen <ccr@tnsp.org> parents: 51 diff changeset	278 // our own design. --ccr
4f998eb1700a Add some comments. Matti Hamalainen <ccr@tnsp.org> parents: 51 diff changeset	279 //
28 edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	280 byte[] mpLoadBinaryFile(String url)
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	281 {
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	282 var xhr = new XMLHttpRequest();
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	283 xhr.open("GET", url, false);
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	284 xhr.overrideMimeType("text/plain; charset=x-user-defined");
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	285 xhr.setRequestHeader("If-Modified-Since", "Fri, 01 Jan 1960 00:00:00 GMT");
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	286 xhr.send(null);
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	287
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	288 if (xhr.status !== 200 && xhr.status !== 0)
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	289 return null;
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	290
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	291 var string = xhr.responseText;
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	292 byte[] ret = new byte[string.length];
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	293
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	294 for (var i = 0; i < string.length; i++)
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	295 {
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	296 ret[i] = string.charCodeAt(i) & 0xff;
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	297 }
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	298
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	299 return ret;
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	300 }
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	301
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	302
52 4f998eb1700a Add some comments. Matti Hamalainen <ccr@tnsp.org> parents: 51 diff changeset	303 //
4f998eb1700a Add some comments. Matti Hamalainen <ccr@tnsp.org> parents: 51 diff changeset	304 // "Save" a byte array to file. Basically creates a blob URI
4f998eb1700a Add some comments. Matti Hamalainen <ccr@tnsp.org> parents: 51 diff changeset	305 // and dumps it in the DOM, giving user a download.
4f998eb1700a Add some comments. Matti Hamalainen <ccr@tnsp.org> parents: 51 diff changeset	306 //
96 2d4b56e4d966 Improve mpSaveBinaryFile() to also handle string format data. Also improve Matti Hamalainen <ccr@tnsp.org> parents: 94 diff changeset	307 bool mpSaveBinaryFile(String name, byte[] data)
28 edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	308 {
96 2d4b56e4d966 Improve mpSaveBinaryFile() to also handle string format data. Also improve Matti Hamalainen <ccr@tnsp.org> parents: 94 diff changeset	309 var blob = null;
2d4b56e4d966 Improve mpSaveBinaryFile() to also handle string format data. Also improve Matti Hamalainen <ccr@tnsp.org> parents: 94 diff changeset	310 if (typeof(data) == "string")
2d4b56e4d966 Improve mpSaveBinaryFile() to also handle string format data. Also improve Matti Hamalainen <ccr@tnsp.org> parents: 94 diff changeset	311 blob = new Blob([data], {type: "application/octet-stream"});
2d4b56e4d966 Improve mpSaveBinaryFile() to also handle string format data. Also improve Matti Hamalainen <ccr@tnsp.org> parents: 94 diff changeset	312 else
2d4b56e4d966 Improve mpSaveBinaryFile() to also handle string format data. Also improve Matti Hamalainen <ccr@tnsp.org> parents: 94 diff changeset	313 if (typeof(data) == "object")
2d4b56e4d966 Improve mpSaveBinaryFile() to also handle string format data. Also improve Matti Hamalainen <ccr@tnsp.org> parents: 94 diff changeset	314 blob = new Blob([new Uint8Array(data)], {type: "application/octet-stream"});
2d4b56e4d966 Improve mpSaveBinaryFile() to also handle string format data. Also improve Matti Hamalainen <ccr@tnsp.org> parents: 94 diff changeset	315
2d4b56e4d966 Improve mpSaveBinaryFile() to also handle string format data. Also improve Matti Hamalainen <ccr@tnsp.org> parents: 94 diff changeset	316 if (blob == null)
2d4b56e4d966 Improve mpSaveBinaryFile() to also handle string format data. Also improve Matti Hamalainen <ccr@tnsp.org> parents: 94 diff changeset	317 {
2d4b56e4d966 Improve mpSaveBinaryFile() to also handle string format data. Also improve Matti Hamalainen <ccr@tnsp.org> parents: 94 diff changeset	318 console.log("Could not create BLOB from data.");
2d4b56e4d966 Improve mpSaveBinaryFile() to also handle string format data. Also improve Matti Hamalainen <ccr@tnsp.org> parents: 94 diff changeset	319 return false;
2d4b56e4d966 Improve mpSaveBinaryFile() to also handle string format data. Also improve Matti Hamalainen <ccr@tnsp.org> parents: 94 diff changeset	320 }
2d4b56e4d966 Improve mpSaveBinaryFile() to also handle string format data. Also improve Matti Hamalainen <ccr@tnsp.org> parents: 94 diff changeset	321
2d4b56e4d966 Improve mpSaveBinaryFile() to also handle string format data. Also improve Matti Hamalainen <ccr@tnsp.org> parents: 94 diff changeset	322 var url = window.URL.createObjectURL(blob);
2d4b56e4d966 Improve mpSaveBinaryFile() to also handle string format data. Also improve Matti Hamalainen <ccr@tnsp.org> parents: 94 diff changeset	323 if (url == null)
2d4b56e4d966 Improve mpSaveBinaryFile() to also handle string format data. Also improve Matti Hamalainen <ccr@tnsp.org> parents: 94 diff changeset	324 {
2d4b56e4d966 Improve mpSaveBinaryFile() to also handle string format data. Also improve Matti Hamalainen <ccr@tnsp.org> parents: 94 diff changeset	325 console.log("Could not create URL from BLOB object.");
2d4b56e4d966 Improve mpSaveBinaryFile() to also handle string format data. Also improve Matti Hamalainen <ccr@tnsp.org> parents: 94 diff changeset	326 return false;
2d4b56e4d966 Improve mpSaveBinaryFile() to also handle string format data. Also improve Matti Hamalainen <ccr@tnsp.org> parents: 94 diff changeset	327 }
28 edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	328
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	329 var alink = stCE("a");
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	330 var mpUI = stGE("mpUI");
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	331 stClearChildren(mpUI);
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	332 mpUI.appendChild(alink);
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	333
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	334 alink.style = "display: none";
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	335 alink.href = url;
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	336 alink.download = name;
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	337 alink.click();
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	338
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	339 window.URL.revokeObjectURL(url);
96 2d4b56e4d966 Improve mpSaveBinaryFile() to also handle string format data. Also improve Matti Hamalainen <ccr@tnsp.org> parents: 94 diff changeset	340 return true;
28 edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	341 }
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	342
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	343
94 6e74d45ea620 More work towards jpeg/png image export/import. Matti Hamalainen <ccr@tnsp.org> parents: 93 diff changeset	344 void mpSavePNGImage(String name, int fmt, bool border)
28 edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	345 {
94 6e74d45ea620 More work towards jpeg/png image export/import. Matti Hamalainen <ccr@tnsp.org> parents: 93 diff changeset	346 PImage simg = mpRenderImage(border);
6e74d45ea620 More work towards jpeg/png image export/import. Matti Hamalainen <ccr@tnsp.org> parents: 93 diff changeset	347 // if (g_data[int('Q')] == 0)
88 03823fa2cb01 Refactor export_image() and export_image_sans_border() to use common code, Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	348
94 6e74d45ea620 More work towards jpeg/png image export/import. Matti Hamalainen <ccr@tnsp.org> parents: 93 diff changeset	349 if (simg !== null)
6e74d45ea620 More work towards jpeg/png image export/import. Matti Hamalainen <ccr@tnsp.org> parents: 93 diff changeset	350 {
6e74d45ea620 More work towards jpeg/png image export/import. Matti Hamalainen <ccr@tnsp.org> parents: 93 diff changeset	351 // XXX TODO .. actually save the image, something like ..
6e74d45ea620 More work towards jpeg/png image export/import. Matti Hamalainen <ccr@tnsp.org> parents: 93 diff changeset	352 //simg.canvas.toBlob(function(idata){ mpSaveBinaryFile(name, idata); }, "image/png", 0.95);
6e74d45ea620 More work towards jpeg/png image export/import. Matti Hamalainen <ccr@tnsp.org> parents: 93 diff changeset	353 }
28 edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	354 }
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	355
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	356
97 65e6cacd068c Make PRG export work. Also some improvements in overall error handling. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	357 int mpLoadPNGImage(String name)
28 edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	358 {
92 4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	359 PImage simg = null;
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	360 if (simg == null)
97 65e6cacd068c Make PRG export work. Also some improvements in overall error handling. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	361 return -1;
92 4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	362
28 edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	363 int lefth = g_farge;
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	364 int righth = g_backg;
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	365 storeparameters();
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	366
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	367 g_data[int('d')] = 0;
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	368 g_data[int('t')] = 0;
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	369 g_data[int('b')] = 1; //old IQ
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	370
92 4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	371 if (!mpImportFromImage(simg))
97 65e6cacd068c Make PRG export work. Also some improvements in overall error handling. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	372 return -2;
28 edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	373
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	374 restoreparameters();
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	375 refreshpalette();
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	376 refresh();
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	377 g_boxreconstruct = 2;
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	378 message("Image\|loaded");
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	379 selectcolor(0, lefth);
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	380 selectcolor(1, righth);
97 65e6cacd068c Make PRG export work. Also some improvements in overall error handling. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	381 return 0;
28 edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	382 }
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	383
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	384
97 65e6cacd068c Make PRG export work. Also some improvements in overall error handling. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	385 bool mpSaveNativeImage(String name)
53 c551029a7086 Cosmetic. Matti Hamalainen <ccr@tnsp.org> parents: 52 diff changeset	386 {
28 edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	387 //save the picture page g_map[], make sure some essential parameters are correct
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	388 g_map[3] = byte(machine);
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	389 g_map[5] = byte(MX);
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	390 g_map[7] = byte(MY);
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	391
97 65e6cacd068c Make PRG export work. Also some improvements in overall error handling. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	392 return mpSaveBinaryFile(name, g_map);
28 edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	393 }
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	394
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	395
97 65e6cacd068c Make PRG export work. Also some improvements in overall error handling. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	396 int mpSetNativeImage(byte[] data, bool noError)
28 edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	397 {
97 65e6cacd068c Make PRG export work. Also some improvements in overall error handling. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	398 if (data == null)
65e6cacd068c Make PRG export work. Also some improvements in overall error handling. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	399 return -1;
28 edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	400
97 65e6cacd068c Make PRG export work. Also some improvements in overall error handling. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	401 if (data[3] != machine && !noError)
65e6cacd068c Make PRG export work. Also some improvements in overall error handling. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	402 return -2;
28 edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	403
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	404 g_map = data;
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	405
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	406 refreshpalette();
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	407 consistency();
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	408 g_farge = int(g_realfront);
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	409 g_ofarge = g_farge;
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	410 g_backg = int(g_realback);
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	411 sussborder();
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	412
97 65e6cacd068c Make PRG export work. Also some improvements in overall error handling. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	413 return 0;
28 edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	414 }
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	415
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	416
97 65e6cacd068c Make PRG export work. Also some improvements in overall error handling. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	417 int mpLoadNativeImage(String name, bool noError)
55 7194cdcc9dab Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 54 diff changeset	418 {
7194cdcc9dab Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 54 diff changeset	419 return mpSetNativeImage(
7194cdcc9dab Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 54 diff changeset	420 mpLoadBinaryFile(name), noError);
28 edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	421 }
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	422
edcf9039552b Add several new helper functions for loading and saving formats using Javascript facilities. Matti Hamalainen <ccr@tnsp.org> parents: 27 diff changeset	423
69 3d40683b367a Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 60 diff changeset	424 void draw()
3d40683b367a Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 60 diff changeset	425 {
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	426 if (!focused) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	427 g_control = false;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	428 g_shift = false;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	429 }
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	430
72 5e7553e9aee0 Improve 'dirty' flag for only updating canvas when something changes. Matti Hamalainen <ccr@tnsp.org> parents: 69 diff changeset	431 // 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	432 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	433 return;
5e7553e9aee0 Improve 'dirty' flag for only updating canvas when something changes. Matti Hamalainen <ccr@tnsp.org> parents: 69 diff changeset	434 g_dirty = false;
5e7553e9aee0 Improve 'dirty' flag for only updating canvas when something changes. Matti Hamalainen <ccr@tnsp.org> parents: 69 diff changeset	435
5e7553e9aee0 Improve 'dirty' flag for only updating canvas when something changes. Matti Hamalainen <ccr@tnsp.org> parents: 69 diff changeset	436 // Animate animbrush
4 a1261cd4c676 Int-ize byte array index references when using character, e.g. arr['A'] -> arr[int('A')] Matti Hamalainen <ccr@tnsp.org> parents: 2 diff changeset	437 if (g_data[int('n')] == 1) {
69 3d40683b367a Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 60 diff changeset	438 if (++g_animtime > 8 - g_animspeed * 2) {
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	439 animbrush_do();
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	440 g_animtime = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	441 }
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	442 }
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	443
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	444
40 8d2362b6ac12 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	445 // Update some mouse variables
4 a1261cd4c676 Int-ize byte array index references when using character, e.g. arr['A'] -> arr[int('A')] Matti Hamalainen <ccr@tnsp.org> parents: 2 diff changeset	446 if (g_data[int('m')] == 0 && g_data[int('M')] == 0) {
39 5e0306ac3575 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 36 diff changeset	447 g_mx = g_msx - g_windowx;
5e0306ac3575 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 36 diff changeset	448 g_my = g_msy - g_windowy;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	449 } else {
39 5e0306ac3575 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 36 diff changeset	450 g_mx = mouseX;
5e0306ac3575 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 36 diff changeset	451 g_my = mouseY;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	452 }
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	453
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	454 g_msx = mouseX;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	455 g_msy = mouseY;
39 5e0306ac3575 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 36 diff changeset	456
40 8d2362b6ac12 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	457 // Actual tool drawing
39 5e0306ac3575 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 36 diff changeset	458 if (g_tooltrigger == 1) { // comes from mousepressed, or mousedragged
40 8d2362b6ac12 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	459 if (g_mx <= width - g_hedge && g_my <= height - g_vedge)
8d2362b6ac12 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	460 do_tool(g_mx, g_my, g_button);
39 5e0306ac3575 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 36 diff changeset	461 }
5e0306ac3575 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 36 diff changeset	462
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	463 switcher(0);
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	464
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	465 for (int i = 0; i < 1024; i++) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	466 g_remdo[i] = 0;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	467 }
39 5e0306ac3575 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 36 diff changeset	468
40 8d2362b6ac12 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	469 // Tool drawing for shows
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	470 int lipo = g_button;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	471 if (tool() != 5) {
40 8d2362b6ac12 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	472 if (g_phase == 0)
8d2362b6ac12 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	473 g_button = LEFT;
39 5e0306ac3575 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 36 diff changeset	474 do_tool(g_mx, g_my, LEFT);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	475 }
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	476 if (tool() == 6) doline(g_rx, g_ry, g_rx2, g_ry2, 0);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	477 if (tool() == 7) docircle(g_rx, g_ry, g_rx2, g_ry2);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	478 if (tool() == 8) rectangle(g_rx, g_ry, g_rx2, g_ry2);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	479 g_button = lipo;
39 5e0306ac3575 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 36 diff changeset	480
40 8d2362b6ac12 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	481 // Screen update stuff
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	482 loadPixels();
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	483 viewport();
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	484 //magport();
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	485 switcher(1);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	486 update_ui();
40 8d2362b6ac12 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	487 updatePixels();
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	488
40 8d2362b6ac12 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	489 if (g_msgctr > 0)
8d2362b6ac12 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	490 g_msgctr--;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	491
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	492 // UI file operations
29 249c4f5742f3 Refactor the import/export stuff a bit and the GUI bits for JS. Matti Hamalainen <ccr@tnsp.org> parents: 28 diff changeset	493 if (fileselect) // Fileselect "event" for Load
249c4f5742f3 Refactor the import/export stuff a bit and the GUI bits for JS. Matti Hamalainen <ccr@tnsp.org> parents: 28 diff changeset	494 {
54 dee55b8f97a6 Use defined format extensions in the file selector. Also display format name Matti Hamalainen <ccr@tnsp.org> parents: 53 diff changeset	495 mpLoadFileSelector("Multipaint image", ".mp",
29 249c4f5742f3 Refactor the import/export stuff a bit and the GUI bits for JS. Matti Hamalainen <ccr@tnsp.org> parents: 28 diff changeset	496 function (fh, fdata)
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	497 {
97 65e6cacd068c Make PRG export work. Also some improvements in overall error handling. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	498 int err = mpSetNativeImage(fdata);
65e6cacd068c Make PRG export work. Also some improvements in overall error handling. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	499 if (err == 0)
29 249c4f5742f3 Refactor the import/export stuff a bit and the GUI bits for JS. Matti Hamalainen <ccr@tnsp.org> parents: 28 diff changeset	500 {
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	501 store_undo();
29 249c4f5742f3 Refactor the import/export stuff a bit and the GUI bits for JS. Matti Hamalainen <ccr@tnsp.org> parents: 28 diff changeset	502 mpSetTitle(fh.name);
43 df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 40 diff changeset	503 if (g_spare)
df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 40 diff changeset	504 sfilename = fh.name;
df6eecdf1cd4 Clean up g_spare related things. Matti Hamalainen <ccr@tnsp.org> parents: 40 diff changeset	505 else
29 249c4f5742f3 Refactor the import/export stuff a bit and the GUI bits for JS. Matti Hamalainen <ccr@tnsp.org> parents: 28 diff changeset	506 filename = fh.name;
249c4f5742f3 Refactor the import/export stuff a bit and the GUI bits for JS. Matti Hamalainen <ccr@tnsp.org> parents: 28 diff changeset	507
97 65e6cacd068c Make PRG export work. Also some improvements in overall error handling. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	508 message("Image loaded");
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	509 refresh();
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	510 }
97 65e6cacd068c Make PRG export work. Also some improvements in overall error handling. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	511 else
65e6cacd068c Make PRG export work. Also some improvements in overall error handling. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	512 if (err == -2)
65e6cacd068c Make PRG export work. Also some improvements in overall error handling. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	513 message("Wrong\|machine!");
65e6cacd068c Make PRG export work. Also some improvements in overall error handling. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	514 else
65e6cacd068c Make PRG export work. Also some improvements in overall error handling. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	515 message("ERROR!");
29 249c4f5742f3 Refactor the import/export stuff a bit and the GUI bits for JS. Matti Hamalainen <ccr@tnsp.org> parents: 28 diff changeset	516 });
249c4f5742f3 Refactor the import/export stuff a bit and the GUI bits for JS. Matti Hamalainen <ccr@tnsp.org> parents: 28 diff changeset	517
249c4f5742f3 Refactor the import/export stuff a bit and the GUI bits for JS. Matti Hamalainen <ccr@tnsp.org> parents: 28 diff changeset	518 fileselect = false;
249c4f5742f3 Refactor the import/export stuff a bit and the GUI bits for JS. Matti Hamalainen <ccr@tnsp.org> parents: 28 diff changeset	519 g_shift = false;
249c4f5742f3 Refactor the import/export stuff a bit and the GUI bits for JS. Matti Hamalainen <ccr@tnsp.org> parents: 28 diff changeset	520 g_control = false;
249c4f5742f3 Refactor the import/export stuff a bit and the GUI bits for JS. Matti Hamalainen <ccr@tnsp.org> parents: 28 diff changeset	521 }
249c4f5742f3 Refactor the import/export stuff a bit and the GUI bits for JS. Matti Hamalainen <ccr@tnsp.org> parents: 28 diff changeset	522
249c4f5742f3 Refactor the import/export stuff a bit and the GUI bits for JS. Matti Hamalainen <ccr@tnsp.org> parents: 28 diff changeset	523 if (saveas) // Fileselect "event" for Save as
249c4f5742f3 Refactor the import/export stuff a bit and the GUI bits for JS. Matti Hamalainen <ccr@tnsp.org> parents: 28 diff changeset	524 {
97 65e6cacd068c Make PRG export work. Also some improvements in overall error handling. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	525 String fname = filename +"_"+ (g_spare ? "spare" : "main") +".mp";
65e6cacd068c Make PRG export work. Also some improvements in overall error handling. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	526 if (mpSaveNativeImage(fname))
65e6cacd068c Make PRG export work. Also some improvements in overall error handling. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	527 message("SAVED");
65e6cacd068c Make PRG export work. Also some improvements in overall error handling. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	528 else
65e6cacd068c Make PRG export work. Also some improvements in overall error handling. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	529 message("ERROR!");
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	530
29 249c4f5742f3 Refactor the import/export stuff a bit and the GUI bits for JS. Matti Hamalainen <ccr@tnsp.org> parents: 28 diff changeset	531 saveas = false;
249c4f5742f3 Refactor the import/export stuff a bit and the GUI bits for JS. Matti Hamalainen <ccr@tnsp.org> parents: 28 diff changeset	532 g_shift = false;
249c4f5742f3 Refactor the import/export stuff a bit and the GUI bits for JS. Matti Hamalainen <ccr@tnsp.org> parents: 28 diff changeset	533 g_control = false;
249c4f5742f3 Refactor the import/export stuff a bit and the GUI bits for JS. Matti Hamalainen <ccr@tnsp.org> parents: 28 diff changeset	534 }
249c4f5742f3 Refactor the import/export stuff a bit and the GUI bits for JS. Matti Hamalainen <ccr@tnsp.org> parents: 28 diff changeset	535
82 d982486e0a85 Rename variable. Matti Hamalainen <ccr@tnsp.org> parents: 81 diff changeset	536 if (exportsrc)
56 4eb9ebde8c20 Some more interface cleanupping. Matti Hamalainen <ccr@tnsp.org> parents: 55 diff changeset	537 {
97 65e6cacd068c Make PRG export work. Also some improvements in overall error handling. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	538 message("Export SRC\|is disabled");
59 1628649831cc Disable the TXT and EMU export functionality as they are not working yet. Matti Hamalainen <ccr@tnsp.org> parents: 58 diff changeset	539 /*
97 65e6cacd068c Make PRG export work. Also some improvements in overall error handling. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	540 String fname = (g_spare ? sfilename : filename) +"_"+ (g_spare ? "spare" : "main") +".asm";
65e6cacd068c Make PRG export work. Also some improvements in overall error handling. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	541 byte[] fdata = mpExportMachinePRG(true);
65e6cacd068c Make PRG export work. Also some improvements in overall error handling. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	542 if (fdata != null && mpSaveBinaryFile(fname, fdata))
65e6cacd068c Make PRG export work. Also some improvements in overall error handling. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	543 message("EXPORTED");
65e6cacd068c Make PRG export work. Also some improvements in overall error handling. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	544 else
65e6cacd068c Make PRG export work. Also some improvements in overall error handling. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	545 message("COULD NOT\|EXPORT");
59 1628649831cc Disable the TXT and EMU export functionality as they are not working yet. Matti Hamalainen <ccr@tnsp.org> parents: 58 diff changeset	546 */
97 65e6cacd068c Make PRG export work. Also some improvements in overall error handling. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	547
82 d982486e0a85 Rename variable. Matti Hamalainen <ccr@tnsp.org> parents: 81 diff changeset	548 exportsrc = false;
29 249c4f5742f3 Refactor the import/export stuff a bit and the GUI bits for JS. Matti Hamalainen <ccr@tnsp.org> parents: 28 diff changeset	549 g_shift = false;
249c4f5742f3 Refactor the import/export stuff a bit and the GUI bits for JS. Matti Hamalainen <ccr@tnsp.org> parents: 28 diff changeset	550 g_control = false;
249c4f5742f3 Refactor the import/export stuff a bit and the GUI bits for JS. Matti Hamalainen <ccr@tnsp.org> parents: 28 diff changeset	551 }
249c4f5742f3 Refactor the import/export stuff a bit and the GUI bits for JS. Matti Hamalainen <ccr@tnsp.org> parents: 28 diff changeset	552
56 4eb9ebde8c20 Some more interface cleanupping. Matti Hamalainen <ccr@tnsp.org> parents: 55 diff changeset	553 if (exportemu)
4eb9ebde8c20 Some more interface cleanupping. Matti Hamalainen <ccr@tnsp.org> parents: 55 diff changeset	554 {
97 65e6cacd068c Make PRG export work. Also some improvements in overall error handling. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	555 String fname = (g_spare ? sfilename : filename) +"_"+ (g_spare ? "spare" : "main") +"."+ g_exportext;
65e6cacd068c Make PRG export work. Also some improvements in overall error handling. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	556 byte[] fdata = mpExportMachinePRG(false);
65e6cacd068c Make PRG export work. Also some improvements in overall error handling. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	557 if (fdata != null && mpSaveBinaryFile(fname, fdata))
65e6cacd068c Make PRG export work. Also some improvements in overall error handling. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	558 message("EXPORTED");
65e6cacd068c Make PRG export work. Also some improvements in overall error handling. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	559 else
65e6cacd068c Make PRG export work. Also some improvements in overall error handling. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	560 message("COULD NOT\|EXPORT");
65e6cacd068c Make PRG export work. Also some improvements in overall error handling. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	561
29 249c4f5742f3 Refactor the import/export stuff a bit and the GUI bits for JS. Matti Hamalainen <ccr@tnsp.org> parents: 28 diff changeset	562 exportemu = false;
249c4f5742f3 Refactor the import/export stuff a bit and the GUI bits for JS. Matti Hamalainen <ccr@tnsp.org> parents: 28 diff changeset	563 g_shift = false;
249c4f5742f3 Refactor the import/export stuff a bit and the GUI bits for JS. Matti Hamalainen <ccr@tnsp.org> parents: 28 diff changeset	564 g_control = false;
249c4f5742f3 Refactor the import/export stuff a bit and the GUI bits for JS. Matti Hamalainen <ccr@tnsp.org> parents: 28 diff changeset	565 }
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	566
54 dee55b8f97a6 Use defined format extensions in the file selector. Also display format name Matti Hamalainen <ccr@tnsp.org> parents: 53 diff changeset	567 if (importfmt)
dee55b8f97a6 Use defined format extensions in the file selector. Also display format name Matti Hamalainen <ccr@tnsp.org> parents: 53 diff changeset	568 {
dee55b8f97a6 Use defined format extensions in the file selector. Also display format name Matti Hamalainen <ccr@tnsp.org> parents: 53 diff changeset	569 mpLoadFileSelector(g_formatname, g_formatext,
29 249c4f5742f3 Refactor the import/export stuff a bit and the GUI bits for JS. Matti Hamalainen <ccr@tnsp.org> parents: 28 diff changeset	570 function (fh, fdata)
249c4f5742f3 Refactor the import/export stuff a bit and the GUI bits for JS. Matti Hamalainen <ccr@tnsp.org> parents: 28 diff changeset	571 {
249c4f5742f3 Refactor the import/export stuff a bit and the GUI bits for JS. Matti Hamalainen <ccr@tnsp.org> parents: 28 diff changeset	572 store_undo();
249c4f5742f3 Refactor the import/export stuff a bit and the GUI bits for JS. Matti Hamalainen <ccr@tnsp.org> parents: 28 diff changeset	573 filename = fh.name;
84 025efefd1704 Rename few functions and a variable. Matti Hamalainen <ccr@tnsp.org> parents: 83 diff changeset	574 mpImportFormat(fdata);
29 249c4f5742f3 Refactor the import/export stuff a bit and the GUI bits for JS. Matti Hamalainen <ccr@tnsp.org> parents: 28 diff changeset	575 refresh();
249c4f5742f3 Refactor the import/export stuff a bit and the GUI bits for JS. Matti Hamalainen <ccr@tnsp.org> parents: 28 diff changeset	576 });
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	577
29 249c4f5742f3 Refactor the import/export stuff a bit and the GUI bits for JS. Matti Hamalainen <ccr@tnsp.org> parents: 28 diff changeset	578 importfmt = false;
249c4f5742f3 Refactor the import/export stuff a bit and the GUI bits for JS. Matti Hamalainen <ccr@tnsp.org> parents: 28 diff changeset	579 g_shift = false;
249c4f5742f3 Refactor the import/export stuff a bit and the GUI bits for JS. Matti Hamalainen <ccr@tnsp.org> parents: 28 diff changeset	580 g_control = false;
249c4f5742f3 Refactor the import/export stuff a bit and the GUI bits for JS. Matti Hamalainen <ccr@tnsp.org> parents: 28 diff changeset	581 }
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	582
54 dee55b8f97a6 Use defined format extensions in the file selector. Also display format name Matti Hamalainen <ccr@tnsp.org> parents: 53 diff changeset	583 if (exportfmt)
dee55b8f97a6 Use defined format extensions in the file selector. Also display format name Matti Hamalainen <ccr@tnsp.org> parents: 53 diff changeset	584 {
97 65e6cacd068c Make PRG export work. Also some improvements in overall error handling. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	585 byte[] fdata = mpExportFormat(0); // XXX TODO
65e6cacd068c Make PRG export work. Also some improvements in overall error handling. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	586 String fname = filename +"_"+ (g_spare ? "spare" : "main") +"."+ g_formatext;
65e6cacd068c Make PRG export work. Also some improvements in overall error handling. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	587
65e6cacd068c Make PRG export work. Also some improvements in overall error handling. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	588 if (fdata != null && mpSaveBinaryFile(fname, fdata))
90 dffafe05d520 Refactor mpExportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 89 diff changeset	589 message("EXPORTED");
dffafe05d520 Refactor mpExportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 89 diff changeset	590 else
dffafe05d520 Refactor mpExportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 89 diff changeset	591 message("COULD NOT\|EXPORT");
29 249c4f5742f3 Refactor the import/export stuff a bit and the GUI bits for JS. Matti Hamalainen <ccr@tnsp.org> parents: 28 diff changeset	592
249c4f5742f3 Refactor the import/export stuff a bit and the GUI bits for JS. Matti Hamalainen <ccr@tnsp.org> parents: 28 diff changeset	593 exportfmt = false;
249c4f5742f3 Refactor the import/export stuff a bit and the GUI bits for JS. Matti Hamalainen <ccr@tnsp.org> parents: 28 diff changeset	594 g_shift = false;
249c4f5742f3 Refactor the import/export stuff a bit and the GUI bits for JS. Matti Hamalainen <ccr@tnsp.org> parents: 28 diff changeset	595 g_control = false;
249c4f5742f3 Refactor the import/export stuff a bit and the GUI bits for JS. Matti Hamalainen <ccr@tnsp.org> parents: 28 diff changeset	596 }
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	597
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	598 if (g_keymacro.length() > g_keymacpos) {
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	599 macro_command(g_keymacro.charAt(g_keymacpos));
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	600 g_keymacpos++;
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	601 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	602 }

Mercurial > hg > forks > multipaint-js

annotate multipaint.pde @ 102:287892b5eff8