+- HP Forums (https://archived.hpcalc.org/museumforum)
+-- Forum: HP Museum Forums (https://archived.hpcalc.org/museumforum/forum-1.html)
+--- Forum: Old HP Forum Archives (https://archived.hpcalc.org/museumforum/forum-2.html)
+--- Thread: RPL, Logo and virtual screen (/thread-216436.html)
RPL, Logo and virtual screen - Gilles Carpentier - 04-02-2012
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 - Luiz C. Vieira (Brazil) - 04-02-2012
Wow! Nice and brainy!
Thanks for sharing.
Cheers.
Re: RPL, Logo and virtual screen - Marcus von Cube, Germany - 04-03-2012
Jolie! :-)
Re: RPL, Logo and virtual screen - Oliver Unter Ecker - 04-03-2012
Merveilleux!