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]

Ahh..long way to that..
I am not even sure do i want that or better to say do i have time for all that things..
it is too early...

[Aurel]

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


[Aurel]

Bug fixed in string expressions..
compiled version in attachment...

[Aurel]

small changes in window font

[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]

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 ?

[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]

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

it is not problem in filling box with lines..which use time for nothing then in internal structure of my interpreter
which is not build to be graphic show only interpreter..but i can add FloodFill()

[Aurel]

and another one called spiral

[round157]

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

[Aurel]

there is no need for that..
interpreter is very experimental and far away from completnes.
it is good for simple computation,small graphic examples etc... 

[Aurel]

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

[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]

Yes ..it already exists and is published on Naalaa forum
but is under topics and is not easy to fiind it ...here is a link
it is older version but as other people says there it work ok with naalaa
http://aurelcode.info8-hosting.info/Upload/attachment.php?aid=4