User manual

518
mikoPascal PRO for PIC32
MikroElektronika
{*
* Draw circles
*}
{$IFDEF LINE_DEMO}
T6963C_circle(120, 64, 10, T6963C_WHITE);
T6963C_circle(120, 64, 30, T6963C_WHITE);
T6963C_circle(120, 64, 50, T6963C_WHITE);
T6963C_circle(120, 64, 70, T6963C_WHITE);
T6963C_circle(120, 64, 90, T6963C_WHITE);
T6963C_circle(120, 64, 110, T6963C_WHITE);
T6963C_circle(120, 64, 130, T6963C_WHITE);
{$ENDIF}
{*
* Draw lled circles
*}
{$IFDEF FILL_DEMO}
T6963C_circle_ll(120, 64, 60, T6963C_WHITE);
T6963C_circle_ll(120, 64, 55, T6963C_BLACK);
T6963C_circle_ll(120, 64, 50, T6963C_WHITE);
T6963C_circle_ll(120, 64, 45, T6963C_BLACK);
T6963C_circle_ll(120, 64, 40, T6963C_WHITE);
T6963C_circle_ll(120, 64, 35, T6963C_BLACK);
T6963C_circle_ll(120, 64, 30, T6963C_WHITE);
T6963C_circle_ll(120, 64, 25, T6963C_BLACK);
T6963C_circle_ll(120, 64, 20, T6963C_WHITE);
T6963C_circle_ll(120, 64, 15, T6963C_BLACK);
T6963C_circle_ll(120, 64, 10, T6963C_WHITE);
T6963C_circle_ll(120, 64, 5, T6963C_BLACK);
{$ENDIF}
Delay_ms(1000);
T6963C_sprite(76, 4, @einstein, 88, 119); // Draw a sprite
Delay_ms(1000);
T6963C_setGrPanel(1); // Select other graphic panel
T6963C_image(@mikroE_240x128_bmp);
T6963C_displayGrPanel(1);
Delay_ms(1000);
{$IFDEF PARTIAL_IMAGE_DEMO}
T6963C_grFill(0);
T6963C_PartialImage(0, 0, 64, 64, 240, 128, @mikroE_240x128_bmp); // Display partial
image
Delay_ms(1000);
T6963C_graphics(0);
{$ENDIF}
T6963C_image(@mikroE_240x128_bmp);
T6963C_graphics(1);
T6963C_displayGrPanel(0);