User manual

mikroPascal PRO for PIC32
MikroElektronika
493
{*
* Enable both graphics and text display at the same time
*}
SPI_T6963C_graphics(1);
SPI_T6963C_text(1);
panel := 0;
i := 0;
curs := 0;
cposx := 0;
cposy := 0;
{*
* Text messages
*}
SPI_T6963C_write_text(txt, 0, 0, SPI_T6963C_ROM_MODE_XOR);
SPI_T6963C_write_text(txt1, 0, 15, SPI_T6963C_ROM_MODE_XOR);
{*
* Cursor
*}
SPI_T6963C_cursor_height(8); // 8 pixel height
SPI_T6963C_set_cursor(0, 0) ; // move cursor to top left
SPI_T6963C_cursor(0) ; // cursor off
{*
* Draw solid boxes
*}
SPI_T6963C_box(0, 0, 239, 8, SPI_T6963C_WHITE) ;
SPI_T6963C_box(0, 119, 239, 127, SPI_T6963C_WHITE) ;
{*
* Draw rectangles
*}
{$IFDEF LINE_DEMO}
SPI_T6963C_rectangle(0, 0, 239, 127, SPI_T6963C_WHITE);
SPI_T6963C_rectangle(20, 20, 219, 107, SPI_T6963C_WHITE);
SPI_T6963C_rectangle(40, 40, 199, 87, SPI_T6963C_WHITE);
SPI_T6963C_rectangle(60, 60, 179, 67, SPI_T6963C_WHITE);
{$ENDIF}
{*
* Draw rounded edge rectangle
*}
{$IFDEF LINE_DEMO}
SPI_T6963C_Rectangle_Round_Edges(10, 10, 229, 117, 12, SPI_T6963C_WHITE);
SPI_T6963C_Rectangle_Round_Edges(30, 30, 209, 97, 12, SPI_T6963C_WHITE);
SPI_T6963C_Rectangle_Round_Edges(50, 50, 189, 77, 12, SPI_T6963C_WHITE);
{$ENDIF}