Hi.
I use my HP50g daily for my job.
In order to improve legibility, I would like to have bigger stack font, reducing the displayed levels. Something like the original HP48 stack.
I digged hpcalc.org, but could not find anything that seemed suitable for my purpose.
Any advise?
Thank in advance
Marco Polo
(02-06-2019 10:12 AM)Marco Polo Wrote: [ -> ]In order to improve legibility, I would like to have bigger stack font, reducing the displayed levels. Something like the original HP48 stack.
Try this, if you haven't already done so, your post does not mention it:
Press the [Mode] key, then [Disp] soft menu, then [Choose] soft menu, and try the different font sizes. IIRC, 6 is for 6 lines, 8 for 8 lines, etc.
What is suggested by rprosperi does not take into account the fact that the default font is already the largest available, the others are smaller and therefore increase the number of levels displayed.
Maybe you can find a font that suits your needs here:
https://www.hpcalc.org/hp49/utils/fonts/
(02-06-2019 02:06 PM)franz.b Wrote: [ -> ]What is suggested by rprosperi does not take into account the fact that the default font is already the largest available...
Sorry for the useless tip; I use a non-std font and didn't recall which sizes/names the system uses.
(02-06-2019 02:06 PM)franz.b Wrote: [ -> ]Maybe you can find a font that suits your needs here:https://www.hpcalc.org/hp49/utils/fonts/
I checked, but apparently people is more interested in small fonts: nothing larger than the standard 8 points
(02-06-2019 02:41 PM)rprosperi Wrote: [ -> ]Sorry for the useless tip; I use a non-std font and didn't recall which sizes/names the system uses.
You are welcome!
The standard HP50g font is 8 points
(02-06-2019 04:59 PM)BartDB Wrote: [ -> ]Try Joe Horn's readable fonts
.
I installed them and now testing at work.
The legibility is somewhat improved. Tnanks.
I am still looking for a bigger (9-10 points) font. Not sure if HP50 can handle it....
(02-07-2019 11:55 AM)franz.b Wrote: [ -> ]I state that I've never played with fonts...
https://www.hpcalc.org/details/4660
by chance are these the 10 pixel fonts of the 48?
https://www.hpcalc.org/details/5452
otherwise you can try to create your own personal font ...
AFAIK UFL libraries cannot be used as system font replacement, but i may be wrong.
I am starting to suspect that there is no way to use a font bigger than 8 points.
Digging on....
If you're up to the task of porting an HP 48 program to the HP 50g, at my request Mika Heiskanen wrote a program called "BLIND" which makes the stack font HUGE, like this:
It's available here:
https://www.hpcalc.org/details/2638
Disclaimer: It's not really a "font" but rather an "outer loop" replacement (AKA a "shell" or "environment"), so if you're already running any other customized outer loop, BLIND probably won't work.
EDIT: Uh oh, it might not be possible to port BLIND to the HP 50g. See John Meyers' explanation here:
https://groups.google.com/d/msg/comp.sys...1c_EmENm0J
(02-09-2019 01:09 PM)Joe Horn Wrote: [ -> ]EDIT: Uh oh, it might not be possible to port BLIND to the HP 50g. See John Meyers' explanation here: https://groups.google.com/d/msg/comp.sys...1c_EmENm0J
Ouch!
May you confirm that fonts larger than 8 points are not supporter by Hp50 standard methods?
Anyway, thanks to your fonts the legibility of the stack is improved :-)
(02-09-2019 01:34 PM)Marco Polo Wrote: [ -> ]May you confirm that fonts larger than 8 points are not supporter by Hp50 standard methods?
Yes, that is correct.
Meanwhile, I tracked down Mika's source code. Here it is... for HP 48 only.
Code:
::
BEGIN
AtUserStack
SysMenuCheck
::
DA2aOK?NOTIT
::
KEYINBUFFER? NOT DA2aLess1OK?
OR NOTcase SetDA2aBad
LABEL dispstack
TOADISP
DA2aLess1OK? ClrnewEditL
case ?RollUpDA2
ClrNoRollDA2 ClrAbbrevStk
ERRSET
LABEL dispstack1
::
LINESOFSTACK DUP#0=csDROP
TWO #MIN
ONESWAP ZERO_DO
ISTOP-INDEX
OVERDUP #3+ PTR 44197
ITE
::
AbbrevStack? case
:: SWAP #:>$ SWAP GET_THE_TYPE ;
8 STKDECOMP$#
;
#:>$
DUPLEN$ 11 #> ITE
:: 1 10 SUB$ CHR \1F >T$ ;
:: " " &$ 1 11 SUB$ ;
$>BIGGROB
DUPGROBDIM
#2* SWAP #2* SWAP
MAKEGROB SWAP
CODE
GOSBVL =PopASavptr
LC(5) #14
D0=A
A=A+C A
R2=A
D0=D0+ 15
A=DAT0 A
GOSBVL =w->W
R3=A
D0=D0- 5
A=DAT0 A
R4=A
A=DAT1 A
D0=A
A=A+C A
R0=A
D0=D0+ 15
A=DAT0 A
GOSBVL =w->W
R1=A
C=R4
D=C A
L81927 D=D-1 A
GONC L81933
GOVLNG =GETPTRLOOP
L81933 P= 14
A=R0
L81938 D1=A
A=R2
D0=A
A=R1
B=A A
L81946 B=B-1 A
GOC L819A9
A=DAT0 B
C=0 A
?ABIT=0 3
GOYES L81961
CBIT=1 7
CBIT=1 6
L81961 ?ABIT=0 2
GOYES L81972
CBIT=1 5
CBIT=1 4
L81972 ?ABIT=0 1
GOYES L81983
CBIT=1 3
CBIT=1 2
L81983 ?ABIT=0 0
GOYES L81994
CBIT=1 1
CBIT=1 0
L81994 DAT1=C 1
B=B-1 A
GOC L819A9
DAT1=C B
D0=D0+ 1
D1=D1+ 2
GONC L81946
L819A9 A=R0
C=R1
A=A+C A
R0=A
P=P+1
GONC L81938
A=R2
C=R3
A=A+C A
R2=A
GOTO L81927
ENDCODE
ABUFF ZERO
4ROLL 20 #* 4 #-
GROB!
#1+
LOOP
DROP
;
ERRTRAP
::
DropSysObs
ERROR@ #0= IT
CODE
A=PC
LC(5) (dispstack)-(*)
A=A+C A
D0=A
LOOP
ENDCODE
#131 JstGETTHEMSG DoWarning
SetAbbrevStk
CODE
A=PC
LC(5) (dispstack1)-(*)
A=A+C A
PC=(A)
ENDCODE
ClrAbbrevStk
;
SetDA2aValid
;
DA1OK?NOTIT ?DispStatus
DA2bOK?NOTIT DispEditLine
DA3OK?NOTIT ?DispMenu
ClrDAsOK
;
GetKeyOb
ERRSET DoKeyOb
ERRTRAP
::
FixStk&Menu
ERROR@
ZERO #=casedrop SysErrFixUI
#13E #=casedrop
:: HALTTempEnv? caseERRJMP
SysErrFixUI
RSKIP TRUE
;
#123 #=casedrop PTR 3875F
#CAlarmErr #=case ProcessAlarm
LastRomWord@ ERROR@
SysErrFixUI ERRBEEP
PTR 3889F TOADISP UnScroll
DISPROW1 DISPROW2 SetDA1Temp
;
FALSE
UNTIL
UNDO_TOP? IT ABND
TEN GETLAMPAIR casedrop CacheStack
UNROT2DROP
EQ: PTR 5A777 ?SEMI
CacheStack
;
(02-09-2019 01:58 PM)Joe Horn Wrote: [ -> ]Yes, that is correct.
Meanwhile, I tracked down Mika's source code. Here it is... for HP 48 only.
I only program in UserRPL, so i cannot say anything about the code, but i think i have recognized a pair of PTR instructions which may be the unsupported entry Point.
Maybe :-)
I once hacked a font object and changed the height byte (or nibble? it's been a while) in its header to 9 or 10 before installing it, just to see what would happen. It appeared as though the system was taking the new height into account, but I never bothered adjusting the actual bitmaps to see if indeed the text would actually be displayed correctly. I'm going to guess it might not, because if it did work it would seem as though there would have been talk of it and fonts out there to take advantage of it.
Reminds me of my version of the Periodic Table library for the 49g:
My PTLib for 49g
The code base is the same in my versions of the PTLib for the HP 48 and the 49g,
the main difference is the addition of the 10px font of the 48 series in the 49g version.
Of course I also had to add a small routine to bang the pixel data into display;-)
Actually it's a reduced version of the font, covering A-Z and a-z only, which was sufficient for displaying the element symbol.
Including the (partial) font into an application for the 49g was just for fun, and to show it can be made even on the 49g;-)
Is it possible to dump the HP48 system font and convert to 50g format?
(02-09-2019 09:24 PM)Marco Polo Wrote: [ -> ] (02-09-2019 01:58 PM)Joe Horn Wrote: [ -> ]Yes, that is correct.
Meanwhile, I tracked down Mika's source code. Here it is... for HP 48 only.
I only program in UserRPL, so i cannot say anything about the code, but i think i have recognized a pair of PTR instructions which may be the unsupported entry Point.
Maybe :-)
Use Jazz for both -- on the HP48 (to decompile the PTR instructions into hopefully named entries), and then recompile with Jazz for the HP50G. Do keep in mind, though, that the stack outer loop for the HP50G is different from that for the HP48.
there is a distant memory that wanders in my brain and refers to when I played with my dear old 48s. There was a way to extract or change fonts and these were presented as a vertical grob containing all the characters in the set ordered one below the other. I do not remember if I used the functions of the system or some external program ... does anyone remember or understand what I mean?
(02-06-2019 10:12 AM)Marco Polo Wrote: [ -> ]Hi.
I use my HP50g daily for my job.
In order to improve legibility, I would like to have bigger stack font, reducing the displayed levels. Something like the original HP48 stack.
I digged hpcalc.org, but could not find anything that seemed suitable for my purpose.
Any advise?
Thank in advance
Marco Polo
For the record, I think you are making a very good point. This inspired me to add a 10-pixel font to newRPL, similar to the old HP48 stack. It sure brings back good memories of my 48GX.