c=r*c*(1-c):r=ABS(r-2*r*c):z=z+LOG(r):N.:v=-z*1.4+3+e+c(X%):IFv<0THENv=0ELSEIFv>6THENv=6
V%=v+.5:IFV%<0THENV%=0ELSEIFV%>6THENV%=6
E=v-V%:e=E*.44:IFX%THENn(X%-1)=n(X%-1)+E*.19
n(X%)=n(X%)+E*.31:IFX%<320THENn(X%+1)=n(X%+1)+E*.06
GC.0,V%:PL.69,X%*4,Y%*4:N.:N.
