06-06-2019, 01:38 PM
Hello, it would be very interesting to incorporate drawing commands to motivate more users to use NewRPL.
For example
TI-Nspire: DrawArc 20, 20, 100, 100, 0, 90
NewRPL: 20 20 100 100 0 90 DrawArc
TI-Nspire:
xlist := {0, 200, 150, 0}
ylist := {10, 20,150, 10}
DrawPoly xlist, ylist
NewRPL:
{0, 200, 150, 0} 'xlist' STO
{10, 20, 150, 10} 'ylist' STO
xlist ylist DrawPoly
Source
https://education.ti.com/html/webhelp/EG...ommand.htm
Another option is to adapt Python graphics syntax to RPL
![[Image: 1558613789XsIikoU_1_.png]](https://tiplanet.org/modules/archives/captures/1558613789XsIikoU_1_.png)
For example
TI-Nspire: DrawArc 20, 20, 100, 100, 0, 90
NewRPL: 20 20 100 100 0 90 DrawArc
TI-Nspire:
xlist := {0, 200, 150, 0}
ylist := {10, 20,150, 10}
DrawPoly xlist, ylist
NewRPL:
{0, 200, 150, 0} 'xlist' STO
{10, 20, 150, 10} 'ylist' STO
xlist ylist DrawPoly
Source
https://education.ti.com/html/webhelp/EG...ommand.htm
Another option is to adapt Python graphics syntax to RPL
PHP Code:
def modf(a,b):
return a-b*int(a/b)
def rosace(n=12,r=31,v=True):
o=0.
ne=n+(n%2)
a=360/n
l=r*sin(a*pi/360)
for d in range(n):
if v:
avance r
avance -r
tourne_gauche a/2
avance r
avance -r
tourne_gauche -a/2
for k in range(ne):
avance l
tourne_gauche a/(1+((n!=ne) and ((k==ne/2-1) or (k==ne-1))))
tourne_gauche a
def demo(n):
efface
leve_crayon
avance 0
pas_de_cote -3
baisse_crayon
rosace(n,32)
