forks/multipaint-js: exporters.pde annotate

annotate exporters.pde @ 129:146879c896b9

Cleanups.

author	Matti Hamalainen <ccr@tnsp.org>
date	Fri, 13 Jul 2018 02:41:27 +0300
parents	4cebbee4b29b
children	f5c32f6470d0

rev	line source
92 4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1 //
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	2 // machine definitions
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	3 // source writer and other export/import functions
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	4 // remember hexdump -C !
92 4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	5 //
50 8ba88c25f51d Rename some variables. Matti Hamalainen <ccr@tnsp.org> parents: 49 diff changeset	6 String g_formatname, g_formatext;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	7 int[] g_grids = new int[16];
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	8 int OLD = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	9 int NEW = 1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	10 int g_gridmode = OLD;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	11
49 2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	12
121 25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	13 public class MPWriteCtx
25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	14 {
126 d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	15 public int m_offs, m_bpl, m_bytes, m_indent, m_state, m_intmode;
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	16 public String m_byteDef, m_eol, m_src, m_prefix;
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	17 public byte[] m_data;
121 25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	18
25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	19 MPWriteCtx()
25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	20 {
25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	21 m_offs = 0;
126 d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	22 m_data = new byte[1*1024];
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	23
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	24 setBPLOff();
121 25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	25 m_bytes = 0;
126 d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	26 m_state = -1;
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	27
121 25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	28 m_indent = 4;
126 d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	29
121 25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	30 m_byteDef = ".byte";
25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	31 m_src = "";
25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	32 m_eol = "\n";
127 4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	33
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	34 m_intmode = 0;
126 d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	35 m_prefix = "";
121 25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	36 }
25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	37
25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	38 void setOffs(int offs)
25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	39 {
25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	40 m_offs = offs;
25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	41 }
25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	42
25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	43 void setBPL(int bpl)
25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	44 {
25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	45 m_bpl = bpl;
25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	46 }
25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	47
126 d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	48 void setBPLOff()
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	49 {
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	50 m_bpl = -1;
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	51 }
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	52
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	53 void loadTemplate(String fname)
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	54 {
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	55 m_data = mpLoadBinaryFile("templates/" + fname);
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	56 }
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	57
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	58 byte[] getData()
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	59 {
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	60 return m_data;
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	61 }
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	62
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	63 byte[] getSource()
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	64 {
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	65 return m_src;
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	66 }
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	67
127 4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	68 String getHexValue(int dval, int dlen)
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	69 {
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	70 static final String mpHexChars[16] = "0123456789abcdef";
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	71 char[] dstr = new char[dlen];
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	72
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	73 for (i = dlen - 1; i >= 0; i--)
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	74 {
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	75 dstr[i] = mpHexChars[dval & 0x0f];
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	76 dval >>= 4;
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	77 }
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	78
129 146879c896b9 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 127 diff changeset	79 return dstr.join('');
127 4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	80 }
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	81
126 d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	82 String getByteStr(int val)
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	83 {
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	84 switch (m_intmode)
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	85 {
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	86 case 0: return str(val & 0xff);
127 4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	87 case 1: return "$"+ getHexValue(val & 0xff, 2);
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	88 case 2: return getHexValue(val & 0xff, 2) +"h";
126 d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	89 }
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	90 }
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	91
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	92 void addIndent()
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	93 {
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	94 for (int n = 0; n < m_indent; n++)
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	95 m_src += " ";
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	96 }
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	97
127 4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	98 void addByteSep()
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	99 {
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	100 m_src += ",";
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	101 }
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	102
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	103 void addEOL()
121 25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	104 {
127 4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	105 m_state = 4;
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	106 m_src += m_eol;
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	107 }
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	108
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	109 void addByteDef(boolean force)
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	110 {
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	111 if (m_state != 2 \|\| force)
126 d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	112 {
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	113 m_src += m_eol;
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	114 addIndent();
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	115 }
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	116
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	117 m_src += m_byteDef +" ";
121 25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	118 m_bytes = 0;
126 d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	119 m_state = 2;
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	120 }
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	121
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	122 void addLabel(String blabel, boolean nl)
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	123 {
127 4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	124 if (m_state != 3)
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	125 addEOL();
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	126
126 d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	127 m_src += m_prefix + blabel +":"+ (nl ? " " : "");
127 4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	128 m_state = 3;
121 25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	129 }
25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	130
125 c210b2e2cb47 Rename some methods. Matti Hamalainen <ccr@tnsp.org> parents: 124 diff changeset	131 void addComment(String bstr)
121 25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	132 {
127 4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	133 if (m_state != 4)
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	134 addEOL();
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	135
126 d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	136 m_src += "; "+ bstr + m_eol;
127 4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	137 m_state = 4;
121 25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	138 }
25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	139
126 d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	140 void addLine(String bstr)
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	141 {
127 4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	142 if (m_state != 4)
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	143 addEOL();
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	144
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	145 m_src += bstr.replace("@@", m_prefix) + m_eol;
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	146 m_state = 4;
121 25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	147 }
25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	148
25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	149 void writeByte(int bval, String blabel)
25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	150 {
25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	151 m_data[m_offs++] = byte(bval);
25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	152
25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	153 if (blabel != null)
25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	154 {
126 d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	155 addLabel(blabel, true);
127 4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	156 m_state = 2;
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	157 addByteDef(false);
126 d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	158 m_src += getByteStr(bval);
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	159 m_src += m_eol;
121 25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	160 }
25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	161 else
25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	162 {
127 4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	163 if (m_state != 2)
126 d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	164 addByteDef(true);
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	165 else
129 146879c896b9 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 127 diff changeset	166 if (m_bpl > 0 && m_bytes >= m_bpl)
127 4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	167 addByteDef(true);
121 25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	168
126 d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	169 if (m_bytes++ > 0)
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	170 addByteSep();
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	171
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	172 m_src += getByteStr(bval);
121 25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	173 }
25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	174 }
25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	175
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	176 void writeByteAt(int boffs, int bval, String blabel)
121 25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	177 {
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	178 m_offs = boffs;
121 25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	179 writeByte(bval, blabel);
25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	180 }
25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	181 }
25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	182
25a29d29ee6a Add helper class MPWriteCtx for exporting data and source code. Matti Hamalainen <ccr@tnsp.org> parents: 120 diff changeset	183
120 55b0a77af602 Clean up the format import code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 117 diff changeset	184 void mpCopyByte(byte[] fdata, int moffs, int toffs)
84 025efefd1704 Rename few functions and a variable. Matti Hamalainen <ccr@tnsp.org> parents: 81 diff changeset	185 {
120 55b0a77af602 Clean up the format import code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 117 diff changeset	186 g_map[moffs ] = byte((fdata[toffs] & 128) >> 7);
55b0a77af602 Clean up the format import code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 117 diff changeset	187 g_map[moffs + 1] = byte((fdata[toffs] & 64) >> 6);
55b0a77af602 Clean up the format import code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 117 diff changeset	188 g_map[moffs + 2] = byte((fdata[toffs] & 32) >> 5);
55b0a77af602 Clean up the format import code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 117 diff changeset	189 g_map[moffs + 3] = byte((fdata[toffs] & 16) >> 4);
55b0a77af602 Clean up the format import code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 117 diff changeset	190 g_map[moffs + 4] = byte((fdata[toffs] & 8) >> 3);
55b0a77af602 Clean up the format import code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 117 diff changeset	191 g_map[moffs + 5] = byte((fdata[toffs] & 4) >> 2);
55b0a77af602 Clean up the format import code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 117 diff changeset	192 g_map[moffs + 6] = byte((fdata[toffs] & 2) >> 1);
55b0a77af602 Clean up the format import code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 117 diff changeset	193 g_map[moffs + 7] = byte( fdata[toffs] & 1);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	194 }
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	195
29 249c4f5742f3 Refactor the import/export stuff a bit and the GUI bits for JS. Matti Hamalainen <ccr@tnsp.org> parents: 14 diff changeset	196
117 44a07b1c620d Rename 'bool' -> 'boolean'. Matti Hamalainen <ccr@tnsp.org> parents: 95 diff changeset	197 boolean mpImportFormat(byte[] fdata)
84 025efefd1704 Rename few functions and a variable. Matti Hamalainen <ccr@tnsp.org> parents: 81 diff changeset	198 {
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	199 int x, y, x2, y2, y3, head, xx, yy, yp, ad, valu;
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	200 int p1, p2, p3;
85 db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	201
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	202 head = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	203
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	204 if (machine == SPECTRUM) //SCR=SCREEN$
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	205 {
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	206 // 32248 bytes of bitmap
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	207 // 32*24 bytes of attributes
120 55b0a77af602 Clean up the format import code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 117 diff changeset	208 if (fdata.length < 6912) {
49 2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	209 return false;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	210 }
49 2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	211 for (y = 0; y < 3; y++)
2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	212 for (y2 = 0; y2 < 8; y2++)
2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	213 for (yy = 0; yy < 8; yy++)
2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	214 for (x = 0; x < 32; x++)
2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	215 {
2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	216 yp = y * 64 + yy * 8 + y2;
2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	217 ad = 1024 + yp * 256 + x * 8;
120 55b0a77af602 Clean up the format import code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 117 diff changeset	218 mpCopyByte(fdata, ad, head);
49 2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	219 head++;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	220 }
49 2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	221
85 db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	222 for (y = 0; y < 24; y++)
db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	223 for (x = 0; x < 32; x++)
db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	224 {
db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	225 ad = 65536 + x + y * (32 * 8);
120 55b0a77af602 Clean up the format import code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 117 diff changeset	226 valu = fdata[head];
85 db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	227 int ink = valu & 7;
db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	228 int pap = valu & 56;
db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	229 pap = pap >> 3;
db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	230 int bri = valu & 64;
db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	231 bri = bri >> 6;
db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	232 ink = ink + bri * 8;
db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	233 pap = pap + bri * 8;
db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	234 if (pap == 8) {
db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	235 pap = 0;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	236 }
85 db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	237 for (y2 = 0; y2 <= 7; y2++)
db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	238 {
db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	239 g_map[ad + y2 * 32] = byte(ink);
db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	240 g_map[ad + y2 * 32 + MX * MY * 8] = byte(pap);
db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	241 }
db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	242 head++;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	243 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	244 }
85 db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	245 else
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	246 if (machine == C64) {
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	247 //0x0002->bitmap
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	248 //0x1f42->colormap
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	249 //0x232a=border (take the lower nybble)
120 55b0a77af602 Clean up the format import code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 117 diff changeset	250 if (fdata.length < 9006) {
49 2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	251 return false;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	252 }
120 55b0a77af602 Clean up the format import code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 117 diff changeset	253 if (fdata.length >= 0x232a) {
55b0a77af602 Clean up the format import code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 117 diff changeset	254 g_map[0] = byte(fdata[0x232a] & 0x0f);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	255 }
49 2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	256 for (y = 0; y < 25; y++)
2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	257 for (x = 0; x < 40; x++)
2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	258 for (y2 = 0; y2 <= 7; y2++)
2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	259 {
2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	260 head = 2 + x * 8 + y * (40 * 8) + y2;
2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	261 ad = 1024 + x * 8 + y * (320 * 8) + y2 * 320;
120 55b0a77af602 Clean up the format import code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 117 diff changeset	262 mpCopyByte(fdata, ad, head);
55b0a77af602 Clean up the format import code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 117 diff changeset	263 p1 = fdata[0x1f42 + x + y * 40] & 0x0f;
55b0a77af602 Clean up the format import code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 117 diff changeset	264 p2 = fdata[0x1f42 + x + y * 40] & 0xf0;
49 2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	265 p2 = p2 >> 4;
2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	266 g_map[65536 + x + y * 40 * 8 + y2 * 40] = byte(p2);
2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	267 g_map[65536 + MX * MY * 8 + x + y * 40 * 8 + y2 * 40] = byte(p1);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	268 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	269 }
85 db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	270 else
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	271 if (machine == PLUS4) { // Botticelli
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	272 //g.hires.prg = botticelli
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	273 //2 - luminance 40*25
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	274 //1026 - colors 40*25
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	275 //2050 - bitmappi 40258
120 55b0a77af602 Clean up the format import code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 117 diff changeset	276 if (fdata.length < 10050) {
49 2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	277 return false;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	278 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	279 int l1, l2;
85 db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	280 for (y = 0; y < 25; y++)
db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	281 for (x = 0; x < 40; x++)
db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	282 for (y2 = 0; y2 <= 7; y2++)
db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	283 {
db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	284 head = 2050 + x * 8 + y * (40 * 8) + y2;
db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	285 ad = 1024 + x * 8 + y * (320 * 8) + y2 * 320;
120 55b0a77af602 Clean up the format import code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 117 diff changeset	286 mpCopyByte(fdata, ad, head);
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	287
120 55b0a77af602 Clean up the format import code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 117 diff changeset	288 p1 = fdata[1026 + x + y * 40] & 0x0f;
55b0a77af602 Clean up the format import code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 117 diff changeset	289 p2 = fdata[1026 + x + y * 40] & 0xf0;
85 db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	290 p2 = p2 >> 4;
120 55b0a77af602 Clean up the format import code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 117 diff changeset	291 l1 = fdata[2 + x + y * 40] & 0x0f;
55b0a77af602 Clean up the format import code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 117 diff changeset	292 l2 = fdata[2 + x + y * 40] & 0xf0;
85 db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	293 l2 = l2 >> 4;
db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	294 g_map[65536 + x + y * 40 * 8 + y2 * 40] = byte(convertluminance(l1, p2));
db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	295 g_map[65536 + MX * MY * 8 + x + y * 40 * 8 + y2 * 40] = byte(convertluminance(l2, p1));
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	296 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	297 }
85 db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	298 else
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	299 if (machine == PLUS4M) { // Multi Botticelli
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	300 //m.multi.prg = multi botticelli
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	301 //2- lumins 40*25
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	302 //1024 - bäkki1
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	303 //1025 - bäkki2
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	304 //1026 - colors 40*25
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	305 //2050 - bitmap 40258
120 55b0a77af602 Clean up the format import code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 117 diff changeset	306 if (fdata.length < 10050) {
49 2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	307 return false;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	308 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	309 int l1, l2;
85 db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	310 for (y = 0; y < 25; y++)
db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	311 for (x = 0; x < 40; x++)
db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	312 for (y2 = 0; y2 <= 7; y2++)
db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	313 {
db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	314 head = 2050 + x * 8 + y * (40 * 8) + y2;
db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	315 ad = 1024 + x * 8 + y * (320 * 8) + y2 * 320;
120 55b0a77af602 Clean up the format import code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 117 diff changeset	316 mpCopyByte(fdata, ad, head);
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	317
120 55b0a77af602 Clean up the format import code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 117 diff changeset	318 p1 = fdata[1026 + x + y * 40] & 0x0f;
55b0a77af602 Clean up the format import code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 117 diff changeset	319 p2 = fdata[1026 + x + y * 40] & 0xf0;
85 db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	320 p2 = p2 >> 4;
120 55b0a77af602 Clean up the format import code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 117 diff changeset	321 l1 = fdata[2 + x + y * 40] & 0x0f;
55b0a77af602 Clean up the format import code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 117 diff changeset	322 l2 = fdata[2 + x + y * 40] & 0xf0;
85 db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	323 l2 = l2 >> 4;
db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	324 g_map[65536 + x + y * 40 + 1000] = byte(convertluminance(l1, p2));
db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	325 g_map[65536 + x + y * 40 + 0000] = byte(convertluminance(l2, p1));
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	326 }
85 db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	327
120 55b0a77af602 Clean up the format import code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 117 diff changeset	328 p1 = int(fdata[1025]) & 0xf0;
55b0a77af602 Clean up the format import code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 117 diff changeset	329 l1 = int(fdata[1025]) & 0x0f;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	330 p1 = p1 >> 4;
85 db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	331 g_map[1] = byte(convertluminance(l1, p1));
120 55b0a77af602 Clean up the format import code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 117 diff changeset	332 p1 = int(fdata[1024]) & 0xf0;
55b0a77af602 Clean up the format import code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 117 diff changeset	333 l1 = int(fdata[1024]) & 0x0f;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	334 p1 = p1 >> 4;
85 db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	335 g_map[2] = byte(convertluminance(l1, p1));
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	336 }
85 db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	337 else
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	338 if (machine == C64M) { //advanced art studio
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	339 //adv. art studio (=multicolor) 10018 bytes
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	340 //0x0002 bitmap (40258)
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	341 //0x1f42 colors1 (40*25)
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	342 //0x232a border
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	343 //0x232b background
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	344 //0x233a colors2 (40*25)
120 55b0a77af602 Clean up the format import code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 117 diff changeset	345 if (fdata.length < 10018) {
49 2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	346 return false;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	347 }
85 db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	348 for (y = 0; y < 25; y++)
db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	349 for (x = 0; x < 40; x++)
db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	350 for (y2 = 0; y2 < 8; y2++)
db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	351 {
db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	352 ad = 1024 + x * 8 + y * (320 * 8) + y2 * 320;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	353
85 db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	354 head = 2 + x * 8 + y * (40 * 8) + y2;
120 55b0a77af602 Clean up the format import code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 117 diff changeset	355 mpCopyByte(fdata, ad, head);
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	356
120 55b0a77af602 Clean up the format import code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 117 diff changeset	357 p1 = fdata[0x1f42 + x + y * 40] & 0x0f;
55b0a77af602 Clean up the format import code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 117 diff changeset	358 p2 = (fdata[0x1f42 + x + y * 40] >> 4) & 0x0f;
55b0a77af602 Clean up the format import code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 117 diff changeset	359 p3 = fdata[0x233a + x + y * 40] & 0x0f;
85 db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	360
db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	361 g_map[65536 + x + y * 40] = byte(p1);
db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	362 g_map[65536 + x + y * 40 + 1000] = byte(p2);
db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	363 g_map[65536 + x + y * 40 + 2000] = byte(p3);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	364 }
120 55b0a77af602 Clean up the format import code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 117 diff changeset	365 g_map[0] = byte(fdata[0x232a] & 0x0f); //bord
55b0a77af602 Clean up the format import code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 117 diff changeset	366 g_map[1] = byte(fdata[0x232b] & 0x0f); //baku
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	367 }
85 db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	368 else
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	369 if (machine == MSX) { // sc2
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	370 // 7=bitmap 32248
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	371 // 7+(32248)=colormap 32*24
120 55b0a77af602 Clean up the format import code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 117 diff changeset	372 if (fdata.length < 14343) {
49 2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	373 return false;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	374 }
85 db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	375 for (y = 0; y < 24; y++)
db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	376 for (x = 0; x < 32; x++)
db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	377 for (y2 = 0; y2 <= 7; y2++)
db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	378 {
db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	379 head = 7 + x * 8 + y * (32 * 8) + y2;
db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	380 ad = 1024 + x * 8 + y * (256 * 8) + y2 * 256;
120 55b0a77af602 Clean up the format import code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 117 diff changeset	381 mpCopyByte(fdata, ad, head);
55b0a77af602 Clean up the format import code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 117 diff changeset	382 p1 = fdata[(8199) + x * 8 + ((y * 8 * 32) + y2)] & 0x0f;
55b0a77af602 Clean up the format import code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 117 diff changeset	383 p2 = fdata[(8199) + x * 8 + ((y * 8 * 32) + y2)] & 0xf0;
85 db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	384 p2 = p2 >> 4;
db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	385 if (p1 == 0) {
db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	386 p1 = 1;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	387 }
85 db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	388 if (p2 == 0) {
db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	389 p2 = 1;
db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	390 }
db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	391 g_map[65536 + x + y * 32 * 8 + y2 * 32] = byte(p2);
db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	392 g_map[65536 + MX * MY * 8 + x + y * 32 * 8 + y2 * 32] = byte(p1);
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	393 }
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	394 }
85 db97aef4e159 Clean up mpImportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 84 diff changeset	395 else
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	396 if (machine == CPC) { // a studio?
49 2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	397 return false;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	398 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	399
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	400 consistency();
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	401 refresh();
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	402 g_boxreconstruct = 2;
49 2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	403 return true;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	404 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	405
49 2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	406
126 d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	407 boolean mpExportFormat(MPWriteCtx ctx, int subformat)
49 2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	408 {
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	409 int val1, val2, val3;
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	410 int y, y2, yy, x, yp, xp, ad, valu, valu2, bri;
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	411
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	412 if (machine == PLUS4) { // botticelli hires
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	413 ctx.loadTemplate("g.hires.prg");
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	414
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	415 ctx.setOffs(0x02);
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	416 mpExportColorData(ctx, 40, 25, 65536, 5); //lumis
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	417
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	418 ctx.setOffs(1026);
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	419 mpExportColorData(ctx, 40, 25, 65536, 4); //colors
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	420
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	421 ctx.setOffs(2050);
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	422 mpExportBitmapData(ctx, 40, 25);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	423 }
49 2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	424 else
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	425 if (machine == PLUS4M) { // multi botticelli multicolor
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	426 ctx.loadTemplate("m.multi.prg");
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	427
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	428 val2 = getpluscolor(int(g_map[1]));
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	429 val1 = getplusluminance(int(g_map[1]));
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	430 val3 = val2 * 16 + val1;
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	431 ctx.writeByteAt(1025, val3);
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	432
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	433 val2 = getpluscolor(int(g_map[2]));
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	434 val1 = getplusluminance(int(g_map[2]));
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	435 val3 = val2 * 16 + val1;
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	436 ctx.writeByteAt(1024, val3);
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	437
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	438 ctx.setOffs(1026);
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	439 mpExportColorData(ctx, 40, 25, 65536, 6); //colors
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	440
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	441 ctx.setOffs(2);
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	442 mpExportColorData(ctx, 40, 25, 65536, 7); //lumis
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	443
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	444 ctx.setOffs(2050);
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	445 mpExportBitmapData(ctx, 40, 25);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	446 }
49 2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	447 else
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	448 if (machine == C64) {
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	449 ctx.loadTemplate("hires.art");
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	450
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	451 ctx.setOffs(2);
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	452 mpExportBitmapData(ctx, 40, 25);
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	453
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	454 ctx.setOffs(0x1f42);
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	455 mpExportColorData(ctx, 40, 25, 65536, 0);
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	456
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	457 ctx.writeByteAt(0x232a, g_map[0]);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	458 }
49 2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	459 else
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	460 if (machine == C64M) {
90 dffafe05d520 Refactor mpExportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 88 diff changeset	461 if (subformat == 0)
dffafe05d520 Refactor mpExportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 88 diff changeset	462 {
dffafe05d520 Refactor mpExportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 88 diff changeset	463 // Advanced Art Studio
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	464 ctx.loadTemplate("multic.ocp");
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	465
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	466 ctx.setOffs(2);
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	467 mpExportBitmapData(ctx, 40, 25);
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	468
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	469 ctx.setOffs(0x1f42);
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	470 mpExportColorData(ctx, 40, 25, 65536, 1);
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	471
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	472 ctx.setOffs(0x233a);
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	473 mpExportColorData(ctx, 40, 25, 65536 + 2000, 2);
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	474
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	475 ctx.writeByteAt(0x232a, g_map[0]);
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	476 ctx.writeByteAt(0x232b, g_map[1]);
90 dffafe05d520 Refactor mpExportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 88 diff changeset	477 }
dffafe05d520 Refactor mpExportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 88 diff changeset	478 else
49 2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	479 {
2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	480 // Koala Painter
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	481 ctx.loadTemplate("multic.kla");
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	482
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	483 ctx.setOffs(2);
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	484 mpExportBitmapData(ctx, 40, 25);
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	485
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	486 ctx.setOffs(0x1f42);
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	487 mpExportColorData(ctx, 40, 25, 65536, 1);
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	488
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	489 ctx.setOffs(0x232a);
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	490 mpExportColorData(ctx, 40, 25, 65536 + 2000, 2);
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	491
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	492 ctx.writeByteAt(0x2712, g_map[1] & 0x0f);
49 2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	493 }
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	494 }
49 2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	495 else
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	496 if (machine == MSX) {
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	497 ctx.loadTemplate("msx-screen2.sc2");
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	498
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	499 ctx.setOffs(7);
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	500 mpExportBitmapData(ctx, 32, 24);
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	501
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	502 ctx.setOffs(7 + (32 * 24 * 8) + 768 + 1280);
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	503 mpExportColorData(ctx, 32, 24, 65536, 3); //there's an exception for msx-style
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	504 }
49 2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	505 else
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	506 if (machine == SPECTRUM) {
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	507 ctx.loadTemplate("zx-screen.scr");
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	508
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	509 ctx.setOffs(0);
49 2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	510 for (y = 0; y < 3; y++)
2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	511 for (y2 = 0; y2 < 8; y2++)
2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	512 for (yy = 0; yy < 8; yy++)
2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	513 for (x = 0; x < 32; x++)
2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	514 {
2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	515 yp = y * 64 + yy * 8 + y2;
2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	516 ad = 1024 + yp * 256 + x * 8;
2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	517
2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	518 valu = g_map[ad + 0] * 128 +
2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	519 g_map[ad + 1] * 64 +
2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	520 g_map[ad + 2] * 32 +
2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	521 g_map[ad + 3] * 16 +
2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	522 g_map[ad + 4] * 8 +
2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	523 g_map[ad + 5] * 4 +
2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	524 g_map[ad + 6] * 2 +
2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	525 g_map[ad + 7] * 1;
2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	526
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	527 ctx.writeByte(valu);
49 2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	528 }
2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	529
2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	530 for (y = 0; y < 24; y++)
90 dffafe05d520 Refactor mpExportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 88 diff changeset	531 for (x = 0; x <= 31; x++)
dffafe05d520 Refactor mpExportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 88 diff changeset	532 {
49 2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	533 ad = 65536 + x + y * 256;
2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	534 valu = int(g_map[ad]);
2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	535 valu2 = int(g_map[ad + MX * MY * 8]);
2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	536 bri = 0;
2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	537 if (valu >= 8) {
2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	538 bri = 1;
2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	539 valu = valu - 8;
2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	540 valu2 = valu2 - 8;
2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	541 if (valu2 <= 0) {
2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	542 valu2 = 0;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	543 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	544 }
49 2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	545 if (bri == 1) {
2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	546 valu += 64;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	547 }
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	548 ctx.writeByte(valu + valu2 * 8);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	549 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	550 }
90 dffafe05d520 Refactor mpExportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 88 diff changeset	551 else
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	552 return false;
90 dffafe05d520 Refactor mpExportFormat() a bit. Matti Hamalainen <ccr@tnsp.org> parents: 88 diff changeset	553
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	554 return true;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	555 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	556
49 2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	557
126 d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	558 boolean mpExportMachinePRG(MPWriteCtx ctx)
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	559 {
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	560 // any common text headers
125 c210b2e2cb47 Rename some methods. Matti Hamalainen <ccr@tnsp.org> parents: 124 diff changeset	561 ctx.addComment("machine=" + str(machine) + " (" + g_name + ")");
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	562
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	563 if (machine == C64) { //C64 HIRES
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	564 ctx.loadTemplate("c64show.prg");
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	565
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	566 ctx.setOffs(0x0227);
125 c210b2e2cb47 Rename some methods. Matti Hamalainen <ccr@tnsp.org> parents: 124 diff changeset	567 ctx.addLabel("_bitmap");
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	568 mpExportBitmapData(ctx, 40, 25);
95 517348a7b543 More work on mpExportMachinePRG(). Matti Hamalainen <ccr@tnsp.org> parents: 94 diff changeset	569
126 d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	570 ctx.writeByteAt(0x2167, g_map[0], "_border"); //=border
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	571 ctx.writeByteAt(0x2168, g_map[1], "_backg"); //=background mutta ei tarvita
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	572
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	573 ctx.setOffs(0x2169);
126 d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	574 ctx.addLabel("_screenram");
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	575 mpExportColorData(ctx, 40, 25, 65536, 0);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	576
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	577 //c64show.prg
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	578 //offsets
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	579 //0x0227->bitmappi (40x25 x 8 bytee)
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	580 //0x2167:borderi väri
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	581 //0x2169->värikartta (40x25 bytee, nyppelit foreg/backg)
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	582 }
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	583 else
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	584 if (machine == C64M) { //C64 MULTICOLOR
126 d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	585 ctx.loadTemplate("c64mshow.prg");
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	586
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	587 ctx.setOffs(0x0239);
126 d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	588 ctx.addLabel("_bitmap");
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	589 mpExportBitmapData(ctx, 40, 25);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	590
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	591 // first color information
126 d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	592 ctx.writeByteAt(0x2179, g_map[0], "_border");
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	593 ctx.writeByteAt(0x217a, g_map[1], "_backg");
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	594
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	595 ctx.setOffs(0x217B);
126 d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	596 ctx.addLabel("_screenram");
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	597 mpExportColorData(ctx, 40, 25, 65536, 1);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	598
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	599 // second color information
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	600 ctx.setOffs(0x2563);
126 d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	601 ctx.addLabel("_colorram");
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	602 mpExportColorData(ctx, 40, 25, 65536 + 2000, 2);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	603
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	604 //c64 multicolor
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	605 //offsets
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	606 //0x0239->bitmappi (40x25 x 8 bytee)
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	607 //0x2179:borderi väri
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	608 //0x217A:bäkkis väri
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	609 //0x217B->värikartta 1 (40x25 bytee, nyppelit foreg/backg ilmeisesti)
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	610 //0x2563->värikartta 2 (40x25 bytee, nyppeli 3-väri nepan osoitteessa $d800-)
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	611 }
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	612 else
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	613 if (machine == PLUS4M) { //PLUS4 MULTICOLOR
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	614 ctx.loadTemplate("showpfourm.prg");
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	615
127 4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	616 ctx.addLine(".global @@_bitmap");
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	617 ctx.addLine(".global @@_color1");
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	618 ctx.addLine(".global @@_color2");
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	619 ctx.addLine(".global @@_border");
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	620 ctx.addLine(".global @@_back1");
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	621 ctx.addLine(".global @@_back2");
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	622
125 c210b2e2cb47 Rename some methods. Matti Hamalainen <ccr@tnsp.org> parents: 124 diff changeset	623 ctx.addLabel("_bitmap");
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	624 ctx.setOffs(0x013e);
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	625 mpExportBitmapData(ctx, 40, 25);
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	626
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	627 val1 = getpluscolor(int(g_map[0]));
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	628 val2 = getplusluminance(int(g_map[0]));
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	629 val3 = val2 * 16 + val1;
125 c210b2e2cb47 Rename some methods. Matti Hamalainen <ccr@tnsp.org> parents: 124 diff changeset	630 ctx.addLabel("_border");
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	631 ctx.setOffs(0x207e);
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	632 ctx.writeByte(val3);
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	633
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	634 val1 = getpluscolor(int(g_map[1]));
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	635 val2 = getplusluminance(int(g_map[1]));
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	636 val3 = val2 * 16 + val1;
125 c210b2e2cb47 Rename some methods. Matti Hamalainen <ccr@tnsp.org> parents: 124 diff changeset	637 ctx.addLabel("_back1");
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	638 ctx.setOffs(0x207f);
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	639 ctx.writeByte(val3);
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	640
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	641 val1 = getpluscolor(int(g_map[2]));
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	642 val2 = getplusluminance(int(g_map[2]));
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	643 val3 = val2 * 16 + val1;
125 c210b2e2cb47 Rename some methods. Matti Hamalainen <ccr@tnsp.org> parents: 124 diff changeset	644 ctx.addLabel("_back2");
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	645 ctx.setOffs(0x2080);
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	646 ctx.writeByte(val3);
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	647
125 c210b2e2cb47 Rename some methods. Matti Hamalainen <ccr@tnsp.org> parents: 124 diff changeset	648 ctx.addLabel("_color1");
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	649 ctx.setOffs(0x2081);
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	650 mpExportColorData(ctx, 40, 25, 65536, 6);
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	651
125 c210b2e2cb47 Rename some methods. Matti Hamalainen <ccr@tnsp.org> parents: 124 diff changeset	652 ctx.addLabel("_color2");
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	653 ctx.setOffs(0x2469);
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	654 mpExportColorData(ctx, 40, 25, 65536, 7);
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	655
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	656 //plus4 multic
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	657 //0x013e bitmap (40 x 25 x 8)
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	658 //0x207e border
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	659 //0x207f background 1
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	660 //0x2080 background 2
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	661 //0x2081 colors (40 x 25)
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	662 //0x2469 luminance (40 x 25)
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	663 }
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	664 else
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	665 if (machine == PLUS4) { // Plus 4 hires
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	666 ctx.loadTemplate("showpfour.prg");
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	667
127 4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	668 ctx.addLine(".global @@_bitmap");
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	669 ctx.addLine(".global @@_color");
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	670 ctx.addLine(".global @@_lumi");
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	671 ctx.addLine(".global @@_border");
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	672
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	673 ctx.setOffs(0x0137);
127 4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	674 ctx.addLabel("_bitmap");
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	675 mpExportBitmapData(ctx, 40, 25);
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	676
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	677 val1 = getpluscolor(int(g_map[0]));
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	678 val2 = getplusluminance(int(g_map[0]));
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	679 val3 = val2 * 16 + val1;
127 4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	680 ctx.writeByteAt(0x2077, val3, "_border"); //border
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	681
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	682 ctx.setOffs(0x2078);
127 4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	683 ctx.addLabel("_color");
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	684 mpExportColorData(ctx, 40, 25, 65536, 4); //colors
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	685
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	686 ctx.setOffs(0x2460);
127 4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	687 ctx.addLabel("_lumi");
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	688 mpExportColorData(ctx, 40, 25, 65536, 5); //lumis
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	689
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	690 //plus4 hires
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	691 //0x0137 bitmap (40 x 25 x 8)
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	692 //0x2077 borderi
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	693 //0x2078 colors (40 x 25)
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	694 //0x2460 luminance (40 x 25)
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	695 }
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	696 else
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	697 if (machine == MSX) { // MSX
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	698 ctx.loadTemplate("msxshow.com");
126 d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	699
127 4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	700 ctx.addLine(".globl @@_bitmap,@@_nimi2");
125 c210b2e2cb47 Rename some methods. Matti Hamalainen <ccr@tnsp.org> parents: 124 diff changeset	701 ctx.addLine(".area _CODE");
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	702
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	703 ctx.setOffs(0x00f9);
125 c210b2e2cb47 Rename some methods. Matti Hamalainen <ccr@tnsp.org> parents: 124 diff changeset	704 ctx.addLabel("_bitmap");
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	705 mpExportBitmapData(ctx, 32, 24);
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	706
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	707
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	708 //ctx.writeByte(g_map[1]); //backg
125 c210b2e2cb47 Rename some methods. Matti Hamalainen <ccr@tnsp.org> parents: 124 diff changeset	709 //ctx.addComment("The first following value is background");
c210b2e2cb47 Rename some methods. Matti Hamalainen <ccr@tnsp.org> parents: 124 diff changeset	710 ctx.addLabel("_nimi2");
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	711 ctx.setOffs(0x18f9);
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	712 mpExportColorData(ctx, 32, 24, 65536, 3); //there's an exception for msx-style
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	713
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	714 //msx comm
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	715 //0x00f9 bitmap (32x24 x 8 bytes)
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	716 //0x18f9 background color
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	717 //0x18fa colors (32*24 bytes)
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	718 }
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	719 else
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	720 if (machine == SPECTRUM) { // ZX Spectrum
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	721
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	722 //would need some cleaning up
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	723
126 d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	724 // ctx.addLine(".area _DATA");
127 4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	725 // ctx.addLine(".globl @@_taustakuva");
125 c210b2e2cb47 Rename some methods. Matti Hamalainen <ccr@tnsp.org> parents: 124 diff changeset	726 // ctx.addLabel("_taustakuva");
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	727 ctx.loadTemplate("specshow.tap");
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	728
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	729 int checksum = 0xc9;
127 4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	730 for (y = 0x1d24; y < 0x1d3e; y++)
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	731 {
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	732 checksum = checksum ^ int(g_template[y]);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	733 }
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	734
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	735 //TAP requires fiddling with the checksum
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	736 //println("Checksum:"+hex(checksum,2));
127 4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	737 ctx.writeByteAt(0x0223, g_map[0], "_something1");
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	738 checksum = checksum ^ int(g_map[0]);
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	739
127 4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	740 ctx.addLabel("_something2");
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	741 ctx.setBPL(32);
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	742 for (int y = 0; y <= 2; y++)
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	743 for (int y2 = 0; y2 < 8; y2++)
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	744 for (int yy = 0; yy < 8; yy++)
127 4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	745 for (int x = 0; x < 32; x++)
87 8dd5146c881f Indentation cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 86 diff changeset	746 {
127 4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	747 int yp = y * 64 + yy * 8 + y2,
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	748 ad = 1024 + yp * 256 + x * 8,
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	749 valu =
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	750 g_map[ad + 0] * 128 +
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	751 g_map[ad + 1] * 64 +
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	752 g_map[ad + 2] * 32 +
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	753 g_map[ad + 3] * 16 +
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	754 g_map[ad + 4] * 8 +
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	755 g_map[ad + 5] * 4 +
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	756 g_map[ad + 6] * 2 +
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	757 g_map[ad + 7] * 1;
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	758
127 4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	759 ctx.writeByte(valu);
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	760 checksum = checksum ^ int(valu);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	761 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	762
127 4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	763 ctx.addLabel("_attributes");
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	764 for (int y = 0; y < 24; y++)
127 4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	765 for (int x = 0; x < 32; x++)
87 8dd5146c881f Indentation cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 86 diff changeset	766 {
127 4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	767 int ad = 65536 + x + y * 256,
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	768 valu = int(g_map[ad]),
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	769 valu2 = int(g_map[ad + MX * MY * 8]),
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	770 bri = 0;
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	771
127 4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	772 if (valu >= 8)
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	773 {
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	774 bri = 1;
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	775 valu = valu - 8;
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	776 valu2 = valu2 - 8;
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	777 if (valu2 <= 0) {
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	778 valu2 = 0;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	779 }
127 4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	780 }
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	781 if (bri == 1) {
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	782 valu = valu + 64;
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	783 }
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	784
127 4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	785 ctx.writeByte(valu + valu2 * 8);
4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	786 checksum = checksum ^ int(valu + valu2 * 8);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	787 }
127 4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	788 ctx.setBPLOff();
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	789
127 4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	790 ctx.writeByteAt(0x1d3e, int(checksum), "_checksum");
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	791 }
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	792 else
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	793 if (machine == CPC) {
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	794 int val1, val2, val3, valu;
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	795 ctx.loadTemplate("cpc-mode0.bin");
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	796
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	797 ctx.setOffs(69); //bitmap offset
125 c210b2e2cb47 Rename some methods. Matti Hamalainen <ccr@tnsp.org> parents: 124 diff changeset	798 ctx.addLabel("_bitmap");
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	799 mpExportBitmapData_CPC(ctx, 160, 200);
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	800
87 8dd5146c881f Indentation cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 86 diff changeset	801 //fixed # of palette entries, just trying to be generic
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	802 ctx.setOffs(16453);
127 4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	803 ctx.setBPL(32);
125 c210b2e2cb47 Rename some methods. Matti Hamalainen <ccr@tnsp.org> parents: 124 diff changeset	804 ctx.addLabel("_palette");
87 8dd5146c881f Indentation cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 86 diff changeset	805 for (int i = 0; i < g_maxcolors; i++)
8dd5146c881f Indentation cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 86 diff changeset	806 {
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	807 val1 = int(g_g[i] / (256 / g_palsteps));
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	808 val2 = int(g_r[i] / (256 / g_palsteps));
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	809 val3 = int(g_b[i] / (256 / g_palsteps));
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	810
127 4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	811 ctx.writeByte(val1 * 9 + val2 * 3 + val3);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	812 }
126 d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	813 ctx.setBPLOff();
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	814
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	815 valu = int(g_map[0]);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	816 val1 = int(g_g[valu] / (256 / g_palsteps));
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	817 val2 = int(g_r[valu] / (256 / g_palsteps));
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	818 val3 = int(g_b[valu] / (256 / g_palsteps));
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	819
126 d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	820 ctx.setOffs(16469);
125 c210b2e2cb47 Rename some methods. Matti Hamalainen <ccr@tnsp.org> parents: 124 diff changeset	821 ctx.addLabel("_border");
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	822 ctx.writeByte(val1 * 9 + val2 * 3 + val3);
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	823
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	824 //cpc
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	825 //69 bitmap 16384 bytes
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	826 //16453 palette 16 bytes (0..26)
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	827 //16469 border color (0..26)
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	828 }
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	829 else
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	830 return false;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	831
127 4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	832 ctx.addEOL();
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	833 return true;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	834 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	835
86 6e5b619861c8 Rename two more functions. Matti Hamalainen <ccr@tnsp.org> parents: 85 diff changeset	836
129 146879c896b9 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 127 diff changeset	837 void mpExportBitmapData_CPC(MPWriteCtx ctx, int mwidth, int mheight)
86 6e5b619861c8 Rename two more functions. Matti Hamalainen <ccr@tnsp.org> parents: 85 diff changeset	838 {
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	839 int x, y, ad, val1, val2, y2;
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	840 int pix0b0, pix0b1, pix0b2, pix0b3;
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	841 int pix1b0, pix1b1, pix1b2, pix1b3;
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	842
127 4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	843 ctx.setBPL(32);
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	844
892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	845 for (y2 = 0; y2 < 8; y2++)
892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	846 {
127 4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	847 ctx.addByteDef(true);
126 d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	848
129 146879c896b9 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 127 diff changeset	849 for (y = 0; y < int(mheight / 8); y++)
146879c896b9 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 127 diff changeset	850 for (x = 0; x < int(mwidth / 2); x++)
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	851 {
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	852 ad = 1024 + (y * 8) * X + (y2 * X) + x * 4;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	853
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	854 val1 = int(g_map[ad]);
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	855 pix0b0 = 0;
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	856 pix0b1 = 0;
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	857 pix0b2 = 0;
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	858 pix0b3 = 0;
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	859 if ((val1 & 1) != 0) pix0b0 = 1;
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	860 if ((val1 & 2) != 0) pix0b1 = 1;
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	861 if ((val1 & 4) != 0) pix0b2 = 1;
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	862 if ((val1 & 8) != 0) pix0b3 = 1;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	863
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	864 val1 = int(g_map[ad + 2]);
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	865
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	866 pix1b0 = 0;
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	867 pix1b1 = 0;
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	868 pix1b2 = 0;
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	869 pix1b3 = 0;
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	870 if ((val1 & 1) != 0) pix1b0 = 1;
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	871 if ((val1 & 2) != 0) pix1b1 = 1;
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	872 if ((val1 & 4) != 0) pix1b2 = 1;
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	873 if ((val1 & 8) != 0) pix1b3 = 1;
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	874
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	875 val2 = pix1b3 + pix0b3 * 2 + pix1b1 * 4 + pix0b1 * 8 + pix1b2 * 16 + pix0b2 * 32 + pix1b0 * 64 + pix0b0 * 128;
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	876
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	877 ctx.writeByte(val2);
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	878 }
ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	879
127 4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	880 ctx.addByteDef(true);
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	881 for (int j = 0; j <= 47; j++)
122 ffa6533584ca Use the MPWriteCtx class. However, due to this refactoring, there are Matti Hamalainen <ccr@tnsp.org> parents: 121 diff changeset	882 ctx.writeByte(0);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	883 }
129 146879c896b9 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 127 diff changeset	884
126 d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	885 ctx.setBPLOff();
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	886 ctx.addEOL();
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	887 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	888
86 6e5b619861c8 Rename two more functions. Matti Hamalainen <ccr@tnsp.org> parents: 85 diff changeset	889
129 146879c896b9 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 127 diff changeset	890 void mpExportBitmapData(MPWriteCtx ctx, int mwidth, int mheight)
86 6e5b619861c8 Rename two more functions. Matti Hamalainen <ccr@tnsp.org> parents: 85 diff changeset	891 {
129 146879c896b9 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 127 diff changeset	892 int xwid = mwidth * 8,
146879c896b9 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 127 diff changeset	893 ywid = mheight * 8;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	894
126 d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	895 ctx.setBPL(32);
127 4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	896 ctx.addByteDef(true);
126 d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	897
129 146879c896b9 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 127 diff changeset	898 for (int y = 0; y < mheight; y++)
146879c896b9 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 127 diff changeset	899 for (int x = 0; x < mwidth; x++)
146879c896b9 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 127 diff changeset	900 for (int y2 = 0; y2 < 8; y2++)
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	901 {
129 146879c896b9 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 127 diff changeset	902 int ad = 1024 + y * (xwid * 8) + (y2 * xwid) + x * 8;
146879c896b9 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 127 diff changeset	903 int value =
146879c896b9 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 127 diff changeset	904 g_map[ad + 0] * 128 +
146879c896b9 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 127 diff changeset	905 g_map[ad + 1] * 64 +
146879c896b9 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 127 diff changeset	906 g_map[ad + 2] * 32 +
146879c896b9 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 127 diff changeset	907 g_map[ad + 3] * 16 +
146879c896b9 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 127 diff changeset	908 g_map[ad + 4] * 8 +
146879c896b9 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 127 diff changeset	909 g_map[ad + 5] * 4 +
146879c896b9 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 127 diff changeset	910 g_map[ad + 6] * 2 +
146879c896b9 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 127 diff changeset	911 g_map[ad + 7] * 1;
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	912
129 146879c896b9 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 127 diff changeset	913 ctx.writeByte(value);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	914 }
129 146879c896b9 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 127 diff changeset	915
126 d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	916 ctx.setBPLOff();
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	917 ctx.addEOL();
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	918 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	919
86 6e5b619861c8 Rename two more functions. Matti Hamalainen <ccr@tnsp.org> parents: 85 diff changeset	920
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	921 int convertluminance(int l, int f)
892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	922 {
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	923 int res = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	924 if (f == 0) return 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	925 if (l == 0) res = 0 + f;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	926 if (l == 1) res = 15 + f;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	927 if (l == 2) res = 30 + f;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	928 if (l == 3) res = 45 + f;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	929 if (l == 4) res = 60 + f;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	930 if (l == 5) res = 75 + f;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	931 if (l == 6) res = 90 + f;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	932 if (l == 7) res = 105 + f;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	933 return res;
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	934 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	935
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	936
892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	937 int getplusluminance(int c)
892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	938 {
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	939 int res = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	940 if (c == 0) res = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	941 if (c >= 1 && c <= 15) res = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	942 if (c >= 16 && c <= 30) res = 1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	943 if (c >= 31 && c <= 45) res = 2;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	944 if (c >= 46 && c <= 60) res = 3;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	945 if (c >= 61 && c <= 75) res = 4;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	946 if (c >= 76 && c <= 90) res = 5;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	947 if (c >= 91 && c <= 105) res = 6;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	948 if (c >= 106 && c <= 120) res = 7;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	949 return res;
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	950 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	951
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	952
892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	953 int getpluscolor(int c)
892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	954 {
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	955 int res = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	956 if (c == 0) res = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	957 if (c >= 1 && c <= 15) res = c;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	958 if (c >= 16 && c <= 30) res = c - 15;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	959 if (c >= 31 && c <= 45) res = c - 30;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	960 if (c >= 46 && c <= 60) res = c - 45;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	961 if (c >= 61 && c <= 75) res = c - 60;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	962 if (c >= 76 && c <= 90) res = c - 75;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	963 if (c >= 91 && c <= 105) res = c - 90;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	964 if (c >= 106 && c <= 120) res = c - 105;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	965 return res;
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	966 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	967
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	968
124 68e8d86c9eef Get rid of unused variables and clean up the logic slightly in mpExportColorData() Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	969 void mpExportColorData(MPWriteCtx ctx, int width, int height, int srcoffs, int param)
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	970 {
124 68e8d86c9eef Get rid of unused variables and clean up the logic slightly in mpExportColorData() Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	971 int xmult, myrpsi;
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	972
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	973 myrpsi = 0;
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	974
124 68e8d86c9eef Get rid of unused variables and clean up the logic slightly in mpExportColorData() Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	975 if (param == 0 \|\| param == 3 \|\| param == 4 \|\| param == 5)
68e8d86c9eef Get rid of unused variables and clean up the logic slightly in mpExportColorData() Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	976 xmult = width * 8;
68e8d86c9eef Get rid of unused variables and clean up the logic slightly in mpExportColorData() Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	977 else
68e8d86c9eef Get rid of unused variables and clean up the logic slightly in mpExportColorData() Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	978 xmult = width;
68e8d86c9eef Get rid of unused variables and clean up the logic slightly in mpExportColorData() Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	979
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	980 if (machine == MSX) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	981 myrpsi = 7;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	982 }
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	983
124 68e8d86c9eef Get rid of unused variables and clean up the logic slightly in mpExportColorData() Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	984 for (int yc = 0; yc < height; yc++)
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	985 {
127 4cebbee4b29b More work on source export. Matti Hamalainen <ccr@tnsp.org> parents: 126 diff changeset	986 ctx.addByteDef(true);
124 68e8d86c9eef Get rid of unused variables and clean up the logic slightly in mpExportColorData() Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	987 for (int xc = 0; xc < width; xc++)
68e8d86c9eef Get rid of unused variables and clean up the logic slightly in mpExportColorData() Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	988 for (int yline = 0; yline <= myrpsi; yline++)
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	989 {
124 68e8d86c9eef Get rid of unused variables and clean up the logic slightly in mpExportColorData() Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	990 int valu1, valu2, ad = srcoffs + xc + yc * xmult + yline * width;
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	991
892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	992 switch (param)
892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	993 {
892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	994 case 0:
124 68e8d86c9eef Get rid of unused variables and clean up the logic slightly in mpExportColorData() Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	995 valu1 = int(g_map[ad]);
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	996 valu2 = int(g_map[ad + MX * MY * 8]);
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	997 break;
892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	998
892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	999 case 1:
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1000 valu2 = int(g_map[ad]);
124 68e8d86c9eef Get rid of unused variables and clean up the logic slightly in mpExportColorData() Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	1001 valu1 = int(g_map[ad + 1000]);
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	1002 break;
892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	1003
892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	1004 case 2:
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1005 valu2 = int(g_map[ad]);
124 68e8d86c9eef Get rid of unused variables and clean up the logic slightly in mpExportColorData() Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	1006 valu1 = 0;
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	1007 break;
892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	1008
892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	1009 case 3:
124 68e8d86c9eef Get rid of unused variables and clean up the logic slightly in mpExportColorData() Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	1010 valu1 = int(g_map[ad]);
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1011 valu2 = int(g_map[ad + MX * MY * 8]);
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	1012 break;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1013
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	1014 case 4:
892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	1015 //plus4 colortable
124 68e8d86c9eef Get rid of unused variables and clean up the logic slightly in mpExportColorData() Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	1016 valu1 = getpluscolor(int(g_map[ad]));
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	1017 valu2 = getpluscolor(int(g_map[ad + MX * MY * 8]));
892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	1018 break;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1019
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	1020 case 5:
892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	1021 //plus4 lumitable
124 68e8d86c9eef Get rid of unused variables and clean up the logic slightly in mpExportColorData() Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	1022 valu1 = getplusluminance(int(g_map[ad + MX * MY * 8]));
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	1023 valu2 = getplusluminance(int(g_map[ad]));
892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	1024 break;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1025
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	1026 case 6:
892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	1027 //plus4 multic1
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1028 valu2 = getpluscolor(int(g_map[ad]));
124 68e8d86c9eef Get rid of unused variables and clean up the logic slightly in mpExportColorData() Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	1029 valu1 = getpluscolor(int(g_map[ad + 1000]));
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	1030 break;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1031
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	1032 case 7:
892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	1033 //plus4 multic2
124 68e8d86c9eef Get rid of unused variables and clean up the logic slightly in mpExportColorData() Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	1034 valu1 = getplusluminance(int(g_map[ad]));
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1035 valu2 = getplusluminance(int(g_map[ad + 1000]));
91 892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	1036 break;
892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	1037
892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	1038 default:
892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	1039 return null;
892a06169bb5 Refactor machine program and source exporting. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	1040 }
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1041
124 68e8d86c9eef Get rid of unused variables and clean up the logic slightly in mpExportColorData() Matti Hamalainen <ccr@tnsp.org> parents: 122 diff changeset	1042 ctx.writeByte(valu1 * 16 + valu2);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1043 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1044 }
126 d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	1045 ctx.addEOL();
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1046 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1047
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1048
117 44a07b1c620d Rename 'bool' -> 'boolean'. Matti Hamalainen <ccr@tnsp.org> parents: 95 diff changeset	1049 boolean mpImportFromImage(PImage image)
92 4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1050 {
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1051 if (image == null)
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1052 return false;
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1053
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1054 if (image.width <= 16 \|\| image.height <= 16)
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1055 return false;
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1056
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1057 int balx, baly, xx, yy, x2, y2, rr, gg, bb, avg, molox, i, j, target;
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1058 int cx, cy;
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1059 int aas, bbs, swap, idefix, avx, avy;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1060 int[] pixut = new int[260];
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1061 int[] idx = new int[260];
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1062 int[] histog = new int[8192];
14 cecc594d1559 Remove unused code and variables. Matti Hamalainen <ccr@tnsp.org> parents: 12 diff changeset	1063 float ww, hh, fld, compa;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1064 color c;
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1065 int xcolors, limitter, vertti, erkki;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1066 int rh, gh, bh;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1067
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1068 xcolors = g_maxcolors;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1069 vertti = 8;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1070 erkki = 1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1071 limitter = 2;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1072 if (g_britemode == 1) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1073 xcolors = 8;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1074 }
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1075 if (g_attrimode == 0) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1076 vertti = 1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1077 erkki = 8;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1078 }
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1079 if (g_multic == 1) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1080 limitter = 4;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1081 } //because zero color can be anywhere?
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1082 if (g_multic == 2) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1083 limitter = 16;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1084 }
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1085 molox = 1;
6 07ddf9cfc6c2 Cast char to int where needed and other related operations. Matti Hamalainen <ccr@tnsp.org> parents: 5 diff changeset	1086 command(int('O')); //special clear screen
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1087 if (g_multic == 1 \|\| g_hzoomer == 2) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1088 molox = 2;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1089 }
92 4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1090
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1091 balx = int(image.width / X) * molox;
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1092 baly = int(image.height / Y);
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1093 if (balx < 1) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1094 balx = 1;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1095 }
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1096 if (baly < 1) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1097 baly = 1;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1098 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1099
92 4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1100 if (g_palsteps > 0)
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1101 {
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1102 for (i = 0; i < g_maxcolors; i++) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1103 makecolor(i, 0, 0, 0);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1104 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1105
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1106 int maxhis, palls, psteps;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1107 psteps = int(g_palsteps - 1);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1108 maxhis = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1109 palls = int(255 / psteps);
87 8dd5146c881f Indentation cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 86 diff changeset	1110
8dd5146c881f Indentation cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 86 diff changeset	1111 for (cy = 0; cy < MY * erkki; cy++)
8dd5146c881f Indentation cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 86 diff changeset	1112 for (cx = 0; cx < MX; cx++)
8dd5146c881f Indentation cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 86 diff changeset	1113 for (yy = cy * vertti; yy <= cy * vertti + vertti - 1; yy++)
8dd5146c881f Indentation cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 86 diff changeset	1114 for (xx = cx * 8; xx <= cx * 8 + 7; xx = xx + molox)
8dd5146c881f Indentation cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 86 diff changeset	1115 {
92 4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1116 x2 = int(image.width / X) * xx;
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1117 y2 = int(image.height / Y) * yy;
87 8dd5146c881f Indentation cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 86 diff changeset	1118 rr = 0;
8dd5146c881f Indentation cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 86 diff changeset	1119 gg = 0;
8dd5146c881f Indentation cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 86 diff changeset	1120 bb = 0;
8dd5146c881f Indentation cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 86 diff changeset	1121 avg = 0;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1122
92 4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1123 for (avy = 0; avy < baly; avy++) {
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1124 for (avx = 0; avx < balx; avx++) {
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1125 c = image.get(x2 + avx, y2 + avy);
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1126 rr = rr + int(red(c));
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1127 gg = gg + int(green(c));
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1128 bb = bb + int(blue(c));
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1129 avg++;
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1130 }
87 8dd5146c881f Indentation cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 86 diff changeset	1131 }
8dd5146c881f Indentation cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 86 diff changeset	1132
8dd5146c881f Indentation cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 86 diff changeset	1133 rh = rr / (avg);
8dd5146c881f Indentation cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 86 diff changeset	1134 gh = gg / (avg);
8dd5146c881f Indentation cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 86 diff changeset	1135 bh = bb / (avg);
92 4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1136
87 8dd5146c881f Indentation cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 86 diff changeset	1137 rh = int(rh) / palls;
8dd5146c881f Indentation cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 86 diff changeset	1138 gh = int(gh) / palls;
8dd5146c881f Indentation cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 86 diff changeset	1139 bh = int(bh) / palls;
8dd5146c881f Indentation cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 86 diff changeset	1140 histog[int(rh * (g_palsteps * g_palsteps) + gh * (g_palsteps) + bh)]++;
92 4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1141
87 8dd5146c881f Indentation cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 86 diff changeset	1142 if (histog[int(rh * (g_palsteps * g_palsteps) + gh * (g_palsteps) + bh)] > maxhis) {
8dd5146c881f Indentation cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 86 diff changeset	1143 maxhis = histog[int(rh * (g_palsteps * g_palsteps) + gh * (g_palsteps) + bh)];
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1144 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1145 }
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1146
92 4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1147 int step = 0;
87 8dd5146c881f Indentation cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 86 diff changeset	1148 for (j = maxhis; j > 0; j--)
8dd5146c881f Indentation cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 86 diff changeset	1149 for (i = 0; i <= 4096; i++)
8dd5146c881f Indentation cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 86 diff changeset	1150 {
92 4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1151 if (histog[i] == j)
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1152 {
87 8dd5146c881f Indentation cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 86 diff changeset	1153 rh = i / int(g_palsteps * g_palsteps);
8dd5146c881f Indentation cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 86 diff changeset	1154 gh = i - int(rh * (g_palsteps * g_palsteps));
8dd5146c881f Indentation cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 86 diff changeset	1155 gh = gh / int(g_palsteps);
8dd5146c881f Indentation cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 86 diff changeset	1156 bh = i - int(rh * (g_palsteps * g_palsteps));
8dd5146c881f Indentation cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 86 diff changeset	1157 bh = bh - int(gh * g_palsteps);
8dd5146c881f Indentation cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 86 diff changeset	1158 rh = rh * int(palls);
8dd5146c881f Indentation cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 86 diff changeset	1159 gh = gh * int(palls);
8dd5146c881f Indentation cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 86 diff changeset	1160 bh = bh * int(palls);
8dd5146c881f Indentation cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 86 diff changeset	1161 if (step < g_maxcolors) {
8dd5146c881f Indentation cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 86 diff changeset	1162 makecolor(step, rh, gh, bh);
8dd5146c881f Indentation cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 86 diff changeset	1163 step++;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1164 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1165 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1166 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1167 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1168
92 4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1169 for (cy = 0; cy < MY * erkki; cy++)
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1170 for (cx = 0; cx < MX; cx++) {
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1171 for (i = 0; i < xcolors; i++) {
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1172 pixut[i] = 0;
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1173 idx[i] = i;
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1174 }
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1175 for (yy = cy * vertti; yy <= cy * vertti + vertti - 1; yy++) {
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1176 for (xx = cx * 8; xx <= cx * 8 + 7; xx = xx + molox) {
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1177 x2 = int(image.width / X) * xx;
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1178 y2 = int(image.height / Y) * yy;
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1179 rr = 0;
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1180 gg = 0;
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1181 bb = 0;
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1182 avg = 0;
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1183 for (avy = 0; avy < baly; avy++) {
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1184 for (avx = 0; avx < balx; avx++) {
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1185 c = image.get(x2 + avx, y2 + avy);
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1186 rr = rr + int(red(c));
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1187 gg = gg + int(green(c));
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1188 bb = bb + int(blue(c));
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1189 avg++;
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1190 }
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1191 }
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1192 rr = rr / (avg);
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1193 gg = gg / (avg);
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1194 bb = bb / (avg);
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1195 g_farge = 0;
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1196 target = -1;
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1197 compa = 9999;
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1198 for (i = 0; i < xcolors; i++) {
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1199 fld = dist(rr, gg, bb, g_r[i], g_g[i], g_b[i]);
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1200 if (fld < compa) {
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1201 compa = fld;
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1202 target = i;
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1203 }
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1204 }
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1205
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1206 g_farge = target;
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1207 pixut[target]++; //histogramming
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1208 }
92 4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1209 }
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1210
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1211 for (aas = 0; aas < xcolors; aas++)
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1212 for (bbs = 0; bbs <= aas; bbs++)
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1213 {
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1214 if (pixut[aas] > pixut[bbs])
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1215 {
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1216 swap = pixut[aas];
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1217 pixut[aas] = pixut[bbs];
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1218 pixut[bbs] = swap;
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1219 swap = idx[aas];
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1220 idx[aas] = idx[bbs];
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1221 idx[bbs] = swap;
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1222 }
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1223 }
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1224
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1225 for (idefix = 0; idefix < limitter; idefix++)
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1226 {
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1227 i = idx[idefix];
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1228 for (yy = cy * vertti; yy <= cy * vertti + vertti - 1; yy++)
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1229 {
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1230 for (xx = cx * 8; xx <= cx * 8 + 7; xx = xx + molox)
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1231 {
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1232 x2 = int(image.width / X) * xx;
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1233 y2 = int(image.height / Y) * yy;
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1234
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1235 rr = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1236 gg = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1237 bb = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1238 avg = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1239 for (avy = 0; avy < baly; avy++) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1240 for (avx = 0; avx < balx; avx++) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1241 c = image.get(x2 + avx, y2 + avy);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1242 rr = rr + int(red(c));
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1243 gg = gg + int(green(c));
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1244 bb = bb + int(blue(c));
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1245 avg++;
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1246 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1247 }
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1248 rr = rr / (avg);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1249 gg = gg / (avg);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1250 bb = bb / (avg);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1251 g_farge = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1252 target = -1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1253 compa = 9999;
92 4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1254 for (j = 0; j < limitter; j++) {
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1255 fld = dist(rr, gg, bb, g_r[idx[j]], g_g[idx[j]], g_b[idx[j]]);
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1256 if (fld < compa) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1257 compa = fld;
92 4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1258 target = idx[j];
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1259 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1260 }
92 4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1261 if (i == target) {
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1262
92 4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1263 g_farge = target;
4161d798cb64 Clean up/refactor image (jpeg/png) importing a bit and rename function. Matti Hamalainen <ccr@tnsp.org> parents: 91 diff changeset	1264 makepoint(xx, yy);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1265 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1266 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1267 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1268
126 d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	1269 if (idefix == 0)
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	1270 {
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	1271 for (yy = cy * vertti; yy <= cy * vertti + vertti - 1; yy++)
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	1272 for (xx = cx * 8; xx <= cx * 8 + 7; xx = xx + molox)
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	1273 {
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	1274 g_farge = idx[0];
d2b8166fa2a5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 125 diff changeset	1275 makepoint(xx, yy);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1276 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1277 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1278 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1279 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1280 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1281
88 03823fa2cb01 Refactor export_image() and export_image_sans_border() to use common code, Matti Hamalainen <ccr@tnsp.org> parents: 87 diff changeset	1282
03823fa2cb01 Refactor export_image() and export_image_sans_border() to use common code, Matti Hamalainen <ccr@tnsp.org> parents: 87 diff changeset	1283 void mpRenderToImageAt(PImage output, int xoffs, int yoffs)
03823fa2cb01 Refactor export_image() and export_image_sans_border() to use common code, Matti Hamalainen <ccr@tnsp.org> parents: 87 diff changeset	1284 {
03823fa2cb01 Refactor export_image() and export_image_sans_border() to use common code, Matti Hamalainen <ccr@tnsp.org> parents: 87 diff changeset	1285 if (output == null)
03823fa2cb01 Refactor export_image() and export_image_sans_border() to use common code, Matti Hamalainen <ccr@tnsp.org> parents: 87 diff changeset	1286 return;
03823fa2cb01 Refactor export_image() and export_image_sans_border() to use common code, Matti Hamalainen <ccr@tnsp.org> parents: 87 diff changeset	1287
03823fa2cb01 Refactor export_image() and export_image_sans_border() to use common code, Matti Hamalainen <ccr@tnsp.org> parents: 87 diff changeset	1288 for (int yy = 0; yy < output.width; yy++)
03823fa2cb01 Refactor export_image() and export_image_sans_border() to use common code, Matti Hamalainen <ccr@tnsp.org> parents: 87 diff changeset	1289 for (int xx = 0; xx < output.width; xx++)
03823fa2cb01 Refactor export_image() and export_image_sans_border() to use common code, Matti Hamalainen <ccr@tnsp.org> parents: 87 diff changeset	1290 {
03823fa2cb01 Refactor export_image() and export_image_sans_border() to use common code, Matti Hamalainen <ccr@tnsp.org> parents: 87 diff changeset	1291 color c = color(g_r[259], g_g[259], g_b[259]);
03823fa2cb01 Refactor export_image() and export_image_sans_border() to use common code, Matti Hamalainen <ccr@tnsp.org> parents: 87 diff changeset	1292 output.set(xx, yy, c);
03823fa2cb01 Refactor export_image() and export_image_sans_border() to use common code, Matti Hamalainen <ccr@tnsp.org> parents: 87 diff changeset	1293 }
03823fa2cb01 Refactor export_image() and export_image_sans_border() to use common code, Matti Hamalainen <ccr@tnsp.org> parents: 87 diff changeset	1294
03823fa2cb01 Refactor export_image() and export_image_sans_border() to use common code, Matti Hamalainen <ccr@tnsp.org> parents: 87 diff changeset	1295 for (int yy = 0; yy < Y; yy++)
03823fa2cb01 Refactor export_image() and export_image_sans_border() to use common code, Matti Hamalainen <ccr@tnsp.org> parents: 87 diff changeset	1296 for (int xx = 0; xx < X; xx++)
03823fa2cb01 Refactor export_image() and export_image_sans_border() to use common code, Matti Hamalainen <ccr@tnsp.org> parents: 87 diff changeset	1297 {
03823fa2cb01 Refactor export_image() and export_image_sans_border() to use common code, Matti Hamalainen <ccr@tnsp.org> parents: 87 diff changeset	1298 int f;
03823fa2cb01 Refactor export_image() and export_image_sans_border() to use common code, Matti Hamalainen <ccr@tnsp.org> parents: 87 diff changeset	1299 if (g_multic == 1 \|\| g_hzoomer == 2)
03823fa2cb01 Refactor export_image() and export_image_sans_border() to use common code, Matti Hamalainen <ccr@tnsp.org> parents: 87 diff changeset	1300 f = getmultic(chop2(xx), yy, 0);
03823fa2cb01 Refactor export_image() and export_image_sans_border() to use common code, Matti Hamalainen <ccr@tnsp.org> parents: 87 diff changeset	1301 else
03823fa2cb01 Refactor export_image() and export_image_sans_border() to use common code, Matti Hamalainen <ccr@tnsp.org> parents: 87 diff changeset	1302 f = getabsa(xx, yy, 0);
03823fa2cb01 Refactor export_image() and export_image_sans_border() to use common code, Matti Hamalainen <ccr@tnsp.org> parents: 87 diff changeset	1303
03823fa2cb01 Refactor export_image() and export_image_sans_border() to use common code, Matti Hamalainen <ccr@tnsp.org> parents: 87 diff changeset	1304 if (machine == MSX && f == 0)
03823fa2cb01 Refactor export_image() and export_image_sans_border() to use common code, Matti Hamalainen <ccr@tnsp.org> parents: 87 diff changeset	1305 f = g_map[1];
03823fa2cb01 Refactor export_image() and export_image_sans_border() to use common code, Matti Hamalainen <ccr@tnsp.org> parents: 87 diff changeset	1306
03823fa2cb01 Refactor export_image() and export_image_sans_border() to use common code, Matti Hamalainen <ccr@tnsp.org> parents: 87 diff changeset	1307 color c = color(g_r[f], g_g[f], g_b[f]);
03823fa2cb01 Refactor export_image() and export_image_sans_border() to use common code, Matti Hamalainen <ccr@tnsp.org> parents: 87 diff changeset	1308
03823fa2cb01 Refactor export_image() and export_image_sans_border() to use common code, Matti Hamalainen <ccr@tnsp.org> parents: 87 diff changeset	1309 for (int vertti = 0; vertti <= g_omag; vertti++)
03823fa2cb01 Refactor export_image() and export_image_sans_border() to use common code, Matti Hamalainen <ccr@tnsp.org> parents: 87 diff changeset	1310 for (int mortti = 0; mortti <= g_omag; mortti++)
03823fa2cb01 Refactor export_image() and export_image_sans_border() to use common code, Matti Hamalainen <ccr@tnsp.org> parents: 87 diff changeset	1311 {
03823fa2cb01 Refactor export_image() and export_image_sans_border() to use common code, Matti Hamalainen <ccr@tnsp.org> parents: 87 diff changeset	1312 output.set(
03823fa2cb01 Refactor export_image() and export_image_sans_border() to use common code, Matti Hamalainen <ccr@tnsp.org> parents: 87 diff changeset	1313 xx * g_omag + xoffs + mortti,
03823fa2cb01 Refactor export_image() and export_image_sans_border() to use common code, Matti Hamalainen <ccr@tnsp.org> parents: 87 diff changeset	1314 yy * g_omag + yoffs + vertti,
03823fa2cb01 Refactor export_image() and export_image_sans_border() to use common code, Matti Hamalainen <ccr@tnsp.org> parents: 87 diff changeset	1315 c);
03823fa2cb01 Refactor export_image() and export_image_sans_border() to use common code, Matti Hamalainen <ccr@tnsp.org> parents: 87 diff changeset	1316 }
03823fa2cb01 Refactor export_image() and export_image_sans_border() to use common code, Matti Hamalainen <ccr@tnsp.org> parents: 87 diff changeset	1317 }
03823fa2cb01 Refactor export_image() and export_image_sans_border() to use common code, Matti Hamalainen <ccr@tnsp.org> parents: 87 diff changeset	1318 }
03823fa2cb01 Refactor export_image() and export_image_sans_border() to use common code, Matti Hamalainen <ccr@tnsp.org> parents: 87 diff changeset	1319
03823fa2cb01 Refactor export_image() and export_image_sans_border() to use common code, Matti Hamalainen <ccr@tnsp.org> parents: 87 diff changeset	1320
117 44a07b1c620d Rename 'bool' -> 'boolean'. Matti Hamalainen <ccr@tnsp.org> parents: 95 diff changeset	1321 PImage mpRenderImage(boolean border)
88 03823fa2cb01 Refactor export_image() and export_image_sans_border() to use common code, Matti Hamalainen <ccr@tnsp.org> parents: 87 diff changeset	1322 {
94 6e74d45ea620 More work towards jpeg/png image export/import. Matti Hamalainen <ccr@tnsp.org> parents: 92 diff changeset	1323 PImage output;
88 03823fa2cb01 Refactor export_image() and export_image_sans_border() to use common code, Matti Hamalainen <ccr@tnsp.org> parents: 87 diff changeset	1324
94 6e74d45ea620 More work towards jpeg/png image export/import. Matti Hamalainen <ccr@tnsp.org> parents: 92 diff changeset	1325 if (border)
6e74d45ea620 More work towards jpeg/png image export/import. Matti Hamalainen <ccr@tnsp.org> parents: 92 diff changeset	1326 {
6e74d45ea620 More work towards jpeg/png image export/import. Matti Hamalainen <ccr@tnsp.org> parents: 92 diff changeset	1327 pimage = createImage(
6e74d45ea620 More work towards jpeg/png image export/import. Matti Hamalainen <ccr@tnsp.org> parents: 92 diff changeset	1328 X * g_omag + g_bordh * g_omag,
6e74d45ea620 More work towards jpeg/png image export/import. Matti Hamalainen <ccr@tnsp.org> parents: 92 diff changeset	1329 Y * g_omag + g_bordv * g_omag,
6e74d45ea620 More work towards jpeg/png image export/import. Matti Hamalainen <ccr@tnsp.org> parents: 92 diff changeset	1330 RGB);
88 03823fa2cb01 Refactor export_image() and export_image_sans_border() to use common code, Matti Hamalainen <ccr@tnsp.org> parents: 87 diff changeset	1331
94 6e74d45ea620 More work towards jpeg/png image export/import. Matti Hamalainen <ccr@tnsp.org> parents: 92 diff changeset	1332 mpRenderToImageAt(output, int((g_bordh * g_omag) / 2), int((g_bordv * g_omag) / 2));
6e74d45ea620 More work towards jpeg/png image export/import. Matti Hamalainen <ccr@tnsp.org> parents: 92 diff changeset	1333 }
6e74d45ea620 More work towards jpeg/png image export/import. Matti Hamalainen <ccr@tnsp.org> parents: 92 diff changeset	1334 else
6e74d45ea620 More work towards jpeg/png image export/import. Matti Hamalainen <ccr@tnsp.org> parents: 92 diff changeset	1335 {
6e74d45ea620 More work towards jpeg/png image export/import. Matti Hamalainen <ccr@tnsp.org> parents: 92 diff changeset	1336 output = createImage(X * g_omag, Y * g_omag, RGB);
6e74d45ea620 More work towards jpeg/png image export/import. Matti Hamalainen <ccr@tnsp.org> parents: 92 diff changeset	1337 mpRenderToImageAt(output, 0, 0);
6e74d45ea620 More work towards jpeg/png image export/import. Matti Hamalainen <ccr@tnsp.org> parents: 92 diff changeset	1338 }
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1339
88 03823fa2cb01 Refactor export_image() and export_image_sans_border() to use common code, Matti Hamalainen <ccr@tnsp.org> parents: 87 diff changeset	1340 return output;
03823fa2cb01 Refactor export_image() and export_image_sans_border() to use common code, Matti Hamalainen <ccr@tnsp.org> parents: 87 diff changeset	1341 }
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1342
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1343
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1344 void make_c64_palette() {
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1345 // Pepto's murky C64 palette: http://www.pepto.de/projects/colorvic
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1346 int rgb[] = {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1347 0xff000000,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1348 0xffFFFFFF,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1349 0xff68372B,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1350 0xff70A4B2,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1351 0xff6F3D86,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1352 0xff588D43,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1353 0xff352879,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1354 0xffB8C76F,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1355 0xff6F4F25,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1356 0xff433900,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1357 0xff9A6759,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1358 0xff444444,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1359 0xff6C6C6C,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1360 0xff9AD284,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1361 0xff6C5EB5,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1362 0xff959595
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1363 };
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1364 for (int i = 0; i < g_maxcolors; i++) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1365 rgb[i] = rgb[i] & 0xffffff;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1366 g_grids[i] = rgb[i] + 0xff282828;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1367 makecolor(i, rgb[i] >> 16, (rgb[i] & 0xff00FF00) >> 8, rgb[i] & 0xff0000FF);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1368 }
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1369 g_grids[1] = 0xffd0d0d0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1370 g_gridmode = NEW;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1371 g_map[13] = byte(C64);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1372 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1373
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1374 void make_plus4_palette() {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1375 int rgb[] = {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1376 0xff000000,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1377 0xff2C2C2C,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1378 0xff621307,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1379 0xff00424C,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1380 0xff510378,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1381 0xff004E00,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1382 0xff27188E,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1383 0xff303E00,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1384 0xff582100,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1385 0xff463000,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1386 0xff244400,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1387 0xff630448,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1388 0xff004E0C,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1389 0xff0E2784,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1390 0xff33118E,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1391 0xff184800,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1392 0xff3B3B3B,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1393 0xff702419,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1394 0xff00505A,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1395 0xff601685,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1396 0xff125D00,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1397 0xff36289B,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1398 0xff3F4C00,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1399 0xff663100,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1400 0xff553F00,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1401 0xff345200,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1402 0xff711656,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1403 0xff005C1D,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1404 0xff1F3691,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1405 0xff42229B,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1406 0xff285700,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1407 0xff424242,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1408 0xff772C21,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1409 0xff055861,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1410 0xff661E8C,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1411 0xff1B6400,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1412 0xff3E30A2,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1413 0xff475400,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1414 0xff6D3900,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1415 0xff5C4700,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1416 0xff3B5900,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1417 0xff771F5D,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1418 0xff046325,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1419 0xff273E98,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1420 0xff492AA1,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1421 0xff305E00,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1422 0xff515151,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1423 0xff843B31,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1424 0xff17656F,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1425 0xff742E99,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1426 0xff2B7100,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1427 0xff4C3FAF,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1428 0xff556200,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1429 0xff7A4709,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1430 0xff6A5500,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1431 0xff4A6700,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1432 0xff852F6B,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1433 0xff177135,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1434 0xff364CA5,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1435 0xff5739AE,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1436 0xff3F6B00,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1437 0xff7A7A7A,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1438 0xffAC665C,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1439 0xff468E97,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1440 0xff9C5AC0,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1441 0xff57992E,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1442 0xff766AD5,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1443 0xff7E8A13,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1444 0xffA2713A,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1445 0xff927E20,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1446 0xff748F14,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1447 0xffAC5A93,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1448 0xff459960,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1449 0xff6276CB,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1450 0xff8064D4,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1451 0xff6A9419,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1452 0xff959595,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1453 0xffC58178,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1454 0xff62A8B1,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1455 0xffB675D9,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1456 0xff73B34C,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1457 0xff9185ED,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1458 0xff99A433,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1459 0xffBB8C57,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1460 0xffAC993E,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1461 0xff8FAA34,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1462 0xffC676AD,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1463 0xff62B37B,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1464 0xff7D91E4,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1465 0xff9B80ED,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1466 0xff85AE38,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1467 0xffAFAFAF,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1468 0xffDE9B93,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1469 0xff7DC2CA,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1470 0xffCF90F2,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1471 0xff8DCD68,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1472 0xffAB9FFF,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1473 0xffB3BE51,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1474 0xffD5A673,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1475 0xffC6B35B,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1476 0xffA9C351,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1477 0xffDF91C7,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1478 0xff7DCC96,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1479 0xff97ABFD,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1480 0xffB59AFF,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1481 0xff9FC755,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1482 0xffE1E1E1,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1483 0xffFFCFC6,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1484 0xffB2F4FC,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1485 0xffFFC4FF,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1486 0xffC1FE9D,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1487 0xffDDD2FF,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1488 0xffE5F088,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1489 0xffFFD9A8,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1490 0xffF7E591,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1491 0xffDBF588,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1492 0xffFFC4F9,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1493 0xffB1FEC9,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1494 0xffCBDDFF,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1495 0xffE7CDFF,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1496 0xffD2F98C
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1497 };
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1498 for (int i = 0; i < g_maxcolors; i++) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1499 rgb[i] = rgb[i] & 0xffffff;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1500 makecolor(i, rgb[i] >> 16, (rgb[i] & 0xff00FF00) >> 8, rgb[i] & 0xff0000FF);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1501 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1502 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1503
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1504 void make_msx_palette() {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1505 int rgb[] = {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1506 0xff000000,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1507 0xff000000,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1508 0xff3EB849,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1509 0xff74D07D,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1510 0xff5955E0,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1511 0xff8076F1,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1512 0xffB95E51,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1513 0xff65DBEF,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1514 0xffDB6559,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1515 0xffFF897D,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1516 0xffCCC35E,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1517 0xffDED087,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1518 0xff3AA241,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1519 0xffB766B5,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1520 0xffCCCCCC,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1521 0xffFFFFFF
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1522 };
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1523
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1524 for (int i = 0; i < g_maxcolors; i++) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1525 rgb[i] = rgb[i] & 0xffffff;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1526 g_grids[i] = rgb[i] + 0xff1f1f1f;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1527 makecolor(i, (rgb[i] >> 16), (rgb[i] & 0xff00FF00) >> 8, rgb[i] & 0xff0000FF);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1528 }
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1529 g_grids[5] = 0xff9f95Ff;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1530 g_grids[7] = 0xff84faEF;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1531 g_grids[9] = 0xffffa99d;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1532 g_grids[15] = 0xffd8d8d8;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1533 g_gridmode = NEW;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1534 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1535
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1536 void make_spectrum_palette() {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1537 int rgb[] = {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1538 0xff000000,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1539 0xff0000C0,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1540 0xffC00000,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1541 0xffC000C0,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1542 0xff00C000,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1543 0xff00C0C0,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1544 0xffC0C000,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1545 0xffC0C0C0,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1546 0xff000000,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1547 0xff0000FF,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1548 0xffFF0000,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1549 0xffFF00FF,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1550 0xff00FF00,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1551 0xff00FFFF,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1552 0xffFFFF00,
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1553 0xffFFFFFF
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1554 };
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1555
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1556 g_grids[9] = 0xff0000d8;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1557 g_grids[10] = 0xffd80000;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1558 g_grids[11] = 0xffd800d8;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1559 g_grids[12] = 0xff00d800;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1560 g_grids[13] = 0xff00d8d8;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1561 g_grids[14] = 0xffd8d800;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1562 g_grids[15] = 0xffd8d8d8;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1563 for (int i = 0; i < g_maxcolors; i++) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1564 rgb[i] = rgb[i] & 0xffffff;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1565 if (i <= 8) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1566 g_grids[i] = rgb[i] + 0xff282828;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1567 }
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1568 makecolor(i, (rgb[i] >> 16), (rgb[i] & 0xff00FF00) >> 8, rgb[i] & 0xff0000FF);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1569 }
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1570 g_gridmode = NEW;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1571 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1572
49 2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	1573
81 7ee5e0c590bd Clean set_machine() and rename to mpSetupMachine() Matti Hamalainen <ccr@tnsp.org> parents: 78 diff changeset	1574 void mpSetupMachine(int m)
49 2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	1575 {
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1576 machine = m;
50 8ba88c25f51d Rename some variables. Matti Hamalainen <ccr@tnsp.org> parents: 49 diff changeset	1577 g_exportext = "none";
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1578 g_map[3] = byte(machine);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1579 g_map[13] = byte(machine);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1580 g_palsteps = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1581 g_farge = 1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1582 g_backg = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1583 g_britemode = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1584 g_charlimit = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1585 g_hzoomer = 1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1586 g_backmode = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1587 g_formatname = "";
50 8ba88c25f51d Rename some variables. Matti Hamalainen <ccr@tnsp.org> parents: 49 diff changeset	1588 g_formatext = "";
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1589 g_maxcolors = 16;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1590 X = 320;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1591 Y = 200;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1592
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1593 if (machine == C64) { //c64 hires
12 a0a00f80b042 Make the machine setup sections a bit more uniform in order. Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	1594 g_name = "c64";
50 8ba88c25f51d Rename some variables. Matti Hamalainen <ccr@tnsp.org> parents: 49 diff changeset	1595 g_exportext = "prg";
51 f9da5fe9a891 Define g_exportname for name of the format that the export is done in. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	1596 g_exportname = "PRG file";
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1597 g_formatname = "Art Studio";
50 8ba88c25f51d Rename some variables. Matti Hamalainen <ccr@tnsp.org> parents: 49 diff changeset	1598 g_formatext = "art";
12 a0a00f80b042 Make the machine setup sections a bit more uniform in order. Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	1599
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1600 g_attrimode = 1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1601 g_map[1] = byte(255);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1602 g_map[0] = 6;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1603 make_c64_palette();
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1604 }
81 7ee5e0c590bd Clean set_machine() and rename to mpSetupMachine() Matti Hamalainen <ccr@tnsp.org> parents: 78 diff changeset	1605 else
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1606 if (machine == CPC) { //Amstrad CPC mode 0
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1607 g_name = "cpc";
50 8ba88c25f51d Rename some variables. Matti Hamalainen <ccr@tnsp.org> parents: 49 diff changeset	1608 g_exportext = "bin";
51 f9da5fe9a891 Define g_exportname for name of the format that the export is done in. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	1609 g_exportname = "BIN file"
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1610 g_formatname = "";
50 8ba88c25f51d Rename some variables. Matti Hamalainen <ccr@tnsp.org> parents: 49 diff changeset	1611 g_formatext = "";
12 a0a00f80b042 Make the machine setup sections a bit more uniform in order. Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	1612
a0a00f80b042 Make the machine setup sections a bit more uniform in order. Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	1613 g_hzoomer = 2;
a0a00f80b042 Make the machine setup sections a bit more uniform in order. Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	1614 g_palsteps = 3;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1615 g_multic = 2;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1616 g_attrimode = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1617 g_map[1] = byte(255);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1618 g_map[0] = 1;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1619
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1620 makecolor(0, 0, 0, 0);
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1621 makecolor(1, 0x0, 0x0, 0x80);
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1622 makecolor(2, 0x00, 0x00, 0xFF);
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1623 makecolor(3, 0x80, 0x00, 0x00);
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1624 makecolor(4, 0x80, 0x00, 0x80);
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1625 makecolor(5, 0x80, 0x00, 0xFF);
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1626 makecolor(6, 0xFF, 0x00, 0x00);
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1627 makecolor(7, 0xFF, 0x00, 0x80);
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1628 makecolor(8, 0xFF, 0x00, 0xFF);
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1629 makecolor(9, 0x00, 0x80, 0x00);
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1630 makecolor(10, 0x00, 0x80, 0x80);
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1631 makecolor(11, 0x00, 0x80, 0xFF);
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1632 makecolor(12, 0x80, 0x80, 0x00);
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1633 makecolor(13, 0x80, 0x80, 0x80);
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1634 makecolor(14, 0x80, 0x80, 0xFF);
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1635 makecolor(15, 0xFF, 0xFF, 0xFF);
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1636 }
81 7ee5e0c590bd Clean set_machine() and rename to mpSetupMachine() Matti Hamalainen <ccr@tnsp.org> parents: 78 diff changeset	1637 else
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1638 if (machine == MSX) { // MSX
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1639 g_name = "msx";
50 8ba88c25f51d Rename some variables. Matti Hamalainen <ccr@tnsp.org> parents: 49 diff changeset	1640 g_exportext = "com";
51 f9da5fe9a891 Define g_exportname for name of the format that the export is done in. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	1641 g_exportname = "COM file";
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1642 g_formatname = "Screen 2";
68 59731a72ce8b Remove dots from format exts. Matti Hamalainen <ccr@tnsp.org> parents: 61 diff changeset	1643 g_formatext = "sc2";
12 a0a00f80b042 Make the machine setup sections a bit more uniform in order. Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	1644
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1645 X = 256;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1646 Y = 192;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1647 g_attrimode = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1648 g_backmode = 1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1649 g_farge = 15;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1650 g_backg = 0;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1651
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1652 //TI99 variant
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1653 /*
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1654 makecolor(0,0,0,0);
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1655 makecolor(1,0,0,0);
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1656
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1657 makecolor(2,0x21,0xc8,0x42); //21c842 medgreen
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1658 makecolor(3,0x5e,0xdc,0x78);//5edc78 light green
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1659 makecolor(4,0x54,0x55,0xed);//5455ed dark blue
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1660 makecolor(5,0x7d,0x76,0xFc);//7d76fc light blue
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1661
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1662 makecolor(6,0xd4,0x52,0x4d); //d4524d dark red
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1663 makecolor(7,0x42,0xeb,0xf5); //42ebf5 cyan
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1664 makecolor(8,0xfc,0x55,0x54); //fc5554 medium red
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1665 makecolor(9,0xff,0x79,0x78); //ff7978 light red
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1666 makecolor(10,0xd4,0xc1,0x54);// d4c154 dark yellow
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1667 makecolor(11,0xe6,0xce,0x80);// e6ce80 light yellow
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1668 makecolor(12,0x21,0xb0,0x3b);// 21b03b dark green
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1669 makecolor(13,0xc9,0x5b,0xba);// c95bba magenta
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1670 makecolor(14,0xCc,0xcc,0xCc);// gray
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1671 makecolor(15,0xFF,0xFF,0xFF);
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1672 */
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1673 make_msx_palette();
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1674 }
81 7ee5e0c590bd Clean set_machine() and rename to mpSetupMachine() Matti Hamalainen <ccr@tnsp.org> parents: 78 diff changeset	1675 else
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1676 if (machine == SPECTRUM) { // ZX Spectrum
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1677 g_name = "spec";
50 8ba88c25f51d Rename some variables. Matti Hamalainen <ccr@tnsp.org> parents: 49 diff changeset	1678 g_exportext = "tap";
51 f9da5fe9a891 Define g_exportname for name of the format that the export is done in. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	1679 g_exportname = "TAP file";
12 a0a00f80b042 Make the machine setup sections a bit more uniform in order. Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	1680 g_formatname = "Screen$";
68 59731a72ce8b Remove dots from format exts. Matti Hamalainen <ccr@tnsp.org> parents: 61 diff changeset	1681 g_formatext = "scr";
12 a0a00f80b042 Make the machine setup sections a bit more uniform in order. Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	1682
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1683 X = 256;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1684 Y = 192;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1685 g_farge = 7;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1686 g_backg = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1687 g_attrimode = 1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1688 g_britemode = 1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1689 g_map[0] = 1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1690 g_map[1] = byte(255);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1691 make_spectrum_palette();
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1692 }
81 7ee5e0c590bd Clean set_machine() and rename to mpSetupMachine() Matti Hamalainen <ccr@tnsp.org> parents: 78 diff changeset	1693 else
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1694 if (machine == TIMEX) { // timex sinclair
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1695 g_name = "tmx";
12 a0a00f80b042 Make the machine setup sections a bit more uniform in order. Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	1696
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1697 X = 256;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1698 Y = 192;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1699 g_farge = 7;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1700 g_backg = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1701 g_attrimode = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1702 g_britemode = 1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1703 g_map[1] = byte(255);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1704 make_spectrum_palette();
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1705 }
81 7ee5e0c590bd Clean set_machine() and rename to mpSetupMachine() Matti Hamalainen <ccr@tnsp.org> parents: 78 diff changeset	1706 else
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1707 if (machine == JR200) { // Panasonic JR200
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1708 g_name = "jr200";
12 a0a00f80b042 Make the machine setup sections a bit more uniform in order. Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	1709
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1710 X = 256;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1711 Y = 192;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1712 g_maxcolors = 8;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1713 g_farge = 7;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1714 g_backg = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1715 g_attrimode = 1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1716 g_map[1] = byte(255);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1717 make_spectrum_palette(); //cheating
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1718 }
81 7ee5e0c590bd Clean set_machine() and rename to mpSetupMachine() Matti Hamalainen <ccr@tnsp.org> parents: 78 diff changeset	1719 else
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1720 if (machine == PLUS4M \|\| machine == PLUS4) { // Commodore plus/4
12 a0a00f80b042 Make the machine setup sections a bit more uniform in order. Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	1721 g_name = "plus4m";
50 8ba88c25f51d Rename some variables. Matti Hamalainen <ccr@tnsp.org> parents: 49 diff changeset	1722 g_exportext = "prg";
51 f9da5fe9a891 Define g_exportname for name of the format that the export is done in. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	1723 g_exportname = "PRG file";
12 a0a00f80b042 Make the machine setup sections a bit more uniform in order. Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	1724 g_formatname = "M.Botticelli";
68 59731a72ce8b Remove dots from format exts. Matti Hamalainen <ccr@tnsp.org> parents: 61 diff changeset	1725 g_formatext = "prg";
12 a0a00f80b042 Make the machine setup sections a bit more uniform in order. Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	1726
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1727 g_backmode = 1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1728 g_multic = 1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1729 g_attrimode = 1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1730 g_maxcolors = 121;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1731 g_charlimit = 2;
12 a0a00f80b042 Make the machine setup sections a bit more uniform in order. Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	1732 g_map[0] = 6;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1733 g_map[1] = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1734 g_map[2] = 61;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1735 g_farge = 61;
12 a0a00f80b042 Make the machine setup sections a bit more uniform in order. Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	1736
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1737 if (machine == PLUS4) { // plus/4 hires
12 a0a00f80b042 Make the machine setup sections a bit more uniform in order. Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	1738 g_name = "plus4";
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1739 g_formatname = "Botticelli";
68 59731a72ce8b Remove dots from format exts. Matti Hamalainen <ccr@tnsp.org> parents: 61 diff changeset	1740 g_formatext = "prg";
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1741 g_multic = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1742 g_backmode = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1743 g_charlimit = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1744 g_attrimode = 1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1745 g_map[1] = byte(255);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1746 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1747 make_plus4_palette();
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1748 }
81 7ee5e0c590bd Clean set_machine() and rename to mpSetupMachine() Matti Hamalainen <ccr@tnsp.org> parents: 78 diff changeset	1749 else
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1750 if (machine == C64M) { //c64 multicolor
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1751 g_name = "c64m";
50 8ba88c25f51d Rename some variables. Matti Hamalainen <ccr@tnsp.org> parents: 49 diff changeset	1752 g_exportext = "prg";
51 f9da5fe9a891 Define g_exportname for name of the format that the export is done in. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	1753 g_exportname = "PRG file";
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1754 g_formatname = "A. A. Studio";
68 59731a72ce8b Remove dots from format exts. Matti Hamalainen <ccr@tnsp.org> parents: 61 diff changeset	1755 g_formatext = "ocp";
12 a0a00f80b042 Make the machine setup sections a bit more uniform in order. Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	1756
a0a00f80b042 Make the machine setup sections a bit more uniform in order. Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	1757 g_backmode = 1;
a0a00f80b042 Make the machine setup sections a bit more uniform in order. Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	1758 g_charlimit = 3;
a0a00f80b042 Make the machine setup sections a bit more uniform in order. Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	1759 g_multic = 1;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1760 g_attrimode = 1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1761 g_map[1] = byte(0);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1762 g_map[0] = 6;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1763 make_c64_palette();
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1764 }
81 7ee5e0c590bd Clean set_machine() and rename to mpSetupMachine() Matti Hamalainen <ccr@tnsp.org> parents: 78 diff changeset	1765 else
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1766 if (machine == AMIGA) { //generic 16bit
12 a0a00f80b042 Make the machine setup sections a bit more uniform in order. Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	1767 g_name = "test";
50 8ba88c25f51d Rename some variables. Matti Hamalainen <ccr@tnsp.org> parents: 49 diff changeset	1768 g_exportext = "";
51 f9da5fe9a891 Define g_exportname for name of the format that the export is done in. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	1769 g_exportname = "";
49 2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	1770 g_formatname = "";
50 8ba88c25f51d Rename some variables. Matti Hamalainen <ccr@tnsp.org> parents: 49 diff changeset	1771 g_formatext = "";
49 2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	1772
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1773 g_backmode = 1;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1774 g_maxcolors = 32;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1775 g_palsteps = 16;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1776 g_multic = 2;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1777 g_attrimode = 2;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1778 g_map[1] = byte(0);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1779 for (int z = 0; z < g_maxcolors; z++) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1780 if (z < 16) {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1781 makecolor(z, z * 17, z * 17, z * 17);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1782 } else {
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1783 makecolor(z, (z - 16) * 17, 0, 0);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1784 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1785 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1786 }
81 7ee5e0c590bd Clean set_machine() and rename to mpSetupMachine() Matti Hamalainen <ccr@tnsp.org> parents: 78 diff changeset	1787 else
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1788 if (machine == C64FLI) { //c64 hires FLI = AFLI
49 2d9a674bdeb2 Random cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 29 diff changeset	1789 g_name = "afli";
50 8ba88c25f51d Rename some variables. Matti Hamalainen <ccr@tnsp.org> parents: 49 diff changeset	1790 g_exportext = "prg";
51 f9da5fe9a891 Define g_exportname for name of the format that the export is done in. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	1791 g_exportname = "PRG file";
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1792 g_formatname = "";
50 8ba88c25f51d Rename some variables. Matti Hamalainen <ccr@tnsp.org> parents: 49 diff changeset	1793 g_formatext = "";
12 a0a00f80b042 Make the machine setup sections a bit more uniform in order. Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	1794
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1795 g_attrimode = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1796 g_map[1] = byte(255);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1797 g_map[0] = 6;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1798 make_c64_palette();
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1799 }
81 7ee5e0c590bd Clean set_machine() and rename to mpSetupMachine() Matti Hamalainen <ccr@tnsp.org> parents: 78 diff changeset	1800 else
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1801 if (machine == C64FLIM) { //C64 FLI multicolor
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1802 g_name = "fli";
50 8ba88c25f51d Rename some variables. Matti Hamalainen <ccr@tnsp.org> parents: 49 diff changeset	1803 g_exportext = "";
51 f9da5fe9a891 Define g_exportname for name of the format that the export is done in. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	1804 g_exportname = "PRG file";
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1805 g_formatname = "";
50 8ba88c25f51d Rename some variables. Matti Hamalainen <ccr@tnsp.org> parents: 49 diff changeset	1806 g_formatext = "";
12 a0a00f80b042 Make the machine setup sections a bit more uniform in order. Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	1807
a0a00f80b042 Make the machine setup sections a bit more uniform in order. Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	1808 g_hzoomer = 2;
a0a00f80b042 Make the machine setup sections a bit more uniform in order. Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	1809 g_maxcolors = 16;
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1810 g_multic = 2;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1811 g_attrimode = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1812 g_map[1] = byte(255);
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1813 g_map[0] = 6;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1814 make_c64_palette();
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1815 }
81 7ee5e0c590bd Clean set_machine() and rename to mpSetupMachine() Matti Hamalainen <ccr@tnsp.org> parents: 78 diff changeset	1816 else
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1817 if (machine == FAKEX) { // Fake 8-bit computer
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1818 g_name = "fake";
50 8ba88c25f51d Rename some variables. Matti Hamalainen <ccr@tnsp.org> parents: 49 diff changeset	1819 g_exportext = "";
51 f9da5fe9a891 Define g_exportname for name of the format that the export is done in. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	1820 g_exportname = "";
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1821 g_formatname = "";
50 8ba88c25f51d Rename some variables. Matti Hamalainen <ccr@tnsp.org> parents: 49 diff changeset	1822 g_formatext = "";
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	1823
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1824 X = 320;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1825 Y = 200;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1826 g_multic = 2;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1827 g_attrimode = 2; //g_palsteps=4;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1828 g_farge = 15;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1829 g_backg = 0;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1830 make_c64_palette();
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1831 }
81 7ee5e0c590bd Clean set_machine() and rename to mpSetupMachine() Matti Hamalainen <ccr@tnsp.org> parents: 78 diff changeset	1832 else
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1833 if (machine == PICO8) { // Pico-8 fantasy console
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1834 g_name = "pico8";
50 8ba88c25f51d Rename some variables. Matti Hamalainen <ccr@tnsp.org> parents: 49 diff changeset	1835 g_exportext = "";
51 f9da5fe9a891 Define g_exportname for name of the format that the export is done in. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	1836 g_exportname = "";
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1837 g_formatname = "";
50 8ba88c25f51d Rename some variables. Matti Hamalainen <ccr@tnsp.org> parents: 49 diff changeset	1838 g_formatext = "";
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	1839
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1840 X = 128;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1841 Y = 128;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1842 g_farge = 15;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1843 g_backg = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1844 g_multic = 2;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1845 g_attrimode = 2;
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1846 makecolor(0, 0, 0, 0);
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1847 makecolor(1, 32, 51, 123);
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1848 makecolor(2, 126, 37, 83);
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1849 makecolor(3, 0, 144, 61);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1850 makecolor(4, 171, 82, 54);
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1851 makecolor(5, 52, 54, 53);
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1852 makecolor(6, 194, 195, 199);
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1853 makecolor(7, 255, 241, 232);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1854 makecolor(8, 255, 0, 77);
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1855 makecolor(9, 255, 155, 0);
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1856 makecolor(10, 255, 231, 39);
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1857 makecolor(11, 0, 226, 50);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1858 makecolor(12, 41, 173, 255);
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1859 makecolor(13, 132, 112, 169);
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1860 makecolor(14, 255, 119, 168);
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1861 makecolor(15, 255, 214, 197);
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1862 }
81 7ee5e0c590bd Clean set_machine() and rename to mpSetupMachine() Matti Hamalainen <ccr@tnsp.org> parents: 78 diff changeset	1863 else
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1864 if (machine == UNIA) { // Unia digital palette
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1865 g_name = "unia";
50 8ba88c25f51d Rename some variables. Matti Hamalainen <ccr@tnsp.org> parents: 49 diff changeset	1866 g_exportext = "";
51 f9da5fe9a891 Define g_exportname for name of the format that the export is done in. Matti Hamalainen <ccr@tnsp.org> parents: 50 diff changeset	1867 g_exportname = "";
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1868 g_formatname = "";
50 8ba88c25f51d Rename some variables. Matti Hamalainen <ccr@tnsp.org> parents: 49 diff changeset	1869 g_formatext = "";
11 c1667eb54808 Cosmetics and indentation. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	1870
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1871 X = 256;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1872 Y = 192;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1873 g_farge = 15;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1874 g_backg = 0;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1875 g_multic = 2;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1876 g_attrimode = 2;
5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1877 makecolor(0, 0, 0, 0);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1878 makecolor(1, 0xff, 0xff, 0xff);
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1879 makecolor(2, 0xff, 0xfd, 0x38);
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1880 makecolor(3, 0xff, 0xc5, 0x00);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1881 makecolor(4, 0xff, 0x00, 0x00);
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1882 makecolor(5, 0xff, 0x3c, 0xb4);
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1883 makecolor(6, 0xa0, 0x23, 0xbc);
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1884 makecolor(7, 0x1b, 0xa1, 0xfc);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1885 makecolor(8, 0xe1, 0xe1, 0xe1);
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1886 makecolor(9, 0xb9, 0x63, 0x00);
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1887 makecolor(10, 0xff, 0xaa, 0xbe);
2 5eb3559e1778 Run everything through JS-beautifier and remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1 diff changeset	1888 makecolor(11, 0xd2, 0x9b, 0xd7);
0 ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1889 makecolor(12, 0xad, 0xad, 0xad);
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1890 makecolor(13, 0x00, 0xb7, 0xb7);
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1891 makecolor(14, 0x23, 0xaf, 0x32);
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1892 makecolor(15, 0x29, 0xf7, 0xa7);
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1893 }
ebd5689e2985 Initial import of Multipaint sketch version 22.5.2017. Tero Heikkinen parents: diff changeset	1894 }

Mercurial > hg > forks > multipaint-js

annotate exporters.pde @ 129:146879c896b9