On Monday, 18 May 2020 13:30:11 UTC+2, Aston Goldsmith wrote:
Posts: 150
View Profile AurelSoft Email Personal Message (Online)
micro(A) Interpreter
« Reply #38 on: May 17, 2020, 11:02:02 PM »
REP test finished:
varStr a,b,c : varNum d,e,f
d=625 : e=25.1 : f = d/e : print 10,10,f: print 50,10,"..numeric Expr"
a= "aurel"
b= " micro(A)"
c=a+b
print 10,30, c : print 150,30,"..string expr OK!"
nmandelbrot_test - micro(A)
varnum px, py, i, sx, sy, xx, xy,cr,cg,cb
varnum vy, pyy , w , h , hh , x, y , max
max=15 : w = 640 : h = 480
py=0 : px=0 : wcolor 0,0,0
while py < h
px=0
while px < 480
sy = (py-240)/150
sx = (px-320)/150
i = 0 : x=0 : y=0
xy = x*x + y*y
while i < max & xy < 4
xx = x*x - y*y + sx + 0.1
y = 2 * x * y + sy
x = xx
cr=220+(i*x): cg=220+(i*y): cb=230+(i*xy)
fcolor cr,cg,cb
pset px,py
i=i+1
wend
px = px + 1
wend
swap
py = py + 2
wend
ew:
--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)