/* Menu 1 mit Timer, Testet die Funktion Timer, ist eingestellt auf 10ms und wird 
vom Timer gesteuert. Tasten sind nach Peter Dannegger entprellt, bis 4 Tasten
Auswahl von 4 Tasten (mit Zusatz) by h.j.seeger@web.de, Leider ist die ganze Funktion
erst mit Zusatztasten sichtbar, Bauanleitung bei mir per mail*/

#include <nibo/niboconfig.h>                 
#include <nibo/iodefs.h>
#include <nibo/leds.h>                       
#include <avr/interrupt.h>
#include <avr/io.h>                
#include <nibo/gfx.h>
#include <nibo/display.h>
#include <nibo/pwm.h>
#include <nibo/bot.h>
#include <nibo/delay.h>
#include <stdint.h>

#define KEY_DDR    DDRD                            // Datenrichtungsregister
#define KEY_PORT   PORTD                        // Datenregister
#define KEY_PIN    PIND                            // PIN D
#define KEY_1       4                            // Taster Nibo
#define KEY_2      3                            // Taster Rechts
#define KEY_3       5                            // Taster Mitte
#define KEY_4       6                            // Taster Links
#define ALL_KEYS (1<<KEY_1|1<<KEY_2|1<<KEY_3|1<<KEY_4)
#define REPEAT_MASK (1<<KEY_1|1<<KEY_2)
#define REPEAT_START 50                            // after 500ms
#define REPEAT_NEXT 20                            // every 200ms            

volatile uint8_t key_state;
volatile uint8_t key_press;
volatile uint8_t key_rpt;

uint8_t wait10 = 0;                                // ISR 10ms
uint8_t wait10_merker = 0;                        // ISR 10ms
uint8_t wait = 0;                                // Timer 1ms
uint8_t led7 = 0;                                // Variable für LED 7
uint8_t wait_led = 0;
int lsx;
int lsy;
int verzoegerung;
int flaga=1;                                    // Laufschrift+S3
int flagb=1;                                    // Anzeige Zeiger Menu
int zeiger=12;

// **********************************
ISR (TIMER2_COMP_vect)                            // wait1=1ms,
  {
    static uint8_t ct0,ct1,rpt;
    uint8_t i;
    if(  wait<=9)                                // Takt 0,5s, bei 9 sind es 10ms
      {  
        wait++;    
      }                                            // erhöht
    else                                        // wenn dann ...
      { 
        wait=0;                                    // setzt wait auf 0
        wait10=0xFF;                               // Signal alle 10ms wait10         
          
    i=key_state ^~KEY_PIN;
    ct0=~(ct0&i);
    ct1=ct0^(ct1&i);
    i&=ct0&ct1;
    key_state^=i;
    key_press|=key_state&i;
    if((key_state & REPEAT_MASK)==0)
    rpt=REPEAT_START;
    if(--rpt==0){
    rpt=REPEAT_NEXT;
    key_rpt|=key_state & REPEAT_MASK;
    }
 }}
// *************************************************
uint8_t get_key_press(uint8_t key_mask)
 {
    cli();
    key_mask &=key_press;
    key_press^=key_mask;
    sei();
    return key_mask;
  }
// ***********************************************
uint8_t get_key_rpt(uint8_t key_mask)
  {
    cli();
    key_mask &=key_rpt;
    key_rpt^=key_mask;
    sei();
    return key_mask;
  }
// ****************************************************
uint8_t get_key_short(uint8_t key_mask)
  {
    cli();
    return get_key_press(~key_state & key_mask);
  }
// ****************************************************
uint8_t get_key_long(uint8_t key_mask)
  {
    return get_key_press(get_key_rpt(key_mask));
  }
// ****************************************************
// ***   LOGO NIBO 2  ***
void nibo_logo(uint8_t x, uint8_t y)     // Deklariert nibo_logo mit Parameter x + y
{                                // macht das Logo von Nicai  
  gfx_move(x+31, y+4);             // Gibt Startpunkt an
  gfx_box(14, 3);                // Zeichnet Rechteck
  gfx_move(x+31, y+9);          // Gibt Startpunkt an
  gfx_box(14, 6);                // Zeichnet Rechteck
  gfx_move(x+25, y+11);          // Gibt Startpunkt an
  gfx_box(4, 6);                // Zeichnet Rechteck
  gfx_move(x+47, y+11);          // Gibt Startpunkt an
  gfx_box(4, 6);                  // Zeichnet Rechteck
  gfx_set_proportional(1);        // ändert Breite
  gfx_move(x+19,y+19);            // Angabe Ort unter Logo
  gfx_print_text("N I B O 2");    // Ausgabe Nibo 2
// Punkt 1
  gfx_move(x+5, y+3);             // Gibt Startpunkt an
  gfx_box(6, 6);                // Zeichnet Rechteck
  gfx_move(x+6, y+2);             // Gibt Startpunkt an
  gfx_box(4, 8);                // Zeichnet Rechteck
  gfx_move(x+4, y+4);             // Gibt Startpunkt an
  gfx_box(8, 4);                // Zeichnet Rechteck
// Punkt 2
  gfx_move(x+13, y+12);         // Gibt Startpunkt an
  gfx_box(5, 3);                // Zeichnet Rechteck
  gfx_move(x+14, y+11);             // Gibt Startpunkt an
  gfx_box(3, 5);                // Zeichnet Rechteck
// Punkt 3
  gfx_move(x+18, y+5);             // Gibt Startpunkt an
  gfx_box(4, 2);                // Zeichnet Rechteck
  gfx_move(x+19, y+4);             // Gibt Startpunkt an
  gfx_box(2, 4);                // Zeichnet Rechteck 
}                                // Ende Schleife
// **********************************************************
void nibo_smile4(uint8_t smx, uint8_t smy)         // Unterprg smile2
{
#define _XCAT2(a,b) a##b                // nach Nikai
#define _XBMBOOL_  0U
#define _XBMBOOLX  1U
#define _XBMVAL(bit, pos) (_XCAT2(_XBMBOOL,bit)<<pos)
#define _XBM8(a,b,c,d,e,f,g,h) ((uint8_t)\
    (_XBMVAL(a,0)|_XBMVAL(b,1)|_XBMVAL(c,2)|_XBMVAL(d,3)\
    |_XBMVAL(e,4)|_XBMVAL(f,5)|_XBMVAL(g,6)|_XBMVAL(h,7)))
#define XBM16(a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p) \
        _XBM8(a,b,c,d,e,f,g,h), _XBM8(i,j,k,l,m,n,o,p)                                     
#define xbm_smile1_width 16
#define xbm_smile1_height 16
static unsigned char xbm_smile1_data[] PROGMEM = {
XBM16(X,_,X,_,X,X,X,_,_,_,X,X,X,_,_,_),    // Smili Mund
XBM16(X,_,X,_,_,_,X,_,_,X,_,_,_,X,_,_),
XBM16(X,X,X,_,_,_,X,_,_,_,X,X,_,_,_,_),
XBM16(X,_,X,_,X,_,X,_,X,_,_,_,X,_,_,_),
XBM16(X,_,X,_,_,X,_,_,_,X,X,X,_,_,_,_),
XBM16(_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_),
XBM16(X,X,X,_,_,X,_,_,_,X,X,_,X,X,X,_),
XBM16(_,_,X,_,X,_,X,_,X,_,X,_,_,_,X,_),
XBM16(_,X,_,_,X,_,X,_,_,_,X,_,_,X,_,_),
XBM16(X,X,X,_,_,X,_,_,_,_,X,_,X,X,X,_),
XBM16(_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_),
XBM16(X,_,_,X,_,X,_,X,X,_,_,_,X,_,_,X),
XBM16(X,X,_,X,_,X,_,X,_,X,_,X,_,X,_,X),
XBM16(X,_,_,X,_,X,_,X,X,_,_,X,_,X,_,X),
XBM16(X,_,X,X,_,X,_,X,_,X,_,X,_,X,_,_),
XBM16(X,_,_,X,_,X,_,X,X,_,_,_,X,_,_,X) };

gfx_move(smx,smy);                          // Grafik Ausgabeposition
gfx_draw_xbm_P(xbm_smile1_width, xbm_smile1_height, (PGM_P) xbm_smile1_data);

}
// **********************************************************
void nibo_laufschrift1()
{
  if (wait10_merker ==1)                    // Verzögerung 
    {
      verzoegerung++;
      if (verzoegerung == 20 )
        {
          verzoegerung = 0;
          lsx++;
          gfx_move(lsx, 55);                // Angabe Ort unter Logo
          gfx_print_text(" Start mit S3");  // Ausgabe Text
          if (lsx == 125)
            {
              lsx = 0;                  
            }
        }
    }
}
// **********************************************************
void nibo_menu1()
{
gfx_move(0,53);                                // Angabe Ort
gfx_hline(125);                                // Zeichnet Linie nach rechts + Länge  
gfx_move(42,54);                            // Angabe Ort erster Strich
gfx_vline(12);                                // Zeichnet Linie nach unten + Länge  
gfx_move(84,54);                            // Angabe Ort zweiter Strich
gfx_vline(12);                                // Zeichnet Linie nach unten + Länge
gfx_move(7,57);                                // erster Taster
gfx_print_text("UNTEN");                    // max 5 Zeichen
gfx_move(50,57);                            // zweiter Taster
gfx_print_text("ENTER");                    // max 5 Zeichen
gfx_move(94,57);                            // dritter Taster
gfx_print_text("OBEN");                        // max 5 Zeichen
}
// **********************************************************
void nibo_menu2()
{
gfx_move(0,0);                                // Überschrift
gfx_print_text("Nibo 2 Auswahl Menue: ");    // Inhalt Überschrift 
gfx_move(0,9);                                // Angabe Ort
gfx_hline(125);                                // Zeichnet Linie nach rechts + Länge  
gfx_move(29,12);                            // erste Zeile Menue
gfx_print_text("XXXXX  Zeil1  XXXXX");        // Inhalt 
gfx_move(29,22);                            // zweite Zeile Muneu
gfx_print_text("Das ist die Laenge ");        // Inhalt 
gfx_move(29,32);                            // dritte Zeile Menue
gfx_print_text("insgesamt 19 Zeiche");        // Inhalt 
gfx_move(29,42);                            // vierte Zeile Menue
gfx_print_text("Das ist die Zeile 4");        // Inhalt 
}
// **********************************************************
void nibo_titelbild()
{
    gfx_fill(0x00);                                // löscht Schirm
    gfx_move(0,50);                                // Angabe Ort
    gfx_hline(126);                                // Zeichnet Linie nach rechts + Länge  
    gfx_move(0,25);                                // Angabe Ort
    gfx_hline(60);                                // Zeichnet Linie nach rechts + Länge                      
    gfx_move(5, 5);                                // Angabe Ort                
    gfx_set_proportional(1);                    // Angabe Schrift
    gfx_print_text("by achim S.");                // Ausgabe Text    
    gfx_move(15, 15);                            // Angabe Ort                
    gfx_print_text("2012");                        // Ausgabe Text    
    gfx_move(15, 35);                            // Angabe Ort
    gfx_set_proportional(1);                    // Angabe Schrift
    gfx_print_text("Menu mit Timer (1) ");        // Ausgabe Text
}
// *********************************************************
void nibo_auswahl(int zeiger)
  {
    gfx_fill(0x00);
    if (zeiger==12)                     
      {
           gfx_move(15, 15);                        // Angabe Ort                
        gfx_print_text("Auswahl A");            // Ausgabe A 
      } 
    if (zeiger==22)                     
      {
        gfx_move(15, 25);                        // Angabe Ort                
        gfx_print_text("Auswahl B");            // Ausgabe B     
      } 
    if (zeiger==32)                     
      {
        gfx_move(15, 35);                        // Angabe Ort                
        gfx_print_text("Auswahl C");            // Ausgabe C    
      }
    if (zeiger==42)                     
      {
        gfx_move(15, 45);                        // Angabe Ort                
        gfx_print_text("Auswahl D");            // Ausgabe D         
      }
      
    nibo_smile4(80,5);                            // Aufruf Unterprogramm         
  }
// ********************************************************
void nibo_TasterS3()                            // Auswahl Taster3
  {
    gfx_fill(0x00);                                // löscht Schirm                                
    nibo_menu1();                                // Menu unten 3x
    nibo_menu2();   
    flaga=0;                                    // Laufschrift aus
    flagb=0;
  }
// *********************************************************
void nibo_zeiger()                                // Zeiger löschen
  {
    gfx_move(3,12);    
    gfx_print_text("     ");
    gfx_move(3,22);    
    gfx_print_text("     ");
    gfx_move(3,32);     
    gfx_print_text("     ");
    gfx_move(3,42);    
    gfx_print_text("     ");
    flagb=1;
  }    
// **********************************************************
void nibo_timer2()                                // Timer 10ms 
  {    
    TCNT2 = 0;
    OCR2=249;
    TCCR2=(1<<WGM21)|(1<<CS21)|(1<<CS20);    
    TIMSK |= (1<<OCIE2);  
  }
// **********************************************************
int main(){                                        // Start                        
    sei();                                        // Freigabe Interrups
    display_init();
    pwm_init();                        
    gfx_init();                        
    bot_init();                        
    leds_init();                                    
    leds_set_displaylight(800);                    // setzt Displaylicht                
    nibo_timer2();                                // Aufruf Timer 2 einmalig

KEY_DDR&=~ALL_KEYS;
KEY_PORT|=ALL_KEYS;

nibo_titelbild();

nibo_logo(60,5);                                  // x max 70 y max 35

// ********************************************************
while(1)
{
// Beginn Timer Schleife, einzige Schleife
if (wait10 == 0xFF)                         // Abfrage wai10 - Merker
  {                                 
    wait10_merker=1;                        // Beginn der Zeitschleife
    wait10=0;    
  }
// *********************************************************
if(get_key_press(1<<KEY_1))                    // Taster auf Nibo S3 - Key 1
  {    
  nibo_TasterS3();      
  }
// *********************************************************
if (flaga==1)                     
  {
    nibo_laufschrift1();  
  } 
// **********************************************************
if (flagb==0)                     
  {
    zeiger=12;  
    gfx_move(3,zeiger);    
    gfx_print_text("==>");
  } 
// **********************************************************
if(get_key_press(1<<KEY_2))                    // Taster Rechts, Key 2
  {   
    nibo_zeiger(); 
    zeiger=zeiger-10;
    if (zeiger<12)
    zeiger=12;
    gfx_move(3,zeiger);    
    gfx_print_text("==>");     
  }
// **********************************************************
if(get_key_press(1<<KEY_4))                    // Taster Links, Key 4
  {    
    nibo_zeiger(); 
    zeiger=zeiger+10;
    if (zeiger>42)
    zeiger=42;
    gfx_move(3,zeiger);    
    gfx_print_text("==>");
  }
// **********************************************************
if(get_key_press(1<<KEY_3))                    // Taster Mitte, Key 3
  {                                               
    nibo_zeiger();
    nibo_auswahl(zeiger);
  }
// **********************************************************
// LED Ansteuerung 7 grün Blinklicht, Kontrolle ob Zeit ok
if (wait10_merker == 1) 
  {                   
       led7++;
       if (led7 == 35 )                        // Einstellung Zeit 10ms mal x
    { 
      led7 = 0;                                               
      if(!(PINC&(1<<PC7)))                  // Abfrage PortC PC5 LED 5 Grün aus?                      
      leds_set_status(1,7);                 // schaltet LED 5 Grün auf ein
      else
      leds_set_status(0,7);                 // schaltet LED 5 Grün auf aus
    }  
  } 
// **********************************************************  
wait10_merker = 0;                            // Wait10_merker auf 0 setzen
// **********************************************************
  }                                            // while
return 0;                
}                                            // main