Groups | Search | Server Info | Keyboard shortcuts | Login | Register

Groups > comp.lang.basic.misc > #486

Re: micro(A) REPL

Show all headers | View raw

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:

Back to comp.lang.basic.misc | Previous | Next — Previous in thread | Find similar

Thread

micro(A) REPL Aston Goldsmith <aston.goldsmith@gmail.com> - 2020-05-18 04:30 -0700
  Re: micro(A) REPL Aston Goldsmith <aston.goldsmith@gmail.com> - 2020-07-19 09:49 -0700

csiph-web