micro(A)v11

[dbox]

I was trying to find the post months ago by dbox where he says "JS <> JavaScript".

Do you mean where I said “Java <> JavaScript”?

https://qb64phoenix.com/forum/showthread...8#pid15178

[mnrvovrfc]

I was trying to find the post months ago by dbox where he says "JS <> JavaScript".

Do you mean where I said “Java <> JavaScript”?

https://qb64phoenix.com/forum/showthread...8#pid15178

Thank you! \O/

What you mean under monospaced font
another Font ?

What I mean is a font like this one:


This is so that all the letters are aligned by lines and columns as it should be in a terminal.

EDIT: This presented font isn't a very good example for the lowercase letters. Should have picked "Courier New" or "Lucida Console".

EDIT: Highlighting with "Comic Sans MS" or "Courier New" on this forum doesn't work!

[aurel]

If you mean on how to change font in micro(A)
then i must add new command like:

SetFont  w, h, fontname

[aurel]

Black hole collision B256 in micro(A)

Code: (Select All)

'black hole collision B256
var x,y,xspeed,yspeed,r,n,colision
x=160 : y = 180 : xspeed = 2 : yspeed = -1 : r=2 : n = 401
var xx[n] , yy[n] , xxspeed[n] , yyspeed[n] ,dist[n]
var dx[n] , dy[n], xac[n], yac[n+1], gravity[n], crash[n]
var p,s,px,py,t : colision = 0
p=1
while p < n
    xx[p]=rand(600)
    yy[p]=rand(600)
    p=p+1
wend
s=1
while s < n
     xxspeed[s]=rand(2)-1
     yyspeed[s]=rand(2)-1
     s=s+1
wend
px=300 : py=300
circle px,py,5

label loop
fcolor 190,190,190
rect 0,0,800,600
t=1
WHILE t < n
dist[t] = ((xx[t]-px)^2 + (yy[t]-py)^2)^(1/2)
gravity[t] = (r/dist[t])^2
dx[t] = xx[t]-px
dy[t] = yy[t]-py
xac[t]= (dx[t]/dist[t]) * gravity[t]
yac[t]= (dy[t]/dist[t]) * gravity[t]
if crash[t]=0 : xxspeed[t] = xxspeed[t]*0.999-xac[t] : endif
if crash[t]=0 : yyspeed[t] = yyspeed[t]*0.999-yac[t] : endif
if crash[t]=0 : xx[t] = xx[t] + xxspeed[t] : endif
if crash[t]=0 : yy[t] = yy[t] + yyspeed[t] : endif
If dist[t] < r & crash[t]=0
    r=r+8/r^2
    colision = colision + 1
    crash[t]=1
EndIf
print 10,10,"Colisions =": print 120,10,colision
fcolor 180,140,100 : circle xx[t], yy[t],2     ' rand(3)
t=t+2
WEND

circle px,py,r
swap
goto loop

[aurel]

star travel by pW

Code: (Select All)

'star travel copyright by (c)Peter Wirbelauer in o2
'you don't have permission to re-distribute code
'micro(A) version by Aurel (c)AurelSoft
var i,s_x,s_y ,anz, speed, xScreen,yScreen ,run
anz=300, speed=3, xScreen=800, yScreen=600
var stern_x[1000]
var stern_y[1000]
var stern_z[1000]

func StarInit()
i=1
while i < anz
   stern_x[i] = -400  * Rand(xscreen/8)
   stern_y[i] = -300  * Rand(yscreen/8)
   stern_z[i] = Rand(155)
   i=i+1
wend
Endfn

Func StarUpdate()
i=1
while i < anz
   stern_z[i] = stern_z[i] - speed
   if stern_z[i] < speed : stern_z[i] = 255 : endif
   s_x = (stern_x[i] / stern_z[i]) + (xscreen)
   s_y = (stern_y[i] / stern_z[i]) + (yscreen )
   'color =255 - stern_z(i)
   fcolor 120 , 180 ,250
   rect s_x, s_y, 2, 2:
   i=i+1
wend
EndFn

StarInit()
run=1
While run=1
rect 0,0,800,600
'anz = rand(500)
StarUpdate()
swap

Wend

[mnrvovrfc]

Code: (Select All)

'star travel copyright by (c)Peter Wirbelauer in o2
'you don't have permission to re-distribute code
'micro(A) version by Aurel (c)AurelSoft

What you're doing is not right. It might be "legal" enough, but it says many things about you. The original author of the program puts down the "( c )" and then reinforces his wishes. I hope you at least consulted with him before even doing the port.

Also you put your own "( c )" as if you really didn't care where it came from. You could have left out the first two lines of the comment for greater effect.

Probably it would have placated Mr. Wirbelauer if you did the port but didn't post it anywhere online, but simply kept it with the other examples for micro(A), to be checked out the next time you offer the download for your interpreter.

Sorry, had to write the copyright symbol like that because the forum converts the "true" one into a single character.

[TerryRitchie]

Code: (Select All)

'star travel copyright by (c)Peter Wirbelauer in o2
'you don't have permission to re-distribute code
'micro(A) version by Aurel (c)AurelSoft

What you're doing is not right. It might be "legal" enough, but it says many things about you. The original author of the program puts down the "( c )" and then reinforces his wishes. I hope you at least consulted with him before even doing the port.

Also you put your own "( c )" as if you really didn't care where it came from. You could have left out the first two lines of the comment for greater effect.

Probably it would have placated Mr. Wirbelauer if you did the port but didn't post it anywhere online, but simply kept it with the other examples for micro(A), to be checked out the next time you offer the download for your interpreter.

Sorry, had to write the copyright symbol like that because the forum converts the "true" one into a single character.

I remember reading somewhere that the use of (c) is not a legitimate copyright symbol because the c is not encircled, basically making the addition of (c) in code worthless. In fact, I believe in the late 80's a rule came out that the use of the copyright symbol is no longer needed as all works now enjoy the benefits of copyright without it.

[aurel]

I expect such a reaction...don't worry it is a joke

[aurel]

TESTING ...

SetFont

This is not directly with strings but is with FONTS
i add for testing

SetFont  fontHeight, fontWidth, fontFlag, fontName

internal code :

Code: (Select All)

case tkSETFONT
        'exec setfont-----------------------------
        'fontHeight, fontWidth , fontFlag : string fontName
        gettok()
            fontHeight = expr()
        gettok()
            fontWidth = expr()
        gettok()
            fontFlag = expr()
        gettok()
            fontName = strExpr()
        'call winFont...
        WindowFont( fontHeight, fontWidth, fontFlag, fontName)

[aurel]

Here is a short example :