#include <MD_Parola.h>
#include <MD_MAX72xx.h>
#include <SPI.h>
#include "Font.h"
#define HARDWARE_TYPE MD_MAX72XX::PAROLA_HW
#define MAX_DEVICES  16
#define Max_row 16
#define Max_col (MAX_DEVICES*8)/2


#define CLK_PIN   13
#define DATA_PIN  11
#define CS_PIN    10

String my_name;

const char* ssid     = "ssid";                      // SSID
const char* password = "password";                    // PASSWORD

const int UPDATE_INTERVAL_SECS = 10 * 60; // Update every 10 minutes
String weatherKey = "weather api key";  // openweathermap API http://openweathermap.org/api
String weatherLang = "&lang=en";
String cityID = "1597591"; //Chaweng (Ban Thung)

char ntp_server1[20] = "ntp.ku.ac.th";
char ntp_server2[20] = "fw.eng.ku.ac.th";
char ntp_server3[20] = "time.uni.net.th";
int timezone = 7;
int dst = 0;
unsigned long curTime, changeMode;
int tmy, tmm, tmd, tmw, dots, mode;
long lastDownloadUpdate = millis();
String tms = "";

//WiFiClient client;

String weatherMain = "";
String weatherDescription = "";
String thaiWeather = "";
String weatherLocation = "";
String country;
int humidity;
int pressure;
float temp;
float windSpeed;
String weatherString;

char* weekdayNames[] = {"อาทิตย์", "จันทร์", "อังคาร", "พุธ", "พฤหัสบดี", "ศุกร์", "เสาร์"};
char* monthNames[] = {"มกราคม", "กุมภาพันธ์", "มีนาคม", "เมษายน", "พฤษภาคม", "มิถุนายน",
                      "กรกฎาคม", "สิงหาคม", "กันยายน", "ตุลาคม", "พฤศจิกายน", "ธันวาคม"
                     };

int gap_pixel = 1; //ระยะช่องไฟ
bool state = true; //ถ้าค่าเป็นเท็จจะแสดงผลตัวอักษรมืดแต่รอบด้านสว่าง
char bright = MAX_INTENSITY / 2; // ค่าความสว่าง LED 0-15
MD_MAX72XX mx = MD_MAX72XX(HARDWARE_TYPE, CS_PIN, MAX_DEVICES);

void setbrightness(char bri) {
  if (bri > 15) bri = MAX_INTENSITY / 2;
  mx.control(MD_MAX72XX::INTENSITY, bri);
}

void mysetpoint(uint16_t x, uint16_t y, bool z) //ลงจุด xy ใหม่สำหรับ dot matrix แบบ 2 แถว
{
  uint16_t my_x, my_y;

  if (x < 0 || x > Max_col - 1) return; //ถ้าเกินขอบเขตของแกน X ให้หยุดตรวจสอบ
  if (y < 0 || y > Max_row - 1) return; //ถ้าเกินขอบเขตของแกน y ให้หยุดตรวจสอบ

  my_x = Max_col - x - 1; //กำหนดให้แกน x ตำแหน่ง 0 อยู่ล่างซ้ายสุด
  my_y = 7 - y;
  if (y >= 8) {
    my_x = my_x + Max_col;  //กำหนดให้แกน y ตำแหน่ง 0 ล่างซ้ายสุด
    my_y = 15 - y;
  }
  mx.setPoint(my_y, my_x, z);
}

void DrawChar(int x, int y, unsigned char input_char, bool invert) //ฟังก์ชั่นพิมพ์ทีละอักษรตามตำแหน่ง ASCii ฟอนต์
{
  unsigned char mc;
  char my_x = 0, data = 0;

  Serial.println(input_char);

  if (!invert) //ให้แสดงผลปรกติ
  {
    while (data < 16) //แสกนจากบนลงล่างเพื่อลงจุด
    {
      mc = pgm_read_byte_near(&Matrix_16_Font[input_char][data]); //อ่านฟอนต์จากหน่วยความจำมาทีละไบต์
      if ((mc & 0x80) == 0x80) my_x++; // อ่านบิตที่1ถ้าค่าตรงให้ลงจุด
      else {
        mysetpoint(x + my_x, 15 - data + y, true);  // อ่านบิตที่1ถ้าค่าไม่ตรงไม่ต้องลงจุด
        my_x++;
      }
      if ((mc & 0x40) == 0x40) my_x++; // อ่านบิตที่2ถ้าค่าตรงให้ลงจุด
      else {
        mysetpoint(x + my_x, 15 - data + y, true);
        my_x++;
      }
      if ((mc & 0x20) == 0x20) my_x++; // อ่านบิตที่3ถ้าค่าตรงให้ลงจุด
      else {
        mysetpoint(x + my_x, 15 - data + y, true);
        my_x++;
      }
      if ((mc & 0x10) == 0x10) my_x++; // อ่านบิตที่4ถ้าค่าตรงให้ลงจุด
      else {
        mysetpoint(x + my_x, 15 - data + y, true);
        my_x++;
      }
      if ((mc & 0x08) == 0x08) my_x++; // อ่านบิตที่5ถ้าค่าตรงให้ลงจุด
      else {
        mysetpoint(x + my_x, 15 - data + y, true);
        my_x++;
      }
      if ((mc & 0x04) == 0x04) my_x++; // อ่านบิตที่6ถ้าค่าตรงให้ลงจุด
      else {
        mysetpoint(x + my_x, 15 - data + y, true);
        my_x++;
      }
      if ((mc & 0x02) == 0x02) my_x++; // อ่านบิตที่7ถ้าค่าตรงให้ลงจุด
      else {
        mysetpoint(x + my_x, 15 - data + y, true);
        my_x++;
      }
      if ((mc & 0x01) == 0x01) my_x = 0; // อ่านบิตที่8ถ้าค่าตรงให้ลงจุด
      else {
        mysetpoint(x + my_x, 15 - data + y, true);
        my_x = 0;
      }
      data++;
    }
  }
  else //ให้แสดงผลกลับการลงจุด
  {
    while (data < 16) //แสกนจากบนลงล่างเพื่อลงจุด
    {
      mc = pgm_read_byte_near(&Matrix_16_Font[input_char][data]); //อ่านฟอนต์จากหน่วยความจำมาทีละไบต์
      if ((mc & 0x80) == 0x80) {
        mysetpoint(x + my_x, 15 - data + y, true);  // อ่านบิตที่1ถ้าค่าตรงให้ลงจุด
        my_x++;
      }
      else my_x++; // อ่านบิตที่1ถ้าค่าไม่ตรงไม่ต้องลงจุด
      if ((mc & 0x40) == 0x40) {
        mysetpoint(x + my_x, 15 - data + y, true);  // อ่านบิตที่2ถ้าค่าตรงให้ลงจุด
        my_x++;
      }
      else my_x++;
      if ((mc & 0x20) == 0x20) {
        mysetpoint(x + my_x, 15 - data + y, true);  // อ่านบิตที่3ถ้าค่าตรงให้ลงจุด
        my_x++;
      }
      else my_x++;
      if ((mc & 0x10) == 0x10) {
        mysetpoint(x + my_x, 15 - data + y, true);  // อ่านบิตที่4ถ้าค่าตรงให้ลงจุด
        my_x++;
      }
      else my_x++;
      if ((mc & 0x08) == 0x08) {
        mysetpoint(x + my_x, 15 - data + y, true);  // อ่านบิตที่5ถ้าค่าตรงให้ลงจุด
        my_x++;
      }
      else my_x++;
      if ((mc & 0x04) == 0x04) {
        mysetpoint(x + my_x, 15 - data + y, true);  // อ่านบิตที่6ถ้าค่าตรงให้ลงจุด
        my_x++;
      }
      else my_x++;
      if ((mc & 0x02) == 0x02) {
        mysetpoint(x + my_x, 15 - data + y, true);  // อ่านบิตที่7ถ้าค่าตรงให้ลงจุด
        my_x++;
      }
      else my_x++;
      if ((mc & 0x01) == 0x01) {
        mysetpoint(x + my_x, 15 - data + y, true);  // อ่านบิตที่8ถ้าค่าตรงให้ลงจุด
        my_x = 0;
      }
      else my_x = 0;
      data++;
    }
  }
}

int Check_Char_Width(int font) //ตรวจสอบความกว้างของอักษร
{
  unsigned char  c;
  int w = 0, j = 0;

  for (int i = 0; i < 16; i++) //ตรวจฟอนต์ 8x16 จำนวน 16 รอบ
  {
    c =  pgm_read_byte_near(&Matrix_16_Font[font][i]); //ตรวจสอบฟอนต์ในหน่วยความจำ
    if ((c & 0x80) == 0x80)w = 1; //ถ้าบิตที่1มีจุด
    if ((c & 0x40) == 0x40)w = 2; //ถ้าบิตที่2มีจุด
    if ((c & 0x20) == 0x20)w = 3;
    if ((c & 0x10) == 0x10)w = 4;
    if ((c & 0x08) == 0x08)w = 5;
    if ((c & 0x04) == 0x04)w = 6;
    if ((c & 0x02) == 0x02)w = 7;
    if ((c & 0x01) == 0x01)w = 8; //ถ้าบิตที่8มีจุด

    if (w >= j)j = w;
  }
  return j; //คืนค่าที่ตรวจสอบความกว้างของตัวอักษร
}

void DrawText(int my_row, int my_column, String text_Input) //พิมพ์ข้อความ
{
  String my_text;
  unsigned char char1, char2, char_out;
  int i = 0, x;
  int indx;

  my_text = text_Input;
  indx = 0;
  mx.clear();
  while (i < text_Input.length()) //ไล่ไปทีละอักษรจนหมด
  {
    char1 = my_text[i];
    if (char1 == 0xE0) // ตรวจสอบไบต์แรกถ้าเป็นภาษาไทย ถ้าไม่ใช่ให้ไป else ภาษาอังกฤษ
    {
      char1 = my_text[i + 1]; //ให้ char1 เป็นไบต์ที่สองแสดงอักษรไทยหรือสระ
      char2 = my_text[i + 2]; //ให้ char2 เป็นไบต์ที่สามซึ่งเป็นตำแหน่งอักษรไทย
      if (char1 == 0xB8 && (char2 + 32) >= 161 && (char2 + 32) <= 218) //เช็คว่าเป็นหมวด1 ก-พินธุ
      {
        if ((char2 + 32) >= 212 && (char2 + 32) <= 218) //เช็คว่าเป็นสระ อิ-อี-อึ-อื-อุ-อู-อฺ
        {
          char_out = char2 + 32;
          i = i + 3; //ข้ามภาษาไทยที่มี 3 ไบต์ไปอักษรต่อไป
          x = Check_Char_Width(char_out);
          indx = indx - x - 1;
        }
        else //อักษรไทยปรกติ
        {
          char_out = char2 + 32;
          if (char2 + 32 == 209) //เช็คว่าเป็นไม้หันอากาศ
          {
            x = Check_Char_Width(char_out);
            indx = indx - x - 1;
          }
          if (char_out == 211) //ถ้าเป็นสระ อำ
          {
            x = Check_Char_Width(char_out);
            indx = indx - x + 5;
          }
          i = i + 3; //ข้ามภาษาไทยที่มี 3 ไบต์ไปอักษรต่อไป
        }
      }
      if (char1 == 0xB9 && (char2 + 96) >= 224 && (char2 + 96) <= 251) //เช็คว่าเป็นหมวด2 สระเอ-ขอหมุด
      {
        if ((char2 + 96) >= 231 && (char2 + 96) <= 237) //เช็คว่าเป็นวรรยุกต์ ็-่-้-๊-๋-์-ํ
        {
          char_out = char2 + 96;
          i = i + 3; //ข้ามภาษาไทยที่มี 3 ไบต์ไปอักษรต่อไป
          x = Check_Char_Width(char_out);
          indx = indx - x - 1;
        }
        else //สระปรกติ เ แ โ
        {
          char_out = char2 + 96;
          i = i + 3; //ข้ามภาษาไทยที่มี 3 ไบต์ไปอักษรต่อไป

          if (char_out == 226 || char_out == 227 || char_out == 228) //ถ้าเป็นสระ โ ใ ไ
          {
            x = Check_Char_Width(char_out);
            indx = indx - x + 3;
          }
        }
      }
    }
    else  //อักษรภาษาอังกฤษ
    {
      char_out = my_text[i];
      i++; // ไปอักษรต่อไป
      if (char_out == 32)indx = indx + 8; //ถ้าเป็นเว้นวรรค
    }


    DrawChar(my_row + indx, my_column, char_out, state); //พิมพ์อักษรที่แปลง
    x = Check_Char_Width(char_out);
    indx = indx + x + gap_pixel;
  }
  //mp.update();
  mx.update();
}

int CheckTextWidth(String text_Input) //ตรวจขนาดของจุดแนวแกน x ทั้งหมดของข้อความ
{
  String my_text;
  unsigned char char1, char2, char_out;
  int i = 0, x;
  int indx;

  my_text = text_Input;
  indx = 0;
  mx.clear();
  while (i < text_Input.length()) //ไล่ไปทีละอักษรจนหมด
  {
    char1 = my_text[i];
    if (char1 == 0xE0) // ตรวจสอบไบต์แรกถ้าเป็นภาษาไทย ถ้าไม่ใช่ให้ไป else ภาษาอังกฤษ
    {
      char1 = my_text[i + 1]; //ให้ char1 เป็นไบต์ที่สองแสดงอักษรไทยหรือสระ
      char2 = my_text[i + 2]; //ให้ char2 เป็นไบต์ที่สามซึ่งเป็นตำแหน่งอักษรไทย
      if (char1 == 0xB8 && (char2 + 32) >= 161 && (char2 + 32) <= 218) //เช็คว่าเป็นหมวด1 ก-พินธุ
      {
        if ((char2 + 32) >= 212 && (char2 + 32) <= 218) //เช็คว่าเป็นสระ อิ-อี-อึ-อื-อุ-อู-อฺ
        {
          char_out = char2 + 32;
          i = i + 3; //ข้ามภาษาไทยที่มี 3 ไบต์ไปอักษรต่อไป
          x = Check_Char_Width(char_out);
          indx = indx - x - 1;
        }
        else //อักษรไทยปรกติ
        {
          char_out = char2 + 32;
          if (char2 + 32 == 209) //เช็คว่าเป็นไม้หันอากาศ
          {
            x = Check_Char_Width(char_out);
            indx = indx - x - 1;
          }
          if (char_out == 211) //ถ้าเป็นสระ อำ
          {
            x = Check_Char_Width(char_out);
            indx = indx - x + 5;
          }
          i = i + 3; //ข้ามภาษาไทยที่มี 3 ไบต์ไปอักษรต่อไป
        }
      }
      if (char1 == 0xB9 && (char2 + 96) >= 224 && (char2 + 96) <= 251) //เช็คว่าเป็นหมวด2 สระเอ-ขอหมุด
      {
        if ((char2 + 96) >= 231 && (char2 + 96) <= 237) //เช็คว่าเป็นวรรยุกต์ ็-่-้-๊-๋-์-ํ
        {
          char_out = char2 + 96;
          i = i + 3; //ข้ามภาษาไทยที่มี 3 ไบต์ไปอักษรต่อไป
          x = Check_Char_Width(char_out);
          indx = indx - x - 1;
        }
        else //สระปรกติ เ แ โ
        {
          char_out = char2 + 96;
          i = i + 3; //ข้ามภาษาไทยที่มี 3 ไบต์ไปอักษรต่อไป

          if (char_out == 226 || char_out == 227 || char_out == 228) //ถ้าเป็นสระ โ ใ ไ
          {
            x = Check_Char_Width(char_out);
            indx = indx - x + 3;
          }
        }
      }
    }
    else  //อักษรภาษาอังกฤษ
    {
      char_out = my_text[i];
      i++; // ไปอักษรต่อไป
      if (char_out == 32)indx = indx + 8; //ถ้าเป็นเว้นวรรค
    }
    x = Check_Char_Width(char_out);
    indx = indx + x + gap_pixel;
  }
  return indx; //คืนค่าที่ประมวลผลของจุดทั้งหมด
}

void ScrollText(int x, int y, String my_text, int d, char direct) //เลื่อนข้อความ
{
  
  int j;
  if (direct > 9)direct = 0;
  j = CheckTextWidth(my_text);

  if (direct == 0) //เดินหน้า
  {
    for (int i = Max_col; i > -j; i--)
    {
      DrawText(x + i, y, my_text);
      delay(d);
    }
  }
  if (direct == 1) //ถอยหลัง
  {
    for (int i = -j; i <= Max_col; i++)
    {
      DrawText(x + i, y, my_text);
      delay(d);
    }
  }
  if (direct == 2) //เลื่อนข้อความจากบนลงล่าง
  {
    for (int i = Max_row; i >= -Max_row; i--)
    {
      DrawText(x, y + i, my_text);
      delay(d);
      if (i == 0)delay(1000);
    }
  }
  if (direct == 3) //เลื่อนข้อความจากล่างขึ้นบน
  {
    for (int i = -Max_row; i <= Max_row; i++)
    {
      DrawText(x, y + i, my_text);
      delay(d);
      if (i == 0)delay(1000);
    }
  }
  if (direct == 4) //เฉียงขึ้นขวา
  {
    for (int i = -Max_row; i <= Max_row; i++)
    {
      DrawText(x + i, y + i, my_text);
      delay(d);
      if (i == 0)delay(1000);
    }
  }
  if (direct == 5) //เฉียงลงซ้าย
  {
    for (int i = Max_row; i >= -Max_row; i--)
    {
      DrawText(x + i, y + i, my_text);
      delay(d);
      if (i == 0)delay(1000);
    }
  }
  if (direct == 6) //เฉียงลงขวา
  {
    for (int i = Max_row; i >= -Max_row; i--)
    {
      DrawText(x - i, y + i, my_text);
      delay(d);
      if (i == 0)delay(1000);
    }
  }
  if (direct == 7) //เฉียงขึ้นซ้าย
  {
    for (int i = -Max_row; i <= Max_row; i++)
    {
      DrawText(x - i, y + i, my_text);
      delay(d);
      if (i == 0)delay(1000);
    }
  }
  if (direct == 8) //เดินหน้าแล้วหยุด
  {
    for (int i = Max_col; i > -j; i--)
    {
      DrawText(x + i, y, my_text);
      delay(d);
      if (i == x)break;
    }
  }
}

void setup() {
  mx.begin();
  Serial.begin(115200);
  setbrightness(15); //ปรับความสว่าง 0-15
  
  Serial.println();

/*
mysetpoint(0, 0, true); //set xy
mysetpoint(0, 15, true); //set xy
mysetpoint(63, 0, true); //set xy
mysetpoint(63, 15, true); //set xy
*/
//DrawChar(int x, int y, unsigned char input_char, bool invert)

//DrawChar((31-4), 0, 163, true);


//DrawText(0, 0, "กำ");

ScrollText(0, 0, "ก"  , 20, 8);  


}

// =======================================================================
void loop() {


  if(Serial.available()){
        my_name = Serial.readStringUntil('\n');
 
        Serial.println("Nice to meet you, " + my_name + "!");
        // ScrollText(0, 0, my_name , 20, 0);  
    }

  
 
}