Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

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