defprocsetup
cls
ifsh then
print;"v=";v;" (up/down/v) vi=";vi;" () a=";a;" (1/2) b=";b;" (3/4) ii=";ii;" (5/6) ";
print;"bs=";bs;" (g/h) lr=";lr;" (l) vix=";vix;" (7/8) ps=";ps;" (p) ctr=";ctr;" (.) col=";col;" (c)"
casefunc of
when1print;"Move towards points in full number";
when2print;"Move towards one digit";
when3print;"cumulative digitsum";
when4print;"digit-by-digit digitsum";
when5print;"Sum all points";
endcase
print;" (d/f)"
endif
th=pi*2/v
gcol7
vv=0
forl=1tov
x1=xc+sin(th*l)*r
y1=yc+cos(th*l)*r
xj=(xc+sin(th*(l+1))*r-x1)/(vi+1)
yj=(yc+cos(th*(l+1))*r-y1)/(vi+1)
forl1=0tovi
vv+=1
x(vv)=x1+xj*l1
y(vv)=y1+yj*l1
nextl1
nextl
forl=1tovv
l1=l+1
ifl1>vv l1=1
linefnxy(xc,x(l)),fnxy(yc,y(l)),fnxy(xc,x(l1)),fnxy(yc,y(l1))
circlefillfnxy(xc,x(l)),fnxy(yc,y(l)),10
nextl
ifctr then
vv+=1
x(vv)=xc
y(vv)=yc
circlefillxc,yc,10
endif
forl=1tonmx
n(l)=0
nextl
n(1)=0
ni=1
procincnum
iflr then
i=ni
ix=-1
else
i=1
ix=1
endif
x=xc
y=yc
ab=a/b
xyi=1
s=0
new=false
k=-1
endproc

defprocfractal
repeat
casefunc of
when1
forl=1toni
procadd(n(l))
x+=(x(xyi)-x)*ab
y+=(y(xyi)-y)*ab
nextl
procincnum
when2
procadd(n(i))
x+=(x(xyi)-x)*ab
y+=(y(xyi)-y)*ab
procaddix
when3
s=0
forl=1toni
s+=n(l)
procadd(s)
x+=(x(xyi)-x)*ab
y+=(y(xyi)-y)*ab
nextl
procincnum
when4
s+=n(i)
procadd(s)
x+=(x(xyi)-x)*ab
y+=(y(xyi)-y)*ab
procaddix
when5
xx=0
yy=0
forl=1toni
procadd(n(l))
xx+=x(xyi)
yy+=y(xyi)
nextl
xx/=ni
yy/=ni
x+=(xx-x)*ab
y+=(yy-y)*ab
procincnum
endcase
ifx>0andx0andy-1ornew
endproc

defprocadd(ai)
xyi+=ai+ii
whilexyi>vv
xyi-=vv
endwhile
whilexyini ni=i
endproc

defprocaddix
i+=ix
ifi=0ori>ni then
procincnum
iflr then
i=ni
ix=-1
else
i=1
ix=1
endif
endif
endproc

deffnxy(p1,p2)
=p1+(p2-p1)*1.01
end