Stellaris

STM32

Stellaris

Copy Code To Clipboard

program T6963C_240x128;

uses __Lib_T6963C_Consts;

// T6963C module connections
var T6963C_dataPort          : byte at GPIO_PORTE_DATA;    // DATA port

var T6963C_ctrlwr            : sbit at GPIO_PORTD_DATA2_bit; // WR write signal
var T6963C_ctrlrd            : sbit at GPIO_PORTD_DATA1_bit; // RD read signal
var T6963C_ctrlcd            : sbit at GPIO_PORTD_DATA0_bit; // CD command/data signal
var T6963C_ctrlrst           : sbit at GPIO_PORTD_DATA4_bit; // RST reset signal

var T6963C_ctrlwr_Direction  : sbit at GPIO_PORTD_DIR2_bit;  // WR write signal direction
var T6963C_ctrlrd_Direction  : sbit at GPIO_PORTD_DIR1_bit;  // RD read signal direction
var T6963C_ctrlcd_Direction  : sbit at GPIO_PORTD_DIR0_bit;  // CD command/data signal direction
var T6963C_ctrlrst_Direction : sbit at GPIO_PORTD_DIR4_bit;  // RST reset signal direction

// Signals not used by library, they are set in main function
var T6963C_ctrlce            : sbit at GPIO_PORTD_DATA3_bit; // CE signal
var T6963C_ctrlfs            : sbit at GPIO_PORTD_DATA6_bit; // FS signal
var T6963C_ctrlmd            : sbit at GPIO_PORTD_DATA5_bit; // MD signal

var T6963C_ctrlce_Direction  : sbit at GPIO_PORTD_DIR3_bit;  // CE signal direction
var T6963C_ctrlfs_Direction  : sbit at GPIO_PORTD_DIR6_bit;  // FS signal direction
var T6963C_ctrlmd_Direction  : sbit at GPIO_PORTD_DIR5_bit;  // MD signal direction
// End T6963C module connections

// Pin masks
const CE_FS_MD_PINS = _GPIO_PINMASK_3 or
                      _GPIO_PINMASK_6 or
                      _GPIO_PINMASK_5;

const INPUT_BUTTONS = _GPIO_PINMASK_0 or
                      _GPIO_PINMASK_1 or
                      _GPIO_PINMASK_2 or
                      _GPIO_PINMASK_3 or
                      _GPIO_PINMASK_4 or
                      _GPIO_PINMASK_5 ;
// End Pin masks

var   panel : byte;         // current panel
          i : word;         // general purpose register
      curs  : byte;         // cursor visibility
      cposx,
      cposy : word;         // cursor x-y position
      txtcols : byte;       // number of text coloms
      txt, txt1 : string[29];
      txt2 : string[21];

begin
  {$DEFINE LINE_DEMO}// Uncomment to demonstrate line drawing routines
  {$DEFINE FILL_DEMO}// Uncomment to demonstrate fill routines
  {$DEFINE PARTIAL_IMAGE_DEMO}// Uncomment to demonstrate partial image routine

  txt1 := ' EINSTEIN WOULD HAVE LIKED mE';
  txt  := ' GLCD LIBRARY DEMO, WELCOME !';
  txt2 := ' Partial image demo! ';

  // input buttons
  GPIO_Digital_Input(@GPIO_PORTA, INPUT_BUTTONS);

  // configure CE, FS and MD pins, others will be configured by the T6963C library
  GPIO_Digital_Output(@GPIO_PORTD, CE_FS_MD_PINS);

  T6963C_ctrlce := 0;             // Enable T6963C
  T6963C_ctrlfs := 0;             // Font Select 8x8
  T6963C_ctrlmd := 0;             // Column number select

  panel := 0;
  i := 0;
  curs := 0;
  cposx := 0;
  cposy := 0;

  // Initialize T6369C
  T6963C_init(240, 128, 8);

  {*
   * Enable both graphics and text display at the same time
   *}
  T6963C_graphics(1);
  T6963C_text(1);

  {*
   * Text messages
   *}
  T6963C_write_text(txt, 0, 0, T6963C_ROM_MODE_XOR);
  T6963C_write_text(txt1, 0, 15, T6963C_ROM_MODE_XOR);

  {*
   * Cursor
   *}
  T6963C_cursor_height(8);       // 8 pixel height
  T6963C_set_cursor(0, 0);       // Move cursor to top left
  T6963C_cursor(0);              // Cursor off

  {*
   * Draw solid boxes
   *}
  T6963C_box(0,   0, 239,   8, T6963C_WHITE);
  T6963C_box(0, 119, 239, 127, T6963C_WHITE);

  {*
   * Draw rectangles
   *}
  {$IFDEF LINE_DEMO}
    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);
  {$ENDIF}

  {*
   * Draw rounded edge rectangle
   *}
  {$IFDEF LINE_DEMO}
    T6963C_Rectangle_Round_Edges(10, 10, 229, 117, 12, T6963C_WHITE);
    T6963C_Rectangle_Round_Edges(30, 30, 209,  97, 12, T6963C_WHITE);
    T6963C_Rectangle_Round_Edges(50, 50, 189,  77, 12, T6963C_WHITE);
  {$ENDIF}

  {*
   * Draw filled rounded edge rectangle
   *}
  {$IFDEF FILL_DEMO}
    T6963C_Rectangle_Round_Edges_Fill(10, 10, 229, 117, 12, T6963C_WHITE);
    T6963C_Rectangle_Round_Edges_Fill(20, 20, 219, 107, 12, T6963C_BLACK);
    T6963C_Rectangle_Round_Edges_Fill(30, 30, 209,  97, 12, T6963C_WHITE);
    T6963C_Rectangle_Round_Edges_Fill(40, 40, 199,  87, 12, T6963C_BLACK);
    T6963C_Rectangle_Round_Edges_Fill(50, 50, 189,  77, 12, T6963C_WHITE);
  {$ENDIF}

  {*
   * Draw a cross
   *}
  {$IFDEF LINE_DEMO}
    T6963C_line(0,   0, 239, 127, T6963C_WHITE);
    T6963C_line(0, 127, 239,   0, T6963C_WHITE);
  {$ENDIF}
  
  {*
   * 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 filled circles
   *}
  {$IFDEF FILL_DEMO}
    T6963C_circle_fill(120, 64, 60, T6963C_WHITE);
    T6963C_circle_fill(120, 64, 55, T6963C_BLACK);
    T6963C_circle_fill(120, 64, 50, T6963C_WHITE);
    T6963C_circle_fill(120, 64, 45, T6963C_BLACK);
    T6963C_circle_fill(120, 64, 40, T6963C_WHITE);
    T6963C_circle_fill(120, 64, 35, T6963C_BLACK);
    T6963C_circle_fill(120, 64, 30, T6963C_WHITE);
    T6963C_circle_fill(120, 64, 25, T6963C_BLACK);
    T6963C_circle_fill(120, 64, 20, T6963C_WHITE);
    T6963C_circle_fill(120, 64, 15, T6963C_BLACK);
    T6963C_circle_fill(120, 64, 10, T6963C_WHITE);
    T6963C_circle_fill(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);

  while (TRUE) do                                // Endless loop
    begin

      {*
       * If RA0 is pressed, toggle the display between graphic panel 0 and graphic 1
       *}
      if (GPIO_PORTA_DATA0_bit) then
        begin
          Inc(panel) ;
          panel := panel and 1;
          T6963C_setPtr((T6963C_grMemSize + T6963C_txtMemSize) * panel, T6963C_GRAPHIC_HOME_ADDRESS_SET) ;
          Delay_ms(300) ;
        end

      {*
       * If RA1 is pressed, display only graphic panel
       *}
      else
        if (GPIO_PORTA_DATA1_bit) then
          begin
            T6963C_graphics(1) ;
            T6963C_text(0) ;
            Delay_ms(300) ;
          end

      {*
       * If RA2 is pressed, display only text panel
       *}
        else
          if (GPIO_PORTA_DATA2_bit) then
            begin
              T6963C_graphics(0);
              T6963C_text(1);
              Delay_ms(300);
            end

      {*
       * If RA3 is pressed, display text and graphic panels
       *}
          else
            if (GPIO_PORTA_DATA3_bit) then
              begin
                T6963C_graphics(1);
                T6963C_text(1);
                Delay_ms(300);
              end

      {*
       * If RA4 is pressed, change cursor
       *}
            else
              if (GPIO_PORTA_DATA4_bit) then
                begin
                  Inc(curs);
                  if (curs = 3) then
                    curs := 0;
                  case curs of
                    0:
                       // no cursor
                       T6963C_cursor(0);

                    1: begin
                         // blinking cursor
                         T6963C_cursor(1);
                         T6963C_cursor_blink(1);
                       end;
                    2: begin
                         // non blinking cursor
                         T6963C_cursor(1);
                         T6963C_cursor_blink(0);
                       end;
                  end;
                  Delay_ms(300);
                end

      {*
       * If RA5 is pressed, perform the "Partial image" demonstration
       *}
      else
        {$IFDEF PARTIAL_IMAGE_DEMO}
         if (GPIO_PORTA_DATA5_bit) then
           begin
             T6963C_setGrPanel(0);
             T6963C_setTxtPanel(0);
             T6963C_txtFill(0);
             T6963C_setGrPanel(1);
             T6963C_setTxtPanel(0);
             T6963C_graphics(1);
             T6963C_text(1);
             T6963C_displayGrPanel(1);
             T6963C_write_text(txt2, 5, 15, T6963C_ROM_MODE_XOR);
             Delay_1sec();

             T6963C_grFill(0);
             T6963C_PartialImage(0, 0, 64, 64, 240, 128, @mikroE_240x128_bmp);
             Delay_ms(1500);

             T6963C_PartialImage(0, 0, 128, 128, 240, 128, @mikroE_240x128_bmp);
             Delay_ms(1500);

             T6963C_PartialImage(0, 0, 240, 128, 240, 128, @mikroE_240x128_bmp);
             Delay_ms(1500);

             T6963C_txtFill(0);
             T6963C_write_text(txt, 0, 0, T6963C_ROM_MODE_XOR);
             T6963C_write_text(txt1, 0, 15, T6963C_ROM_MODE_XOR);
           end;
        {$ENDIF}
      {*
       * Move cursor, even if not visible
       *}
      Inc(cposx);
      if (cposx = T6963C_txtCols) then
        begin
          cposx := 0;
          Inc(cposy);
          if (cposy = T6963C_grHeight div T6963C_CHARACTER_HEIGHT) then
            cposy := 0;
        end;
      T6963C_set_cursor(cposx, cposy);

      Delay_ms(100);
    end;
end.

STM32

Copy Code To Clipboard

program  T6963C_240x64;

uses __Lib_T6963C_Consts;

// T6963C module connections
var T6963C_dataPort_Output         : dword at GPIOD_ODR;     // DATA port
var T6963C_dataPort_Input          : dword at GPIOD_IDR;     // DATA port

var T6963C_ctrlwr            : sbit at GPIOD_ODR.B8; // WR write signal
var T6963C_ctrlrd            : sbit at GPIOD_ODR.B9; // RD read signal
var T6963C_ctrlcd            : sbit at GPIOD_ODR.B11; // CD command/data signal
var T6963C_ctrlrst           : sbit at GPIOD_ODR.B12; // RST reset signal

// Signals not used by library, they are set in main function
var T6963C_ctrlce            : sbit at GPIOD_ODR.B10; // CE signal
var T6963C_ctrlfs            : sbit at GPIOD_ODR.B13; // FS signal

// End T6963C module connections

// Pin masks
const CE_FS_PINS    = _GPIO_PINMASK_10 or
                      _GPIO_PINMASK_13;

const INPUT_BUTTONS = _GPIO_PINMASK_8 or
                      _GPIO_PINMASK_9 or
                      _GPIO_PINMASK_10 or
                      _GPIO_PINMASK_11 or
                      _GPIO_PINMASK_12 or
                      _GPIO_PINMASK_13 ;
// End Pin masks

var   panel : byte;         // current panel
          i : word;         // general purpose register
       curs : byte;         // cursor visibility
      cposx,
      cposy : word;         // cursor x-y position
      txt, txt1 : string[29];
      txt2 :  string[21];

begin
  {$DEFINE LINE_DEMO}// Uncomment to demonstrate line drawing routines
  {$DEFINE FILL_DEMO}// Uncomment to demonstrate fill routines
  {$DEFINE PARTIAL_IMAGE_DEMO}// Uncomment to demonstrate partial image routine

  txt1 := ' EINSTEIN WOULD HAVE LIKED mE';
  txt  := ' GLCD LIBRARY DEMO, WELCOME !';
  txt2 := ' Partial image demo!';

  // input buttons
  GPIO_Digital_Input(@GPIOE_BASE, INPUT_BUTTONS);

  // configure CE and FS pins, others will be configured by the T6963C library
  GPIO_Digital_Output(@GPIOD_BASE, CE_FS_PINS);

  T6963C_ctrlce := 0;            // Enable T6963C
  T6963C_ctrlfs := 0;            // Font Select 8x8

  panel := 0;
  i     := 0;
  curs  := 0;
  cposx := 0;
  cposy := 0;

  // Initialize T6369C
  T6963C_init(240, 64, 8);

  {*
   * Enable both graphics and text display at the same time
   *}
  T6963C_graphics(1);
  T6963C_text(1);
  {*
   * Text messages
   *}
  T6963C_write_text(txt, 0, 0, T6963C_ROM_MODE_XOR);
  T6963C_write_text(txt1, 0, 7, T6963C_ROM_MODE_XOR);

  {*
   * Cursor
   *}
  T6963C_cursor_height(8);       // 8 pixel height
  T6963C_set_cursor(0, 0);       // Move cursor to top left
  T6963C_cursor(0);              // Cursor off

  {*
   * Draw solid boxes
   *}
  T6963C_box(0, 0, 239, 8, T6963C_WHITE);
  T6963C_box(0, 55, 239, 63, T6963C_WHITE);
  
  {*
   * Draw rectangles
   *}
  {$IFDEF LINE_DEMO}
  T6963C_rectangle(0,   0, 239, 63, T6963C_WHITE);
  T6963C_rectangle(20, 11, 219, 53, T6963C_WHITE);
  T6963C_rectangle(40, 21, 199, 43, T6963C_WHITE);
  T6963C_rectangle(60, 30, 179, 34, T6963C_WHITE);
  {$ENDIF}

  {*
   * Draw rounded edge rectangle
   *}
  {$IFDEF LINE_DEMO}
    T6963C_Rectangle_Round_Edges(30,16, 209, 48, 12, T6963C_WHITE);
    T6963C_Rectangle_Round_Edges(50,25, 189, 39, 5, T6963C_WHITE);
  {$ENDIF}

  {*
   * Draw filled rounded edge rectangle
   *}
  {$IFDEF FILL_DEMO}
    T6963C_Rectangle_Round_Edges_Fill(10, 10, 229, 53, 12, T6963C_WHITE);
    T6963C_Rectangle_Round_Edges_Fill(15, 15, 224, 49, 12, T6963C_BLACK);
    T6963C_Rectangle_Round_Edges_Fill(20, 20, 219, 44, 9, T6963C_WHITE);
    T6963C_Rectangle_Round_Edges_Fill(25, 25, 214, 39, 7, T6963C_BLACK);
    T6963C_Rectangle_Round_Edges_Fill(30, 30, 209, 34, 2, T6963C_WHITE);
  {$ENDIF}
  
  {*
   * Draw a cross
   *}
  {$IFDEF LINE_DEMO}
    T6963C_line(0, 0, 239, 63, T6963C_WHITE);
    T6963C_line(0, 63, 239, 0, T6963C_WHITE);
  {$ENDIF}

  {*
   * Draw circles
   *}
  {$IFDEF LINE_DEMO}
  T6963C_circle(120, 32, 10, T6963C_WHITE);
  T6963C_circle(120, 32, 30, T6963C_WHITE);
  T6963C_circle(120, 32, 50, T6963C_WHITE);
  T6963C_circle(120, 32, 70, T6963C_WHITE);
  T6963C_circle(120, 32, 90, T6963C_WHITE);
  T6963C_circle(120, 32, 110, T6963C_WHITE);
  T6963C_circle(120, 32, 130, T6963C_WHITE);
   {$ENDIF}

  {*
   * Draw filled circles
   *}
  {$IFDEF FILL_DEMO}
    T6963C_circle_fill(120, 32, 40, T6963C_WHITE);
    T6963C_circle_fill(120, 32, 35, T6963C_BLACK);
    T6963C_circle_fill(120, 32, 30, T6963C_WHITE);
    T6963C_circle_fill(120, 32, 25, T6963C_BLACK);
    T6963C_circle_fill(120, 32, 20, T6963C_WHITE);
    T6963C_circle_fill(120, 32, 15, T6963C_BLACK);
    T6963C_circle_fill(120, 32, 10, T6963C_WHITE);
    T6963C_circle_fill(120, 32, 5, T6963C_BLACK);
  {$ENDIF}

  Delay_ms(1000);
  T6963C_sprite(60, 0, @einstein, 120, 64);    // Draw a sprite
  Delay_ms(1000);

  T6963C_setGrPanel(1);                        // Select other graphic panel

  T6963C_image(@mikroE_240x64_bmp);
  T6963C_displayGrPanel(1);
  Delay_ms(1000);
  {$IFDEF PARTIAL_IMAGE_DEMO}
    T6963C_grFill(0);
    T6963C_PartialImage(0, 0, 64, 64, 240, 64, @mikroE_240x64_bmp);   // Display partial image
    Delay_ms(1000);
    T6963C_graphics(0);
  {$ENDIF}
  T6963C_image(@mikroE_240x64_bmp);
  T6963C_graphics(1);
  T6963C_displayGrPanel(0);
  
  while (TRUE) do                              // Endless loop
    begin

      {*
       * If RE8 is pressed, toggle the display between graphic panel 0 and graphic 1
       *}
      if(GPIOE_IDR.B8) then
        begin
        Inc(panel) ;
        panel := panel and 1 ;
        T6963C_displayGrPanel(panel) ;
          Delay_ms(300);
        end

      {*
       * If RE9 is pressed, display only graphic panel
       *}
      else
        if (GPIOE_IDR.B9) then
          begin
          T6963C_graphics(1) ;
          T6963C_text(0) ;
          Delay_ms(300);
          end
      
      {*
       * If RE10 is pressed, display only text panel
       *}
      else
        if(GPIOE_IDR.B10) then
          begin
            T6963C_graphics(0);
            T6963C_text(1);
            Delay_ms(300);
          end

      {*
       * If RE11 is pressed, display text and graphic panels
       *}
      else
        if(GPIOE_IDR.B11) then
          begin
            T6963C_graphics(1);
            T6963C_text(1);
            Delay_ms(300);
          end

      {*
       * If RE12 is pressed, change cursor
       *}
      else
        if(GPIOE_IDR.B12)  then
          begin
            Inc(curs);
            if (curs = 3) then
              curs := 0;
            case curs of
              0:
                 // no cursor
                 T6963C_cursor(0);

              1: begin
                   // blinking cursor
                   T6963C_cursor(1);
                   T6963C_cursor_blink(1);
                 end;
              2: begin
                   // non blinking cursor
                   T6963C_cursor(1);
                   T6963C_cursor_blink(0);
                 end;
            end;
           Delay_ms(300);
        end
    {*
     * If RE13 is pressed, perform the "Partial image" demonstration
     *}
    else
      {$IFDEF PARTIAL_IMAGE_DEMO}
        if(GPIOE_IDR.B13) then
          begin
            T6963C_setGrPanel(0);
            T6963C_setTxtPanel(0);
            T6963C_txtFill(0);
            T6963C_setGrPanel(1);
            T6963C_setTxtPanel(0);
            T6963C_graphics(1);
            T6963C_text(1);
            T6963C_displayGrPanel(1);
            T6963C_write_text(txt2, 5, 7, T6963C_ROM_MODE_XOR);
            Delay_1sec();
                    
            for i := 0 to 3 do
              begin
                T6963C_grFill(0);
                T6963C_PartialImage(i*80 + 10, 0, 64, 64, 240, 64, @mikroE_240x64_bmp); // Partial image
                Delay_ms(500);
              end;

            T6963C_txtFill(0);
            T6963C_write_text(txt, 0, 0, T6963C_ROM_MODE_XOR);
            T6963C_write_text(txt1, 0, 7, T6963C_ROM_MODE_XOR);
          end;
      {$ENDIF}
    {*
     * Move cursor, even if not visible
     *}
      Inc(cposx);
      if (cposx = T6963C_txtCols) then
        begin
          cposx := 0;
          Inc(cposy);
          if (cposy = T6963C_grHeight / T6963C_CHARACTER_HEIGHT) then
            cposy := 0;
        end;
      T6963C_set_cursor(cposx, cposy);

      Delay_ms(100);
    end;
end.