Login

nitrofurano · 03-09-2012, 10:56 PM

i started to try proportional text writing on zxbasic - it's far incomplete (not printing from strings yet) and slow

test.bas

Code:
#include "lib/NaftaRegular_charmap.bas"

dim i,j,adr,v,vq,vq2,x,y,x1,x2,c,c1,xps as uinteger

border 6:paper 7:ink 1: bright 1:cls

x=3:y=109

for c1=0 to 52

  x1=int(x/8)

  x2=7-(x mod 8)

  for j=0 to 11

    i= ((y+j)*32)+x1

    adr=(16384+((i band 31) bor ((i band 224)*8) bor ((i band 1793)/8) bor (i band 6144)))

    v=peek(uinteger, adr)

    vq2=(peek(@naftaregularcharmap+(12*c1)+j))*(2^x2)

    vqbs= ((vq2 band 65280)/256) bor ((vq2 band 255)*256)

    poke uinteger adr,v bor vqbs

    next j

  x=x+peek(@naftaregularcharmapspacing+c1)  

  next c1

pause 0

lib/NaftaRegular_charmap.bas

Code:
goto naftaregularcharmapend

naftaregularcharmap:

asm

  defb 000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h

  defb 000h,000h,080h,080h,080h,080h,000h,080h,000h,000h,000h,000h

  defb 0a0h,0a0h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h

  defb 000h,000h,050h,0f8h,050h,050h,0f8h,050h,000h,000h,000h,000h

  defb 040h,040h,0e0h,0c0h,0c0h,060h,060h,0e0h,040h,040h,000h,000h

  defb 000h,000h,048h,0b0h,050h,028h,034h,048h,000h,000h,000h,000h

  defb 000h,000h,020h,050h,064h,094h,088h,076h,000h,000h,000h,000h

  defb 080h,080h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h

  defb 020h,040h,040h,080h,080h,080h,080h,080h,080h,040h,040h,020h

  defb 080h,040h,040h,020h,020h,020h,020h,020h,020h,040h,040h,080h

  defb 000h,040h,0e0h,0a0h,000h,000h,000h,000h,000h,000h,000h,000h

  defb 000h,000h,000h,000h,040h,0e0h,040h,000h,000h,000h,000h,000h

  defb 000h,000h,000h,000h,000h,000h,000h,040h,040h,080h,000h,000h

  defb 000h,000h,000h,000h,000h,0c0h,000h,000h,000h,000h,000h,000h

  defb 000h,000h,000h,000h,000h,000h,000h,080h,000h,000h,000h,000h

  defb 000h,000h,010h,020h,020h,040h,040h,080h,000h,000h,000h,000h

  defb 000h,000h,060h,090h,090h,090h,090h,060h,000h,000h,000h,000h

  defb 000h,000h,0c0h,040h,040h,040h,040h,040h,000h,000h,000h,000h

  defb 000h,000h,060h,010h,010h,020h,040h,0f0h,000h,000h,000h,000h

  defb 000h,000h,060h,010h,020h,010h,010h,0e0h,000h,000h,000h,000h

  defb 000h,000h,020h,060h,060h,0a0h,0f0h,020h,000h,000h,000h,000h

  defb 000h,000h,060h,040h,060h,010h,010h,0e0h,000h,000h,000h,000h

  defb 000h,000h,020h,040h,0e0h,090h,090h,060h,000h,000h,000h,000h

  defb 000h,000h,0f0h,010h,020h,020h,040h,040h,000h,000h,000h,000h

  defb 000h,000h,060h,090h,060h,090h,090h,060h,000h,000h,000h,000h

  defb 000h,000h,060h,090h,090h,070h,020h,040h,000h,000h,000h,000h

  defb 000h,000h,000h,000h,080h,000h,000h,080h,000h,000h,000h,000h

  defb 000h,000h,000h,000h,040h,000h,000h,040h,040h,080h,000h,000h

  defb 000h,000h,000h,000h,040h,080h,040h,000h,000h,000h,000h,000h

  defb 000h,000h,000h,000h,0e0h,000h,0e0h,000h,000h,000h,000h,000h

  defb 000h,000h,000h,000h,080h,040h,080h,000h,000h,000h,000h,000h

  defb 000h,000h,060h,090h,020h,040h,000h,040h,000h,000h,000h,000h

  defb 000h,000h,03ch,042h,099h,0a9h,0a9h,0beh,040h,03ch,000h,000h

  defb 000h,000h,010h,028h,028h,044h,07ch,082h,000h,000h,000h,000h

  defb 000h,000h,0c0h,0a0h,0c0h,0a0h,0a0h,0c0h,000h,000h,000h,000h

  defb 000h,000h,038h,040h,080h,080h,040h,038h,000h,000h,000h,000h

  defb 000h,000h,0e0h,090h,088h,088h,090h,0e0h,000h,000h,000h,000h

  defb 000h,000h,0c0h,080h,0c0h,080h,080h,0c0h,000h,000h,000h,000h

  defb 000h,000h,0c0h,080h,0c0h,080h,080h,080h,000h,000h,000h,000h

  defb 000h,000h,038h,040h,080h,08ch,044h,03ch,000h,000h,000h,000h

  defb 000h,000h,088h,088h,0f8h,088h,088h,088h,000h,000h,000h,000h

  defb 000h,000h,080h,080h,080h,080h,080h,080h,000h,000h,000h,000h

  defb 000h,000h,040h,040h,040h,040h,040h,040h,040h,080h,000h,000h

  defb 000h,000h,0a0h,0c0h,0c0h,0a0h,0a0h,090h,000h,000h,000h,000h

  defb 000h,000h,080h,080h,080h,080h,080h,0c0h,000h,000h,000h,000h

  defb 000h,000h,044h,044h,06ch,0aah,092h,092h,000h,000h,000h,000h

  defb 000h,000h,084h,0c4h,0a4h,094h,08ch,084h,000h,000h,000h,000h

  defb 000h,000h,030h,048h,084h,084h,048h,030h,000h,000h,000h,000h

  defb 000h,000h,0c0h,0a0h,0a0h,0c0h,080h,080h,000h,000h,000h,000h

  defb 000h,000h,030h,048h,084h,084h,048h,030h,00ch,003h,000h,000h

  defb 000h,000h,0c0h,0a0h,0a0h,0c0h,0a0h,098h,000h,000h,000h,000h

  defb 000h,000h,060h,080h,040h,020h,010h,0e0h,000h,000h,000h,000h

  defb 000h,000h,0f8h,020h,020h,020h,020h,020h,000h,000h,000h,000h

  defb 000h,000h,088h,088h,088h,088h,088h,070h,000h,000h,000h,000h

  defb 000h,000h,082h,044h,044h,028h,028h,010h,000h,000h,000h,000h

  defb 000h,000h,0a2h,055h,055h,02ah,02ah,014h,000h,000h,000h,000h

  defb 000h,000h,090h,090h,060h,060h,090h,090h,000h,000h,000h,000h

  defb 000h,000h,088h,050h,020h,020h,020h,020h,000h,000h,000h,000h

  defb 000h,000h,0fch,008h,010h,020h,040h,0fch,000h,000h,000h,000h

  defb 0c0h,080h,080h,080h,080h,080h,080h,080h,080h,080h,080h,0c0h

  defb 000h,000h,080h,040h,040h,020h,020h,010h,000h,000h,000h,000h

  defb 0c0h,040h,040h,040h,040h,040h,040h,040h,040h,040h,040h,0c0h

  defb 000h,040h,0a0h,000h,000h,000h,000h,000h,000h,000h,000h,000h

  defb 000h,000h,000h,000h,000h,000h,000h,000h,000h,0fch,000h,000h

  defb 000h,080h,040h,000h,000h,000h,000h,000h,000h,000h,000h,000h

  defb 000h,000h,000h,000h,060h,020h,0e0h,0f0h,000h,000h,000h,000h

  defb 080h,080h,080h,080h,0a0h,0d0h,090h,0e0h,000h,000h,000h,000h

  defb 000h,000h,000h,000h,060h,080h,080h,060h,000h,000h,000h,000h

  defb 010h,010h,010h,010h,050h,0b0h,090h,070h,000h,000h,000h,000h

  defb 000h,000h,000h,000h,060h,0f0h,080h,060h,000h,000h,000h,000h

  defb 000h,030h,040h,040h,0e0h,040h,040h,040h,000h,000h,000h,000h

  defb 000h,000h,000h,000h,03ch,048h,048h,070h,098h,064h,098h,060h

  defb 080h,080h,080h,080h,0a0h,0d0h,090h,090h,000h,000h,000h,000h

  defb 000h,000h,080h,000h,080h,080h,080h,080h,000h,000h,000h,000h

  defb 000h,000h,040h,000h,040h,040h,040h,040h,040h,040h,040h,080h

  defb 080h,080h,080h,080h,0a0h,0c0h,0a0h,090h,000h,000h,000h,000h

  defb 080h,080h,080h,080h,080h,080h,080h,080h,000h,000h,000h,000h

  defb 000h,000h,000h,000h,0a4h,0dah,092h,092h,000h,000h,000h,000h

  defb 000h,000h,000h,000h,0a0h,0d0h,090h,090h,000h,000h,000h,000h

  defb 000h,000h,000h,000h,060h,090h,090h,060h,000h,000h,000h,000h

  defb 000h,000h,000h,000h,0a0h,0d0h,090h,0e0h,080h,080h,080h,080h

  defb 000h,000h,000h,000h,050h,0b0h,090h,070h,010h,010h,010h,010h

  defb 000h,000h,000h,000h,0a0h,0c0h,080h,080h,000h,000h,000h,000h

  defb 000h,000h,000h,000h,060h,040h,030h,0e0h,000h,000h,000h,000h

  defb 000h,000h,040h,040h,0e0h,040h,040h,060h,000h,000h,000h,000h

  defb 000h,000h,000h,000h,090h,090h,0b0h,050h,000h,000h,000h,000h

  defb 000h,000h,000h,000h,088h,050h,050h,020h,000h,000h,000h,000h

  defb 000h,000h,000h,000h,0aah,054h,054h,028h,000h,000h,000h,000h

  defb 000h,000h,000h,000h,090h,060h,060h,090h,000h,000h,000h,000h

  defb 000h,000h,000h,000h,088h,050h,050h,020h,020h,040h,040h,080h

  defb 000h,000h,000h,000h,0f0h,020h,040h,0f0h,000h,000h,000h,000h

  defb 020h,040h,040h,040h,040h,080h,040h,040h,040h,040h,040h,020h

  defb 080h,080h,080h,080h,080h,080h,080h,080h,080h,080h,080h,080h

  defb 080h,040h,040h,040h,040h,020h,040h,040h,040h,040h,040h,080h

  defb 000h,000h,000h,000h,050h,0a0h,000h,000h,000h,000h,000h,000h

  defb 000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h

  end asm

naftaregularcharmapspacing:

asm

  defb 4,2,4,6,4,7,8,2,4,4,4,4,3,3,2,5

  defb 5,3,5,5,5,5,5,5,5,5,2,3,3,4,3,5

  defb 9,8,4,6,6,3,3,7,6,2,3,5,3,8,7,7

  defb 4,7,5,5,6,6,8,9,5,6,7,3,5,3,4,7

  defb 3,5,5,4,5,5,5,8,5,2,3,5,2,8,5,5

  defb 5,5,4,5,4,5,6,8,5,6,5,4,2,4,5,4

  end asm

naftaregularcharmapkerning:

asm

  defb "VA"

  defb 0FEh

  defb "AV"

  defb 0FEh

  end asm

naftaregularcharmapend:

Login
Username:
Password:	Lost Password?
	Remember me