The Museum of HP Calculators

HP Forum Archive 21

[ Return to Index | Top of Index ]

RPL, Logo and virtual screen
Message #1 Posted by Gilles Carpentier on 2 Apr 2012, 5:20 p.m.

An interesting thing on the HP49/50 is the possibility to work with screen bigger than the resolution of the device. And with the emulator, it's very easy to transfert the picture on a PC. Here are some examples in 600x600 resolution done with a kind of RPL Logo (in french) i wrote sometime ago :

<< { { 1 Av 1 Td } 360 Repete 10 Td } 36 Repete >>

(in english "real" LOGOwould be : REPEAT 36 [ Rt 10 REPEAT 360 [ Rt 1 Fw 1 ]]

***

<<5 {N} Donne { N Av 92 Td N 2 + {N} Donne } 300 Repete >>

***

<< -> cote ang << cote Av ang Td cote 2 + ang Spi1 >> >> 'Spi1' Pour

***

***

***

***

« « 2 Av 2 Td » 45 Repete » 'QCercle' Pour
« « QCercle 90 Td » 2 Repete » 'Petale' Pour
« « Petale 36 Td » 10 Repete » 'Fleur' Pour
« Fleur 130 Re Petale 70 Re » 'Plante' Pour
***

***

« -> l
  « l 5 < 
    « l Av »       
    « l 3 / Khor 60 Tg
      l 3 / Khor 120 Td
      l 3 / Khor 60 Tg
      l 3 / Khor
    » 
    SSi
  »
»
'Khor' Pour

« 300 Khor 120 Td » 3 Repete

I've lost my RPL sources but it's very easy to create a kind of Logo in RPL syntax.

Something like :


« 'XYTor' STO » 'FPos' STO
« 'ATor' STO » 'FCap' STO
« (0 0) FPos 0 FCap » 'IniTo' STO
« ATor DUP2 COS * UNROT SIN * R->C XYTor + DUP XYTor LINE 'XYTor' STO » 'Av' STO
« 'ATor' STO+ » 'Tg' STO
« NEG Tg » 'Td' STO
...

Tg for Left in english Td for righ Av for Forward FPos for fixing turtle position Fcap for fixing turtle direction etc...

Edited: 2 Apr 2012, 5:29 p.m.

      
Re: RPL, Logo and virtual screen
Message #2 Posted by Luiz C. Vieira (Brazil) on 2 Apr 2012, 10:49 p.m.,
in response to message #1 by Gilles Carpentier

Wow! Nice and brainy!

Thanks for sharing.

Cheers.

      
Re: RPL, Logo and virtual screen
Message #3 Posted by Marcus von Cube, Germany on 3 Apr 2012, 2:14 a.m.,
in response to message #1 by Gilles Carpentier

Jolie! :-)

      
Re: RPL, Logo and virtual screen
Message #4 Posted by Oliver Unter Ecker on 3 Apr 2012, 4:00 a.m.,
in response to message #1 by Gilles Carpentier

Merveilleux!

[ Return to Index | Top of Index ]

Go back to the main exhibit hall