[Fractint] Art and Numbers

5 Jun 2010


      A busy day yesterday and I didn't get to post. This must not become a habit.
       Art and algorithm. Two images are posted at http://maxitersfractalfollies.blogspot.com.
 One is a fractal the other is the painting "The Great Wave" by the Japanese artist Hokusai. 
 The similarity in designs is intriguing.

fract226.gif       { ; reminds me of Hokusai's "The Great Wave"
                     ; blank
                     ; calctime   0:09:17.17
                     ; created May 23, 2010
                     ;  Fractint Version 2004 Patchlevel 9
  reset=2000 type=formula formulafile=fract196.frm formulaname=Moe
  function=abs/cosxx
  center-mag=-0.04194775500193852/+0.48794277466039360/47.65718/1/-49.9999\
  999999999432/-1.14117049143658278e-013
  params=-0.6664326914273507/-0.7950987273781549 float=y maxiter=3600
  logmap=21 cyclerange=0/255
  colors=00T00U00W00X00Z00`00a00c00d00f00h00i00k00m01m03m04n06n07o09o0Ao0C\
  p0Ep0Fq0Hq0Iq0Kr0Lr0Ns0Ps0Qs0St0Tt0Vu0Wu0Yu0Zv0`v1`v3av4av6bv7cv9cvBdvCe\
  vEevFfwHgwIgwKhwMiwNiwPjwQkwSkwTlwVmxXmxYnx_nx`oxbpxcpxeqxgrxhrxjsyktymt\
  ynuypvyrvyswyuxyvxyxyyzzzzzzyyzxyzxxzwxzvwzuvzuvztuzsuzstzrszqszprzprzoq\
  znpznpzmozlozknzkmzjmzilzilzhkzgkzfjzfizeizdhzdhzcgzbfzafzaez`ez_dz_czZc\
  zYbzXbzXazW`zV`zV_zU_zTZzSZzSYzRXzQXzQWzPWzOVzNUzNUzMTzLTzLSzKRzJRzIQzIQ\
  zHPzGOzGOzFNzENzDMzDMzCLzBKzBKzAJz9Jz8Iz8Hz7Hz6Gz6Gz5Fz4Ez3Ez3Dz2Dz1Cz0B\
  z0Az08z07z06z04z03z02z00z00y00x00w00v00u00t00s00r00q00p00o00n00m00l00k00\
  j00i00h00g00f00e00d00c00b00a00`00_00Z00Y00X00W00V00U00T00S00R00Q00P00O00\
  N00M00L00K00J00I00H00G00F00E00D00C00B00A00900800700600500400300200000000\
  000000100300400600800900B00C00E00G00H00J00K00M00O00P00R
  }
frm:Moe {; Mutation of 'Zexpe'.
     ; Original formula by Lee Skinner [75450,3631]
     ; Modified for if..else logic 3/19/97 by Sylvie Gallet
     ; For 'Zexpe', set FN1 & FN2 = IDENT and P1 = default
     ; real(p1) = Bailout (default 100)
  s = exp(1.,0.), z = pixel, c = fn1(pixel)
     ; The next line sets test=100 if real(p1)<=0, else test=real(p1)
  IF (real(p1) <= 0)
    test = 100
  ELSE
    test = real(p1)
  ENDIF
  :
  z = fn2(z)^s + c
  |z| <= test
  ;SOURCE: fract196.frm
}
   Roger Alexander 		 	   		  
_________________________________________________________________
Learn more ways to connect with your buddies now
http://go.microsoft.com/?linkid=9734388