Mandelbrot-2 - Mandelbrot fractal - color version - slow but nic…

Users » JLS » Code » Mandelbrot-2

Kamil Ondrousek / Mbed 2 deprecated Mandelbrot-2

Mandelbrot fractal - color version - slow but nice :-)

TFT_4DGL_Text.cpp@0:59939414a202, 2011-01-26 (annotated)

Committer:: JLS
Date:: Wed Jan 26 18:54:28 2011 +0000
Revision:: 0:59939414a202

Who changed what in which revision?

User	Revision	Line number	New contents of line
JLS	0:59939414a202	1	//
JLS	0:59939414a202	2	// TFT_4DGL is a class to drive 4D Systems TFT touch screens
JLS	0:59939414a202	3	//
JLS	0:59939414a202	4	// Copyright (C) <2010> Stephane ROCHON <stephane.rochon at free.fr>
JLS	0:59939414a202	5	//
JLS	0:59939414a202	6	// TFT_4DGL is free software: you can redistribute it and/or modify
JLS	0:59939414a202	7	// it under the terms of the GNU General Public License as published by
JLS	0:59939414a202	8	// the Free Software Foundation, either version 3 of the License, or
JLS	0:59939414a202	9	// (at your option) any later version.
JLS	0:59939414a202	10	//
JLS	0:59939414a202	11	// TFT_4DGL is distributed in the hope that it will be useful,
JLS	0:59939414a202	12	// but WITHOUT ANY WARRANTY; without even the implied warranty of
JLS	0:59939414a202	13	// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
JLS	0:59939414a202	14	// GNU General Public License for more details.
JLS	0:59939414a202	15	//
JLS	0:59939414a202	16	// You should have received a copy of the GNU General Public License
JLS	0:59939414a202	17	// along with TFT_4DGL. If not, see <http://www.gnu.org/licenses/>.
JLS	0:59939414a202	18
JLS	0:59939414a202	19	#include "mbed.h"
JLS	0:59939414a202	20	#include "TFT_4DGL.h"
JLS	0:59939414a202	21
JLS	0:59939414a202	22	//****************************************************************************************************
JLS	0:59939414a202	23	void TFT_4DGL :: set_font(char mode) { // set font size
JLS	0:59939414a202	24	char command[2]= "";
JLS	0:59939414a202	25
JLS	0:59939414a202	26	int w, h, fx = 8, fy = 8;
JLS	0:59939414a202	27
JLS	0:59939414a202	28	command[0] = SETFONT;
JLS	0:59939414a202	29	command[1] = mode;
JLS	0:59939414a202	30
JLS	0:59939414a202	31	current_font = mode;
JLS	0:59939414a202	32
JLS	0:59939414a202	33	if (current_orientation == IS_PORTRAIT) {
JLS	0:59939414a202	34	w = SIZE_X;
JLS	0:59939414a202	35	h = SIZE_Y;
JLS	0:59939414a202	36	} else {
JLS	0:59939414a202	37	w = SIZE_Y;
JLS	0:59939414a202	38	h = SIZE_X;
JLS	0:59939414a202	39	}
JLS	0:59939414a202	40
JLS	0:59939414a202	41	switch (mode) {
JLS	0:59939414a202	42	case FONT_5X7 :
JLS	0:59939414a202	43	fx = 6;
JLS	0:59939414a202	44	fy = 8;
JLS	0:59939414a202	45	break;
JLS	0:59939414a202	46	case FONT_8X8 :
JLS	0:59939414a202	47	fx = 8;
JLS	0:59939414a202	48	fy = 8;
JLS	0:59939414a202	49	break;
JLS	0:59939414a202	50	case FONT_8X12 :
JLS	0:59939414a202	51	fx = 8;
JLS	0:59939414a202	52	fy = 12;
JLS	0:59939414a202	53	break;
JLS	0:59939414a202	54	case FONT_12X16 :
JLS	0:59939414a202	55	fx = 12;
JLS	0:59939414a202	56	fy = 16;
JLS	0:59939414a202	57	break;
JLS	0:59939414a202	58	}
JLS	0:59939414a202	59
JLS	0:59939414a202	60	max_col = w / fx;
JLS	0:59939414a202	61	max_row = h / fy;
JLS	0:59939414a202	62
JLS	0:59939414a202	63	writeCOMMAND(command, 2);
JLS	0:59939414a202	64	}
JLS	0:59939414a202	65
JLS	0:59939414a202	66	//****************************************************************************************************
JLS	0:59939414a202	67	void TFT_4DGL :: text_mode(char mode) { // set text mode
JLS	0:59939414a202	68	char command[2]= "";
JLS	0:59939414a202	69
JLS	0:59939414a202	70	command[0] = TEXTMODE;
JLS	0:59939414a202	71	command[1] = mode;
JLS	0:59939414a202	72
JLS	0:59939414a202	73	writeCOMMAND(command, 2);
JLS	0:59939414a202	74	}
JLS	0:59939414a202	75
JLS	0:59939414a202	76	//****************************************************************************************************
JLS	0:59939414a202	77	void TFT_4DGL :: text_char(char c, char col, char row, int color) { // draw a text char
JLS	0:59939414a202	78	char command[6]= "";
JLS	0:59939414a202	79
JLS	0:59939414a202	80	command[0] = TEXTCHAR;
JLS	0:59939414a202	81
JLS	0:59939414a202	82	command[1] = c;
JLS	0:59939414a202	83	command[2] = col;
JLS	0:59939414a202	84	command[3] = row;
JLS	0:59939414a202	85
JLS	0:59939414a202	86	int red5 = (color >> (16 + 3)) & 0x1F; // get red on 5 bits
JLS	0:59939414a202	87	int green6 = (color >> (8 + 2)) & 0x3F; // get green on 6 bits
JLS	0:59939414a202	88	int blue5 = (color >> (0 + 3)) & 0x1F; // get blue on 5 bits
JLS	0:59939414a202	89
JLS	0:59939414a202	90	command[4] = ((red5 << 3) + (green6 >> 3)) & 0xFF; // first part of 16 bits color
JLS	0:59939414a202	91	command[5] = ((green6 << 5) + (blue5 >> 0)) & 0xFF; // second part of 16 bits color
JLS	0:59939414a202	92
JLS	0:59939414a202	93	writeCOMMAND(command, 8);
JLS	0:59939414a202	94	}
JLS	0:59939414a202	95
JLS	0:59939414a202	96	//****************************************************************************************************
JLS	0:59939414a202	97	void TFT_4DGL :: graphic_char(char c, int x, int y, int color, char width, char height) { // draw a graphic char
JLS	0:59939414a202	98	char command[10]= "";
JLS	0:59939414a202	99
JLS	0:59939414a202	100	command[0] = GRAPHCHAR;
JLS	0:59939414a202	101
JLS	0:59939414a202	102	command[1] = c;
JLS	0:59939414a202	103
JLS	0:59939414a202	104	command[2] = (x >> 8) & 0xFF;
JLS	0:59939414a202	105	command[3] = x & 0xFF;
JLS	0:59939414a202	106
JLS	0:59939414a202	107	command[4] = (y >> 8) & 0xFF;
JLS	0:59939414a202	108	command[5] = y & 0xFF;
JLS	0:59939414a202	109
JLS	0:59939414a202	110	int red5 = (color >> (16 + 3)) & 0x1F; // get red on 5 bits
JLS	0:59939414a202	111	int green6 = (color >> (8 + 2)) & 0x3F; // get green on 6 bits
JLS	0:59939414a202	112	int blue5 = (color >> (0 + 3)) & 0x1F; // get blue on 5 bits
JLS	0:59939414a202	113
JLS	0:59939414a202	114	command[6] = ((red5 << 3) + (green6 >> 3)) & 0xFF; // first part of 16 bits color
JLS	0:59939414a202	115	command[7] = ((green6 << 5) + (blue5 >> 0)) & 0xFF; // second part of 16 bits color
JLS	0:59939414a202	116
JLS	0:59939414a202	117	command[8] = width;
JLS	0:59939414a202	118
JLS	0:59939414a202	119	command[9] = height;
JLS	0:59939414a202	120
JLS	0:59939414a202	121	writeCOMMAND(command, 10);
JLS	0:59939414a202	122	}
JLS	0:59939414a202	123
JLS	0:59939414a202	124	//****************************************************************************************************
JLS	0:59939414a202	125	void TFT_4DGL :: text_string(char *s, char col, char row, char font, int color) { // draw a text string
JLS	0:59939414a202	126
JLS	0:59939414a202	127	char command[1000]= "";
JLS	0:59939414a202	128	int size = strlen(s);
JLS	0:59939414a202	129	int i = 0;
JLS	0:59939414a202	130
JLS	0:59939414a202	131	command[0] = TEXTSTRING;
JLS	0:59939414a202	132
JLS	0:59939414a202	133	command[1] = col;
JLS	0:59939414a202	134	command[2] = row;
JLS	0:59939414a202	135
JLS	0:59939414a202	136	command[3] = font;
JLS	0:59939414a202	137
JLS	0:59939414a202	138	int red5 = (color >> (16 + 3)) & 0x1F; // get red on 5 bits
JLS	0:59939414a202	139	int green6 = (color >> (8 + 2)) & 0x3F; // get green on 6 bits
JLS	0:59939414a202	140	int blue5 = (color >> (0 + 3)) & 0x1F; // get blue on 5 bits
JLS	0:59939414a202	141
JLS	0:59939414a202	142	command[4] = ((red5 << 3) + (green6 >> 3)) & 0xFF; // first part of 16 bits color
JLS	0:59939414a202	143	command[5] = ((green6 << 5) + (blue5 >> 0)) & 0xFF; // second part of 16 bits color
JLS	0:59939414a202	144
JLS	0:59939414a202	145	for (i=0; i<size; i++) command[6+i] = s[i];
JLS	0:59939414a202	146
JLS	0:59939414a202	147	command[6+size] = 0;
JLS	0:59939414a202	148
JLS	0:59939414a202	149	writeCOMMAND(command, 7 + size);
JLS	0:59939414a202	150	}
JLS	0:59939414a202	151
JLS	0:59939414a202	152	//****************************************************************************************************
JLS	0:59939414a202	153	void TFT_4DGL :: graphic_string(char *s, int x, int y, char font, int color, char width, char height) { // draw a text string
JLS	0:59939414a202	154
JLS	0:59939414a202	155	char command[1000]= "";
JLS	0:59939414a202	156	int size = strlen(s);
JLS	0:59939414a202	157	int i = 0;
JLS	0:59939414a202	158
JLS	0:59939414a202	159	command[0] = GRAPHSTRING;
JLS	0:59939414a202	160
JLS	0:59939414a202	161	command[1] = (x >> 8) & 0xFF;
JLS	0:59939414a202	162	command[2] = x & 0xFF;
JLS	0:59939414a202	163
JLS	0:59939414a202	164	command[3] = (y >> 8) & 0xFF;
JLS	0:59939414a202	165	command[4] = y & 0xFF;
JLS	0:59939414a202	166
JLS	0:59939414a202	167	command[5] = font;
JLS	0:59939414a202	168
JLS	0:59939414a202	169	int red5 = (color >> (16 + 3)) & 0x1F; // get red on 5 bits
JLS	0:59939414a202	170	int green6 = (color >> (8 + 2)) & 0x3F; // get green on 6 bits
JLS	0:59939414a202	171	int blue5 = (color >> (0 + 3)) & 0x1F; // get blue on 5 bits
JLS	0:59939414a202	172
JLS	0:59939414a202	173	command[6] = ((red5 << 3) + (green6 >> 3)) & 0xFF; // first part of 16 bits color
JLS	0:59939414a202	174	command[7] = ((green6 << 5) + (blue5 >> 0)) & 0xFF; // second part of 16 bits color
JLS	0:59939414a202	175
JLS	0:59939414a202	176	command[8] = width;
JLS	0:59939414a202	177
JLS	0:59939414a202	178	command[9] = height;
JLS	0:59939414a202	179
JLS	0:59939414a202	180	for (i=0; i<size; i++) command[10+i] = s[i];
JLS	0:59939414a202	181
JLS	0:59939414a202	182	command[10+size] = 0;
JLS	0:59939414a202	183
JLS	0:59939414a202	184	writeCOMMAND(command, 11 + size);
JLS	0:59939414a202	185	}
JLS	0:59939414a202	186
JLS	0:59939414a202	187	//****************************************************************************************************
JLS	0:59939414a202	188	void TFT_4DGL :: text_button(char *s, char mode, int x, int y, int button_color, char font, int text_color, char width, char height) { // draw a text string
JLS	0:59939414a202	189
JLS	0:59939414a202	190	char command[1000]= "";
JLS	0:59939414a202	191	int size = strlen(s);
JLS	0:59939414a202	192	int i = 0, red5, green6, blue5;
JLS	0:59939414a202	193
JLS	0:59939414a202	194	command[0] = TEXTBUTTON;
JLS	0:59939414a202	195
JLS	0:59939414a202	196	command[1] = mode;
JLS	0:59939414a202	197
JLS	0:59939414a202	198	command[2] = (x >> 8) & 0xFF;
JLS	0:59939414a202	199	command[3] = x & 0xFF;
JLS	0:59939414a202	200
JLS	0:59939414a202	201	command[4] = (y >> 8) & 0xFF;
JLS	0:59939414a202	202	command[5] = y & 0xFF;
JLS	0:59939414a202	203
JLS	0:59939414a202	204	red5 = (button_color >> (16 + 3)) & 0x1F; // get red on 5 bits
JLS	0:59939414a202	205	green6 = (button_color >> (8 + 2)) & 0x3F; // get green on 6 bits
JLS	0:59939414a202	206	blue5 = (button_color >> (0 + 3)) & 0x1F; // get blue on 5 bits
JLS	0:59939414a202	207
JLS	0:59939414a202	208	command[6] = ((red5 << 3) + (green6 >> 3)) & 0xFF; // first part of 16 bits color
JLS	0:59939414a202	209	command[7] = ((green6 << 5) + (blue5 >> 0)) & 0xFF; // second part of 16 bits color
JLS	0:59939414a202	210
JLS	0:59939414a202	211	command[8] = font;
JLS	0:59939414a202	212
JLS	0:59939414a202	213	red5 = (text_color >> (16 + 3)) & 0x1F; // get red on 5 bits
JLS	0:59939414a202	214	green6 = (text_color >> (8 + 2)) & 0x3F; // get green on 6 bits
JLS	0:59939414a202	215	blue5 = (text_color >> (0 + 3)) & 0x1F; // get blue on 5 bits
JLS	0:59939414a202	216
JLS	0:59939414a202	217	command[9] = ((red5 << 3) + (green6 >> 3)) & 0xFF; // first part of 16 bits color
JLS	0:59939414a202	218	command[10] = ((green6 << 5) + (blue5 >> 0)) & 0xFF; // second part of 16 bits color
JLS	0:59939414a202	219
JLS	0:59939414a202	220	command[11] = width;
JLS	0:59939414a202	221
JLS	0:59939414a202	222	command[12] = height;
JLS	0:59939414a202	223
JLS	0:59939414a202	224	for (i=0; i<size; i++) command[13+i] = s[i];
JLS	0:59939414a202	225
JLS	0:59939414a202	226	command[13+size] = 0;
JLS	0:59939414a202	227
JLS	0:59939414a202	228	writeCOMMAND(command, 14 + size);
JLS	0:59939414a202	229	}
JLS	0:59939414a202	230
JLS	0:59939414a202	231	//****************************************************************************************************
JLS	0:59939414a202	232	void TFT_4DGL :: locate(char col, char row) { // place text curssor at col, row
JLS	0:59939414a202	233	current_col = col;
JLS	0:59939414a202	234	current_row = row;
JLS	0:59939414a202	235	}
JLS	0:59939414a202	236
JLS	0:59939414a202	237	//****************************************************************************************************
JLS	0:59939414a202	238	void TFT_4DGL :: color(int color) { // set text color
JLS	0:59939414a202	239	current_color = color;
JLS	0:59939414a202	240	}
JLS	0:59939414a202	241
JLS	0:59939414a202	242	//****************************************************************************************************
JLS	0:59939414a202	243	void TFT_4DGL :: putc(char c) { // place char at current cursor position
JLS	0:59939414a202	244
JLS	0:59939414a202	245	text_char(c, current_col++, current_row, current_color);
JLS	0:59939414a202	246
JLS	0:59939414a202	247	if (current_col == max_col) {
JLS	0:59939414a202	248	current_col = 0;
JLS	0:59939414a202	249	current_row++;
JLS	0:59939414a202	250	}
JLS	0:59939414a202	251	if (current_row == max_row) {
JLS	0:59939414a202	252	current_row = 0;
JLS	0:59939414a202	253	}
JLS	0:59939414a202	254	}
JLS	0:59939414a202	255
JLS	0:59939414a202	256	//****************************************************************************************************
JLS	0:59939414a202	257	void TFT_4DGL :: puts(char *s) { // place string at current cursor position
JLS	0:59939414a202	258
JLS	0:59939414a202	259	text_string(s, current_col, current_row, current_font, current_color);
JLS	0:59939414a202	260
JLS	0:59939414a202	261	current_col += strlen(s);
JLS	0:59939414a202	262
JLS	0:59939414a202	263	if (current_col >= max_col) {
JLS	0:59939414a202	264	current_row += current_col / max_col;
JLS	0:59939414a202	265	current_col %= max_col;
JLS	0:59939414a202	266	}
JLS	0:59939414a202	267	if (current_row >= max_row) {
JLS	0:59939414a202	268	current_row %= max_row;
JLS	0:59939414a202	269	}
JLS	0:59939414a202	270	}

Repository toolbox

Export to desktop IDE

Build repository

Repository details

Type:	Program
Mbed OS support:	Mbed 2 deprecated
Created:	26 Jan 2011
Imports:	2
Forks:	0
Commits:	1
Dependents:	0
Dependencies:	1
Followers:	1

TFT_4DGL_Text.cpp@0:59939414a202, 2011-01-26 (annotated)

Who changed what in which revision?

Repository toolbox

Repository details

Important Information for this Arm website

Access Warning