11-15-2023, 07:11 PM
(This post was last modified: 11-15-2023, 11:06 PM by James D Jarvis.)
being able to load SVGs into memory gives QB64 Phoenix Edition programs a very powerful vector drawing tool.
This in effect gives us a better draw command.
Here's a simple example that takes a two dimensional array of points and converts it to an SVG to be rendered.
This in effect gives us a better draw command.
Here's a simple example that takes a two dimensional array of points and converts it to an SVG to be rendered.
Code: (Select All)
'arrayto_svg v0.1 'by James D. Jarvis 11/15/2023, QB64 3.9.0 or higher required 'Convert a two-dimensional numerical array into an SVG and draw that SVG on the screen ' 'made possible due to the SVG example in the QB64 Phoenix Edition WIKI example for _LOADIMAGE '$dynamic $Resize:Smooth Dim As String svg Dim img As Long Dim a(3, 2), b(4, 2) Screen _NewImage(1000, 500, 32) a(1, 1) = 100: a(1, 2) = 100 a(2, 1) = 100: a(2, 2) = 200 a(3, 1) = 200: a(3, 2) = 200 svg = arrayto_svg$(a(), 20, "#EEEEEE", "#557733") 'convert the array a() into a closed polygon in an SVG img = _LoadImage(svg, 32, "memory") 'load that SVG into the image _PutImage , img 'draw the image _FreeImage img 'free the image b(1, 1) = 300: b(1, 2) = 200 b(2, 1) = 600: b(2, 2) = 200 b(3, 1) = 600: b(3, 2) = 300 b(4, 1) = 300: b(4, 2) = 300 svg = arrayto_svg$(b(), 5, "#770000", "#FFCCCC") 'convert the array a() into a closed polygon in an SVG img = _LoadImage(svg, 32, "memory") 'load that SVG into the image _PutImage , img 'draw the image _FreeImage img 'free the image Function arrayto_svg$ (aop(), swid, sklr As String, fklr As String) 'convert a two dimensional numerical array aop(p,2) to a closed polygon to draw as an SVG Dim nsvg As String maxp = UBound(aop) nsvg = "<?xml version='1.0' encoding='utf-8'?>" nsvg = nsvg + "<!-- Generator: QB64_SVG, SVG Export . SVG Version: 6.00 Build 0) -->" nsvg = nsvg + "<svg version='1.2' baseProfile='tiny' id='Layer_1' xmlns='http://www.w3.org/2000/svg' xmlns:xlink='http://www.w3.org/1999/xlink'" nsvg = nsvg + " x='0px' y='0px' viewBox='0 0 1000 500' overflow='visible' xmlpace='preserve'>" nsvg = nsvg + "<g>" nsvg = nsvg + "<path fill='" + fklr + "' stroke='" + sklr + "' stroke-width='" + _Trim$(Str$(swid)) + "' stroke-miterlimit='10' d='M" For p = 1 To maxp nsvg = nsvg + Str$(aop(p, 1)) + "," + Str$(aop(p, 2)) + "," Next p nsvg = nsvg + Str$(aop(1, 1)) + "," + Str$(aop(1, 2)) nsvg = nsvg + "'/>" nsvg = nsvg + "</g>" nsvg = nsvg + "</svg>" arrayto_svg$ = nsvg End Function
