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.
