User manual

585
mikoPascal PRO for dsPIC30/33 and PIC24
MikroElektronika
{*
* Draw rectangles
*}
T6963C_rectangle(0, 0, 239, 127, T6963C_WHITE);
T6963C_rectangle(20, 20, 219, 107, T6963C_WHITE);
T6963C_rectangle(40, 40, 199, 87, T6963C_WHITE);
T6963C_rectangle(60, 60, 179, 67, T6963C_WHITE);
{*
* Draw a cross
*}
T6963C_line(0, 0, 239, 127, T6963C_WHITE);
T6963C_line(0, 127, 239, 0, T6963C_WHITE);
{*
* Draw solid boxes
*}
T6963C_box(0, 0, 239, 8, T6963C_WHITE);
T6963C_box(0, 119, 239, 127, T6963C_WHITE);
{$IFDEF COMPLETE_EXAMPLE}
{*
* Draw circles
*}
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);
T6963C_sprite(76, 4, @einstein, 88, 119); // Draw a sprite
T6963C_setGrPanel(1); // Select other graphic panel
T6963C_image(@mikroE_240x128_bmp); // Draw an image
{$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
T6963C_graphics(1);
T6963C_text(0);
Delay_ms(300);
end