Post Reply 
HP-50g - Bigger stack font
02-06-2019, 10:12 AM
Post: #1
HP-50g - Bigger stack font
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
Find all posts by this user
Quote this message in a reply
02-06-2019, 01:46 PM
Post: #2
RE: HP-50g - Bigger stack font
(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.

--Bob Prosperi
Find all posts by this user
Quote this message in a reply
02-06-2019, 02:06 PM (This post was last modified: 02-07-2019 11:40 AM by franz.b.)
Post: #3
RE: HP-50g - Bigger stack font
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/

Hardware: Hp48S - Hp50g (5x black + 1 blue) - HP39gII - Hp27s - Casio fx-CG50
Find all posts by this user
Quote this message in a reply
02-06-2019, 02:41 PM
Post: #4
RE: HP-50g - Bigger stack font
(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.

--Bob Prosperi
Find all posts by this user
Quote this message in a reply
02-06-2019, 03:39 PM
Post: #5
RE: HP-50g - Bigger stack font
(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
Find all posts by this user
Quote this message in a reply
02-06-2019, 03:41 PM (This post was last modified: 02-06-2019 03:41 PM by Marco Polo.)
Post: #6
RE: HP-50g - Bigger stack font
(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
Find all posts by this user
Quote this message in a reply
02-06-2019, 04:59 PM
Post: #7
RE: HP-50g - Bigger stack font
Hi,

Try Joe Horn's readable fonts:
https://www.hpcalc.org/details/3329
.


Visit this user's website Find all posts by this user
Quote this message in a reply
02-07-2019, 09:38 AM
Post: #8
RE: HP-50g - Bigger stack font
(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....
Find all posts by this user
Quote this message in a reply
02-07-2019, 11:55 AM
Post: #9
RE: HP-50g - Bigger stack font
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 ...

Hardware: Hp48S - Hp50g (5x black + 1 blue) - HP39gII - Hp27s - Casio fx-CG50
Find all posts by this user
Quote this message in a reply
02-07-2019, 01:19 PM
Post: #10
RE: HP-50g - Bigger stack font
(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....
Find all posts by this user
Quote this message in a reply
02-09-2019, 01:09 PM (This post was last modified: 02-09-2019 01:18 PM by Joe Horn.)
Post: #11
RE: HP-50g - Bigger stack font
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:

[Image: blind.png]

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

<0|ɸ|0>
-Joe-
Visit this user's website Find all posts by this user
Quote this message in a reply
02-09-2019, 01:34 PM (This post was last modified: 02-09-2019 01:35 PM by Marco Polo.)
Post: #12
RE: HP-50g - Bigger stack font
(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 :-)
Find all posts by this user
Quote this message in a reply
02-09-2019, 01:58 PM
Post: #13
RE: HP-50g - Bigger stack font
(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
;

<0|ɸ|0>
-Joe-
Visit this user's website Find all posts by this user
Quote this message in a reply
02-09-2019, 09:24 PM
Post: #14
RE: HP-50g - Bigger stack font
(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 :-)
Find all posts by this user
Quote this message in a reply
02-10-2019, 03:31 AM (This post was last modified: 02-10-2019 03:32 AM by TravisE.)
Post: #15
RE: HP-50g - Bigger stack font
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.
Find all posts by this user
Quote this message in a reply
02-10-2019, 11:07 PM
Post: #16
RE: HP-50g - Bigger stack font
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;-)

-- Ray
Find all posts by this user
Quote this message in a reply
02-11-2019, 09:27 AM
Post: #17
RE: HP-50g - Bigger stack font
Is it possible to dump the HP48 system font and convert to 50g format?
Find all posts by this user
Quote this message in a reply
02-14-2019, 01:35 AM (This post was last modified: 02-14-2019 02:20 AM by Han.)
Post: #18
RE: HP-50g - Bigger stack font
(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.

Graph 3D | QPI | SolveSys
Find all posts by this user
Quote this message in a reply
02-14-2019, 07:25 AM
Post: #19
RE: HP-50g - Bigger stack font
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? [Image: 63.gif]

Hardware: Hp48S - Hp50g (5x black + 1 blue) - HP39gII - Hp27s - Casio fx-CG50
Find all posts by this user
Quote this message in a reply
02-22-2019, 02:56 PM
Post: #20
RE: HP-50g - Bigger stack font
(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.
Find all posts by this user
Quote this message in a reply
Post Reply 




User(s) browsing this thread: 1 Guest(s)