The image is the result of inorganic calculations but intimates red blood, the organic.
 Numbers are the product of the human mind. Life analyzes itself. Ready made
at http://maxitersfractalfollies.blogspot.com.


fract133.gif       { ; hemoglobin
                     ; blank
                     ; calctime   0:00:54.27
                     ; created May 01, 2010
                     ;  Fractint Version 2004 Patchlevel 9
  reset=2004 type=formula formulafile=_g.frm
  formulaname=general_jul-c&l center-mag=0/0/0.6666667
  params=0.8193304239020965/0.4449903866695151/1.456068605609302/0.1237220\
  374156926/0.1573534348582415/0.5277260658589434 float=y maxiter=1500
  inside=0 proximity=3 outside=fmod
  colors=000100200300400500600800900A00B00C00D00E00G00H00I00J00K00L00M00O0\
  0P00Q00R00S00T00U00W00X00Y00Z00_00`00a00c00d00e00f00g00h00i00k00l00m00n0\
  0o00p00q00s00t00u00v00w00x00z00z00z11z22z22z33z44z44z55z66z67z77z88z89z9\
  9zAAzABzBBzCCzCDzDEzEEzEFzFGzGGzGHzHIzIIzIJzJKzKLzKLzLMzMNzMNzNOzOPzOQzP\
  QzQRzQSzRSzSTzSUzTUzUVzUWzVXzWXzWYzXZzYZzY_zZ`z_`z_az`bzaczaczbdzcezcezd\
  fzegzfhzfhzegzegzdfzdfzcezcezbdzbczaczabz`bz`az_azZ`zZ_zY_zYZzXZzXYzWYzW\
  XzVXzVWzUVzUVzTUzSUzSTzRTzRSzQRzQRzPQzPQzOPzOPzNOzNOzMNzLMzLMzKLzKLzJKzJ\
  KzIJzIIzHIzHHzGHzGGzFGzEFzEFzDEzDDzCDzCCzBCzBBzABzAAz99z99z88z78z77z67z6\
  6z56z55z44z44z33z33z22z22z11z00y00x00w00v00u00t00s00q00p00o00n00m00l00k0\
  0j00h00g00f00e00d00c00b00a00_00Z00Y00X00W00V00U00T00R00Q00P00O00N00M00L0\
  0K00I00H00G00F00E00D00C00B00900800700600500400300200000
  }
frm:general_jul-c&l {
        ;
        ; For Kerry Mitchell's explanation of the "circle & line"
        ;    coloring method, see the end of formula
        ;    general_man-c&l
        ;
        ; "general circle & line" coloring method for Julia sets
        ; c = Julia parameter, hardcoded
        ; p1 = x-circle center
        ; real(p2) = x-circle radius
        ; imag(p2) = y-line a
        ; real(p3) = y-line b
        ; imag(p3) = y-line c
        ; bailout hardcoded to 10^12
        ; use "decomp=256" coloring
        ;
  zc=pixel, c=(0,1), bailout=1e12, iter=1, rmin=1e12
  cenx=p1, radx=real(p2), rad2x=radx*radx
  ay=imag(p2), by=real(p3), cy=imag(p3):
  iter=iter+1, zc=sqr(zc)+c
  tempx=|zc-cenx|-rad2x
  tempy=ay*real(zc)+by*imag(zc)+cy
  temp=tempx+flip(tempy), r=|temp|
  IF (r<rmin)
    rmin=r, z=temp
  ENDIF
  IF ((|zc|>bailout)||(iter==maxit))
    iter=-1
  ENDIF
  iter>0
  ;SOURCE: 98msg.frm
}
Roger Alexander