proportional text writing

[nitrofurano]

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:

[LCD]

Inline ASM proportional print routine I published some time ago:
<!-- l --><a class="postlink-local" href="http://www.boriel.com/forum/how-to-tutorials/topic461.html">how-to-tutorials/topic461.html</a><!-- l -->
It works with all custom fonts too, and offers custom spacing.

[nitrofurano]

Inline ASM proportional print routine I published some time ago:
<!-- l --><a class="postlink-local" href="http://www.boriel.com/forum/how-to-tutorials/topic461.html">how-to-tutorials/topic461.html</a><!-- l -->
It works with all custom fonts too, and offers custom spacing.

thanks LCD, i knew that you told about coding it months ago, but i didn't know that you had it ready - i'll try it now, thanks!

[nitrofurano]

The code is really fast, but i didn't find the custom space there
On my code, i used a special area just for that (and i'm also thinking about using kernings there as well...)
And on my example i used 12 pixel lines instead of 8

[slenkar]

got a screenshot?

[LCD]

The code is really fast, but i didn't find the custom space there
On my code, i used a special area just for that (and i'm also thinking about using kernings there as well...)
And on my example i used 12 pixel lines instead of 8

spacing variables:
xgap: gap between letters in pixels.
spacesize: gap of space
The width of all letters is automaticaly recognised, so it is not possible to define larger gaps for some letters (as this is nonsense), and it works also with narrow fonts like 4x8.
But back to your code:
To speed it up, replace multiplications and divisions with bitshifting.
Replacing

Code:

x1=int(x/8)

with

Code:

x1=x>>3

speeds it already significantly up.
Edit:
Forget what I wrote. I'm stupid...
The biggest downslowing was

Code:

2^x2

And you repeated the same calculation over and over, so defining the x3 variable outside j-loop speeds it up dramaticaly. I even changed it and other calcs to bitshifting for further speedup:

Code:

dim i,j,adr,v,vq,vq2,c,xps,x1,x2,x3,x,y,c1 as uinteger
border 6:paper 7:ink 1: bright 1:cls
x=3:y=109
for c1=0 to 52
    x1=x>>3
    x2=7-(x mod 8)
    x3=1<<x2
    if x3=0 then x3=1:end if
    for j=0 to 11
        i= ((y+j)<<5)+x1
        adr=(16384+((i band 31) bor ((i band 224)<<3) bor ((i band 1793)>>3) bor (i band 6144)))
        v=peek(uinteger, adr)
        vq2=(peek(@naftaregularcharmap+(12*c1)+j))*x3
        vqbs= ((vq2 band 65280)>>8) bor ((vq2 band 255)<<8)
        poke uinteger adr,v bor vqbs
        next j
    x=x+peek(@naftaregularcharmapspacing+c1)
    next c1
pause 0

Hope, you like it.

[britlion]

Inline ASM proportional print routine I published some time ago:
<!-- l --><a class="postlink-local" href="http://www.boriel.com/forum/how-to-tutorials/topic461.html">how-to-tutorials/topic461.html</a><!-- l -->
It works with all custom fonts too, and offers custom spacing.

I think I should mention that LCD's proportional printing routine has been in the library for a while:

<!-- m --><a class="postlink" href="http://www.boriel.com/wiki/en/index.php/ZX_BASIC:Library">http://www.boriel.com/wiki/en/index.php ... IC:Library</a><!-- m -->

There's quite a lot in there - you should certainly have a look!

BL