2D-Lorenz - Lorenz limit cycle - 2D nonlinear attractor

Users » JLS » Code » 2D-Lorenz

Kamil Ondrousek / Mbed 2 deprecated 2D-Lorenz

Lorenz limit cycle - 2D nonlinear attractor

TFT_4DGL_Text.cpp@0:337717573fe7, 2011-02-08 (annotated)

Committer:: JLS
Date:: Tue Feb 08 21:43:36 2011 +0000
Revision:: 0:337717573fe7

Who changed what in which revision?

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

Repository toolbox

Export to desktop IDE

Build repository

Repository details

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

TFT_4DGL_Text.cpp@0:337717573fe7, 2011-02-08 (annotated)

Who changed what in which revision?

Repository toolbox

Repository details

Important Information for this Arm website

Access Warning