; Date: Sat, 9 Oct 2010 23:56:46 -0600 ; From: Roger Alexander ; Subject: [Fractint] Intimations of the Organic ; Id: ; --------- ; ; 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 (rbailout)||(iter==maxit)) iter=-1 ENDIF iter>0 ;SOURCE: 98msg.frm } ; Roger Alexander ; _______________________________________________ ; Fractint mailing list ; Fractint@mailman.xmission.com ; http://mailman.xmission.com/cgi-bin/mailman/listinfo/fractint ;