'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