'============================================================
' RGB121 framebuffer video player  (companion to vid2rgb121.py)
'
' Fast path: each frame is read straight from the file into a RAM
' buffer with MEMORY INPUT (no INPUT$/LONGSTRING loop), then BLIT
' MEMORY decodes the RLE nibbles directly onto the LIVE screen
' (no framebuffer, no FRAMEBUFFER COPY).
'
' .vc frame layout on disk:
'     uint32  blobLen          (little-endian)
'     uint16  width | 0x8000    \  BLIT MEMORY header
'     uint16  height            /
'     bytes   rle...            (colour<<4)|count, count 1..15
'
' On HDMI/USB the base display must be 640x480; MODE 2 makes it a
' 320x240, 16-colour RGB121 surface:
'     OPTION RESOLUTION 640x480[,315000]   (one-off, persists)
'============================================================
Option EXPLICIT

Const F_HANDLER = 1
Const T_ESC     = 27
Drive "b:"
Dim STRING vidFile = "cartoon.121"
Dim STRING audFile = ""'"sample-2.aud"   ' set to "" if the clip has no audio
Dim FLOAT  fps     = 30               ' MUST match the converter's --fps
Dim FLOAT  frameMs = 1000 / fps
Dim INTEGER vDelay = 0                ' ms A/V sync nudge

' --- per-frame RAM buffer (NOT a long string: raw integer array) -----
' Holds one compressed frame blob (header + RLE). 320x240 worst case
' is ~76 KB; 9700 ints = 77.6 KB headroom.
Dim INTEGER buf%(9700)
Dim INTEGER baddr% = Peek(VARADDR buf%())   ' frame data address for BLIT MEMORY
Dim INTEGER lenbuf%(1)                        ' 16 bytes scratch for the length
word

' --- screen: MODE 2 draws straight to the live 320x240 RGB121 display
MODE 2
CLS

Dim INTEGER blobLen, frames = 0

Open vidFile For INPUT As #F_HANDLER
If audFile <> "" Then Play WAV audFile
Pause vDelay

Timer = 0
Do
 If Eof(#F_HANDLER) Then Exit Do

 ' --- read the 4-byte little-endian blob length straight into RAM ---
 lenbuf%(0) = 0
 Memory INPUT F_HANDLER, 4, lenbuf%()
 blobLen = lenbuf%(0)                 ' low 4 bytes = length, upper pre-zeroed

 ' --- read the whole frame blob in one go, then decode onto screen ---
 Memory INPUT F_HANDLER, blobLen, buf%()
 Blit Memory baddr%, 0, 0
 frames = frames + 1

 ' --- pace to the encode fps so audio stays in sync (drift-free) ---
 Do While Timer < frames * frameMs
 Loop

 If Asc(Inkey$) = T_ESC Then Exit Do
Loop

Close #F_HANDLER
Play STOP
Print "Played "; frames; " frames in "; Str$(Timer/1000); " s"
End

'============================================================
' RGB121 framebuffer video player  (companion to vid2rgb121.py)
'
' Fast path: each frame is read straight from the file into a RAM
' buffer with MEMORY INPUT (no INPUT$/LONGSTRING loop), then BLIT
' MEMORY decodes the RLE nibbles directly onto the LIVE screen
' (no framebuffer, no FRAMEBUFFER COPY).
'
' .vc frame layout on disk:
'     uint32  blobLen          (little-endian)
'     uint16  width | 0x8000    \  BLIT MEMORY header
'     uint16  height            /
'     bytes   rle...            (colour<<4)|count, count 1..15
'
' On HDMI/USB the base display must be 640x480; MODE 2 makes it a
' 320x240, 16-colour RGB121 surface:
'     OPTION RESOLUTION 640x480[,315000]   (one-off, persists)
'============================================================
Option EXPLICIT

Const F_HANDLER = 1
Const T_ESC     = 27
Drive "b:"
Dim STRING vidFile = "cartoon.332"
Dim STRING audFile = ""'"sample-2.aud"   ' set to "" if the clip has no audio
Dim FLOAT  fps     = 30               ' MUST match the converter's --fps
Dim FLOAT  frameMs = 1000 / fps
Dim INTEGER vDelay = 0                ' ms A/V sync nudge

' --- per-frame RAM buffer (NOT a long string: raw integer array) -----
' Holds one compressed frame blob (header + RLE). 320x240 worst case
' is ~76 KB; 9700 ints = 77.6 KB headroom.
Dim INTEGER buf%(9700)
Dim INTEGER baddr% = Peek(VARADDR buf%())   ' frame data address for BLIT MEMORY
Dim INTEGER lenbuf%(1)                        ' 16 bytes scratch for the lengthword

' --- screen: MODE 2 draws straight to the live 320x240 RGB121 display
MODE 5
CLS

Dim INTEGER blobLen, frames = 0

Open vidFile For INPUT As #F_HANDLER
If audFile <> "" Then Play WAV audFile
Pause vDelay

Timer = 0
Do
If Eof(#F_HANDLER) Then Exit Do

' --- read the 4-byte little-endian blob length straight into RAM ---
lenbuf%(0) = 0
Memory INPUT F_HANDLER, 4, lenbuf%()
blobLen = lenbuf%(0)                 ' low 4 bytes = length, upper pre-zeroed

' --- read the whole frame blob in one go, then decode onto screen ---
Memory INPUT F_HANDLER, blobLen, buf%()
Blit Memory332 baddr%, 0, 0
frames = frames + 1

' --- pace to the encode fps so audio stays in sync (drift-free) ---
Do While Timer < frames * frameMs
Loop

If Asc(Inkey$) = T_ESC Then Exit Do
Loop

Close #F_HANDLER
Play STOP
Print "Played "; frames; " frames in "; Str$(Timer/1000); " s"
End

python3 vid2rgb121.py ./small.mp4 sample_rle.332 --w 320 --h 240 --fps 25 --rgb332-rle
 200 frames, 6661 KB
Done: 218 frames, 7447.3 KB -> sample_rle.332
Audio: mono 22050 Hz 8-bit -> sample_rle.aud (188 KB)

Format: RGB332 count+value RLE, MODE 5 (~2.2x vs raw). Needs the RGB332-RLE firmware decoder.
 totalFrames = 218
 vidFile = "sample_rle.332"
 audFile = "sample_rle.aud"   (PLAY WAV)
 pace frames to 25 fps so audio stays in sync (targetTime = 40.00 ms/frame)

RUN
Played  218 frames in 8.898157 s
> 218/8.898157
24.49945534
>
> option list
PicoMite MMBasic USB RP2350B Edition V6.03.00RC23
OPTION SERIAL CONSOLE COM2,GP8,GP9
OPTION SYSTEM SPI GP2,GP3,GP0
OPTION LCD SPI GP14,GP15,GP12
OPTION SYSTEM I2C GP4,GP5
OPTION FLASH SIZE 16777216
OPTION COLOURCODE ON
OPTION KEYBOARD US, 0, 0, 250, 50
OPTION PICO OFF
OPTION CPUSPEED (KHz) 384000
OPTION LCDPANEL ILI9341BUFF, LANDSCAPE,GP16,GP17,GP18,GP11
OPTION TOUCH GP13,GP19
OPTION SDCARD GP10
OPTION KEYBOARD REPEAT 250,50
OPTION AUDIO GP6,GP7', ON PWM CHANNEL 3
OPTION RTC AUTO ENABLE
OPTION DEFAULT FONT 7, 1
OPTION PSRAM PIN GP47

[57] Memory INPUT F_HANDLER, blobLen, buf%()
Error : Source array too small

Dim INTEGER buf%(9700)