TIC-80: разрешение проблемы со шрифтом

 

Давно пытался получить данные системного шрифта и добивался решения от унылого телеграм-канальчика. Вчера Dresdenboy привел пример

t=0
s="This is a font demo!  "
l=string.len(s)
function TIC()
  cls(0)
  t=t+3
  for y=0,135 do
    for x=0,239 do
      if (peek(83460+s:byte(1+(t+x)//64%l)*8 -- take a byte of the string based on x and t (array index starting at 1)
               +y//24%8)>>(t+x)//8%8)&1>0 then -- y part and check, if bit is set
        pix(x,y,15)
      end
    end
  end
end 

Наверное, я использовал запись адреса шрифта в шестнадцатиричном виде? Не помню, как это было, но главное - работает!