THREE PX FONT!

that's right! you too could have a handy dandy function for drawing
compact text that fits perfectly on the screen, unlike pico-8's 3*5 font,
which is 32 by 12.33333333...

gross! get that recurring fraction out of here! all i need is 32 chars
by 32 chars!

for the low low cost of however many sprites you are willing to sacrifice,
and however many tokens this thing is, you too can have a pleasant print
the fits (screen wise) anywhere!

just take the following stuff (its customisable, so the character set can be
whittled or widened for whatever you're up to.

free of charge, there is another function (made by yours truly) that
allows you away to use spr() on any sprite scale, but if you don't need it
it can be probably squished into there? i don't know.

anyway, i'm done. its the worlds problem now!

[0x0]

prid={x=0,y=0}
local fontd=" 0123456789abcdefghijklmnopqrstuvwxyz()[]{},=-+*/.#_!:'?"
getlet={}
for i,c in pairs(split(fontd,"")) do
 getlet["c"..c]=i
end

function pri(st,x,y,c1,c2)
 st=tostr(st)
 if(c2)pal(7,c1)pal(6,c2)
 x=x or prid.x
 y=y or prid.y
 local ix=x
 for ch=1,#st do
  if sub(st,ch,ch)==" " then
   x+=4
  elseif sub(st,ch,ch)=="𝘯" then
   x=ix
   y+=4
  else
   scspr(
   (getlet["c"..sub(st,ch,ch)] or 0)-2,
   x,y,3,3)
   x+=4
  end
 end
 prid.x,prid.y=ix,y+4
end

--regular sprite function but you
--choose how wide each sprite is
function scspr(i,x,y,w,h)
 sspr(i%(128\w)*w,i\(128\h)*h,w,h,x,y)
end

P#84770 2020-11-27 22:03