Text To Speech for #pico8 and the #pico1k  jam in less than 1024 bytes

Features

Two formants speech synthesis with the phonemes abde𝘦fghijklmnoprs𝘴t𝘵uvwz𝘻

How to use ?

Type some text to hear it badly spoken

Additionally, you can rip apart the code and use it in your own game or demos

Can you beatbox ?

No really, can you ? Can you make Sp1ko8 beat box ?

Share you best beats in the comments ;)

Source code

poke(24365,1)
d="diz is a spich synthesizer for pico-ejt"
text=d
t0=0
function _draw()
 cls()
 rectfill(8,103,12,109,8)
 ?"⁶w⁶tᶜ7s𝘱1𝘬𝘰-8"
 ?"ᶜ5𝘵𝘦𝘹𝘵 𝘵𝘰 𝘴𝘱𝘪𝘤𝘩 𝘣𝘺 @p01 𝘧𝘰𝘳 𝘱𝘪𝘤𝘰1k"
 s="  𝘵𝘺𝘱𝘦 𝘴𝘰𝘮𝘦𝘵𝘩𝘪𝘯𝘨 j𝘪𝘮!"
 if(t0%8>4)s="  𝘤𝘢𝘯 𝘺𝘰𝘶 𝘣𝘦𝘢𝘵𝘣𝘰𝘹?"
 ?s
 circfill(64,64,32,12)
 circfill(64-28,64+4,8)
 circfill(64+28,64+4,8)
 circfill(64,64+64,40)
 ?"●      ●",48-t0*8%6,56,0
 if stat(108)<256 then
  local i,f,g,h,k,l,q,p=0,0,0,0,0,0,{o={52,55,10,10,6},i={45,96,10,10,3},j={45,96,10,10,3},u={45,54,10,10,3},a={58,70,10,10,15},e={54,90,10,10,15},𝘦={60,80,10,10,12},w={43,54,10,10,1},v={42,60,20,10,3},𝘵={42,60,40,1,5},z={45,68,10,5,3},𝘻={44,70,50,1,5},b={44,44,10,10,2},d={44,99,10,10,2},m={44,60,10,10,2},n={44,99,10,10,2},r={43,50,30,8,3},l={48,60,10,10,5},g={42,50,15,5,1},f={48,60,10,10,4,1},h={62,66,30,10,10,1},s={120,150,80,40,5,1},𝘴={20,70,99,99,10,1},p={44,50,5,10,2,1},t={44,60,10,20,3,1},k={60,99,10,10,6,1}}
  for a=0,255do
   v=t0*8%#text+1
   p=q[text[v]]
   if(p!=nil)then
    i=1-p[3]/256
    m=1-p[4]/256
    f,g=g,h
    j,k=k,l
    w=(p[6]!=1and(t0*96%1)-.5or rnd(.5)-.25)/4
    h=i*(g*2*sin(p[1]/25)-i*f)+w
    l=m*(k*2*sin(p[2]/25)-m*j)+w
    r=min(1,4*sin(t0*3))*((h+l)*p[5]+(g+k)/2+(f+j)/8)
   end
   y=r-128
   poke(17152+a,y)
   pset(48+a/8,84+y/24-4*sin(a/512))
   t0+=1/5520
  end
  serial(2056,17152,256)
 end
 if(stat(30))then
  if(text==d)text=""
  c=stat(31)
  text..=c
  c=ord(c)
  if(c==112)poke(24368,1)
  if(c==8)text=sub(text,1,#text-2)
 end
 ?text,16-4*v,104,7
end