If one ever needs to determine if a calculation generates a Nan result or an INF result, they can always use the following little snippet of code:

Save as isnan.h:

DECLARE LIBRARY "isnan"

    FUNCTION IsNan% (BYVAL n AS _FLOAT)

    FUNCTION IsInf% (BYVAL n AS _FLOAT)

END DECLARE

PRINT IsNan(0 / 0), IsInf(0 / 0)

PRINT IsInf(1 / 0), IsInf(1 / 0)

PRINT IsInf(0 / 1), IsInf(0 / 1)

polyFT almost working in QBJS.  I just haven't figured out how to make it look good with thicker lines using the 2d graphic library functions yet but it is working with lines of one pixel thick.

[qbjs]'polyFT in QBjs
'v 0.5
'haven't quite figure out how to make the this look good with thicker lines but it works fine at one pixel wide
Import G2D From "lib/graphics/2d.bas"

Randomize Timer
For i = 0 to 100
polyFT Rnd * 640, Rnd * 400,rnd*30+30,int(3+rnd*12),int(rnd*360),_rgb32(int(rnd*256),int(rnd*256),int(rnd*256)),_rgb32(int(rnd*256),int(rnd*256),int(rnd*256))
_Limit 200
Next i


Sub polyFT (cx As Long, cy As Long, rad As Long, sides As Integer, rang As Long, klr As _Unsigned Long, lineyes As _Unsigned Long)
    'draw an equilateral polygon using filled triangle for each segment
    'centered at cx,cy to radius rad of sides # of face rotated to angle rang of color klr and lineyes if there is an outline, a value 0 would create no outline
    Dim px(sides)
    Dim py(sides)
    pang = 360 / sides
    ang = 0
    For p = 1 To sides
        px(p) = cx + (rad * Cos(0.01745329 * (ang + rang)))
        py(p) = cy + (rad * Sin(0.01745329 * (ang + rang)))
        ang = ang + pang
    Next p
    For p = 1 To sides - 1
    line (cx,cy)-(px(p),py(p)),klr
    G2D.FillTriangle cx,cy,px(p),py(p),px(p+1),py(p+1),klr
    Next p
    line (cx,cy)-(px(sides),py(sides)),klr
    G2D.FillTriangle cx,cy,px(sides),py(sides),px(1),py(1),klr
  if lineyes>0 then
  for p =1 to sides-1
    Line (px(p), py(p))-(px(p + 1), py(p + 1)), lineyes
  next
  Line (px(sides), py(sides))-(px(1), py(1)), lineyes
  end if
End Sub[/qbjs]

I've been playing with the DRAW command lately.  It's such a powerful command, and one I haven't fully explored/learned.   I know you can set the graphics cursor position using PSET, and also using commands in the DRAW statement, but I was wondering how to get where the current graphics cursor position DRAW is at?  For instance, in this code below how would I know when DRAWs graphics cursor position goes off screen here so I could reset it?

(BTW, @dbox, running this in QBJS, the output is different)

- Dav

Screen _NewImage(600, 600, 32)



Dim p, p$, ang, a$ '<- for QBJS compat



Do

    p = p + .05

    p$ = "D" + Str$(p)



    ang = ang + 10

    a$ = "TA" + Str$(ang)



    Draw p$ + a$



    _Limit 100



Loop

Hello all,

Niya is a 2 player abstract strategy board game.



[attachment=2244]

ADDITION in response to Steve's request:

Quote:Me not being at all interested in re-architecting all of wwwBASIC to handle RGBA colours, I'm instead setting up BAM with a library of "Rgba" functions to call as alternatives to "LINE", "CIRCLE", whatever when alpha blending is desired.

This is just a program, built with the "development" version of BAM, to test the "RgbaBox" statement.

Quote:I don't use mobile devices, and just found out that folk with mobile devices have to (I think) install a "Reddit app" to access any Reddit post.  That sucks.

So here's a copy/paste from that Reddit:

* [Run the program](https://basicanywheremachine.neocities.o...c.prod.run)
* [View the source code](https://basicanywheremachine.neocities.o...c.prod.bas)

1. I don't know but perhaps I am going blind. Where has the link to the latest version of QB64PE gone? I can't see it anywhere on here.
   
2. I have come across a site that has a link to the Microsoft Knowledge base for Microsoft Basic & QuickBASIC versions 1.0 to 4.5, Microsoft BASIC PDS versions 7.0 and 7.1 and Microsoft BASIC for Macintosh, versions 1.00 to 1.00e. This is the same as what MS Support used to use. Has this MSKB been posted on here before and if not, would there be any interest in my posting the link to the page hosting it.
   
3. Back in the early 90s I wrote several libraries for the FST (Fitted Software Tools) Modula-2 compiler including giving it basic CGA graphics capability. One of the things I wrote was a Seed/Flood fill routine. Would there be any interest in my attempting to convert that routine to QB64 purely for educational purposes?
   
4. Lastly, has anyone written a set of stack routines for QB64PE? This is just a matter of time saving as obviously I could use arrays for this purpose.
   

Can QBJS handle our OpenGl commands, like we'd use in SUB _GL?

This version should dynamically size to either 970 or 1400 based on the available space (assuming the qbjsbanner tag is dynamically setting the width).

Also, you can click in the banner to take control of the player jump:

My memory is sharp but short. Where a same number is divided by itself the resultant is 1 ( ie 1/1 , 2/2 etc) in keeping with this I'm trying to catch a NAN result and convert it to the value of 1. So NAN doesn't seem to be a numeric nor a string. Is there a way to trap NAN and force a value of 1 ??

Sorry if this was mentioned before.  The site need color themes.  Dark mode has to one of them.