spade-0.1.0.9: samples/text-rendering.spd

graphics()
let texture = texturefromtext("/usr/share/fonts/truetype/dejavu/DejaVuSansMono.ttf", 40, 255, 0, 0, 55, "Hello World!")
for i = 1 to 1000
  setcolor(0, 0, 0)
  clearscreen()
  copytexture(texture, (i + 200), 200, textureinfo(texture).width, textureinfo(texture).height)
  render()
endfor
gwaitforkey()