RPL, Logo and virtual screen



#5

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.


#6

Wow! Nice and brainy!

Thanks for sharing.

Cheers.

#7

Jolie! :-)

#8

Merveilleux!


Possibly Related Threads...
Thread Author Replies Views Last Post
  Writing RPL programs on OS X Sean Freeman 18 1,575 11-30-2013, 03:59 PM
Last Post: Sean Freeman
  Prime screen scratches - Use a screen protector Eelco Rouw 11 1,012 11-19-2013, 10:16 PM
Last Post: Eddie W. Shore
  48G vs 49G+ User RPL Speed Comparison John Colvin 7 704 11-16-2013, 10:07 PM
Last Post: Han
  RPL 32 David Hayden 4 562 11-11-2013, 11:34 AM
Last Post: David Hayden
  Virtual printer for a virtual 41 Mike (Stgt) 6 674 10-30-2013, 10:32 AM
Last Post: Mike (Stgt)
  Stylus for Prime screen steindid 6 706 10-22-2013, 02:06 AM
Last Post: Alberto Candel
  Sending from graph to home or CAS screen Richard Berler 6 723 10-06-2013, 03:29 PM
Last Post: Tim Wessman
  HP48GX screen replacement Francisco Quiles 9 962 10-03-2013, 09:17 PM
Last Post: Francisco Quiles
  HP 15C missing logo ! FORTIN Pascal 16 1,422 10-02-2013, 08:40 PM
Last Post: FORTIN Pascal
  HHC / HP Museum Programming Contest for RPN and RPL machines Gene Wright 18 1,484 09-22-2013, 09:39 AM
Last Post: Miguel Toro

Forum Jump: