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.
QL Tinkering
Re: QL Tinkering
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
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
-
- Aurora
- Posts: 829
- Joined: Mon Nov 24, 2014 2:03 pm
Re: QL Tinkering
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.
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.
-
- Aurora
- Posts: 829
- Joined: Mon Nov 24, 2014 2:03 pm
Re: QL Tinkering
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.
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.