Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
Groups keyboard shortcuts have been updated
Dismiss
See shortcuts

micro(A) REPL

23 views
Skip to first unread message

Aston Goldsmith

unread,
May 18, 2020, 7:30:11 AM5/18/20
to


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!"

Aston Goldsmith

unread,
Jul 19, 2020, 12:49:24 PM7/19/20
to
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:

0 new messages