This is a library for 4DGL screens from 4D Systems in Autralia (http://www.4dsystems.com.au). Most graphic, touch and text functions are supported

Dependents:   snake

Fork of 4DGL by Stephane ROCHON

Committer:
lucoby
Date:
Thu Oct 11 18:54:20 2012 +0000
Revision:
9:4b25d5413a06
Parent:
0:1102d253f057
n/a

Who changed what in which revision?

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