Project 5: Displaying animation based on image rendering.

We take Project 4 as a base, convert 5 frames from a motion video, and use them to display an animation.
Each image is given a unique name: IMG1, IMG2, …, IMG5.
Then we draw all 5 images in a loop with a 100 ms delay between each frame.

CONST IMG1 RLE
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF008400841D9700
---
END_CONST

CONST IMG2 RLE
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF008400841D9700
---
END_CONST

--------------

CONST IMG5 RLE
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF008400841D9700
---
END_CONST

VAR I
DISPLAY_INIT(SPI, ST7796,480,320,0,2,4,3)
DISPLAY_CLEAR(0x0000)

WHILE (1)
I=I+10
DISPLAY_BITMAP(I, 0, #IMG1, 65, 101, 1, 8)
PAUSE 100
I=I+10
DISPLAY_FILL_RECT(0, 0, I, 320, 0x0000)
DISPLAY_BITMAP(I, 0, #IMG2, 65, 101, 1, 8)
PAUSE 100
DISPLAY_FILL_RECT(0, 0, I, 320, 0x0000)
I=I+10
DISPLAY_BITMAP(I, 0, #IMG3, 65, 101, 1, 8)
PAUSE 100
DISPLAY_FILL_RECT(0, 0, I, 320, 0x0000)
I=I+10
DISPLAY_BITMAP(I, 0, #IMG4, 65, 101, 1, 8)
PAUSE 100
DISPLAY_FILL_RECT(0, 0, I, 320, 0x0000)
I=I+10
DISPLAY_BITMAP(I, 0, #IMG5, 65, 101, 1, 8)
PAUSE 100
DISPLAY_FILL_RECT(0, 0, I, 320, 0x0000)
I=I+10
DISPLAY_BITMAP(I, 0, #IMG6, 65, 101, 1, 8)
PAUSE 100
DISPLAY_FILL_RECT(0, 0, I, 320, 0x0000)
IF I>360 THEN 
I=0
DISPLAY_CLEAR(0x0000)
ENDIF
WEND

The result is shown below.

×
100%