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_main.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	Serial pc(USBTX,USBRX);
JLS	0:59939414a202	23	//DigitalOut led1(LED1), led2(LED2);
JLS	0:59939414a202	24
JLS	0:59939414a202	25	//******************************************************************************************************
JLS	0:59939414a202	26	TFT_4DGL :: TFT_4DGL(PinName tx, PinName rx, PinName rst) : _cmd(tx, rx), _rst(rst) { // Constructor
JLS	0:59939414a202	27
JLS	0:59939414a202	28	#if DEBUGMODE
JLS	0:59939414a202	29	pc.baud(115200);
JLS	0:59939414a202	30
JLS	0:59939414a202	31	pc.printf("\n\n\n");
JLS	0:59939414a202	32	pc.printf("********************\n\r");
JLS	0:59939414a202	33	pc.printf("TFT_4DGL CONSTRUCTOR\n\r");
JLS	0:59939414a202	34	pc.printf("********************\n\r");
JLS	0:59939414a202	35	#endif
JLS	0:59939414a202	36
JLS	0:59939414a202	37	_rst = 1; // put RESET pin to high to start TFT screen
JLS	0:59939414a202	38
JLS	0:59939414a202	39	reset();
JLS	0:59939414a202	40	autobaud(); // send autobaud command
JLS	0:59939414a202	41	baudrate(256000); // set the initial baudrate to 256kbps - fastest supported by uLCD-32PT
JLS	0:59939414a202	42	cls(); // clear screen
JLS	0:59939414a202	43
JLS	0:59939414a202	44	current_col = 0; // initial cursor col
JLS	0:59939414a202	45	current_row = 0; // initial cursor row
JLS	0:59939414a202	46	current_color = WHITE; // initial text color
JLS	0:59939414a202	47	current_orientation = IS_PORTRAIT; // initial screen orientation
JLS	0:59939414a202	48
JLS	0:59939414a202	49	set_font(FONT_5X7); // initial font
JLS	0:59939414a202	50	text_mode(TRANSPARENT); // initial text mode
JLS	0:59939414a202	51	display_control(0x06,0x00); // initial Image control new format
JLS	0:59939414a202	52	}
JLS	0:59939414a202	53
JLS	0:59939414a202	54	//******************************************************************************************************
JLS	0:59939414a202	55	void TFT_4DGL :: writeBYTE(char c) { // send a BYTE command to screen
JLS	0:59939414a202	56
JLS	0:59939414a202	57	_cmd.putc(c);
JLS	0:59939414a202	58
JLS	0:59939414a202	59	#if DEBUGMODE
JLS	0:59939414a202	60	pc.printf(" Char sent : 0x%02X ",c);
JLS	0:59939414a202	61	pc.putc(c);
JLS	0:59939414a202	62	pc.printf(" \n\r");
JLS	0:59939414a202	63	#endif
JLS	0:59939414a202	64
JLS	0:59939414a202	65	}
JLS	0:59939414a202	66
JLS	0:59939414a202	67	//******************************************************************************************************
JLS	0:59939414a202	68	void TFT_4DGL :: freeBUFFER(void) { // Clear serial buffer before writing command
JLS	0:59939414a202	69
JLS	0:59939414a202	70	while (_cmd.readable()) _cmd.getc(); // clear buffer garbage
JLS	0:59939414a202	71	}
JLS	0:59939414a202	72
JLS	0:59939414a202	73	//******************************************************************************************************
JLS	0:59939414a202	74	int TFT_4DGL :: writeCOMMAND(char *command, int number) { // send several BYTES making a command and return an answer
JLS	0:59939414a202	75
JLS	0:59939414a202	76	#if DEBUGMODE
JLS	0:59939414a202	77	pc.printf("\n\r");
JLS	0:59939414a202	78	pc.printf("New COMMAND : 0x%02X\n\r", command[0]);
JLS	0:59939414a202	79	#endif
JLS	0:59939414a202	80	int i, resp = 0;
JLS	0:59939414a202	81	freeBUFFER();
JLS	0:59939414a202	82
JLS	0:59939414a202	83	for (i = 0; i < number; i++) writeBYTE(command[i]); // send command to serial port
JLS	0:59939414a202	84
JLS	0:59939414a202	85	while (!_cmd.readable()) wait_ms(TEMPO); // wait for screen answer
JLS	0:59939414a202	86	if (_cmd.readable()) resp = _cmd.getc(); // read response if any
JLS	0:59939414a202	87	switch (resp) {
JLS	0:59939414a202	88	case ACK : // if OK return 1
JLS	0:59939414a202	89	resp = 1;
JLS	0:59939414a202	90	break;
JLS	0:59939414a202	91	case NAK : // if NOK return -1
JLS	0:59939414a202	92	resp = -1;
JLS	0:59939414a202	93	break;
JLS	0:59939414a202	94	default :
JLS	0:59939414a202	95	resp = 0; // else return 0
JLS	0:59939414a202	96	break;
JLS	0:59939414a202	97	}
JLS	0:59939414a202	98	#if DEBUGMODE
JLS	0:59939414a202	99	pc.printf(" Answer received : %d\n\r",resp);
JLS	0:59939414a202	100	#endif
JLS	0:59939414a202	101
JLS	0:59939414a202	102	return resp;
JLS	0:59939414a202	103	}
JLS	0:59939414a202	104
JLS	0:59939414a202	105	//**************************************************************************
JLS	0:59939414a202	106	void TFT_4DGL :: reset() { // Reset Screen
JLS	0:59939414a202	107
JLS	0:59939414a202	108	_rst = 0; // put RESET pin to low
JLS	0:59939414a202	109	wait_ms(TEMPO); // wait a few milliseconds for command reception
JLS	0:59939414a202	110	_rst = 1; // put RESET back to high
JLS	0:59939414a202	111	wait(3); // wait 3s for screen to restart
JLS	0:59939414a202	112
JLS	0:59939414a202	113	freeBUFFER(); // clean buffer from possible garbage
JLS	0:59939414a202	114	}
JLS	0:59939414a202	115
JLS	0:59939414a202	116	//**************************************************************************
JLS	0:59939414a202	117	void TFT_4DGL :: autobaud() { // send AutoBaud command (9600)
JLS	0:59939414a202	118	char command[1] = "";
JLS	0:59939414a202	119	command[0] = AUTOBAUD;
JLS	0:59939414a202	120	writeCOMMAND(command, 1);
JLS	0:59939414a202	121	}
JLS	0:59939414a202	122
JLS	0:59939414a202	123	//**************************************************************************
JLS	0:59939414a202	124	void TFT_4DGL :: cls() { // clear screen
JLS	0:59939414a202	125	char command[1] = "";
JLS	0:59939414a202	126	command[0] = CLS;
JLS	0:59939414a202	127	writeCOMMAND(command, 1);
JLS	0:59939414a202	128	}
JLS	0:59939414a202	129
JLS	0:59939414a202	130	//**************************************************************************
JLS	0:59939414a202	131	void TFT_4DGL :: version() { // get API version
JLS	0:59939414a202	132	char command[2] = "";
JLS	0:59939414a202	133	command[0] = VERSION;
JLS	0:59939414a202	134	command[1] = OFF;
JLS	0:59939414a202	135	readVERSION(command, 2);
JLS	0:59939414a202	136	}
JLS	0:59939414a202	137
JLS	0:59939414a202	138	//**************************************************************************
JLS	0:59939414a202	139	void TFT_4DGL :: baudrate(long speed) { // set screen baud rate
JLS	0:59939414a202	140	char command[2]= "";
JLS	0:59939414a202	141	command[0] = BAUDRATE;
JLS	0:59939414a202	142	switch (speed) {
JLS	0:59939414a202	143	case 110 :
JLS	0:59939414a202	144	command[1] = BAUD_110;
JLS	0:59939414a202	145	break;
JLS	0:59939414a202	146	case 300 :
JLS	0:59939414a202	147	command[1] = BAUD_300;
JLS	0:59939414a202	148	break;
JLS	0:59939414a202	149	case 600 :
JLS	0:59939414a202	150	command[1] = BAUD_600;
JLS	0:59939414a202	151	break;
JLS	0:59939414a202	152	case 1200 :
JLS	0:59939414a202	153	command[1] = BAUD_1200;
JLS	0:59939414a202	154	break;
JLS	0:59939414a202	155	case 2400 :
JLS	0:59939414a202	156	command[1] = BAUD_2400;
JLS	0:59939414a202	157	break;
JLS	0:59939414a202	158	case 4800 :
JLS	0:59939414a202	159	command[1] = BAUD_4800;
JLS	0:59939414a202	160	break;
JLS	0:59939414a202	161	case 9600 :
JLS	0:59939414a202	162	command[1] = BAUD_9600;
JLS	0:59939414a202	163	break;
JLS	0:59939414a202	164	case 14400 :
JLS	0:59939414a202	165	command[1] = BAUD_14400;
JLS	0:59939414a202	166	break;
JLS	0:59939414a202	167	case 19200 :
JLS	0:59939414a202	168	command[1] = BAUD_19200;
JLS	0:59939414a202	169	break;
JLS	0:59939414a202	170	case 31250 :
JLS	0:59939414a202	171	command[1] = BAUD_31250;
JLS	0:59939414a202	172	break;
JLS	0:59939414a202	173	case 38400 :
JLS	0:59939414a202	174	command[1] = BAUD_38400;
JLS	0:59939414a202	175	break;
JLS	0:59939414a202	176	case 56000 :
JLS	0:59939414a202	177	command[1] = BAUD_56000;
JLS	0:59939414a202	178	break;
JLS	0:59939414a202	179	case 57600 :
JLS	0:59939414a202	180	command[1] = BAUD_57600;
JLS	0:59939414a202	181	break;
JLS	0:59939414a202	182	case 115200 :
JLS	0:59939414a202	183	command[1] = BAUD_115200;
JLS	0:59939414a202	184	break;
JLS	0:59939414a202	185	case 128000 :
JLS	0:59939414a202	186	command[1] = BAUD_128000;
JLS	0:59939414a202	187	break;
JLS	0:59939414a202	188	case 256000 :
JLS	0:59939414a202	189	command[1] = BAUD_256000;
JLS	0:59939414a202	190	break;
JLS	0:59939414a202	191	default :
JLS	0:59939414a202	192	command[1] = BAUD_9600;
JLS	0:59939414a202	193	speed = 9600;
JLS	0:59939414a202	194	break;
JLS	0:59939414a202	195	}
JLS	0:59939414a202	196
JLS	0:59939414a202	197	#if DEBUGMODE
JLS	0:59939414a202	198	pc.printf("\n\r");
JLS	0:59939414a202	199	pc.printf("New COMMAND : 0x%02X\n\r", command[0]);
JLS	0:59939414a202	200	#endif
JLS	0:59939414a202	201
JLS	0:59939414a202	202	int i, resp = 0;
JLS	0:59939414a202	203	freeBUFFER();
JLS	0:59939414a202	204
JLS	0:59939414a202	205	if(speed==256000)
JLS	0:59939414a202	206	speed=281000; //If baud rate is 256K comm at 281k - as instructed by 4DGL
JLS	0:59939414a202	207
JLS	0:59939414a202	208	for (i = 0; i <2; i++) writeBYTE(command[i]); // send command to serial port
JLS	0:59939414a202	209	_cmd.baud(speed); // set mbed to same speed
JLS	0:59939414a202	210
JLS	0:59939414a202	211	while (!_cmd.readable()) wait_ms(TEMPO); // wait for screen answer
JLS	0:59939414a202	212
JLS	0:59939414a202	213	if (_cmd.readable()) resp = _cmd.getc(); // read response if any
JLS	0:59939414a202	214	switch (resp) {
JLS	0:59939414a202	215	case ACK : // if OK return 1
JLS	0:59939414a202	216	resp = 1;
JLS	0:59939414a202	217	break;
JLS	0:59939414a202	218	case NAK : // if NOK return -1
JLS	0:59939414a202	219	resp = -1;
JLS	0:59939414a202	220	break;
JLS	0:59939414a202	221	default :
JLS	0:59939414a202	222	resp = 0; // else return 0
JLS	0:59939414a202	223	break;
JLS	0:59939414a202	224	}
JLS	0:59939414a202	225	#if DEBUGMODE
JLS	0:59939414a202	226	pc.printf(" Baudrate reply received : %d\n\r",resp);
JLS	0:59939414a202	227	#endif
JLS	0:59939414a202	228	}
JLS	0:59939414a202	229
JLS	0:59939414a202	230	//******************************************************************************************************
JLS	0:59939414a202	231	int TFT_4DGL :: readVERSION(char *command, int number) { // read screen info and populate data
JLS	0:59939414a202	232
JLS	0:59939414a202	233	int i, temp = 0, resp = 0;
JLS	0:59939414a202	234	char response[5] = "";
JLS	0:59939414a202	235
JLS	0:59939414a202	236	freeBUFFER();
JLS	0:59939414a202	237
JLS	0:59939414a202	238	for (i = 0; i < number; i++) writeBYTE(command[i]); // send all chars to serial port
JLS	0:59939414a202	239
JLS	0:59939414a202	240	while (!_cmd.readable()) wait_ms(TEMPO); // wait for screen answer
JLS	0:59939414a202	241
JLS	0:59939414a202	242	while (_cmd.readable()) {
JLS	0:59939414a202	243	temp = _cmd.getc();
JLS	0:59939414a202	244	response[resp++] = (char)temp;
JLS	0:59939414a202	245	}
JLS	0:59939414a202	246	switch (resp) {
JLS	0:59939414a202	247	case 5 : // if OK populate data and return 1
JLS	0:59939414a202	248	type = response[0];
JLS	0:59939414a202	249	revision = response[1];
JLS	0:59939414a202	250	firmware = response[2];
JLS	0:59939414a202	251	reserved1 = response[3];
JLS	0:59939414a202	252	reserved2 = response[4];
JLS	0:59939414a202	253	resp = 1;
JLS	0:59939414a202	254	break;
JLS	0:59939414a202	255	default :
JLS	0:59939414a202	256	resp = 0; // else return 0
JLS	0:59939414a202	257	break;
JLS	0:59939414a202	258	}
JLS	0:59939414a202	259	return resp;
JLS	0:59939414a202	260	}
JLS	0:59939414a202	261
JLS	0:59939414a202	262	//****************************************************************************************************
JLS	0:59939414a202	263	void TFT_4DGL :: background_color(int color) { // set screen background color
JLS	0:59939414a202	264	char command[3]= ""; // input color is in 24bits like 0xRRGGBB
JLS	0:59939414a202	265
JLS	0:59939414a202	266	command[0] = BCKGDCOLOR;
JLS	0:59939414a202	267
JLS	0:59939414a202	268	int red5 = (color >> (16 + 3)) & 0x1F; // get red on 5 bits
JLS	0:59939414a202	269	int green6 = (color >> (8 + 2)) & 0x3F; // get green on 6 bits
JLS	0:59939414a202	270	int blue5 = (color >> (0 + 3)) & 0x1F; // get blue on 5 bits
JLS	0:59939414a202	271
JLS	0:59939414a202	272	command[1] = ((red5 << 3) + (green6 >> 3)) & 0xFF; // first part of 16 bits color
JLS	0:59939414a202	273	command[2] = ((green6 << 5) + (blue5 >> 0)) & 0xFF; // second part of 16 bits color
JLS	0:59939414a202	274
JLS	0:59939414a202	275	writeCOMMAND(command, 3);
JLS	0:59939414a202	276	}
JLS	0:59939414a202	277
JLS	0:59939414a202	278	//****************************************************************************************************
JLS	0:59939414a202	279	void TFT_4DGL :: display_control(char mode, char value) { // set screen mode to value
JLS	0:59939414a202	280	char command[3]= "";
JLS	0:59939414a202	281
JLS	0:59939414a202	282	command[0] = DISPCONTROL;
JLS	0:59939414a202	283	command[1] = mode;
JLS	0:59939414a202	284	command[2] = value;
JLS	0:59939414a202	285
JLS	0:59939414a202	286	if (mode == ORIENTATION) {
JLS	0:59939414a202	287	switch (value) {
JLS	0:59939414a202	288	case LANDSCAPE :
JLS	0:59939414a202	289	current_orientation = IS_LANDSCAPE;
JLS	0:59939414a202	290	break;
JLS	0:59939414a202	291	case LANDSCAPE_R :
JLS	0:59939414a202	292	current_orientation = IS_LANDSCAPE;
JLS	0:59939414a202	293	break;
JLS	0:59939414a202	294	case PORTRAIT :
JLS	0:59939414a202	295	current_orientation = IS_PORTRAIT;
JLS	0:59939414a202	296	break;
JLS	0:59939414a202	297	case PORTRAIT_R :
JLS	0:59939414a202	298	current_orientation = IS_PORTRAIT;
JLS	0:59939414a202	299	break;
JLS	0:59939414a202	300	}
JLS	0:59939414a202	301	set_font(current_font);
JLS	0:59939414a202	302	}
JLS	0:59939414a202	303	writeCOMMAND(command, 3);
JLS	0:59939414a202	304
JLS	0:59939414a202	305	}
JLS	0:59939414a202	306
JLS	0:59939414a202	307	//****************************************************************************************************
JLS	0:59939414a202	308	void TFT_4DGL :: set_volume(char value) { // set sound volume to value
JLS	0:59939414a202	309	char command[2]= "";
JLS	0:59939414a202	310
JLS	0:59939414a202	311	command[0] = SETVOLUME;
JLS	0:59939414a202	312	command[1] = value;
JLS	0:59939414a202	313
JLS	0:59939414a202	314	writeCOMMAND(command, 2);
JLS	0:59939414a202	315	}
JLS	0:59939414a202	316
JLS	0:59939414a202	317
JLS	0:59939414a202	318	//******************************************************************************************************
JLS	0:59939414a202	319	void TFT_4DGL :: getTOUCH(char command, int number, int x, int *y) { // read screen info and populate data
JLS	0:59939414a202	320
JLS	0:59939414a202	321	#if DEBUGMODE
JLS	0:59939414a202	322	pc.printf("\n\r");
JLS	0:59939414a202	323	pc.printf("New COMMAND : 0x%02X\n\r", command[0]);
JLS	0:59939414a202	324	#endif
JLS	0:59939414a202	325	int i, temp = 0, resp = 0;
JLS	0:59939414a202	326	char response[5] = "";
JLS	0:59939414a202	327
JLS	0:59939414a202	328	freeBUFFER();
JLS	0:59939414a202	329
JLS	0:59939414a202	330	for (i = 0; i < number; i++) writeBYTE(command[i]); // send all chars to serial port
JLS	0:59939414a202	331
JLS	0:59939414a202	332	while (!_cmd.readable()) wait_ms(TEMPO); // wait for screen answer
JLS	0:59939414a202	333
JLS	0:59939414a202	334	while (_cmd.readable()) {
JLS	0:59939414a202	335	temp = _cmd.getc();
JLS	0:59939414a202	336	response[resp++] = (char)temp;
JLS	0:59939414a202	337	}
JLS	0:59939414a202	338
JLS	0:59939414a202	339	#if DEBUGMODE
JLS	0:59939414a202	340	pc.printf(" Answer received %d : 0x%02X 0x%02X 0x%02X 0x%02X\n\r", resp, response[0], response[1], response[2], response[3]);
JLS	0:59939414a202	341	#endif
JLS	0:59939414a202	342
JLS	0:59939414a202	343	switch (resp) {
JLS	0:59939414a202	344	case 4 : // if OK populate data
JLS	0:59939414a202	345	x = ((response[0]<<8)+ response[1]) (response[0] != 0xFF);
JLS	0:59939414a202	346	y = ((response[2]<<8)+ response[3]) (response[2] != 0xFF);
JLS	0:59939414a202	347	break;
JLS	0:59939414a202	348	default :
JLS	0:59939414a202	349	*x = -1;
JLS	0:59939414a202	350	*y = -1;
JLS	0:59939414a202	351	break;
JLS	0:59939414a202	352	}
JLS	0:59939414a202	353
JLS	0:59939414a202	354	#if DEBUGMODE
JLS	0:59939414a202	355	pc.printf(" X,Y : %03d,%03d\n\r", x, y);
JLS	0:59939414a202	356	#endif
JLS	0:59939414a202	357	}
JLS	0:59939414a202	358
JLS	0:59939414a202	359	//******************************************************************************************************
JLS	0:59939414a202	360	int TFT_4DGL :: getSTATUS(char *command, int number) { // read screen info and populate data
JLS	0:59939414a202	361
JLS	0:59939414a202	362	#if DEBUGMODE
JLS	0:59939414a202	363	pc.printf("\n\r");
JLS	0:59939414a202	364	pc.printf("New COMMAND : 0x%02X\n\r", command[0]);
JLS	0:59939414a202	365	#endif
JLS	0:59939414a202	366
JLS	0:59939414a202	367	int i, temp = 0, resp = 0;
JLS	0:59939414a202	368	char response[5] = "";
JLS	0:59939414a202	369
JLS	0:59939414a202	370	freeBUFFER();
JLS	0:59939414a202	371
JLS	0:59939414a202	372	for (i = 0; i < number; i++) writeBYTE(command[i]); // send all chars to serial port
JLS	0:59939414a202	373
JLS	0:59939414a202	374	while (!_cmd.readable()) wait_ms(TEMPO); // wait for screen answer
JLS	0:59939414a202	375
JLS	0:59939414a202	376	while (_cmd.readable()) {
JLS	0:59939414a202	377	temp = _cmd.getc();
JLS	0:59939414a202	378	response[resp++] = (char)temp;
JLS	0:59939414a202	379	}
JLS	0:59939414a202	380	switch (resp) {
JLS	0:59939414a202	381	case 4 :
JLS	0:59939414a202	382	resp = (int)response[1]; // if OK populate data
JLS	0:59939414a202	383	break;
JLS	0:59939414a202	384	default :
JLS	0:59939414a202	385	resp = -1; // else return 0
JLS	0:59939414a202	386	break;
JLS	0:59939414a202	387	}
JLS	0:59939414a202	388
JLS	0:59939414a202	389	#if DEBUGMODE
JLS	0:59939414a202	390	pc.printf(" Answer received : %d\n\r", resp);
JLS	0:59939414a202	391	#endif
JLS	0:59939414a202	392
JLS	0:59939414a202	393	return resp;
JLS	0:59939414a202	394	}

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_main.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