'============================================================
' 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
Dim STRING vidFile, audFile

'------------------------
' 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 colorIsWhite

Dim STRING chunk        ' buffer de datos comprimidos
Const CHUNK_SIZE = 255  ' 255 como maximo (limitacion de bytes para string)
Dim INTEGER bytesInChunk
Dim INTEGER chunkPos

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

Dim INTEGER selection   ' Menu
Dim integer x1(799),x2(799),y1(799),ch(1023)


'------------------------
' 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
'------------------------
' Menu de Seleccion
' E inicializacion
'------------------------
selection = MenuSel()
' Ajustamos configuracion
    ' Demo con decoder BASIC
    vidWidth    = 320
    vidHeight   = 240
    fps         = 8
    vidFile     = "a:/ba.vid"
    audFile     = "b:/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
Math set 0,x1()
Math set 0,x2()
Math set 0,y1()
l=0
 ' Carga de 'chunk' y decodificar frame completo
 For y = 0 To vidHeight - 1
    ' Inicializar linea para nuevo frame
    x = 0
    colorIsWhite = 0  ' RLE personalizado: cada linea empieza en negro

    Do While x < vidWidth
      runLen = Byte(chunk, chunkPos)

  ' Si es tramo blanco y longitud > 0, dibujar la linea
      If colorIsWhite And runLen > 0 Then
        x1(l)=x
        x2(l)=x+runLen-1
        y1(l)=y
        Inc l
      EndIf
      Inc x,runlen
      colorIsWhite = 1 - colorIsWhite  ' alternar negro/blanco

      Inc chunkPos
      If chunkPos > bytesInChunk Then loadchunk
    Loop
 Next
 Line x1(),y1(),x2(),y1()
 Print Timer
 SYNC
 Timer =0
 FRAMEBUFFER COPY F, N
 Inc frameIndex = 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 4 : 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
chunk        = Input$(CHUNK_SIZE, F_HANDLER)
bytesInChunk = Len(chunk)
chunkPos     = 1

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

'============================================================
' 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,total
Dim FLOAT fps, totalFrames
Dim STRING vidFile, audFile

'------------------------
' 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 colorIsWhite

Dim STRING chunk        ' buffer de datos comprimidos
Const CHUNK_SIZE = 192  ' 255 como maximo (limitacion de bytes para string)
Dim INTEGER bytesInChunk
Dim INTEGER chunkPos

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

Dim INTEGER selection   ' Menu
Dim integer x1(1999),x2(1999),y1(1999)
'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
'------------------------
' Menu de Seleccion
' E inicializacion
'------------------------
selection = MenuSel()
' Ajustamos configuracion
    ' Demo con decoder BASIC
    vidWidth    = 319
    vidHeight   = 239
    fps         = 10
    vidFile     = "a:/ba.vid"
    audFile     = "b:/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
Math set 0,x1()
Math set 0,x2()
Math set 0,y1()
l=0
 ' Carga de 'chunk' y decodificar frame completo
 For y = 0 To vidHeight
    ' Inicializar linea para nuevo frame
    x = 0
    loadchunk
    Do While x <= vidWidth
      runlen =Byte(chunk,chunkpos)
      Inc x,runlen
      Inc chunkPos
      runlen =Byte(chunk,chunkpos)
      If x>vidWidth Then Exit
      If runLen > 0 Then
        x1(l)=x
        x2(l)=x+runLen-1
        y1(l)=y
        Inc l
      EndIf
      Inc x,runlen
      Inc chunkPos
      If x>vidWidth Then Exit
      runlen =Byte(chunk,chunkpos)
      Inc x,runlen
      Inc chunkPos
      runlen =Byte(chunk,chunkpos)
      If x>vidWidth Then Exit
      If runLen > 0 Then
        x1(l)=x
        x2(l)=x+runLen-1
        y1(l)=y
        Inc l
      EndIf
      Inc x,runlen
      Inc chunkPos
    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,1999
 Inc total,Timer
 SYNC
 Timer =0
 FRAMEBUFFER COPY F, N
 Inc frameIndex = frameIndex
 Print total\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 4 : 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
 chunk=Right$(chunk,Len(chunk)-chunkpos+1)
 bytesinchunk=Len(chunk)
 chunkPos     = 1
 If bytesinchunk<64 Then
   Inc chunk,Input$(CHUNK_SIZE,F_HANDLER)
   bytesinchunk=Len(chunk)
 EndIf
 If bytesInChunk = 0 Then
   FRAMEBUFFER CLOSE : Play STOP : Close F_HANDLER
   Print "EOF inesperado en frame"; frameIndex
   End ' Abortamos
 EndIf
End Sub