Rihards Balass / 4DGL-mbed-32PTU

Important changes to repositories hosted on mbed.com

Mbed hosted mercurial repositories are deprecated and are due to be permanently deleted in July 2026.

To keep a copy of this software download the repository Zip archive or clone locally using Mercurial.

It is also possible to export all your personal repositories from the account settings page.

Picaso_4DGL-32PTU_main.cpp@22:cea582ea74c1, 2016-09-27 (annotated)

Committer:
CaptainR
Date:
Tue Sep 27 08:48:08 2016 +0000
Revision:
22:cea582ea74c1
Parent:
21:ea68a8a3cea4
Child:
26:c6a803706a42
fileCount, listFilenames, find first, find first and report (started)

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 13:1a0800957412 27 //rxBuf[RXBUFLEN] = 0; // create buffer
CaptainR 13:1a0800957412 28 //buffer[BUFFER_SIZE] = 0;
CaptainR 5:890ddd974624 29 index = 0;
CaptainR 12:29f5ad896382 30 _cmd.attach(this, &PICASO_4DGL::rxCallback, Serial::RxIrq);
CaptainR 4:50511ed54ab4 31
CaptainR 11:3ebd2263f3e9 32 pc.baud(115200);
CaptainR 0:a5ef6bc3c2e8 33 #if DEBUGMODE
CaptainR 0:a5ef6bc3c2e8 34 pc.printf("\n\n\n");
CaptainR 0:a5ef6bc3c2e8 35 pc.printf("********************\n\r");
CaptainR 3:dcfbceb81fef 36 pc.printf("PICASO_4DGL CONSTRUCTOR\n\r");
CaptainR 0:a5ef6bc3c2e8 37 pc.printf("********************\n\r");
CaptainR 0:a5ef6bc3c2e8 38 #endif
CaptainR 0:a5ef6bc3c2e8 39 _rst = 1; // put RESET pin to high to start TFT screen
CaptainR 12:29f5ad896382 40
CaptainR 0:a5ef6bc3c2e8 41 #if DEBUGMODE
CaptainR 0:a5ef6bc3c2e8 42 pc.printf("Wait 3 seconds for startup...\n\r");
CaptainR 3:dcfbceb81fef 43 #endif
CaptainR 0:a5ef6bc3c2e8 44 wait_ms(3000);
CaptainR 3:dcfbceb81fef 45
CaptainR 0:a5ef6bc3c2e8 46 #if DEBUGMODE
CaptainR 0:a5ef6bc3c2e8 47 pc.printf("set baudrate to 9600...\n\r");
CaptainR 0:a5ef6bc3c2e8 48 #endif
CaptainR 4:50511ed54ab4 49 baudrate(9600);
CaptainR 3:dcfbceb81fef 50
CaptainR 0:a5ef6bc3c2e8 51 #if DEBUGMODE
CaptainR 0:a5ef6bc3c2e8 52 pc.printf("clear screen...\n\r");
CaptainR 0:a5ef6bc3c2e8 53 #endif
CaptainR 3:dcfbceb81fef 54 wait_ms(1000);
CaptainR 12:29f5ad896382 55 screenMode(landscape);
CaptainR 12:29f5ad896382 56 setFont(font3);
CaptainR 12:29f5ad896382 57 cls();
CaptainR 0:a5ef6bc3c2e8 58
CaptainR 12:29f5ad896382 59 #if DEMO
CaptainR 3:dcfbceb81fef 60 //mainDemo();
CaptainR 0:a5ef6bc3c2e8 61 //textDemo();
CaptainR 12:29f5ad896382 62 //graphicsDemo();
CaptainR 20:88e137b9ea46 63 //mediaDemo();
CaptainR 20:88e137b9ea46 64 fileSystemDemo();
CaptainR 0:a5ef6bc3c2e8 65 #endif
CaptainR 0:a5ef6bc3c2e8 66 }
CaptainR 0:a5ef6bc3c2e8 67
CaptainR 0:a5ef6bc3c2e8 68 //******************************************************************************************************
CaptainR 5:890ddd974624 69 void PICASO_4DGL :: rxCallback() {
CaptainR 0:a5ef6bc3c2e8 70
CaptainR 13:1a0800957412 71 if(_cmd.readable()) rxBuf[index++] = _cmd.getc();
CaptainR 0:a5ef6bc3c2e8 72 }
CaptainR 0:a5ef6bc3c2e8 73
CaptainR 0:a5ef6bc3c2e8 74 //******************************************************************************************************
CaptainR 3:dcfbceb81fef 75 void PICASO_4DGL :: writeBYTE(char c) { // send a BYTE command to screen
CaptainR 0:a5ef6bc3c2e8 76
CaptainR 0:a5ef6bc3c2e8 77 _cmd.putc(c);
CaptainR 0:a5ef6bc3c2e8 78
CaptainR 0:a5ef6bc3c2e8 79 #if DEBUGMODE
CaptainR 22:cea582ea74c1 80 pc.printf(" Char sent : 0x%02X ",c);
CaptainR 22:cea582ea74c1 81 pc.putc(c);
CaptainR 22:cea582ea74c1 82 pc.printf(" \n\r");
CaptainR 0:a5ef6bc3c2e8 83 #endif
CaptainR 0:a5ef6bc3c2e8 84
CaptainR 0:a5ef6bc3c2e8 85 }
CaptainR 0:a5ef6bc3c2e8 86
CaptainR 0:a5ef6bc3c2e8 87 //******************************************************************************************************
CaptainR 3:dcfbceb81fef 88 void PICASO_4DGL :: freeBUFFER(void) { // Clear serial buffer before writing command
CaptainR 0:a5ef6bc3c2e8 89
CaptainR 0:a5ef6bc3c2e8 90 while (_cmd.readable()) _cmd.getc(); // clear buffer garbage
CaptainR 22:cea582ea74c1 91 index = 0;
CaptainR 0:a5ef6bc3c2e8 92 }
CaptainR 0:a5ef6bc3c2e8 93
CaptainR 0:a5ef6bc3c2e8 94 //******************************************************************************************************
CaptainR 3:dcfbceb81fef 95 void PICASO_4DGL :: writeCOMMAND(char *command, int number) { // send several BYTES making a command and return an answer
CaptainR 0:a5ef6bc3c2e8 96
CaptainR 0:a5ef6bc3c2e8 97 #if DEBUGMODE
CaptainR 0:a5ef6bc3c2e8 98 pc.printf("\n\r");
CaptainR 0:a5ef6bc3c2e8 99 pc.printf("New COMMAND : 0x%02X%02X\n\r", command[0], command[1]);
CaptainR 0:a5ef6bc3c2e8 100 #endif
CaptainR 0:a5ef6bc3c2e8 101 int i;
CaptainR 0:a5ef6bc3c2e8 102 freeBUFFER();
CaptainR 13:1a0800957412 103 //index = 0;
CaptainR 13:1a0800957412 104
CaptainR 0:a5ef6bc3c2e8 105 for (i = 0; i < number; i++) writeBYTE(command[i]); // send command to serial port
CaptainR 0:a5ef6bc3c2e8 106 }
CaptainR 0:a5ef6bc3c2e8 107
CaptainR 15:86bdf382e6f7 108 //******************************************************************************************************
CaptainR 15:86bdf382e6f7 109 void PICASO_4DGL :: writeCOMMAND_2(char *command, int number) { // send several BYTES making a command and return an answer
CaptainR 15:86bdf382e6f7 110
CaptainR 15:86bdf382e6f7 111 #if DEBUGMODE
CaptainR 15:86bdf382e6f7 112 pc.printf("\n\r");
CaptainR 15:86bdf382e6f7 113 pc.printf("New COMMAND : 0x%02X%02X\n\r", command[0], command[1]);
CaptainR 15:86bdf382e6f7 114 #endif
CaptainR 15:86bdf382e6f7 115 int i;
CaptainR 15:86bdf382e6f7 116 freeBUFFER();
CaptainR 15:86bdf382e6f7 117 //index = 0;
CaptainR 15:86bdf382e6f7 118
CaptainR 15:86bdf382e6f7 119 for (i = 0; i < number; i++) _cmd.putc(command[i]); // send command to serial port
CaptainR 15:86bdf382e6f7 120 }
CaptainR 15:86bdf382e6f7 121
CaptainR 0:a5ef6bc3c2e8 122 //**************************************************************************
CaptainR 3:dcfbceb81fef 123 void PICASO_4DGL :: reset() { // Reset Screen
CaptainR 0:a5ef6bc3c2e8 124
CaptainR 0:a5ef6bc3c2e8 125 _rst = 0; // put RESET pin to low
CaptainR 0:a5ef6bc3c2e8 126 wait_ms(TEMPO); // wait a few milliseconds for command reception
CaptainR 0:a5ef6bc3c2e8 127 _rst = 1; // put RESET back to high
CaptainR 0:a5ef6bc3c2e8 128 wait(3); // wait 3s for screen to restart
CaptainR 0:a5ef6bc3c2e8 129
CaptainR 0:a5ef6bc3c2e8 130 freeBUFFER(); // clean buffer from possible garbage
CaptainR 0:a5ef6bc3c2e8 131 }
CaptainR 0:a5ef6bc3c2e8 132
CaptainR 0:a5ef6bc3c2e8 133 //**************************************************************************
CaptainR 3:dcfbceb81fef 134 void PICASO_4DGL :: baudrate(long speed) { // set screen baud rate
CaptainR 0:a5ef6bc3c2e8 135
CaptainR 0:a5ef6bc3c2e8 136 char command[4]= "";
CaptainR 2:81eaaa491a02 137 command[0] = (BAUDRATE >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 138 command[1] = (BAUDRATE >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 139 switch (speed) {
CaptainR 0:a5ef6bc3c2e8 140 case 300 :
CaptainR 2:81eaaa491a02 141 command[2] = (BAUD_300 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 142 command[3] = (BAUD_300 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 143 break;
CaptainR 0:a5ef6bc3c2e8 144 case 600 :
CaptainR 2:81eaaa491a02 145 command[2] = (BAUD_600 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 146 command[3] = (BAUD_600 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 147 break;
CaptainR 0:a5ef6bc3c2e8 148 case 1200 :
CaptainR 2:81eaaa491a02 149 command[2] = (BAUD_1200 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 150 command[3] = (BAUD_1200 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 151 break;
CaptainR 0:a5ef6bc3c2e8 152 case 2400 :
CaptainR 2:81eaaa491a02 153 command[2] = (BAUD_2400 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 154 command[3] = (BAUD_2400 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 155 break;
CaptainR 0:a5ef6bc3c2e8 156 case 4800 :
CaptainR 2:81eaaa491a02 157 command[2] = (BAUD_4800 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 158 command[3] = (BAUD_4800 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 159 break;
CaptainR 0:a5ef6bc3c2e8 160 case 9600 :
CaptainR 2:81eaaa491a02 161 command[2] = (BAUD_9600 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 162 command[3] = (BAUD_9600 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 163 break;
CaptainR 0:a5ef6bc3c2e8 164 case 14400 :
CaptainR 2:81eaaa491a02 165 command[2] = (BAUD_14400 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 166 command[3] = (BAUD_14400 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 167 break;
CaptainR 0:a5ef6bc3c2e8 168 case 19200 :
CaptainR 2:81eaaa491a02 169 command[2] = (BAUD_19200 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 170 command[3] = (BAUD_19200 >> (8*0)) & 0xff;
CaptainR 2:81eaaa491a02 171 break;
CaptainR 2:81eaaa491a02 172 case 31250 :
CaptainR 2:81eaaa491a02 173 command[2] = (BAUD_31250 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 174 command[3] = (BAUD_31250 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 175 break;
CaptainR 0:a5ef6bc3c2e8 176 case 38400 :
CaptainR 2:81eaaa491a02 177 command[2] = (BAUD_38400 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 178 command[3] = (BAUD_38400 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 179 break;
CaptainR 0:a5ef6bc3c2e8 180 case 56000 :
CaptainR 2:81eaaa491a02 181 command[2] = (BAUD_56000 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 182 command[3] = (BAUD_56000 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 183 break;
CaptainR 0:a5ef6bc3c2e8 184 case 57600 :
CaptainR 2:81eaaa491a02 185 command[2] = (BAUD_57600 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 186 command[3] = (BAUD_57600 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 187 break;
CaptainR 0:a5ef6bc3c2e8 188 case 115200 :
CaptainR 2:81eaaa491a02 189 command[2] = (BAUD_115200 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 190 command[3] = (BAUD_115200 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 191 break;
CaptainR 0:a5ef6bc3c2e8 192 case 128000 :
CaptainR 2:81eaaa491a02 193 command[2] = (BAUD_128000 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 194 command[3] = (BAUD_128000 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 195 break;
CaptainR 0:a5ef6bc3c2e8 196 case 256000 :
CaptainR 2:81eaaa491a02 197 command[2] = (BAUD_256000 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 198 command[3] = (BAUD_256000 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 199 break;
CaptainR 0:a5ef6bc3c2e8 200 case 300000 :
CaptainR 2:81eaaa491a02 201 command[2] = (BAUD_300000 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 202 command[3] = (BAUD_300000 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 203 break;
CaptainR 0:a5ef6bc3c2e8 204 case 375000 :
CaptainR 2:81eaaa491a02 205 command[2] = (BAUD_375000 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 206 command[3] = (BAUD_375000 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 207 break;
CaptainR 0:a5ef6bc3c2e8 208 case 500000 :
CaptainR 2:81eaaa491a02 209 command[2] = (BAUD_500000 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 210 command[3] = (BAUD_500000 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 211 break;
CaptainR 0:a5ef6bc3c2e8 212 case 600000 :
CaptainR 2:81eaaa491a02 213 command[2] = (BAUD_600000 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 214 command[3] = (BAUD_600000 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 215 break;
CaptainR 0:a5ef6bc3c2e8 216 default :
CaptainR 2:81eaaa491a02 217 command[2] = (BAUD_9600 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 218 command[3] = (BAUD_9600 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 219 speed = 9600;
CaptainR 0:a5ef6bc3c2e8 220 break;
CaptainR 0:a5ef6bc3c2e8 221 }
CaptainR 0:a5ef6bc3c2e8 222
CaptainR 0:a5ef6bc3c2e8 223 #if DEBUGMODE
CaptainR 0:a5ef6bc3c2e8 224 pc.printf("\n\r");
CaptainR 13:1a0800957412 225 pc.printf("New BAUDRATE : 0x%02X%02X\n\r", command[0], command[1]);
CaptainR 0:a5ef6bc3c2e8 226 #endif
CaptainR 0:a5ef6bc3c2e8 227
CaptainR 0:a5ef6bc3c2e8 228 int i;
CaptainR 0:a5ef6bc3c2e8 229 freeBUFFER();
CaptainR 0:a5ef6bc3c2e8 230
CaptainR 0:a5ef6bc3c2e8 231 //Change baudrates - as instructed by 4DGL
CaptainR 12:29f5ad896382 232 if (speed == 128000) speed = 133929;
CaptainR 12:29f5ad896382 233 if (speed == 256000) speed = 281250;
CaptainR 0:a5ef6bc3c2e8 234 if (speed == 300000) speed = 312500;
CaptainR 12:29f5ad896382 235 if (speed == 375000) speed = 401786;
CaptainR 0:a5ef6bc3c2e8 236 if (speed == 500000) speed = 562500;
CaptainR 0:a5ef6bc3c2e8 237 if (speed == 600000) speed = 703125;
CaptainR 0:a5ef6bc3c2e8 238
CaptainR 0:a5ef6bc3c2e8 239 for (i = 0; i <4; i++) writeBYTE(command[i]); // send command to serial port
CaptainR 12:29f5ad896382 240 _cmd.baud(speed);
CaptainR 5:890ddd974624 241 getResponse(1);
CaptainR 0:a5ef6bc3c2e8 242 }