Re: micro(A) REPL

X-Received	by 2002:ac8:744a:: with SMTP id h10mr20811103qtr.241.1595177363845; Sun, 19 Jul 2020 09:49:23 -0700 (PDT)
X-Received	by 2002:a4a:c213:: with SMTP id z19mr16456358oop.46.1595177363549; Sun, 19 Jul 2020 09:49:23 -0700 (PDT)
Path	csiph.com!xmission!news.snarked.org!border2.nntp.dca1.giganews.com!nntp.giganews.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups	comp.lang.basic.misc
Date	Sun, 19 Jul 2020 09:49:23 -0700 (PDT)
In-Reply-To	<7b11c14d-4220-49d2-b805-ac0bdd2b283c@googlegroups.com>
Complaints-To	groups-abuse@google.com
Injection-Info	google-groups.googlegroups.com; posting-host=212.15.178.7; posting-account=I45LqgoAAACHT0scPJ6lEWuz8HiOs61n
NNTP-Posting-Host	212.15.178.7
References	<7b11c14d-4220-49d2-b805-ac0bdd2b283c@googlegroups.com>
User-Agent	G2/1.0
MIME-Version	1.0
Message-ID	<ddb58df6-39de-415d-b421-68fa2ac83e23o@googlegroups.com> (permalink)
Subject	Re: micro(A) REPL
From	Aston Goldsmith <aston.goldsmith@gmail.com>
Injection-Date	Sun, 19 Jul 2020 16:49:23 +0000
Content-Type	text/plain; charset="UTF-8"
Content-Transfer-Encoding	quoted-printable
Lines	48
Xref	csiph.com comp.lang.basic.misc:486

Show key headers only | 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