User manual

563
mikoPascal PRO for dsPIC30/33 and PIC24
MikroElektronika
{*
* 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 rectangles
*}
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);
{*
* Draw a cross
*}
SPI_T6963C_line(0, 0, 239, 127, SPI_T6963C_WHITE);
SPI_T6963C_line(0, 127, 239, 0, SPI_T6963C_WHITE);
{*
* Draw solid boxes
*}
SPI_T6963C_box(0, 0, 239, 8, SPI_T6963C_WHITE);
SPI_T6963C_box(0, 119, 239, 127, SPI_T6963C_WHITE);
{*
* Draw circles
*}
{$IFDEF COMPLETE_EXAMPLE}
SPI_T6963C_circle(120, 64, 10, SPI_T6963C_WHITE);
SPI_T6963C_circle(120, 64, 30, SPI_T6963C_WHITE);
SPI_T6963C_circle(120, 64, 50, SPI_T6963C_WHITE);
SPI_T6963C_circle(120, 64, 70, SPI_T6963C_WHITE);
SPI_T6963C_circle(120, 64, 90, SPI_T6963C_WHITE);
SPI_T6963C_circle(120, 64, 110, SPI_T6963C_WHITE);
SPI_T6963C_circle(120, 64, 130, SPI_T6963C_WHITE);
SPI_T6963C_sprite(76, 4, @einstein_bmp, 88, 119); // Draw a sprite
SPI_T6963C_setGrPanel(1); // Select other graphic panel
SPI_T6963C_image(@mikroE_240x128_bmp); // Fill the graphic screen with a picture
{$ENDIF}
while (TRUE) do // Endless loop
begin
{*
* If RB8 is pressed, toggle the display between graphic panel 0 and graphic 1
*}
if(RB8_bit <> 0) then
begin
SPI_T6963C_graphics(1);
SPI_T6963C_text(0);
Delay_ms(300);
end