.SVG <path> line drawer

#SingleInstance force

fileName := "sample.svg"
offsetX := 100
offsetY := 100
scale := 1

!a::    Reload
!s::    main()

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

getX(line)
{
    global offsetX, scale
    return (RegExReplace(line, "^.*?([+-]?[0-9\.]+).*$", "$1") * scale) + offsetX
}

getY(line)
{
    global offsetY, scale
    return RegExReplace(line, "^.*,([+-]?[0-9.]+)$", "$1") * scale + offsetY
}

getOp(line)
{
    return RegExReplace(line, "(.).*$", "$1")
}

main()
{
    global fileName
    file := FileOpen(fileName, "r")
    text := file.Read()
    file.Close()

    data := RegExReplace(text, "is)^.*?<path[^>]+?d=['""]([^>]+?)['""].*$", "$1") ;scrape path data
    data := RegExReplace(data, ".*?([A-Za-z]?)[ \t\n\r]*?([+-]?[-0-9\.]+)[ \t\n\r,]*?([+-]?[-0-9\.]+)", "$1 $2,$3_") ;scrape path data in uppercase
    data := RegExReplace(data, "_$", "")

    Loop, Parse, data, _
    {
        if (old && getOp(A_LoopField) != "M" && getOp(A_LoopField) != "z")
            MouseClickDrag, L, getX(old),getY(old), getX(A_LoopField),getY(A_LoopField)
        old := A_LoopField
    }
}