🚀 go-pugleaf

Checksum: 3771461417 (verify with brik -cv)
Submitted-by: john R. Latala <John.Latala@waterloo.ncr.com>
Posting-number: Volume 6, Issue 25
Archive-name: hdg_jl/part01


BEGIN_DOC hdg.doc
This directory contains a routine (HDG) for displaying a speed (0 - 500)
and a heading (0 - 360) as two horizontal scales with pointers. The
scales have tick marks and labels. Sequential updates of the screen will
look like a 'moving tape' display. I wanted to make the speed display a
vertical tape but that didn't work too well with the horizontal heading
display.

This program works by making two large GROB and cutting them up to
build the display image. If the GROB don't exist then it will make them.

P.S.

As you can see by the first line of this posting I'm using the Program
Development system for this, is that a problem for you?
END_DOC

[ Hdg.app won't download.  I'm only including it as documentation.  
  The asc'ed or uuencoded versions will download fine. -chris ]

BEGIN_SRC hdg.app
// HP 48 Program Development Link Application
//
/Angle Degrees
/FractionMark .
/InstallDir
/AutoExec
//
/Var HDG
@
@ HDG - display a heading graphically as two horizontal axis
@
@ The input is a complex number.
@
@ The magnitude of this polar number is displayed on the first horizontal
@ axis.
@
@ The angle of this polar number is displayed on the second horizontal axis.
@

\Ga
  MHTICK
  MSTICK
  DUP ABS 500 MOD SWAP ARG 360 MOD
  \-> s h
  \<<
    # 83h # 40h BLANK
    { # 3Ah # 0h } Mark REPL
    { # 0h # 4h } STICK s 80 + 61 - R\->B # 0h 2 \->LIST
    DUP 1 GET # 82h + # 14h 2 \->LIST SUB REPL
    { # 3Ah # 1Eh } Mark REPL
    { # 0h # 22h } HTICK h 80 + 61 - R\->B # 0h 2 \->LIST
    DUP 1 GET # 82h + # 14h 2 \->LIST SUB REPL
    \->LCD
    7 FREEZE
  \>>
\>>
//
/Var Mark
GROB 7 4 F7E3C180
//
/Var MHTICK
@
@ MHTICK - make the heading tick GROB
@
@ Makes the GROB that contains the heading axis if it doesn't exist.
@

\<<
  IFERR 'HTICK' RCL THEN
    -70 430 5 1 10 360 30 { { 90 16 } { 30 8 } { 10 4 } { 5 2 } } MTICK
    SWAP STO
  ELSE
    DROP
  End
\>>
//
/Var MSTICK
@
@ MSTICK - make speed tick GROB
@
@ Makes the GROB that contains the tick marsk for the speed display
@

\Ga
  IFERR 'STICK' RCL THEN
    0 500 5 1 80 1000 50 { { 100 16 } { 50 8 } { 10 4 } { 5 2 } } MTICK
    SWAP STO
  ELSE
    DROP
  End
\>>
//
/Var MTICK
@
@ MTICK - a general purpose horizontal tick mark maker
@
@ Used to make the two horizontal tick mark GROBs for the heading and speed
@
@ Calling arguments:
@
@    Start  - starting value
@    End    - ending value
@    Scale  - magnification factor
@    offset - horizontal pixel displacement where 'Start' is in the GROB
@    tmod   - spacing of tick marks
@    lticks - positions where labels are applied to tick marks.
@    Ticks  - a list of two element lists that describe a possible tick
@             position and the length of the tick mark
@

\<<
  \-> Start End Step Scale offset tmod lticks Ticks
  \<<
    offset End Start - Scale * + 1 + offset + R\->B # 20d BLANK
    offset R\->B # 0d 2 \->LIST
    End Start - Scale * # 1d + # 1d BLANK
    NEG REPL
    Start End
    FOR i
      i 1 DISP
      Ticks
      WHILE DUP { } \=/ REPEAT
        IF DUP 1 GET LIST\-> DROP SWAP i tmod MOD SWAP MOD 0 == THEN
          SWAP DROP { }
        ELSE
          DROP 2 OVER SIZE SUB
        END
      END
      DROP
      \-> t
      \<<
        offset i Start - Scale * + R\->B # 0d 2 \->LIST
        # 1d t R\->B BLANK NEG REPL
      \>>
      IF i tmod MOD lticks MOD 0 == THEN
        i tmod MOD 1 \->GROB
        DUP SIZE DROP offset i Start - Scale * + R\->B
        SWAP 2 / - 1 + # 12d 2 \->LIST
        SWAP REPL
      END
      Step
    STEP
  \>>
\>>
END_SRC



BEGIN_ASC hdg.asc
%%HP: T(3)A(D)F(.);
"69A20FF723020000005035459434B450E1B2070D004100059200000000000000
00000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFF10000000000000000000000000000000000000000124801248012480124
8012480124801248012480124801248012480124801248012480124801248012
4801248012480124801248012480124801248012480100000000000000000000
0000000000000000000010400104001040010400104001040010400104001040
0104001040010400104001040010400104001040010400104001040010400104
0010400104001040010000000000000000000000000000000000000000104001
0400104001040010400104001040010400104001040010400104001040010400
1040010400104001040010400104001040010400104001040010400100000000
0000000000000000000000000000000010000000000040000000000001000000
0000040000000000001000000000004000000000000100000000000400000000
0000100000000000400000000000010000000000000000000000000000000000
0000001000000000004000000000000100000000000400000000000010000000
0000400000000000010000000000040000000000001000000000004000000000
0001000000000000000000000000000000000000000010000000000040000000
0000010000000000040000000000001000000000004000000000000100000000
0004000000000000100000000000400000000000010000000000000000000000
0000000000000000001000000000004000000000000100000000000400000000
0000100000000000400000000000010000000000040000000000001000000000
0040000000000001000000000000000000000000000000000000000010000000
0000000000000000010000000000000000000000001000000000000000000000
0001000000000000000000000000100000000000000000000000010000000000
0000000000000000000000000000001000000000000000000000000100000000
0000000000000000100000000000000000000000010000000000000000000000
0010000000000000000000000001000000000000000000000000000000000000
0000100000000000000000000000010000000000000000000000001000000000
0000000000000001000000000000000000000000100000000000000000000000
0100000000000000000000000000000000000000001000000000000000000000
0001000000000000000000000000100000000000000000000000010000000000
0000000000000010000000000000000000000001000000000000000000000000
00000000000000001000000000083100000000081110000000006E4000000000
8311000000000EE40000000008311000000000EE40000000008211000000000A
E400000000083110000000000000000000000000000000000000082000000000
088200000000009A200000000042A0000000000AA200000000082A0000000000
AA200000000082A0000000008AA2000000000A2A00000000088A200000000000
0000000000000000000000000008200000000008B200000000009A2000000000
4EA0000000008BA2000000000EEA0000000008BA2000000000EEA0000000008B
A2000000000EEA0000000008BA20000000000000000000000000000000000000
08200000000000A200000000009A200000000048A00000000088A20000000002
8A0000000000AA200000000088A0000000000AA200000000088A0000000000AA
2000000000000000000000000000000000000000100000000008310000000008
311000000000EE40000000008311000000000EE40000000008311000000000EE
400000000002110000000008E400000000083110000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000A1D0040D41627B640E1B
20710004000070000F7E3C180820005084459434B450E1B20F5A004100090200
00CFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7
0000004801248012480124801248012480124801248012480124801248012480
1248012480124801248012480124801248012480124801248012480124801248
0124000000400104001040010400104001040010400104001040010400104001
0400104001040010400104001040010400104001040010400104001040010400
1040010400000040010400104001040010400104001040010400104001040010
4001040010400104001040010400104001040010400104001040010400104001
0400104001040000000001000000400000001000000400000001000000400000
0010000004000000010000004000000010000004000000010000004000000010
0000040000000100000000000100000040000000100000040000000100000040
0000001000000400000001000000400000001000000400000001000000400000
0010000004000000010000000000010000004000000010000004000000010000
0040000000100000040000000100000040000000100000040000000100000040
0000001000000400000001000000000001000000400000001000000400000001
0000004000000010000004000000010000004000000010000004000000010000
0040000000100000040000000100000000000000000000000000100000000000
0000000000400000000000000000000001000000000000000000000400000000
0000000000000010000000000000000000000000000000000000000010000000
0000000000000040000000000000000000000100000000000000000000040000
0000000000000000001000000000000000000000000000000000000000001000
0000000000000000004000000000000000000000010000000000000000000004
0000000000000000000000100000000000000000000000000000000000000000
1000000000000000000000400000000000000000000001000000000000000000
00040000000000000000000000100000000000000000000000083110000EE400
000010000083100000C4000008310000893100006E4000089310000E6400008B
210000EE4000083110000EE400000010000083100000C40000000000AA200008
8A0000082000000A2000002A000008A2000001A2000042A000009A2000084A00
000AA2000088A00000AA2000088A0000082000000A2000002A0000000008BA20
000EEA0000082000008B200000EA000008B2000009B200004EA000009B20000E
4A00008BB20000E4A00008BA20000EEA0000082000008B200000EA0000000000
AA2000088A0000082000000A200000AA000000A200000982000048A000009A20
00024A000080A2000022A00000AA2000088A0000082000000A200000AA000000
00083110000EE400000010000083100000E40000083100008B310000EE400008
B310000EE4000083210000E24000083110000EE400000010000083100000E400
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000027A0050D4459434B450D9D20E16321C432D6E20503547162
747D6E203054E646D6E204035475607D6E2050353616C656D6E2060F66666375
647D6E204047D6F646D6E2060C6479636B637D6E2050459636B637E1632D6E20
60F66666375647D6E203054E646D6E2050354716274790DA1D6E2050353616C6
56EEDA176BA19C2A276BA1D6E2060F6666637564776BA1B9691E4A2051000410
0000000000000614E1D6E2060F66666375647B9691E4A2051000000000000000
0000ED2A2387C1D6E203054E646D6E2050354716274790DA1D6E2050353616C6
56EEDA1E4A2051000100000000000000076BA1E4A20510001000000000000000
614E1599A1AE8C1D6E20503547162747D6E203054E6460A132D6E201096D6E20
10969C2A2485A1D6E2050459636B6373303278BF147A20B2130D9AE1D5032D9D
203CE2278BF19C2A26C7D1A59C18DBF1DBBF1D6E201096D6E204047D6F646D4E
B1DBBF1D4EB14B2A2279E1AFE22D9D20DBBF18DBF147A20B2130B21305BF22D9
D208DBF1ED2A292CF18B9C1C58C1B21305DF22B2130496328DBF11C432D6E201
047E1632D6E2060F66666375647D6E201096D6E2050354716274790DA1D6E205
0353616C656EEDA176BA1B9691E4A20510000000000000000000ED2A2387C1E4
A20510001000000000000000D6E201047B9691614E1599A1AE8C1EF5323CE22D
6E201096D6E204047D6F646D4EB1D6E2060C6479636B637D4EB14B2A2279E1AF
E22D9D20D6E201096D6E204047D6F646D4EB19C2A2DA5E178BF18B9C18DBF1D6
E2060F66666375647D6E201096D6E2050354716274790DA1D6E2050353616C65
6EEDA176BA1B9691DBBF1ED2A250FA190DA19C2A276BA1E4A2051000C0000000
00000000ED2A2387C1DBBF1AE8C1B21305DF22D6E20403547560708332EF5329
3632B21304350060D435459434B460D9D20E1632FD332D9D204563284E205035
459434B49763204B02B2130F1732D9D204B2A2339202000000000000050D13A2
9C2A233920100000000000008033920300000000000001033920100000000000
005047A2047A20339202000000000000010339201000000000000610B213047A
20339201000000000000050C53A2B213047A20339201000000000000010803A2
B213047A20D13A2ED2A2B2130B213084E2050D4459434B4DBBF1DCC02B21305B
F228DBF15DF2293632B21309810060D484459434B460D9D20E1632FD332D9D20
4563284E205084459434B49763204B02B2130F1732D9D2033920100000000000
0079339202000000000000340D13A29C2A233920100000000000001033920200
000000000063033920100000000000003047A2047A2033920100000000000009
0339201000000000000610B213047A20339201000000000000030C53A2B21304
7A20339201000000000000010803A2B213047A20D13A2ED2A2B2130B213084E2
050D4459434B4DBBF1DCC02B21305BF228DBF15DF2293632B213099100308444
7430D9D20E163284E2060D484459434B484E2060D435459434B478BF1F1AA133
92020000000000000503ECB1DBBF1BD2B1339202000000000000630D4EB11C43
2D6E201037D6E201086E1632E4A20510003800000000000000E4A20510000400
000000000000614E147A20E4A2051000A300000000000000E4A2051000000000
0000000000B213084E2040D41627B6AE8C147A20E4A205100000000000000000
00E4A20510004000000000000000B213084E205035459434B4D6E20103733920
100000000000008076BA133920100000000000016090DA1B9691E4A205100000
00000000000000ED2A2387C178BF19C2A26C7D1E4A2051000280000000000000
076BA1E4A20510004100000000000000ED2A2387C1C58C1AE8C147A20E4A2051
000A300000000000000E4A2051000E100000000000000B213084E2040D41627B
6AE8C147A20E4A20510000000000000000000E4A20510002200000000000000B
213084E205084459434B4D6E20108633920100000000000008076BA133920100
000000000016090DA1B9691E4A20510000000000000000000ED2A2387C178BF1
9C2A26C7D1E4A2051000280000000000000076BA1E4A20510004100000000000
000ED2A2387C1C58C1AE8C1D85E1743A24A5A1EF53293632B2130598E"
END_ASC

BYTES: #E895h 4602.5

BEGIN_UU hdg.uue
begin 644 hdg
M2%!(4#0X+466*O!_,B`````%4U1)0TL%'BMPT``4`%`I``````````````#_
M____________________________________________________________
M_____________________Q\``````````````````````````"&$$$(((800
M0@@AA!!"""&$$$(((8000@@AA!!"""&$$$(((8000@@AA!!"""&$$$(((800
M0@@AA!!"""&$$````````````````````````````0000``!!!!```$$$$``
M`0000``!!!!```$$$$```0000``!!!!```$$$$```0000``!!!!```$$$$``
M`000```````````````````````````!!!!```$$$$```0000``!!!!```$$
M$$```0000``!!!!```$$$$```0000``!!!!```$$$$```0000``!!!``````
M``````````````````````$```````0``````!```````$`````````!````
M```$```````0``````!``````````0``````!```````$```````````````
M`````````````0``````!```````$```````0`````````$```````0`````
M`!```````$`````````!```````$```````0````````````````````````
M```!```````$```````0``````!``````````0``````!```````$```````
M0`````````$```````0``````!````````````````````````````$`````
M``0``````!```````$`````````!```````$```````0``````!`````````
M`0``````!```````$````````````````````````````0``````````````
M$`````````````````$``````````````!`````````````````!````````
M```````0```````````````````````````!```````````````0````````
M`````````0``````````````$`````````````````$``````````````!``
M``````````````````````````$``````````````!`````````````````!
M```````````````0`````````````````0``````````````$```````````
M`````````````````0``````````````$`````````````````$`````````
M`````!`````````````````!```````````````0````````````````````
M```````!`````(`3`````(`1`0````#F!``````X$0````#@3@````"`$P$`
M````[@0`````*!$`````H$X`````@!,!````````````````````````@`(`
M````@"@``````*D"`````"0*`````*`J`````("B``````"J`@`````H"@``
M``"H*@````"@H@````"`J`(```````````````````````"``@````"`*P``
M````J0(`````Y`H`````N"H`````X*X`````@*L"`````.X*`````+@J````
M`."N`````("K`@```````````````````````(`"```````J``````"I`@``
M``"$"@````"(*@`````@J```````J@(`````B`H`````H"H`````@*@`````
M`*H"``````````````````````````$`````@!,`````@!,!`````.X$````
M`#@1`````.!.`````(`3`0````#N!``````@$0````"`3@````"`$P$`````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M```````````````````````````````````````:#4#0%":W1N"Q`A<`0```
M!P#PY\.!@`(`!4A424-+!1XK\*4`%`"0(```_/______________________
M__________________________________________________________]_
M````A!!"""&$$$(((8000@@AA!!"""&$$$(((8000@@AA!!"""&$$$(((800
M0@@AA!!"""&$$$(((8000@@AA!!"````!!!```$$$$```0000``!!!!```$$
M$$```0000``!!!!```$$$$```0000``!!!!```$$$$```0000``!!!!`````
M!!!```$$$$```0000``!!!!```$$$$```0000``!!!!```$$$$```0000``!
M!!!```$$$$```0000``!!!!``````!`````$`````0``0````!`````$````
M`0``0````!`````$`````0``0````!`````$`````0``0````!```````!``
M```$`````0``0````!`````$`````0``0````!`````$`````0``0````!``
M```$`````0``0````!```````!`````$`````0``0````!`````$`````0``
M0````!`````$`````0``0````!`````$`````0``0````!```````!`````$
M`````0``0````!`````$`````0``0````!`````$`````0``0````!`````$
M`````0``0````!```````````````````0`````````````$````````````
M`!``````````````0````````````````0``````````````````````````
M`0`````````````$`````````````!``````````````0```````````````
M`0```````````````````````````0`````````````$`````````````!``
M````````````0````````````````0```````````````````````````0``
M```````````$`````````````!``````````````0````````````````0``
M````````````@!,!`.!.`````0``.`$``$P``(`3``"8$P``Y@0`@#D!`.!&
M``"X$@``[@0`@!,!`.!.`````0``.`$``$P``````*H"`("H``"``@``H`(`
M`*(``(`J```0*@``)`H``*D"`("D``"@*@``B`H``*H"`("H``"``@``H`(`
M`*(`````@*L"`."N``"``@``N`(``*X``(`K``"0*P``Y`H``+D"`."D``"X
M*P``3@H`@*L"`."N``"``@``N`(``*X``````*H"`("H``"``@``H`(``*H`
M```J``"0*```A`H``*D"`""D```(*@``(@H``*H"`("H``"``@``H`(``*H`
M````@!,!`.!.`````0``.`$``$X``(`3``"X$P``[@0`@#L!`.!.```X$@``
M+@0`@!,!`.!.`````0``.`$``$X`````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M``````````````````````````````````````````````````````!R"E#0
M1)4TM%30V0(>-A),(VTN4#!%%R9'U^8"`T5N9&TN0#!%5P;7Y@(%4V-A;&5M
M+F#P9F8V5T;7Y@($=&UO9&TN8,!&ES:V-M?F`@54:6-K<QXVTN8"!F]F9G-E
M=&TN,%#D1M;F`@53=&%R=`FMT>8"!5-C86QE[JUQMAK)HG*V&FTN8/!F9C97
M1G>V&IN6X:0"%0!``0```````&!!'FTN8/!F9C971K=I&4XJ4`$`````````
M``#>HC)X'&TN,%#D1M;F`@53=&%R=`FMT>8"!5-C86QE[JWAI`(5`!``````
M````<+8:3BI0`0`!`````````!;D49D:ZLC1Y@(%4W1A<G1M+C!0Y$8&&B-M
M+A"0UN8"`6G)HD)8&FTN4$"5-K8V-P,CA_M!IP(K,="I'ETPTMD"PRYRN!_)
MHF)\'5K)@;T?O?O1Y@(!:6TN0$#7]D;6Y!N]^]'D&[2B(I<>^B[2V0*]^X&]
M'W0JL!(#*S%0^R*=+8"]']ZBDL(?N,G!A1PK,5#](BLQ0&DCV/L13"-M+A!`
MYV$C;2Y@\&9F-E=&U^8"`6EM+E`P11<F1Y?0&FTN4#`U%L96YMX:9ZNQ:1E.
M*E`!````````````WJ(R>!Q.*E`!``$`````````;2X00+=I&1;D49D:ZLCA
M7R/#+M+F`@%I;2Y`0-?V1M;D&VTN8,!&ES:V-M?D&[2B(I<>^B[2V0)M+A"0
MUN8"!'1M;V1-OI$L*JWE<;@?N,F!O1]M+F#P9F8V5T;7Y@(!:6TN4#!%%R9'
ME]`:;2Y0,#46QE;FWAIGJ[%I&;W[X2TJ!:^1T!K)HG*V&DXJ4`$`#```````
M``#>HC)X'+W[H8X<*S%0_2)M+D`P15<&!S@C_C628R,K,4!3``9-4U1)0TL&
MG2W@82/?,]+9`E0V@N0"!5-424-+>38"M"`K,?!Q(YTM0"LJ,RD@````````
M4-`Q*LFB,I,"`0````````@S*3`````````0,),"`0````````5T*D"G`C,I
M(````````!`PDP(!``````!@`2LQ0*<",RD0````````4,`U*BLQ0*<",RD0
M````````$(`P*BLQ0*<"':/B+2HK,;`2`T@N4-!$E32TU+L?S0RR$@.U+X*]
M']4ODF,C*S&0&``&34A424-+!ITMX&$CWS/2V0)4-H+D`@5(5$E#2WDV`K0@
M*S'P<2.=+3"3`@$```````"7,RD@````````0]`Q*LFB,I,"`0````````$S
M*2`````````V,),"`0````````-T*D"G`C,I$````````)`PDP(!``````!@
M`2LQ0*<",RD0````````,,`U*BLQ0*<",RD0````````$(`P*BLQ0*<"':/B
M+2HK,;`2`T@N4-!$E32TU+L?S0RR$@.U+X*]']4ODF,C*S&0&0`#2$1'`YTM
MX&$C2"Y@T(1$E32TA.0"!DU35$E#2X?[\:$:,RD@````````4##.&[W[L2T;
M,RD@````````-M#D&\$TTN8"`7-M+A"`YF$C3BI0`0"#`````````$XJ4`$`
M0``````````6Y$&G`DXJ4`$`.@````````!.*E`!````````````*S&`Y`($
M36%R:^K(0:<"3BI0`0```````````$XJ4`$`!``````````K,8#D`@535$E#
M2VTN$#`WDP(!````````"&>K,9,"`0``````$`8)K;%I&4XJ4`$`````````
M``#>HC)X'(?[D2PJQM?AI`(5`"`(````````<+8:3BI0`0`4`````````-ZB
M,G@<7,BACAQT*N"D`A4`H`,```````#@I`(5`.`!````````L!(#2"Y`T!0F
MMZ:.''0JX*0"%0```````````."D`A4`(`(```````"P$@-(+E"`1)4TM-3F
M`@%H,RD0````````@'"V&C,I$````````&&0T!J;EN&D`A4```````````#@
M+2J#QW&X'\FB8GP=3BI0`0""`````````&>KX:0"%0!``0```````.`M*H/'
5P84<ZLC16!Y'HT):&OXUDF,C*S$`
`
end
sum -r/size 56034/6374 section (from "begin" to "end")
sum -r/size 35818/4611 entire input file
END_UU

-- 
john.Latala@Waterloo.NCR.COM

[ ... unused entry in the random signature database ... ]