'Angel feather.bas SmallBASIC 0.12.2 [B+=MGA] 2016-01-13 
'copy and modify PeterMaria's

sc= 0.5 : a = rnd*(99999999)/1000000000 : b = 0.933
t="Angel Feather"
zo="Zoom out"
zi="Zoom in"
color 12,0
pen on
while 1
  cls
  c = 2.0-2.0*a : x = 3.0 : a=0 : w=a*x+c*x*x/(1+x*x)
  for n=0 to 20000
                 'less than 0.0001 then x = rnd*(10)
    if abs(x)