:ellipse x y r1 r2 function

:ellipse x y r r
        set /a "s=PI / 100 + (%~3 * %~4) + (%~3 * %~4)"
        for /l %%e in (0,5,!s!) do (
            set /a "x=%~3 * !sin(x):x=%%e! + %~1"
            set /a "y=%~4 * !cos(x):x=%%e! + %~2"
            set /a "_x2=x + 1"

            call set "_[!y!]=%%_[!y!]:~0,!x!%%%~5%%_[!y!]:~!_x2!%%"
        )
        for %%a in (s x y _x2) do set "%%a="
goto :eof