Post Reply 
NewRPL: Draw commands
06-06-2019, 01:38 PM (This post was last modified: 06-06-2019 01:52 PM by compsystems.)
Post: #1
NewRPL: Draw commands
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]

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
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
NewRPL: Draw commands - compsystems - 06-06-2019 01:38 PM
RE: NewRPL: Draw commands - JoJo1973 - 06-06-2019, 02:25 PM
RE: NewRPL: Draw commands - compsystems - 06-06-2019, 02:54 PM



User(s) browsing this thread: 1 Guest(s)