micro(A) Interpreter

[round157]

Yes it is normal because it is still in experimental stage ..
For example try use undefined variable and you will see...
of course i can remove it .
In fact this info should be part of let say simple debugger or something.
I am glad that work 

OKay. Good! I expect that micro(A) will be as good as CerberusX, SmallBASIC or BlitzMax ng.

[Aurel]

A

[Aurel]

H

[Aurel]

-

[Aurel]

-

[bplus]

Here is a example of sierpinski carpet by MGA B+ from ssmall Basic
in micro(A):

Code: [Select]

'Sier Carpet v3.bas SmallBASIC 0.12.2 [B+=MGA] 2016-02-13
varnum sq,s,st,start,lc,r,g,b,x,y,rx,ry,w,h
sq=480 : s=2 :st=s+2 :start=1 :lc=0
wcolor 0,0,0

label doloop
'rx=1 : ry=1
x=1  : rx=x+s
   while x < sq
     y=1 :  ry=y+s
      while y < sq
       r=0:g=lc+128:b=0: fcolor r,g,b
      ' pset x,y
      rect x,y,rx,ry
      y=y+st*1
     wend
    ' swap
     x=x+st*1
 print 10,10,x
  wend

  s=2+st
  st=s*2
  lc=lc+1
rx=x : ry=y

if st < sq
 goto doloop
endif


For the record here is what my SmallBASIC version looks like:

Code: [Select]

'Sier Carpet v3.bas SmallBASIC 0.12.2 [B+=MGA] 2016-02-13

sq=512
s=2
stepper=2*s
start=1
lc=0
label doloop
  for x=start to sq step stepper
    for y=start to sq step stepper
      rect x,y,x+s,y+s,rgb(0,lc*15+128,0) filled
    next
  next
  start=start+s
  s=2*s
  stepper=2*stepper
  lc=lc+1
if stepper<=sq then goto doloop
pause 'for snapshot


So Aurel might mention he has modified my code beyond recognition or just left off the title label at top as it really no longer applies.

[Aurel]

-

[bplus]

I modify your code because if you don't see I don't have for/loop in microA..
also if i replace it with while loop and i get different result ...
it would be great if you have version with while loop in smallBasic or qb64

..or maybe i cannot because i see now that your rectangle is filled type and mine is not?
any suggestion mister MGA ?

Just use a bunch of lines to fill in the box.

Heck I could fill a box with my 100 line interpreter and it had just one graphics command Ray(x, y, angle, distance). ;-))

[Aurel]

[

[Aurel]

.

[round157]

The Worklogs sub-forum may be more suitable for this thread. It may get other people's attention more easily there. 

[Aurel]

t

[Aurel]

H

[round157]

Here is finally version of AurelEdit which we can use with micro(A) Interpreter

May I ask a question? I have a version of your editor for SmallBASIC. I have a version of your editor for Oxygen Basic as well. Can you make a version of your editor for this language? Thanks first.
http://naalaa.com/

[Aurel]

Y