QL Tinkering

Helpful tips and guides, also new users can ask for help here.
stevepoole
Aurora
Posts: 829
Joined: Mon Nov 24, 2014 2:03 pm

Re: QL Tinkering

Post by stevepoole »

Hi Qbits,

After some experiments, I find that using filled_arcs instead of 45°dashes still produces a lot of odd jaggedness on most enlarged characters..... Steve.


qbits
Trump Card
Posts: 242
Joined: Sun Dec 11, 2016 3:32 pm

Re: QL Tinkering

Post by qbits »

Hi Stev,
Yes I'm having similar problems exploring this route...

Derick - Importing 8x8 bitmaps - trying to keep it simple perhaps you will check out the code below
Copy paste code to QL_bas file and Delete the REMark of relative ALCHP memory allocations.

LOAD and action the PROCedure
MBQLFont Fzx$,zx% :REMark fzx$ being the bitmap plus suffix '_fzx' file and zx% being the QL Font Grp
Then LOAD into QBITS_FontEditSE_bas to display

QBITS Code for Porting 8x8 Bitmap files to QL 8x9 Font files

3050 REMark 8x8 to QL Font Conversion (i.e ZX Spectrum)

3052 DEFine PROCedure BMQLFont(Fzx$,zx%)
3053 REMark Prepare 8x8 Bitmap File Strip any Headers and check Size
3054 REMark Dev$='win1_' Default Device : Suffix Fzx$ Filename with '_fzx'
3055 REMark Select appropriate QL Font Grp zx%=[ 1,2,3,4 ]
3056 REMark FBaseA=ALCHP(1100) :POKE FBaseA, 0,127 :REMark [Grp 1 CHR$( 0-127)]
3057 REMark FBase1=ALCHP(876) :POKE FBase1, 32, 96 :REMark [Grp 2 CHR$( 32-127)]
3058 REMark FBase2=ALCHP(588) :POKE FBase2,127, 64 :REMark [Grp 3 CHR$(]28-191)]
3059 REMark FBaseB=ALCHP(1100) :POKE FBaseB,127,127 :REMark [Grp 4 CHR$(128-255)]
3060 :
3061 BMAddr=ALCHP(2048) :REMark 8x8 Bitmap Conversion to QL 8x9 Font
3062 LBYTES Dev$&Fzx$,BMAddr:fl%=('_fzx' INSTR Fzx$)-1
3063 SELect ON zx%
3064 =1:addr=FBaseA:cm%=127:fntsize=1100
3065 =2:addr=FBase1:cm%= 96:fntsize= 876
3066 =3:addr=FBase2:cm%= 64:fntsize= 588
3067 =4:addr=FBaseB:cm%=127:fntsize=1100
3068 END SELect
3069 FOR cn=0 TO cm%
3070 QLBase=addr+2+cn*9:BMBase=BMAddr+cn*8
3071 FOR r=0 TO 7:POKE QLBase+r,PEEK(BMBase+r):END FOR r:POKE QLBase+8,0
3072 END FOR cn
3073 SBYTES Dev$&Fzx$(1 TO fl%)&'T1_fnt',addr,fntsize:RECHP BMAddr
3074 END DEFine

I guess Andrew has already written similar code for his ZX conversions.

QBITS


stevepoole
Aurora
Posts: 829
Joined: Mon Nov 24, 2014 2:03 pm

Re: QL Tinkering

Post by stevepoole »

Hi Tinkerers,
Here is the final (I hope) version of the font-enlarger program.
UNZIP, LRESPR chans_code, and LRUN the demo, Tested OK on QPC, SGC and QDOS.
Fits words onto the chosen screen, splits them if too long. Fills randomly here.
Should be OK with any font ?

Modify line 150 for your own text, or Line 160 for your own window needs.
If your enlargement won't fit the screen, you get an out of range error. Steve.
Dot_Lookup_Justify4.zip
(2.07 KiB) Downloaded 15 times
chans_code.zip
(358 Bytes) Downloaded 10 times


stevepoole
Aurora
Posts: 829
Joined: Mon Nov 24, 2014 2:03 pm

Re: QL Tinkering

Post by stevepoole »

Capture d’écran (661).png


stevepoole
Aurora
Posts: 829
Joined: Mon Nov 24, 2014 2:03 pm

Re: QL Tinkering

Post by stevepoole »

Hi Qbits,
This is the sort of enlarged character I achieve using ARCS, CIRCLEs and oblongs.

It uses masses of code to produce unsatisfactory results. (eg: no aspect control).

And FILLing using ARCs is cumbersome. Every Character would need its own routine...

I shan't experiment any further down that road... Regards, Steve.
Capture d’écran (662).png


Post Reply