Rihards Balass / 4DGL-mbed-32PTU

4D systems Picaso uLCD 32PTU touch display library

Picaso_4DGL-32PTU_main.cpp@27:dbf79d116497, 2016-09-29 (annotated)

Committer:
CaptainR
Date:
Thu Sep 29 19:40:53 2016 +0000
Revision:
27:dbf79d116497
Parent:
26:c6a803706a42 
get word and get string

Who changed what in which revision?

UserRevisionLine numberNew contents of line
CaptainR 0:a5ef6bc3c2e8 1 //
CaptainR 2:81eaaa491a02 2 // Picaso_4DGL-32PTU is a class to drive 4D Systems TFT touch screens with PICASO processor
CaptainR 2:81eaaa491a02 3 // Tested with NUCLEO L152RE development board
CaptainR 2:81eaaa491a02 4 // Copyright (C) <2016> Rihards Balass <rihards.balass@gmail.com>
CaptainR 0:a5ef6bc3c2e8 5 //
CaptainR 2:81eaaa491a02 6 // Picaso_4DGL-32PTU is free software: you can redistribute it and/or modify
CaptainR 2:81eaaa491a02 7 // it under the terms of the GNU General Public License as published by
CaptainR 2:81eaaa491a02 8 // the Free Software Foundation, either version 3 of the License, or
CaptainR 2:81eaaa491a02 9 // (at your option) any later version.
CaptainR 2:81eaaa491a02 10 //
CaptainR 2:81eaaa491a02 11 // Picaso_4DGL-32PTU is distributed in the hope that it will be useful,
CaptainR 2:81eaaa491a02 12 // but WITHOUT ANY WARRANTY; without even the implied warranty of
CaptainR 2:81eaaa491a02 13 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
CaptainR 2:81eaaa491a02 14 // GNU General Public License for more details.
CaptainR 2:81eaaa491a02 15 //
CaptainR 2:81eaaa491a02 16 // You can see GNU General Public License at <http://www.gnu.org/licenses/>.
CaptainR 0:a5ef6bc3c2e8 17 //
CaptainR 0:a5ef6bc3c2e8 18
CaptainR 0:a5ef6bc3c2e8 19 #include "mbed.h"
CaptainR 0:a5ef6bc3c2e8 20 #include "Picaso_4DGL-32PTU.h"
CaptainR 0:a5ef6bc3c2e8 21
CaptainR 4:50511ed54ab4 22 DigitalOut led1(LED1);
CaptainR 0:a5ef6bc3c2e8 23
CaptainR 0:a5ef6bc3c2e8 24 //******************************************************************************************************
CaptainR 3:dcfbceb81fef 25 PICASO_4DGL :: PICASO_4DGL(PinName tx, PinName rx, PinName rst) : pc(USBTX, USBRX), _cmd(tx, rx), _rst(rst) { // Constructor
CaptainR 4:50511ed54ab4 26
CaptainR 5:890ddd974624 27 index = 0;
CaptainR 12:29f5ad896382 28 _cmd.attach(this, &PICASO_4DGL::rxCallback, Serial::RxIrq);
CaptainR 4:50511ed54ab4 29
CaptainR 11:3ebd2263f3e9 30 pc.baud(115200);
CaptainR 0:a5ef6bc3c2e8 31 #if DEBUGMODE
CaptainR 0:a5ef6bc3c2e8 32 pc.printf("\n\n\n");
CaptainR 0:a5ef6bc3c2e8 33 pc.printf("********************\n\r");
CaptainR 3:dcfbceb81fef 34 pc.printf("PICASO_4DGL CONSTRUCTOR\n\r");
CaptainR 0:a5ef6bc3c2e8 35 pc.printf("********************\n\r");
CaptainR 0:a5ef6bc3c2e8 36 #endif
CaptainR 0:a5ef6bc3c2e8 37 _rst = 1; // put RESET pin to high to start TFT screen
CaptainR 12:29f5ad896382 38
CaptainR 0:a5ef6bc3c2e8 39 #if DEBUGMODE
CaptainR 0:a5ef6bc3c2e8 40 pc.printf("Wait 3 seconds for startup...\n\r");
CaptainR 3:dcfbceb81fef 41 #endif
CaptainR 0:a5ef6bc3c2e8 42 wait_ms(3000);
CaptainR 3:dcfbceb81fef 43
CaptainR 0:a5ef6bc3c2e8 44 #if DEBUGMODE
CaptainR 0:a5ef6bc3c2e8 45 pc.printf("set baudrate to 9600...\n\r");
CaptainR 0:a5ef6bc3c2e8 46 #endif
CaptainR 4:50511ed54ab4 47 baudrate(9600);
CaptainR 3:dcfbceb81fef 48
CaptainR 0:a5ef6bc3c2e8 49 #if DEBUGMODE
CaptainR 0:a5ef6bc3c2e8 50 pc.printf("clear screen...\n\r");
CaptainR 0:a5ef6bc3c2e8 51 #endif
CaptainR 3:dcfbceb81fef 52 wait_ms(1000);
CaptainR 12:29f5ad896382 53 screenMode(landscape);
CaptainR 12:29f5ad896382 54 setFont(font3);
CaptainR 12:29f5ad896382 55 cls();
CaptainR 0:a5ef6bc3c2e8 56
CaptainR 12:29f5ad896382 57 #if DEMO
CaptainR 3:dcfbceb81fef 58 //mainDemo();
CaptainR 0:a5ef6bc3c2e8 59 //textDemo();
CaptainR 12:29f5ad896382 60 //graphicsDemo();
CaptainR 20:88e137b9ea46 61 //mediaDemo();
CaptainR 20:88e137b9ea46 62 fileSystemDemo();
CaptainR 0:a5ef6bc3c2e8 63 #endif
CaptainR 0:a5ef6bc3c2e8 64 }
CaptainR 0:a5ef6bc3c2e8 65
CaptainR 0:a5ef6bc3c2e8 66 //******************************************************************************************************
CaptainR 5:890ddd974624 67 void PICASO_4DGL :: rxCallback() {
CaptainR 0:a5ef6bc3c2e8 68
CaptainR 13:1a0800957412 69 if(_cmd.readable()) rxBuf[index++] = _cmd.getc();
CaptainR 0:a5ef6bc3c2e8 70 }
CaptainR 0:a5ef6bc3c2e8 71
CaptainR 0:a5ef6bc3c2e8 72 //******************************************************************************************************
CaptainR 3:dcfbceb81fef 73 void PICASO_4DGL :: writeBYTE(char c) { // send a BYTE command to screen
CaptainR 0:a5ef6bc3c2e8 74
CaptainR 0:a5ef6bc3c2e8 75 _cmd.putc(c);
CaptainR 0:a5ef6bc3c2e8 76
CaptainR 0:a5ef6bc3c2e8 77 #if DEBUGMODE
CaptainR 22:cea582ea74c1 78 pc.printf(" Char sent : 0x%02X ",c);
CaptainR 22:cea582ea74c1 79 pc.putc(c);
CaptainR 22:cea582ea74c1 80 pc.printf(" \n\r");
CaptainR 0:a5ef6bc3c2e8 81 #endif
CaptainR 0:a5ef6bc3c2e8 82
CaptainR 0:a5ef6bc3c2e8 83 }
CaptainR 0:a5ef6bc3c2e8 84
CaptainR 0:a5ef6bc3c2e8 85 //******************************************************************************************************
CaptainR 3:dcfbceb81fef 86 void PICASO_4DGL :: freeBUFFER(void) { // Clear serial buffer before writing command
CaptainR 0:a5ef6bc3c2e8 87
CaptainR 0:a5ef6bc3c2e8 88 while (_cmd.readable()) _cmd.getc(); // clear buffer garbage
CaptainR 22:cea582ea74c1 89 index = 0;
CaptainR 0:a5ef6bc3c2e8 90 }
CaptainR 0:a5ef6bc3c2e8 91
CaptainR 0:a5ef6bc3c2e8 92 //******************************************************************************************************
CaptainR 3:dcfbceb81fef 93 void PICASO_4DGL :: writeCOMMAND(char *command, int number) { // send several BYTES making a command and return an answer
CaptainR 0:a5ef6bc3c2e8 94
CaptainR 0:a5ef6bc3c2e8 95 #if DEBUGMODE
CaptainR 0:a5ef6bc3c2e8 96 pc.printf("\n\r");
CaptainR 0:a5ef6bc3c2e8 97 pc.printf("New COMMAND : 0x%02X%02X\n\r", command[0], command[1]);
CaptainR 0:a5ef6bc3c2e8 98 #endif
CaptainR 0:a5ef6bc3c2e8 99 int i;
CaptainR 0:a5ef6bc3c2e8 100 freeBUFFER();
CaptainR 13:1a0800957412 101 //index = 0;
CaptainR 13:1a0800957412 102
CaptainR 0:a5ef6bc3c2e8 103 for (i = 0; i < number; i++) writeBYTE(command[i]); // send command to serial port
CaptainR 0:a5ef6bc3c2e8 104 }
CaptainR 0:a5ef6bc3c2e8 105
CaptainR 15:86bdf382e6f7 106 //******************************************************************************************************
CaptainR 15:86bdf382e6f7 107 void PICASO_4DGL :: writeCOMMAND_2(char *command, int number) { // send several BYTES making a command and return an answer
CaptainR 15:86bdf382e6f7 108
CaptainR 15:86bdf382e6f7 109 #if DEBUGMODE
CaptainR 15:86bdf382e6f7 110 pc.printf("\n\r");
CaptainR 15:86bdf382e6f7 111 pc.printf("New COMMAND : 0x%02X%02X\n\r", command[0], command[1]);
CaptainR 15:86bdf382e6f7 112 #endif
CaptainR 15:86bdf382e6f7 113 int i;
CaptainR 15:86bdf382e6f7 114 freeBUFFER();
CaptainR 15:86bdf382e6f7 115 //index = 0;
CaptainR 15:86bdf382e6f7 116
CaptainR 15:86bdf382e6f7 117 for (i = 0; i < number; i++) _cmd.putc(command[i]); // send command to serial port
CaptainR 15:86bdf382e6f7 118 }
CaptainR 15:86bdf382e6f7 119
CaptainR 0:a5ef6bc3c2e8 120 //**************************************************************************
CaptainR 3:dcfbceb81fef 121 void PICASO_4DGL :: reset() { // Reset Screen
CaptainR 0:a5ef6bc3c2e8 122
CaptainR 0:a5ef6bc3c2e8 123 _rst = 0; // put RESET pin to low
CaptainR 0:a5ef6bc3c2e8 124 wait_ms(TEMPO); // wait a few milliseconds for command reception
CaptainR 0:a5ef6bc3c2e8 125 _rst = 1; // put RESET back to high
CaptainR 0:a5ef6bc3c2e8 126 wait(3); // wait 3s for screen to restart
CaptainR 0:a5ef6bc3c2e8 127
CaptainR 0:a5ef6bc3c2e8 128 freeBUFFER(); // clean buffer from possible garbage
CaptainR 0:a5ef6bc3c2e8 129 }
CaptainR 0:a5ef6bc3c2e8 130
CaptainR 0:a5ef6bc3c2e8 131 //**************************************************************************
CaptainR 3:dcfbceb81fef 132 void PICASO_4DGL :: baudrate(long speed) { // set screen baud rate
CaptainR 0:a5ef6bc3c2e8 133
CaptainR 0:a5ef6bc3c2e8 134 char command[4]= "";
CaptainR 2:81eaaa491a02 135 command[0] = (BAUDRATE >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 136 command[1] = (BAUDRATE >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 137 switch (speed) {
CaptainR 0:a5ef6bc3c2e8 138 case 300 :
CaptainR 2:81eaaa491a02 139 command[2] = (BAUD_300 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 140 command[3] = (BAUD_300 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 141 break;
CaptainR 0:a5ef6bc3c2e8 142 case 600 :
CaptainR 2:81eaaa491a02 143 command[2] = (BAUD_600 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 144 command[3] = (BAUD_600 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 145 break;
CaptainR 0:a5ef6bc3c2e8 146 case 1200 :
CaptainR 2:81eaaa491a02 147 command[2] = (BAUD_1200 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 148 command[3] = (BAUD_1200 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 149 break;
CaptainR 0:a5ef6bc3c2e8 150 case 2400 :
CaptainR 2:81eaaa491a02 151 command[2] = (BAUD_2400 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 152 command[3] = (BAUD_2400 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 153 break;
CaptainR 0:a5ef6bc3c2e8 154 case 4800 :
CaptainR 2:81eaaa491a02 155 command[2] = (BAUD_4800 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 156 command[3] = (BAUD_4800 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 157 break;
CaptainR 0:a5ef6bc3c2e8 158 case 9600 :
CaptainR 2:81eaaa491a02 159 command[2] = (BAUD_9600 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 160 command[3] = (BAUD_9600 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 161 break;
CaptainR 0:a5ef6bc3c2e8 162 case 14400 :
CaptainR 2:81eaaa491a02 163 command[2] = (BAUD_14400 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 164 command[3] = (BAUD_14400 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 165 break;
CaptainR 0:a5ef6bc3c2e8 166 case 19200 :
CaptainR 2:81eaaa491a02 167 command[2] = (BAUD_19200 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 168 command[3] = (BAUD_19200 >> (8*0)) & 0xff;
CaptainR 2:81eaaa491a02 169 break;
CaptainR 2:81eaaa491a02 170 case 31250 :
CaptainR 2:81eaaa491a02 171 command[2] = (BAUD_31250 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 172 command[3] = (BAUD_31250 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 173 break;
CaptainR 0:a5ef6bc3c2e8 174 case 38400 :
CaptainR 2:81eaaa491a02 175 command[2] = (BAUD_38400 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 176 command[3] = (BAUD_38400 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 177 break;
CaptainR 0:a5ef6bc3c2e8 178 case 56000 :
CaptainR 2:81eaaa491a02 179 command[2] = (BAUD_56000 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 180 command[3] = (BAUD_56000 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 181 break;
CaptainR 0:a5ef6bc3c2e8 182 case 57600 :
CaptainR 2:81eaaa491a02 183 command[2] = (BAUD_57600 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 184 command[3] = (BAUD_57600 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 185 break;
CaptainR 0:a5ef6bc3c2e8 186 case 115200 :
CaptainR 2:81eaaa491a02 187 command[2] = (BAUD_115200 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 188 command[3] = (BAUD_115200 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 189 break;
CaptainR 0:a5ef6bc3c2e8 190 case 128000 :
CaptainR 2:81eaaa491a02 191 command[2] = (BAUD_128000 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 192 command[3] = (BAUD_128000 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 193 break;
CaptainR 0:a5ef6bc3c2e8 194 case 256000 :
CaptainR 2:81eaaa491a02 195 command[2] = (BAUD_256000 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 196 command[3] = (BAUD_256000 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 197 break;
CaptainR 0:a5ef6bc3c2e8 198 case 300000 :
CaptainR 2:81eaaa491a02 199 command[2] = (BAUD_300000 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 200 command[3] = (BAUD_300000 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 201 break;
CaptainR 0:a5ef6bc3c2e8 202 case 375000 :
CaptainR 2:81eaaa491a02 203 command[2] = (BAUD_375000 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 204 command[3] = (BAUD_375000 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 205 break;
CaptainR 0:a5ef6bc3c2e8 206 case 500000 :
CaptainR 2:81eaaa491a02 207 command[2] = (BAUD_500000 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 208 command[3] = (BAUD_500000 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 209 break;
CaptainR 0:a5ef6bc3c2e8 210 case 600000 :
CaptainR 2:81eaaa491a02 211 command[2] = (BAUD_600000 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 212 command[3] = (BAUD_600000 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 213 break;
CaptainR 0:a5ef6bc3c2e8 214 default :
CaptainR 2:81eaaa491a02 215 command[2] = (BAUD_9600 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 216 command[3] = (BAUD_9600 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 217 speed = 9600;
CaptainR 0:a5ef6bc3c2e8 218 break;
CaptainR 0:a5ef6bc3c2e8 219 }
CaptainR 0:a5ef6bc3c2e8 220
CaptainR 0:a5ef6bc3c2e8 221 #if DEBUGMODE
CaptainR 0:a5ef6bc3c2e8 222 pc.printf("\n\r");
CaptainR 13:1a0800957412 223 pc.printf("New BAUDRATE : 0x%02X%02X\n\r", command[0], command[1]);
CaptainR 0:a5ef6bc3c2e8 224 #endif
CaptainR 0:a5ef6bc3c2e8 225
CaptainR 0:a5ef6bc3c2e8 226 int i;
CaptainR 0:a5ef6bc3c2e8 227 freeBUFFER();
CaptainR 0:a5ef6bc3c2e8 228
CaptainR 0:a5ef6bc3c2e8 229 //Change baudrates - as instructed by 4DGL
CaptainR 12:29f5ad896382 230 if (speed == 128000) speed = 133929;
CaptainR 12:29f5ad896382 231 if (speed == 256000) speed = 281250;
CaptainR 0:a5ef6bc3c2e8 232 if (speed == 300000) speed = 312500;
CaptainR 12:29f5ad896382 233 if (speed == 375000) speed = 401786;
CaptainR 0:a5ef6bc3c2e8 234 if (speed == 500000) speed = 562500;
CaptainR 0:a5ef6bc3c2e8 235 if (speed == 600000) speed = 703125;
CaptainR 0:a5ef6bc3c2e8 236
CaptainR 0:a5ef6bc3c2e8 237 for (i = 0; i <4; i++) writeBYTE(command[i]); // send command to serial port
CaptainR 12:29f5ad896382 238 _cmd.baud(speed);
CaptainR 5:890ddd974624 239 getResponse(1);
CaptainR 0:a5ef6bc3c2e8 240 }