NewRPL: Draw commands

[compsystems]

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

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)