(05-29-2023, 04:50 PM)dbox Wrote:

(05-29-2023, 11:20 AM)Coolman Wrote: if you combine your project with Electron to generate stand-alone, cross-platform desktop applications, it will be much more interesting and will surely attract many developers...

Hey @Coolman, thanks for the suggestion.  There has actually already been a little bit of research into this already.  @grymmjack was posting on Discord just recently about some work he did to be able to build electronjs-based standalone executables from VSCode.  The concept actually works pretty well, though it does produce some very large executables (since it has to bundle a chromium browser).

At present, however, this isn't a major focus for me.  There is already a good way to make multi-platform, standalone executables with QBasic syntax... and that is QB64.  I'm not aiming to create a replacement for QB64.  For me it is about extending the reach of this fun and approachable syntax to the web and mobile.  Perhaps, I'll dedicate a separate thread to expand further on the motivation and goals of the project.

(05-26-2023, 06:23 PM)dbox Wrote: Hi All,

The latest version of QBJS (0.7.0) is now available.  Here are some highlights for this release:

(05-29-2023, 11:59 PM)grymmjack Wrote: Rad, @dbox

Looks like you've been keeping up on the docs too! Great!

Congrats on this milestone

(05-31-2023, 03:15 PM)mnrvovrfc Wrote: All of them look good but my eyes are beginning to fail me out of looking at bright screens.

Now it's possible to have an active screen instead of relying on Inkscape or other SVG processor, for bezier curves and stuff like that.

Great job!

(05-26-2023, 07:04 PM)dbox Wrote: Here are some mods from @bplus' excellent collection of proggies that use some of the new graphics methods:

Diamond Spaceship (FillTriangle)
Goldwave (FillTriangle)
Easy Spiral (FillCircle)
X-mas Star (RotoZoom)
Infinite Heart (FillCircle)
Guts (FillCircle)
Celtic Knot (FillCircle, FillEllipse)

The final example also demonstrates how to use the "$If WEB" metacommand to conditionally use the new graphics commands when in QBJS, but still have a version that will compile and run in QB64.

Import FS From "lib/io/fs.bas"

Import G2D From "lib/graphics/2d.bas"



Dim Shared img As Long



Screen _NewImage(600, 600, 32)



Print "Welcome to Image Decorator!"

Print "Press any key to upload an image file..."

Sleep



' Prompt the user to upload a PNG file 

' and save it to the temp directory

' Call the OnUpload sub with complete

MkDir "temp"

FS.UploadFile "temp", ".png, .jpg", sub_OnUpload



' Wait for the image to be uploaded

Do

    _Limit 60

Loop Until img



' Decorate the image

DecorateImage



' Make a copy of the image

Dim imgCopy As Long

imgCopy = _CopyImage(_Dest)



' Save the image

Color 0

_PrintMode _KeepBackground

Print "Press any key to save the new image..."

Sleep



' Save the image to the virtual file system

G2D.SaveImage imgCopy, "temp/newimage.png"



' Prompt the user to download the image file

FS.DownloadFile "temp/newimage.png"





Sub OnUpload (filename As String)

    img = _LoadImage(filename)

End Sub



Sub DecorateImage

    ' Scale the image to fit the screen

    Dim As Double scale

    Dim As Integer w, h, x, y

    w = _Width(img)

    h = _Height(img)

    If w > h Then

        scale = h / w

        w = _Width

        h = w * scale

    Else

        scale = w / h

        h = _Height

        w = h * scale

    End If



    ' Center the image

    w = w - 50

    h = h - 50

    x = (_Width - w) / 2

    y = (_Height - h) / 2



    ' Draw a drop shadow

    Cls , 15

    G2D.Shadow _RGB(100, 100, 100), 8, 8, 15

    Line (x, y)-(x + w - 1, y + h - 1), 0, BF

    G2D.ShadowOff

    

    ' Draw the image

    _PutImage (x, y)-(x + w, y + h), img

End Sub