ACT attractor

Committer:
JLS
Date:
Sat Jan 01 12:47:14 2011 +0000
Revision:
0:1c4e0927d6e3

        

Who changed what in which revision?

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