SVG lines to micro(A) string array initialization

[mnrvovrfc]

This is a program that processes an SVG file and creates code for micro(A). This attempts to "steal" coordinates in millimeters of a "plain" SVG file and present them into strings of run-on 4-digit numbers, which are X and Y absolute coordinate pairs. The values will have to be scaled for a graphics screen according to the maximum dimensions out of the SVG. It looks like the graphics screen of micro(A) is 780x570.

This could probably be done with "sodipodi" format, which is that of Inkscape, but it's not recommended. That program could insert a lot of transformation commands which would make for an uneven picture, and this effort by a hobbyist doesn't provision for that.

N.B. The SVG is expected to have relative coordinates, except the first point of each path. But this is translated into code which employs absolute coordinates. Directly copying from the original document to a QB64 graphics program requires PSET or something else to anchor, then "LINE" with "STEP" option to draw things relatively.

The run-on strings will have sequences of "99999999". This is a reset which means a new shape will begin with the next point listed, and should not connect with the previous coordinate that was obtained. I had to do it this way because micro(A) doesn't process strings very well. Originally it was going to be a string check for "######" for three-digit coordinates. This program shouldn't be used for very large vector pictures anyway.

I had to make more edits to the program to account for "z" at the end of path command. However this could come up with missing lines. I will need more time to look into this.

As it stands, this does not produce useable running micro(A) code, it only creates a couple of array variables and initializes them. I should also offer some simple code in micro(A) to put the lines together for the drawing. But my cohort protested. :/ But why since it's only "line" statements to use? In fact this could be translated into a QB64 or any BASIC program that supports graphics and has a line-drawing statement supporting absolute coordinates.

I got a bit lazy with this program. I was supposed to add Dav's routine to get filenames on Linux or Windows and display them in a nice box in SCREEN 0, and allow this for any version of QB64. Instead if you don't have Phoenix Edition v3.4 or later, you will have to type in a filename for a file that exists inside "(home)/Pictures". Including the directories. This is hard-coded. Yes I know it should be better.

Despite this caveat, this code should run on QB64 v2.0 and up. It does nothing fancy except parse a few values in text format.

There are more explanations as comments in the source code.

Neat trick of the QB64 IDE! It makes "pale" the code that the "conditional" decides doesn't apply for "$IF... THEN... $ELSE... $END IF".

User "roquedrivel" from "BASIC4US" forum helped with this program.

Code: (Select All)

'by mnrvovrfc 3-Aug-2023
'this needs extensive testing because Inkscape keeps mixing absolute and relative coordinates.
'it doesn't matter between "sodipodi" or "plain" SVG.
'GIMP exports paths in absolute coordinates only, but is clunkier to work with.
'this would be easier with relative coordinates only, with the first
'  "m" command of a path having the only absolute coordinate.
'it helps sometimes setting, before creating any document:
'  Preferences/Input and Output/SVG Output/Paths: choose "relative" from menu.
'this works with lines only! Not bezier paths! Any bezier paths need to have the
'  two control points reset: press [N] to choose node tool,
'  select the node then the first choice
'  on the toolbar for path nodes on the top of the screen.
'one more thing: from a plain SVG the measurement
'  is in millimeters *NOT* in pixels!
'This program is meant to be run from the terminal!
'It's up to you to select the terminal text, copy and then paste into a text editor
'  or into micro(A)'s editor. Then keep developing the script from there.
'If this is not satisfactory then the user is free to add code
'  to create an output file.
$CONSOLE:ONLY
OPTION _EXPLICIT
DIM SHARED sf(1 TO 20) AS STRING, sl(1 TO 20) AS STRING
DIM AS DOUBLE xx, yy, x0, y0, x1, y1
DIM AS LONG fe, x, y, u, v, gh, coma
DIM AS INTEGER g, h
DIM apath$, afile$, dee$, a$, c$, qu$, entry$
DIM f AS _BYTE, lut AS _BYTE
 
qu$ = CHR$(34)
 
h = 1
g = 0
gh = 0
sf(h) = "st[" + _TRIM$(STR$(h)) + "] = " + qu$
dee$ = " d=" + qu$
$IF WIN THEN
        apath$ = environ$("USERPROFILE") + "\Pictures\"
$ELSE
    apath$ = ENVIRON$("HOME") + "/Pictures/"
    '/" let's see if this fixes the "qb" code block bug on forum
$END IF
$IF VERSION < 3.4 THEN
        'sorry Dav's file list routine was supposed to be here...
        '  but that would require "direntry.h"
        PRINT "The current path now is "; apath$
        PRINT "Please type in the name of an SVG file to load."
        LINE INPUT afile$
        IF afile$ = "" THEN SYSTEM
        afile$ = apath$ + afile$
        IF NOT _FILEEXISTS(afile$) THEN
        PRINT "Unable to proceed!"
        PRINT "File not found: "; afile$
        END IF
$ELSE
    afile$ = _OPENFILEDIALOG$("Please choose an SVG file.", apath$, "*.svg", "Plain SVG")
    IF afile$ = "" THEN SYSTEM
$END IF
fe = FREEFILE
OPEN afile$ FOR INPUT AS fe
DO UNTIL EOF(fe)
    LINE INPUT #fe, entry$
    u = INSTR(entry$, dee$)
    IF u THEN
        lut = 0
        x = -1E+6
        y = -1E+6
        xx = 0
        yy = 0
        c$ = ""
        a$ = ""
        entry$ = MID$(entry$, LEN(dee$) + u)
        entry$ = LEFT$(entry$, LEN(entry$) - 1)
        PRINT entry$
        'trying to squash a bug where it refuses to read the final pair
        entry$ = entry$ + " "
        sf(h) = sf(h) + "99999999"
        gh = gh + 8
        g = g + 1
        v = 1
        u = INSTR(entry$, " ")
        DO WHILE u
            a$ = MID$(entry$, v, u - v)
            'must make sure there are lines only here.
            'might also have to check "M" and "m", this only assumes "m" at beginning
            '  is absolute coordinate.
            'this cannot handle "h" nor "v", requires manual editing of SVG file or a
            '  search-and-replace conversion in this program.
            'at last moment I had to make a provision for "z" which means draw a line,
            '  going back to the first (absolute) point of the path.
            IF a$ = "L" THEN lut = 1
            IF a$ = "l" THEN lut = 0
            IF a$ = "z" THEN EXIT DO
            IF LEN(a$) <> 1 THEN
                coma = INSTR(a$, ",")
                x1 = VAL(LEFT$(a$, coma - 1))
                y1 = VAL(MID$(a$, coma + 1))
                IF x = -1E+6 AND y = -1E+6 THEN
                    x0 = x1
                    y0 = y1
                    xx = x1
                    yy = y1
                    x = INT(xx)
                    y = INT(yy)
                ELSEIF lut THEN
                    xx = x1
                    yy = y1
                ELSE
                    xx = xx + x1
                    yy = yy + y1
                END IF
                outtheline
            END IF
            v = u + 1
            u = INSTR(v, entry$, " ")
        LOOP
        IF RIGHT$(entry$, 3) = " z " THEN
            xx = x0
            yy = y0
            outtheline
        END IF
        PRINT "---"
    END IF
LOOP
CLOSE fe
 
sf(h) = sf(h) + qu$
a$ = _TRIM$(STR$(h))
sl(h) = "sl[" + a$ + "] =" + STR$(gh)
 
PRINT "var i, j, x1, y1, x2, y2, xscale, yscale, xmove, first, stnumele"
PRINT "str a, b"
PRINT "str st["; a$; "]"
PRINT "var sl["; a$; "]"
FOR g = 1 TO h
    PRINT sf(g)
    PRINT sl(g)
NEXT
PRINT "stnumele ="; h + 1
PRINT "xscale = 1"
PRINT "yscale = 1"
PRINT "xmove = 0"
PRINT "wcolor 0, 0, 0"
PRINT "fcolor 255, 255, 255"
PRINT "i = 1"
PRINT "label lb02"
PRINT "    j = 1"
PRINT "    label lb03"
PRINT "        x1 = x2"
PRINT "        y1 = y2"
PRINT "        b = st[i]"
PRINT "        a = mstr(b, j, 4)"
PRINT "        x2 = val(a)"
PRINT "        if x2 = 9999"
PRINT "            first = 1"
PRINT "            j = j + 8"
PRINT "            goto cb03"
PRINT "        endif"
PRINT "        x2 = x2 * xscale"
PRINT "        x2 = x2 + xmove"
PRINT "        j = j + 4"
PRINT "        b = st[i]"
PRINT "        a = mstr(b, j, 4)"
PRINT "        y2 = val(a)"
PRINT "        y2 = y2 * yscale"
PRINT "        if first = 0"
PRINT "            line x1, y1, x2, y2"
PRINT "        endif"
PRINT "        if first = 1 : first = 0 : endif"
PRINT "    j = j + 4"
PRINT "label cb03"
PRINT "    if j < sl[i] : goto lb03 : endif"
PRINT "i = i + 1"
PRINT "if i < stnumele : goto lb02 : endif"
PRINT "swap"
SYSTEM
 
 
SUB outtheline ()
    SHARED AS LONG x, y, gh
    SHARED AS DOUBLE xx, yy
    SHARED AS INTEGER g, h
    SHARED qu$
    DIM hs$
    x = INT(xx)
    y = INT(yy)
    PRINT x; ","; y
    sf(h) = sf(h) + Zeroes$(x, 4) + Zeroes$(y, 4)
    gh = gh + 8
    g = g + 1
    IF g >= 80 THEN
        hs$ = _TRIM$(STR$(h))
        sf(h) = sf(h) + qu$
        sl(h) = "sl[" + hs$ + "] =" + STR$(gh)
        gh = 0
        g = 0
        h = h + 1
        hs$ = _TRIM$(STR$(h))
        sf(h) = "st[" + hs$ + "] = " + qu$
    END IF
END SUB
 
 
FUNCTION Zeroes$ (num AS LONG, numdig AS INTEGER)
    DIM b$, v AS LONG
    DIM AS INTEGER sg, hx
    IF num < 0 THEN sg = -1: num = num * -1
    IF numdig < 0 THEN hx = 1: numdig = numdig * -1 ELSE hx = 0
    IF hx THEN
        b$ = HEX$(num)
    ELSE
        b$ = LTRIM$(STR$(num))
    END IF
    v = numdig - LEN(b$)
    IF v > 0 THEN b$ = STRING$(v, 48) + b$
    IF sg = -1 THEN b$ = "-" + b$
    Zeroes$ = b$
END FUNCTION

[mnrvovrfc]

Please see the first post. Fixed it so the program generates output which is a complete micro(A) script.

[aurel]

Thanks @mnrvovrfc