You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

99 lines
2.5 KiB

/** @file ir_uart_test4.c
@author M. P. Hayes, UCECE
@date 26 September 2013
@brief Test program for IR serial communications. This transmits
continuously while navswitch is pushed and uses alternate codes
for separate pushes.
*/
#include "system.h"
#include "navswitch.h"
#include "tinygl.h"
#include "pacer.h"
#include "uint8toa.h"
#include "ir_uart.h"
#include "../fonts/font5x7_1.h"
/* Define polling rate in Hz. */
#define LOOP_RATE 300
#define SWITCH_POLL_RATE 20
int main (void)
{
uint16_t tick = 0;
uint8_t altcode = 0;
system_init ();
tinygl_init (LOOP_RATE);
tinygl_font_set (&font5x7_1);
navswitch_init ();
ir_uart_init ();
pacer_init (LOOP_RATE);
tinygl_draw_char ('*', tinygl_point (0, 0));
/* Paced loop. */
while (1)
{
/* Wait for next tick. */
pacer_wait ();
/* Refresh display. */
tinygl_update ();
/* Note, if messages come in too fast, say due to IR
inteference from fluorescent lights, then the display will
not keep up and will appear to freeze. */
if (ir_uart_read_ready_p ())
{
uint8_t data;
data = ir_uart_getc ();
/* Ignore any dodgy received characters. */
if (data >= 'A' && data <= 'Z')
tinygl_draw_char (data, tinygl_point (0, 0));
}
tick++;
if (tick > LOOP_RATE / SWITCH_POLL_RATE)
{
tick = 0;
navswitch_update ();
/* On each button press event toggle the code. */
if (navswitch_push_event_p (NAVSWITCH_NORTH)
|| navswitch_push_event_p (NAVSWITCH_EAST)
|| navswitch_push_event_p (NAVSWITCH_SOUTH)
|| navswitch_push_event_p (NAVSWITCH_WEST)
|| navswitch_push_event_p (NAVSWITCH_PUSH))
altcode = !altcode;
/* While a button is pressed, continuously send
its code. */
if (navswitch_down_p (NAVSWITCH_NORTH))
ir_uart_putc (altcode ? 'O' : 'N');
if (navswitch_down_p (NAVSWITCH_EAST))
ir_uart_putc (altcode ? 'F' : 'E');
if (navswitch_down_p (NAVSWITCH_SOUTH))
ir_uart_putc (altcode ? 'T' : 'S');
if (navswitch_down_p (NAVSWITCH_WEST))
ir_uart_putc (altcode ? 'X' : 'W');
if (navswitch_down_p (NAVSWITCH_PUSH))
ir_uart_putc (altcode ? 'Q' : 'P');
}
}
return 0;
}