Rose Pedal algorithm 2

@echo off & setlocal enabledelayedexpansion

    set /a "wid=60", "hei=60", "iMax=wid*hei"
    for /l %%i in (1 1 !iMax!) do set "widbuff= !widbuff!"
    set "Canvas=%widbuff%" & "bss=!Canvas: =!"
    mode %wid%,%hei%

    set "_SIN=a-a*a/1920*a/312500+a*a/1920*a/15625*a/15625*a/2560000-a*a/1875*a/15360*a/15625*a/15625*a/16000*a/44800000"
    set "SIN(x)=(a=(x * 31416 / 180)%%62832, c=(a>>31|1)*a, a-=(((c-47125)>>31)+1)*((a>>31|1)*62832)  +  (-((c-47125)>>31))*( (((c-15709)>>31)+1)*(-(a>>31|1)*31416+2*a)  ), %_SIN%) / 10000"
    set "COS(x)=(a=(15708 - x * 31416 / 180)%%62832, c=(a>>31|1)*a, a-=(((c-47125)>>31)+1)*((a>>31|1)*62832)  +  (-((c-47125)>>31))*( (((c-15709)>>31)+1)*(-(a>>31|1)*31416+2*a)  ), %_SIN%) / 10000"
    set "_SIN="

for /l %%r in (20,1,200) do (

    set /a "x=20 * !cos(x):x=7 * %%r! * !sin(x):x=%%r! + wid/2"
    set /a "y=20 * !cos(x):x=7 * %%r! * !cos(x):x=%%r! + hei/2"

    set /a "pos=x", "pos+=y * wid", "lL=pos-1", "lR=iMax-pos"
    for /f "tokens=1-3" %%a in ("!lL! !pos! !lR!") do (set "Canvas=!Canvas:~0,%%a!.!Canvas:~%%b,%%c!")
    cls & <nul set /p "=!Canvas:~0,-1!!bss!"
)
pause & exit