'============================================================
' Bad Apple Demo para PicoMite HDMI/USB
' Autor: Marcos LM (2025)
'
'   - Version HQ: decodificador CSUB en C (320x240 @ 22 FPS)
'   - Version LQ: decodificador MMBasic   (160x120 @ 6 FPS)
'
' Requisitos:
'   - Firmware PicoMite HDMI/USB >= 6.00.03
'   - Archivos: ba.vid, balq.vid, ba.aud, ba.jpg en la SD
'
' Controles:
'   - Cursores arriba/abajo: seleccionar opcion
'   - ENTER                : aceptar
'   - ESC                  : parar reproduccion / salir
'============================================================
Option EXPLICIT
Option console serial
'------------------------
' Configuracion de video
'------------------------
Dim INTEGER vidWidth, vidHeight, vDelay,l
Dim FLOAT fps, totalFrames,total,high
Dim STRING vidFile, audFile,s
Drive "b:"
'------------------------
' Configuracion extra
'------------------------
Const HQ_DECODE = 0, LQ_DECODE = 1

Const T_ESC=27, T_ENTER=13, T_UP=128, T_DOWN=129

Const F_HANDLER    = 1   ' canal para la apertura del archivo

Const C_WHITE      = RGB(255,255,255)
Const C_GRAY       = RGB(128,128,128)
Const C_BLACK      = RGB(0,0,0)

Const SHOW_FPS     = 0   ' Muestra FPS actuales
Const SHOW_FPS_MIN = 0   ' Muestra el FPS mas bajo
Const LIMIT_FPS    = 1   ' Activa el limite a FPS objetivo

'------------------------
' Variables generales
'------------------------
Dim FLOAT frameIndex
Dim INTEGER x, y
Dim INTEGER runLen

Dim INTEGER bytesInChunk
Dim FLOAT targetTime
Dim FLOAT frameDuration
Dim FLOAT fpsCurrent
Dim FLOAT frameStartTime
Dim FLOAT fpsMin = 1000

Dim INTEGER selection   ' Menu
Dim integer x1(1299),x2(1299),y1(1299),f(500)
Dim integer cadd=Peek(varaddr f())+8 'point to the data in the longstring
Dim integer csadd=cadd
'get the address of the dimension size of y1
Dim integer y1add=Peek(varheader y1())+36


'------------------------
' Comprobacisn inicial
'------------------------
' Comprobar velocidad de CPU (debe ser 315000 KHz para sincronizar A/V)
Dim FLOAT cpuhz
cpuhz = Val(MM.Info(CPUSPEED$))

If cpuhz <> 315000000 Then
Print "Bad Apple demo expects CPUSPEED = 315000 (315 MHz)"
B  Print "Current: "; MM.Info(CPUSPEED$); " Hz"
Print
Print "Adjust with: OPTION RESOLUTION 640x480,315000"
End
EndIf

Do
If totalframes Then Print total/totalframes
'------------------------
' Menu de Seleccion
' E inicializacion
'------------------------
selection = MenuSel()
' Ajustamos configuracion
   ' Demo con decoder BASIC
   vidWidth    = 319
   vidHeight   = 239
   fps         = 15
   vidFile     = "ba.vid"
   audFile     = "ba.aud"
   totalFrames = 4754
   targetTime  = 1000000/fps   ' ms por frame objetivo
   vDelay      = 0

' Salir


' Configuracion de pantalla y framebuffers
MODE 2 : Font 8
Color C_WHITE, C_BLACK
CLS

' Creamos un framebuffer donde dibujaremos y despues copiaremos al visible
' para evitar parpadeo (double buffering)
FRAMEBUFFER CREATE
FRAMEBUFFER WRITE N : CLS
FRAMEBUFFER WRITE F : CLS

' Abrir archivo de video
Open vidFile For INPUT As F_HANDLER
loadchunk 'prime the chunk buffer
' Lanzar audio
Play WAV audFile
Pause vDelay  ' ajuste de tiempo para cuadrar audio con video
SYNC targettime

'------------------------
' Bucle de reproduccion
'------------------------
Timer        = 0
fpsCurrent   = 0
frameIndex   = 0

' Dibujamos en F
FRAMEBUFFER WRITE F
Do While frameIndex < totalFrames
 CLS
 l=0
 loadchunk
 ' Carga de 'chunk' y decodificar frame completo
 For y = 0 To vidHeight
   ' Inicializar linea para nuevo frame
   x = 0
   Inc x,Peek(bp cadd)
   If x>vidWidth Then Continue For
'
   runlen=Peek(bp cadd)
   If runLen > 0 Then
     x1(l)=x
     x2(l)=x+runLen-1
     y1(l)=y
     Inc l
     Inc x,runlen
     If x>vidWidth Then Continue For
   EndIf
'
   Inc x,Peek(bp cadd)
   If x>vidWidth Then Continue For
'
   runlen=Peek(bp cadd)
   If runLen > 0 Then
     x1(l)=x
     x2(l)=x+runLen-1
     y1(l)=y
     Inc l
     Inc x,runlen
     If x>vidWidth Then Continue For
   EndIf
'
   Inc x,Peek(bp cadd)
   If x>vidWidth Then Continue For
'
   runlen=Peek(bp cadd)
   If runLen > 0 Then
     x1(l)=x
     x2(l)=x+runLen-1
     y1(l)=y
     Inc l
     Inc x,runlen
     If x>vidWidth Then Continue For
   EndIf
'
   Inc x,Peek(bp cadd)
   If x>vidWidth Then Continue For
'
   runlen=Peek(bp cadd)
   If runLen > 0 Then
     x1(l)=x
     x2(l)=x+runLen-1
     y1(l)=y
     Inc l
     Inc x,runlen
     If x>vidWidth Then Continue For
   EndIf
'
   Inc x,Peek(bp cadd)
   If x>vidWidth Then Continue For
'
   runlen=Peek(bp cadd)
   If runLen > 0 Then
     x1(l)=x
     x2(l)=x+runLen-1
     y1(l)=y
     Inc l
     Inc x,runlen
     If x>vidWidth Then Continue For
   EndIf
'
   Inc x,Peek(bp cadd)
   If x>vidWidth Then Continue For
'
   runlen=Peek(bp cadd)
   If runLen > 0 Then
     x1(l)=x
     x2(l)=x+runLen-1
     y1(l)=y
     Inc l
     Inc x,runlen
     If x>vidWidth Then Continue For
   EndIf
   Do
'
     Inc x,Peek(bp cadd)
     If x>vidWidth Then Exit
'
     runlen=Peek(bp cadd)
     If runLen > 0 Then
       x1(l)=x
       x2(l)=x+runLen-1
       y1(l)=y
       Inc l
       Inc x,runlen
       If x>vidWidth Then Exit
     EndIf
'
     Inc x,Peek(bp cadd)
     If x>vidWidth Then Exit
'
     runlen=Peek(bp cadd)
     If runLen > 0 Then
       x1(l)=x
       x2(l)=x+runLen-1
       y1(l)=y
       Inc l
       Inc x,runlen
       If x>vidWidth Then Exit
     EndIf
   Loop
 Next
'set the array size to the number of lines
 Poke word y1add,l-1
 If l Then Line x1(),y1(),x2(),y1()
 Poke word y1add,1299
 Inc total, Timer
 SYNC
 Timer =0
 FRAMEBUFFER COPY F, N
 Inc frameIndex
 If Asc(Inkey$) = T_ESC Then Play STOP : Exit Do
Loop

Close F_HANDLER

Do While MM.Info(SOUND)="WAV"
 Pause 20
Loop
Play STOP

FRAMEBUFFER CLOSE
Loop



'------------------------
' SUBs y Funciones
'------------------------

' Menu de seleccion
Function MenuSel() As INTEGER
Const NOPC = 2
Local STRING opciones(NOPC-1) = (" Bad Apple Demo    ", " Exit              ")
Local STRING ayudas(NOPC-1) = ("Lanzar version optimizada in Basic","Salir de la demo                 ")
Local INTEGER estado=0, tecla, i
Local INTEGER x=20, y=110

MODE 2 : CLS
Load JPG "ba.jpg"

Do
 ' Pintar opciones
 Font 7
 For i = 0 To NOPC-1
   If i = estado Then
     Color C_WHITE, C_BLACK
   Else
     Color C_BLACK, C_WHITE
   EndIf
   Text x, y + i * 10, opciones(i)
 Next i

 ' Texto de ayuda
 Font 8
 Color C_GRAY, C_WHITE
 Text 20, 230, ayudas(estado)

 ' Esperar tecla
 Do
   tecla = Asc(Inkey$)
 Loop While tecla = 0

 If tecla = T_ENTER Then Exit Do
 Play TONE 500, 550, 20

 Select Case tecla

   Case T_ESC
     estado = -1
     Exit Do

   Case T_UP
     If estado > 0 Then estado = estado-1

   Case T_DOWN
     If estado < NOPC-1 Then estado = estado+1

 End Select

Loop

Play TONE 1000,1000,20  ' Beep de confirmacion
Do While MM.Info(SOUND)="TONE"
 Pause 5
Loop

MenuSel=estado
End Function


' Lee un nuevo bloque del video comprimido (RLE)
Sub LoadChunk
 LongString right f(),f(),LLen(f())-(cadd-csadd)
 cadd=csadd
 Do While LLen(f())<3000
   s=Input$(250,1)
   If Len(s)=0 Then Exit
   LongString append f(),s
 Loop
 bytesinchunk=LLen(f())

 If bytesInChunk = 0 Then
   FRAMEBUFFER CLOSE : Play STOP : Close F_HANDLER
   Print "EOF inesperado en frame"; frameIndex
   End ' Abortamos
 EndIf
End Sub

Enter ctrl-Z, F1, or F2 to exit