Rihards Balass / 4DGL-mbed-32PTU
Committer:
CaptainR
Date:
Mon Sep 12 10:15:54 2016 +0000
Revision:
5:890ddd974624
Parent:
4:50511ed54ab4
Child:
6:a1a85f2bc04b
Changed communication, now uses interupt to get all of data from LCD

Who changed what in which revision?

UserRevisionLine numberNew contents of line
CaptainR 0:a5ef6bc3c2e8 1
CaptainR 0:a5ef6bc3c2e8 2 #include "mbed.h"
CaptainR 0:a5ef6bc3c2e8 3 #include "Picaso_4DGL-32PTU.h"
CaptainR 0:a5ef6bc3c2e8 4
CaptainR 0:a5ef6bc3c2e8 5 #define SHORT_WAIT 500
CaptainR 0:a5ef6bc3c2e8 6 #define LONG_WAIT 2000
CaptainR 0:a5ef6bc3c2e8 7
CaptainR 0:a5ef6bc3c2e8 8 //**************************************************************************
CaptainR 0:a5ef6bc3c2e8 9 // Demo program that goes through graphics based functions
CaptainR 0:a5ef6bc3c2e8 10 //**************************************************************************
CaptainR 3:dcfbceb81fef 11 void PICASO_4DGL :: graphicsDemo() {
CaptainR 0:a5ef6bc3c2e8 12
CaptainR 0:a5ef6bc3c2e8 13 cls();
CaptainR 2:81eaaa491a02 14 screenOrientation(landscape); // set orientation to landscape
CaptainR 0:a5ef6bc3c2e8 15 puts("This is the Graphics functions demo");
CaptainR 0:a5ef6bc3c2e8 16 wait_ms(LONG_WAIT);
CaptainR 0:a5ef6bc3c2e8 17 cls();
CaptainR 5:890ddd974624 18
CaptainR 0:a5ef6bc3c2e8 19 puts("\nLets change all the ");
CaptainR 2:81eaaa491a02 20 textFgColor(Purple);
CaptainR 0:a5ef6bc3c2e8 21 puts("PURPLE");
CaptainR 2:81eaaa491a02 22 textFgColor(Yellow);
CaptainR 0:a5ef6bc3c2e8 23 puts(" bits to yellow");
CaptainR 3:dcfbceb81fef 24 textFgColor(Green); // set Color back to green
CaptainR 0:a5ef6bc3c2e8 25 wait_ms(LONG_WAIT);
CaptainR 2:81eaaa491a02 26 changeColor(Purple, Yellow);
CaptainR 0:a5ef6bc3c2e8 27 wait_ms(LONG_WAIT);
CaptainR 0:a5ef6bc3c2e8 28 cls();
CaptainR 4:50511ed54ab4 29
CaptainR 0:a5ef6bc3c2e8 30 puts("Lets draw some shapes:");
CaptainR 3:dcfbceb81fef 31 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 32 drawCircle(100, 100, 20, Aqua);
CaptainR 3:dcfbceb81fef 33 wait_ms(SHORT_WAIT);
CaptainR 3:dcfbceb81fef 34 drawFilledCircle(50, 50, 20, Red);
CaptainR 3:dcfbceb81fef 35 wait_ms(SHORT_WAIT);
CaptainR 3:dcfbceb81fef 36 drawLine(20, 20, 100, 30, Blue);
CaptainR 3:dcfbceb81fef 37 wait_ms(SHORT_WAIT);
CaptainR 3:dcfbceb81fef 38 drawRectangle(120, 20, 200, 60, Pink);
CaptainR 3:dcfbceb81fef 39 wait_ms(SHORT_WAIT);
CaptainR 3:dcfbceb81fef 40 drawFilledRectangle(210, 0, 250, 80, Orange);
CaptainR 3:dcfbceb81fef 41 wait_ms(SHORT_WAIT);
CaptainR 3:dcfbceb81fef 42 short xPolyline[3] = {10, 80, 180};
CaptainR 3:dcfbceb81fef 43 short yPolyline[3] = {10, 200, 80};
CaptainR 3:dcfbceb81fef 44 drawPolyline(3, xPolyline, yPolyline, Green);
CaptainR 3:dcfbceb81fef 45 wait_ms(SHORT_WAIT);
CaptainR 3:dcfbceb81fef 46 short xPolygon[5] = {0, 30, 5, 50, 40};
CaptainR 3:dcfbceb81fef 47 short yPolygon[5] = {50, 100, 220, 230, 170};
CaptainR 3:dcfbceb81fef 48 drawPolygon(5, xPolygon, yPolygon, Grey);
CaptainR 3:dcfbceb81fef 49 wait_ms(SHORT_WAIT);
CaptainR 3:dcfbceb81fef 50 short xFilledPolygon[5] = {260, 280, 290, 300, 255};
CaptainR 3:dcfbceb81fef 51 short yFilledPolygon[5] = {0, 20, 35, 55, 22};
CaptainR 3:dcfbceb81fef 52 drawFilledPolygon(5, xFilledPolygon, yFilledPolygon, White);
CaptainR 3:dcfbceb81fef 53 wait_ms(SHORT_WAIT);
CaptainR 3:dcfbceb81fef 54 drawTriangle(70, 130, 90, 150, 110, 120, Cream);
CaptainR 3:dcfbceb81fef 55 wait_ms(SHORT_WAIT);
CaptainR 3:dcfbceb81fef 56 drawFilledTriangle(260, 50, 300, 90, 240, 120, Yellow);
CaptainR 3:dcfbceb81fef 57 wait_ms(SHORT_WAIT);
CaptainR 4:50511ed54ab4 58 cls();
CaptainR 5:890ddd974624 59
CaptainR 4:50511ed54ab4 60 puts("Lets calculate distance from point 0,0 on angle 40, 60 pixels away:");
CaptainR 4:50511ed54ab4 61 wait_ms(LONG_WAIT);
CaptainR 4:50511ed54ab4 62 cls();
CaptainR 4:50511ed54ab4 63 calculateOrbit(40, 60);
CaptainR 0:a5ef6bc3c2e8 64 }
CaptainR 0:a5ef6bc3c2e8 65
CaptainR 0:a5ef6bc3c2e8 66 //**************************************************************************
CaptainR 0:a5ef6bc3c2e8 67 // Demo program that goes through main functions
CaptainR 0:a5ef6bc3c2e8 68 //**************************************************************************
CaptainR 3:dcfbceb81fef 69 void PICASO_4DGL :: mainDemo() {
CaptainR 0:a5ef6bc3c2e8 70
CaptainR 0:a5ef6bc3c2e8 71 cls();
CaptainR 0:a5ef6bc3c2e8 72 puts("This is the main functions demo");
CaptainR 0:a5ef6bc3c2e8 73 wait_ms(LONG_WAIT);
CaptainR 0:a5ef6bc3c2e8 74 cls();
CaptainR 2:81eaaa491a02 75
CaptainR 0:a5ef6bc3c2e8 76 puts("\nBaudrates:");
CaptainR 0:a5ef6bc3c2e8 77 wait_ms(LONG_WAIT);
CaptainR 0:a5ef6bc3c2e8 78 cls();
CaptainR 0:a5ef6bc3c2e8 79 baudrate(4800);
CaptainR 0:a5ef6bc3c2e8 80 puts("\n4800");
CaptainR 0:a5ef6bc3c2e8 81 wait_ms(SHORT_WAIT);
CaptainR 0:a5ef6bc3c2e8 82 cls();
CaptainR 0:a5ef6bc3c2e8 83 baudrate(9600);
CaptainR 0:a5ef6bc3c2e8 84 puts("\n9600");
CaptainR 0:a5ef6bc3c2e8 85 wait_ms(SHORT_WAIT);
CaptainR 0:a5ef6bc3c2e8 86 cls();
CaptainR 0:a5ef6bc3c2e8 87 baudrate(14400);
CaptainR 0:a5ef6bc3c2e8 88 puts("\n14400");
CaptainR 0:a5ef6bc3c2e8 89 wait_ms(SHORT_WAIT);
CaptainR 0:a5ef6bc3c2e8 90 cls();
CaptainR 0:a5ef6bc3c2e8 91 baudrate(19200);
CaptainR 0:a5ef6bc3c2e8 92 puts("\n19200");
CaptainR 0:a5ef6bc3c2e8 93 wait_ms(SHORT_WAIT);
CaptainR 0:a5ef6bc3c2e8 94 cls();
CaptainR 0:a5ef6bc3c2e8 95 baudrate(38400);
CaptainR 0:a5ef6bc3c2e8 96 puts("\n38400");
CaptainR 0:a5ef6bc3c2e8 97 wait_ms(SHORT_WAIT);
CaptainR 0:a5ef6bc3c2e8 98 cls();
CaptainR 0:a5ef6bc3c2e8 99 baudrate(56000);
CaptainR 0:a5ef6bc3c2e8 100 puts("\n56000");
CaptainR 0:a5ef6bc3c2e8 101 wait_ms(SHORT_WAIT);
CaptainR 0:a5ef6bc3c2e8 102 cls();
CaptainR 0:a5ef6bc3c2e8 103 baudrate(57600);
CaptainR 0:a5ef6bc3c2e8 104 puts("\n57600");
CaptainR 0:a5ef6bc3c2e8 105 wait_ms(SHORT_WAIT);
CaptainR 0:a5ef6bc3c2e8 106 cls();
CaptainR 0:a5ef6bc3c2e8 107 baudrate(115200);
CaptainR 0:a5ef6bc3c2e8 108 puts("\n115200");
CaptainR 0:a5ef6bc3c2e8 109 wait_ms(SHORT_WAIT);
CaptainR 0:a5ef6bc3c2e8 110 cls();
CaptainR 2:81eaaa491a02 111 baudrate(128000);
CaptainR 2:81eaaa491a02 112 puts("\n128000");
CaptainR 2:81eaaa491a02 113 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 114 cls();
CaptainR 2:81eaaa491a02 115 baudrate(256000);
CaptainR 2:81eaaa491a02 116 puts("\n256000");
CaptainR 2:81eaaa491a02 117 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 118 cls();
CaptainR 2:81eaaa491a02 119 baudrate(300000);
CaptainR 2:81eaaa491a02 120 puts("\n300000");
CaptainR 2:81eaaa491a02 121 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 122 cls();
CaptainR 2:81eaaa491a02 123 baudrate(375000);
CaptainR 2:81eaaa491a02 124 puts("\n375000");
CaptainR 2:81eaaa491a02 125 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 126 cls();
CaptainR 2:81eaaa491a02 127 baudrate(500000);
CaptainR 2:81eaaa491a02 128 puts("\n500000");
CaptainR 2:81eaaa491a02 129 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 130 cls();
CaptainR 2:81eaaa491a02 131 baudrate(600000);
CaptainR 2:81eaaa491a02 132 puts("\n600000");
CaptainR 2:81eaaa491a02 133 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 134 cls();
CaptainR 3:dcfbceb81fef 135 baudrate(115200);
CaptainR 3:dcfbceb81fef 136 puts("\nSet back to 115200");
CaptainR 0:a5ef6bc3c2e8 137 wait_ms(LONG_WAIT);
CaptainR 0:a5ef6bc3c2e8 138 cls();
CaptainR 2:81eaaa491a02 139
CaptainR 0:a5ef6bc3c2e8 140 puts("\nOrientation:");
CaptainR 0:a5ef6bc3c2e8 141 wait_ms(LONG_WAIT);
CaptainR 0:a5ef6bc3c2e8 142 cls();
CaptainR 2:81eaaa491a02 143 screenOrientation(landscape);
CaptainR 0:a5ef6bc3c2e8 144 puts("landscape");
CaptainR 0:a5ef6bc3c2e8 145 wait_ms(SHORT_WAIT);
CaptainR 0:a5ef6bc3c2e8 146 cls();
CaptainR 2:81eaaa491a02 147 screenOrientation(landscapeRew);
CaptainR 0:a5ef6bc3c2e8 148 puts("landscape rewersed");
CaptainR 0:a5ef6bc3c2e8 149 wait_ms(SHORT_WAIT);
CaptainR 0:a5ef6bc3c2e8 150 cls();
CaptainR 2:81eaaa491a02 151 screenOrientation(portrait);
CaptainR 0:a5ef6bc3c2e8 152 puts("portrait");
CaptainR 0:a5ef6bc3c2e8 153 wait_ms(SHORT_WAIT);
CaptainR 0:a5ef6bc3c2e8 154 cls();
CaptainR 2:81eaaa491a02 155 screenOrientation(portraitRew);
CaptainR 0:a5ef6bc3c2e8 156 puts("portrait rewersed");
CaptainR 0:a5ef6bc3c2e8 157 wait_ms(LONG_WAIT);
CaptainR 2:81eaaa491a02 158 screenOrientation(landscape); // set back screen to landscape
CaptainR 0:a5ef6bc3c2e8 159 cls();
CaptainR 0:a5ef6bc3c2e8 160
CaptainR 0:a5ef6bc3c2e8 161 }
CaptainR 0:a5ef6bc3c2e8 162
CaptainR 0:a5ef6bc3c2e8 163 //**************************************************************************
CaptainR 0:a5ef6bc3c2e8 164 // Demo program that goes through text based functions
CaptainR 0:a5ef6bc3c2e8 165 //**************************************************************************
CaptainR 3:dcfbceb81fef 166 void PICASO_4DGL :: textDemo() {
CaptainR 0:a5ef6bc3c2e8 167
CaptainR 0:a5ef6bc3c2e8 168 cls();
CaptainR 2:81eaaa491a02 169 screenOrientation(landscape); // set screen to landscape
CaptainR 0:a5ef6bc3c2e8 170 puts("This is the Text functions demo");
CaptainR 0:a5ef6bc3c2e8 171 wait_ms(LONG_WAIT);
CaptainR 0:a5ef6bc3c2e8 172 cls();
CaptainR 0:a5ef6bc3c2e8 173
CaptainR 0:a5ef6bc3c2e8 174 puts("\nText attributes:");
CaptainR 0:a5ef6bc3c2e8 175 wait_ms(LONG_WAIT);
CaptainR 0:a5ef6bc3c2e8 176 //cls();
CaptainR 0:a5ef6bc3c2e8 177 puts("\n\n");
CaptainR 2:81eaaa491a02 178 textAttributes(bold);
CaptainR 0:a5ef6bc3c2e8 179 puts("\nBOLD");
CaptainR 0:a5ef6bc3c2e8 180 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 181 textAttributes(bold + italic);
CaptainR 0:a5ef6bc3c2e8 182 puts("\nBOLD & ITALIC");
CaptainR 0:a5ef6bc3c2e8 183 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 184 textAttributes(bold + italic + inverse);
CaptainR 0:a5ef6bc3c2e8 185 puts("\nBOLD & ITALIC & INVERSE");
CaptainR 0:a5ef6bc3c2e8 186 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 187 textAttributes(bold + italic + inverse + underline);
CaptainR 0:a5ef6bc3c2e8 188 puts("\nBOLD & ITALIC & INVERSE & UNDERLINE");
CaptainR 0:a5ef6bc3c2e8 189 wait_ms(LONG_WAIT);
CaptainR 2:81eaaa491a02 190 textAttributes(DISABLE); // set everything back to normal
CaptainR 0:a5ef6bc3c2e8 191 cls();
CaptainR 0:a5ef6bc3c2e8 192
CaptainR 0:a5ef6bc3c2e8 193 puts("\nText modes:");
CaptainR 0:a5ef6bc3c2e8 194 wait_ms(LONG_WAIT);
CaptainR 0:a5ef6bc3c2e8 195 cls();
CaptainR 2:81eaaa491a02 196 textBold(ENABLE);
CaptainR 0:a5ef6bc3c2e8 197 puts("\nBOLD:");
CaptainR 0:a5ef6bc3c2e8 198 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 199 textBold(DISABLE);
CaptainR 2:81eaaa491a02 200 textInverse(ENABLE);
CaptainR 0:a5ef6bc3c2e8 201 puts("\nINVERSE:");
CaptainR 0:a5ef6bc3c2e8 202 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 203 textInverse(DISABLE);
CaptainR 2:81eaaa491a02 204 textItalic(ENABLE);
CaptainR 0:a5ef6bc3c2e8 205 puts("\nITALIC:");
CaptainR 0:a5ef6bc3c2e8 206 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 207 textItalic(DISABLE);
CaptainR 2:81eaaa491a02 208 textUnderline(ENABLE);
CaptainR 0:a5ef6bc3c2e8 209 puts("\nUNDERLINE:");
CaptainR 0:a5ef6bc3c2e8 210 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 211 textUnderline(DISABLE);
CaptainR 0:a5ef6bc3c2e8 212 wait_ms(LONG_WAIT);
CaptainR 0:a5ef6bc3c2e8 213 cls();
CaptainR 0:a5ef6bc3c2e8 214
CaptainR 0:a5ef6bc3c2e8 215 puts("\nText gaps:");
CaptainR 0:a5ef6bc3c2e8 216 wait_ms(LONG_WAIT);
CaptainR 0:a5ef6bc3c2e8 217 cls();
CaptainR 0:a5ef6bc3c2e8 218 if (textXGap(0) == 1) puts("\nX gap: 0");
CaptainR 0:a5ef6bc3c2e8 219 wait_ms(SHORT_WAIT);
CaptainR 0:a5ef6bc3c2e8 220 if (textXGap(1) == 1) puts("\nX gap: 1");
CaptainR 0:a5ef6bc3c2e8 221 wait_ms(SHORT_WAIT);
CaptainR 0:a5ef6bc3c2e8 222 if (textXGap(2) == 1) puts("\nX gap: 2");
CaptainR 0:a5ef6bc3c2e8 223 wait_ms(SHORT_WAIT);
CaptainR 0:a5ef6bc3c2e8 224 if (textXGap(3) == 1) puts("\nX gap: 3");
CaptainR 0:a5ef6bc3c2e8 225 wait_ms(SHORT_WAIT);
CaptainR 0:a5ef6bc3c2e8 226 if (textXGap(4) == 1) puts("\nX gap: 4");
CaptainR 0:a5ef6bc3c2e8 227 wait_ms(SHORT_WAIT);
CaptainR 0:a5ef6bc3c2e8 228 if (textXGap(5) == 1) puts("\nX gap: 5");
CaptainR 0:a5ef6bc3c2e8 229 wait_ms(SHORT_WAIT);
CaptainR 0:a5ef6bc3c2e8 230 if (textXGap(6) == 1) puts("\nX gap: 6");
CaptainR 0:a5ef6bc3c2e8 231 wait_ms(SHORT_WAIT);
CaptainR 0:a5ef6bc3c2e8 232 puts("\n");
CaptainR 0:a5ef6bc3c2e8 233 textXGap(0);
CaptainR 0:a5ef6bc3c2e8 234 if (textYGap(0) == 1) puts("\nY gap: 0");
CaptainR 0:a5ef6bc3c2e8 235 wait_ms(SHORT_WAIT);
CaptainR 0:a5ef6bc3c2e8 236 if (textYGap(1) == 1) puts("\nY gap: 1");
CaptainR 0:a5ef6bc3c2e8 237 wait_ms(SHORT_WAIT);
CaptainR 0:a5ef6bc3c2e8 238 if (textYGap(2) == 1) puts("\nY gap: 2");
CaptainR 0:a5ef6bc3c2e8 239 wait_ms(SHORT_WAIT);
CaptainR 0:a5ef6bc3c2e8 240 if (textYGap(3) == 1) puts("\nY gap: 3");
CaptainR 0:a5ef6bc3c2e8 241 wait_ms(SHORT_WAIT);
CaptainR 0:a5ef6bc3c2e8 242 if (textYGap(4) == 1) puts("\nY gap: 4");
CaptainR 0:a5ef6bc3c2e8 243 wait_ms(SHORT_WAIT);
CaptainR 0:a5ef6bc3c2e8 244 if (textYGap(5) == 1) puts("\nY gap: 5");
CaptainR 0:a5ef6bc3c2e8 245 wait_ms(SHORT_WAIT);
CaptainR 0:a5ef6bc3c2e8 246 if (textYGap(6) == 1) puts("\nY gap: 6");
CaptainR 0:a5ef6bc3c2e8 247 wait_ms(LONG_WAIT);
CaptainR 0:a5ef6bc3c2e8 248 textYGap(0);
CaptainR 0:a5ef6bc3c2e8 249 cls();
CaptainR 0:a5ef6bc3c2e8 250
CaptainR 0:a5ef6bc3c2e8 251 puts("Text width:");
CaptainR 0:a5ef6bc3c2e8 252 wait_ms(LONG_WAIT);
CaptainR 0:a5ef6bc3c2e8 253 if (textWidth(1) == 1) puts("\nWidth: 1");
CaptainR 0:a5ef6bc3c2e8 254 wait_ms(SHORT_WAIT);
CaptainR 0:a5ef6bc3c2e8 255 if (textWidth(2) == 1) puts("\nWidth: 2");
CaptainR 0:a5ef6bc3c2e8 256 wait_ms(SHORT_WAIT);
CaptainR 0:a5ef6bc3c2e8 257 if (textWidth(3) == 1) puts("\nWidth: 3");
CaptainR 0:a5ef6bc3c2e8 258 wait_ms(SHORT_WAIT);
CaptainR 0:a5ef6bc3c2e8 259 if (textWidth(4) == 1) puts("\nWidth: 4");
CaptainR 0:a5ef6bc3c2e8 260 wait_ms(SHORT_WAIT);
CaptainR 0:a5ef6bc3c2e8 261 textWidth(1);
CaptainR 0:a5ef6bc3c2e8 262 puts("\nText height:");
CaptainR 0:a5ef6bc3c2e8 263 wait_ms(LONG_WAIT);
CaptainR 0:a5ef6bc3c2e8 264 //cls();
CaptainR 0:a5ef6bc3c2e8 265 if (textHeight(1) == 1) puts("\nHeight: 1");
CaptainR 0:a5ef6bc3c2e8 266 wait_ms(SHORT_WAIT);
CaptainR 0:a5ef6bc3c2e8 267 if (textHeight(2) == 1) puts("\nHeight: 2");
CaptainR 0:a5ef6bc3c2e8 268 wait_ms(SHORT_WAIT);
CaptainR 0:a5ef6bc3c2e8 269 if (textHeight(3) == 1) puts("\nHeight: 3");
CaptainR 0:a5ef6bc3c2e8 270 wait_ms(SHORT_WAIT);
CaptainR 0:a5ef6bc3c2e8 271 if (textHeight(4) == 1) puts("\nHeight: 4");
CaptainR 0:a5ef6bc3c2e8 272 wait_ms(LONG_WAIT);
CaptainR 0:a5ef6bc3c2e8 273 textHeight(1);
CaptainR 0:a5ef6bc3c2e8 274 cls();
CaptainR 2:81eaaa491a02 275
CaptainR 0:a5ef6bc3c2e8 276 puts("Fonts:");
CaptainR 0:a5ef6bc3c2e8 277 wait_ms(LONG_WAIT);
CaptainR 0:a5ef6bc3c2e8 278 cls();
CaptainR 2:81eaaa491a02 279 setFont(font1);
CaptainR 0:a5ef6bc3c2e8 280 puts("\nThis is Font 1");
CaptainR 0:a5ef6bc3c2e8 281 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 282 setFont(font2);
CaptainR 0:a5ef6bc3c2e8 283 puts("\nThis is Font 2");
CaptainR 0:a5ef6bc3c2e8 284 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 285 setFont(font3);
CaptainR 0:a5ef6bc3c2e8 286 puts("\nThis is Font 3");
CaptainR 0:a5ef6bc3c2e8 287 wait_ms(LONG_WAIT);
CaptainR 0:a5ef6bc3c2e8 288 cls();
CaptainR 0:a5ef6bc3c2e8 289
CaptainR 2:81eaaa491a02 290
CaptainR 2:81eaaa491a02 291 screenOrientation(portrait);
CaptainR 0:a5ef6bc3c2e8 292 puts("\nText Background colors:");
CaptainR 0:a5ef6bc3c2e8 293 wait_ms(LONG_WAIT);
CaptainR 0:a5ef6bc3c2e8 294 cls();
CaptainR 2:81eaaa491a02 295 textBgColor(Black);
CaptainR 3:dcfbceb81fef 296 puts("\nBG Color = BLACK");
CaptainR 0:a5ef6bc3c2e8 297 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 298 textBgColor(Navy);
CaptainR 3:dcfbceb81fef 299 puts("\nBG Color = NAVY");
CaptainR 0:a5ef6bc3c2e8 300 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 301 textFgColor(Black);
CaptainR 2:81eaaa491a02 302 textBgColor(DGreen);
CaptainR 3:dcfbceb81fef 303 puts("\nBG Color = DARK GREEN");
CaptainR 0:a5ef6bc3c2e8 304 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 305 textBgColor(DCyan);
CaptainR 3:dcfbceb81fef 306 puts("\nBG Color = DARK CYAN");
CaptainR 0:a5ef6bc3c2e8 307 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 308 textBgColor(Purple);
CaptainR 3:dcfbceb81fef 309 puts("\nBG Color = PURPLE");
CaptainR 0:a5ef6bc3c2e8 310 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 311 textBgColor(Olive);
CaptainR 3:dcfbceb81fef 312 puts("\nBG Color = OLIVE");
CaptainR 0:a5ef6bc3c2e8 313 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 314 textBgColor(Grey);
CaptainR 3:dcfbceb81fef 315 puts("\nBG Color = GREY");
CaptainR 0:a5ef6bc3c2e8 316 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 317 textBgColor(Blue);
CaptainR 3:dcfbceb81fef 318 puts("\nBG Color = BLUE");
CaptainR 0:a5ef6bc3c2e8 319 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 320 textBgColor(Green);
CaptainR 3:dcfbceb81fef 321 puts("\nBG Color = GREEN");
CaptainR 0:a5ef6bc3c2e8 322 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 323 textBgColor(Red);
CaptainR 3:dcfbceb81fef 324 puts("\nBG Color = RED");
CaptainR 0:a5ef6bc3c2e8 325 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 326 textBgColor(Yellow);
CaptainR 3:dcfbceb81fef 327 puts("\nBG Color = YELLOW");
CaptainR 0:a5ef6bc3c2e8 328 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 329 textBgColor(GYellow);
CaptainR 3:dcfbceb81fef 330 puts("\nBG Color = GREEN YELLOW");
CaptainR 0:a5ef6bc3c2e8 331 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 332 textBgColor(White);
CaptainR 3:dcfbceb81fef 333 puts("\nBG Color = WHITE");
CaptainR 0:a5ef6bc3c2e8 334 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 335 textBgColor(Orange);
CaptainR 3:dcfbceb81fef 336 puts("\nBG Color = ORANGE");
CaptainR 0:a5ef6bc3c2e8 337 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 338 textBgColor(Pink);
CaptainR 3:dcfbceb81fef 339 puts("\nBG Color = PINK");
CaptainR 0:a5ef6bc3c2e8 340 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 341 textBgColor(Violet);
CaptainR 3:dcfbceb81fef 342 puts("\nBG Color = VIOLET");
CaptainR 0:a5ef6bc3c2e8 343 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 344 textBgColor(Aqua);
CaptainR 3:dcfbceb81fef 345 puts("\nBG Color = AQUA");
CaptainR 0:a5ef6bc3c2e8 346 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 347 textBgColor(Cream);
CaptainR 3:dcfbceb81fef 348 puts("\nBG Color = CREAM");
CaptainR 0:a5ef6bc3c2e8 349 wait_ms(LONG_WAIT);
CaptainR 3:dcfbceb81fef 350 textBgColor(Black); // set Color back
CaptainR 3:dcfbceb81fef 351 textFgColor(Green); // set Color back
CaptainR 0:a5ef6bc3c2e8 352 cls();
CaptainR 0:a5ef6bc3c2e8 353
CaptainR 0:a5ef6bc3c2e8 354 puts("Lets try moving cursor...");
CaptainR 0:a5ef6bc3c2e8 355 wait_ms(LONG_WAIT);
CaptainR 0:a5ef6bc3c2e8 356 cls();
CaptainR 0:a5ef6bc3c2e8 357 if (moveCursor(5, 5) == 1) puts("+");
CaptainR 0:a5ef6bc3c2e8 358 wait_ms(SHORT_WAIT);
CaptainR 0:a5ef6bc3c2e8 359 if (moveCursor(10, 10) == 1) puts("+");
CaptainR 0:a5ef6bc3c2e8 360 wait_ms(SHORT_WAIT);
CaptainR 0:a5ef6bc3c2e8 361 screenOrientation(4);
CaptainR 0:a5ef6bc3c2e8 362 if (moveCursor(50, 50) == 1) puts("+");
CaptainR 0:a5ef6bc3c2e8 363 wait_ms(SHORT_WAIT);
CaptainR 0:a5ef6bc3c2e8 364 if (moveCursor(19, 29) == 1) puts("+");
CaptainR 0:a5ef6bc3c2e8 365 wait_ms(LONG_WAIT);
CaptainR 0:a5ef6bc3c2e8 366 cls();
CaptainR 0:a5ef6bc3c2e8 367
CaptainR 0:a5ef6bc3c2e8 368
CaptainR 2:81eaaa491a02 369 screenOrientation(portrait);
CaptainR 3:dcfbceb81fef 370 puts("\nText Foreground Colors:");
CaptainR 0:a5ef6bc3c2e8 371 wait_ms(LONG_WAIT);
CaptainR 0:a5ef6bc3c2e8 372 cls();
CaptainR 2:81eaaa491a02 373 textBgColor(White);
CaptainR 2:81eaaa491a02 374 textFgColor(Black);
CaptainR 3:dcfbceb81fef 375 puts("\nFG Color = BLACK");
CaptainR 2:81eaaa491a02 376 textBgColor(Black);
CaptainR 0:a5ef6bc3c2e8 377 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 378 textFgColor(Navy);
CaptainR 3:dcfbceb81fef 379 puts("\nFG Color = NAVY");
CaptainR 0:a5ef6bc3c2e8 380 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 381 textFgColor(DGreen);
CaptainR 3:dcfbceb81fef 382 puts("\nFG Color = DARK GREEN");
CaptainR 0:a5ef6bc3c2e8 383 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 384 textFgColor(DCyan);
CaptainR 3:dcfbceb81fef 385 puts("\nFG Color = DARK CYAN");
CaptainR 0:a5ef6bc3c2e8 386 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 387 textFgColor(Purple);
CaptainR 3:dcfbceb81fef 388 puts("\nFG Color = PURPLE");
CaptainR 0:a5ef6bc3c2e8 389 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 390 textFgColor(Olive);
CaptainR 3:dcfbceb81fef 391 puts("\nFG Color = OLIVE");
CaptainR 0:a5ef6bc3c2e8 392 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 393 textFgColor(Grey);
CaptainR 3:dcfbceb81fef 394 puts("\nFG Color = GREY");
CaptainR 0:a5ef6bc3c2e8 395 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 396 textFgColor(Blue);
CaptainR 3:dcfbceb81fef 397 puts("\nFG Color = BLUE");
CaptainR 0:a5ef6bc3c2e8 398 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 399 textFgColor(Green);
CaptainR 3:dcfbceb81fef 400 puts("\nFG Color = GREEN");
CaptainR 0:a5ef6bc3c2e8 401 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 402 textFgColor(Red);
CaptainR 3:dcfbceb81fef 403 puts("\nFG Color = RED");
CaptainR 0:a5ef6bc3c2e8 404 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 405 textFgColor(Yellow);
CaptainR 3:dcfbceb81fef 406 puts("\nFG Color = YELLOW");
CaptainR 0:a5ef6bc3c2e8 407 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 408 textFgColor(GYellow);
CaptainR 3:dcfbceb81fef 409 puts("\nFG Color = GREEN YELLOW");
CaptainR 0:a5ef6bc3c2e8 410 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 411 textFgColor(White);
CaptainR 3:dcfbceb81fef 412 puts("\nFG Color = WHITE");
CaptainR 0:a5ef6bc3c2e8 413 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 414 textFgColor(Orange);
CaptainR 3:dcfbceb81fef 415 puts("\nFG Color = ORANGE");
CaptainR 0:a5ef6bc3c2e8 416 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 417 textFgColor(Pink);
CaptainR 3:dcfbceb81fef 418 puts("\nFG Color = PINK");
CaptainR 0:a5ef6bc3c2e8 419 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 420 textFgColor(Violet);
CaptainR 3:dcfbceb81fef 421 puts("\nFG Color = VIOLET");
CaptainR 0:a5ef6bc3c2e8 422 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 423 textFgColor(Aqua);
CaptainR 3:dcfbceb81fef 424 puts("\nFG Color = AQUA");
CaptainR 0:a5ef6bc3c2e8 425 wait_ms(SHORT_WAIT);
CaptainR 2:81eaaa491a02 426 textFgColor(Cream);
CaptainR 3:dcfbceb81fef 427 puts("\nFG Color = CREAM");
CaptainR 2:81eaaa491a02 428 wait_ms(LONG_WAIT);
CaptainR 3:dcfbceb81fef 429 textFgColor(Green); // set Color back
CaptainR 2:81eaaa491a02 430
CaptainR 2:81eaaa491a02 431
CaptainR 0:a5ef6bc3c2e8 432 }