[Fractint] Metallic Plates

15 Sep 2010


      Today's fractal is from a Paul Carlson formula that uses the orbit trap
coloring algorithm. It suggests metal plates folded and stacked. The orbit trap
formulas are appealing because of the pseudo-3d effect they are capable of. 
I chose a map that gives a metallic sheen effect.

fract417.gif       { ; a metallic effect
                     ; blank
                     ; calctime   0:01:12.45
                     ; created Sep 14, 2010
                     ;  Fractint Version 2004 Patchlevel 9
  reset=2004 type=formula formulafile=frac_ml.frm formulaname=Eqn_5
  center-mag=-4.44089e-016/4.44089e-016/0.6548015/1/27.4999999999999929/-3\
  .77822773067748585e-014
  params=1.330027161473434/-0.2296517838068789/0.685644093142491/0.7185430\
  463576159/1/256 float=y maxiter=1000 outside=summ cyclerange=0/255
  colors=4DD4DD3CC3CC3CC2BB1BB1AA0AA0AA1BB1BB2CC2CC3DD3DD4DD4EE5EE5FF6FF6F\
  F7GG7GG8HH8HH9HH9IIAIIAJJBJJBJJCKKCKKDLLDLLELLFLLFMMGMMGNNHNNHOOIOOIPPJP\
  PJPPKQQKQQLRRLRRMSSMSSNTTNTTOTTOUUPUUPVVQVVQWWRWWRXXSXXSXXTYYTYYUZZUZZV_\
  _V__W``W``W``XaaXaaYaaYaaYbbYbbZbbZbb_cc_cc`dd`ddaddaeebeebffcffcffdggdg\
  gehhehhfiifiigiigjjhjjhkkikkikkjlljllkmmkmmlnnlnnmnnmoonoonppoppopppqqpq\
  qqrrqrrrrrrssssssttttttuuuuuuuuvvvvvvwwwwwwwwwxxxxxxyyyyyyyyyxxxxxxwwwww\
  wvvvvvvuvvuuutuutttsttsttrssrssqrrqrrprrpqqoqqoppnppnoomoomoolnnlnnlmmkm\
  mkmmjlljllikkikkhkkhjjgjjgiifiifiiehhehhdggdggcggcffbffbeeaeeaeeadd`dd`c\
  c_cc_ccZbbZbbYaaYaaXaaX``W``W__V__VZZUZZUZZTYYTYYSXXSXXRXXRWWQWWQVVQVVPV\
  VPUUOUUOTTNTTNTTMSSMSSLRRLRRKRRKQQJQQJPPIPPIPPHOOHOOGNNGNNFNNFMMFMMELLEL\
  LDLLDKKCKKCJJBJJBIIAIIAII9HH9HH8GG8GG7GG7FF6FF6EE5EE5EE
  }
frm:
Eqn_5 {; Copyright (c) Paul W. Carlson, 1998
    ; Always use float=y, outside=summ
    ;
    ; real(p1) = escape circle radius squared
    ; imag(p1) = 0 if Mset, non-zero if Julia set
    ; p2       = Julia set coordinates
    ; real(p3) = number of color ranges
    ; imag(p3) = number of colors in a range
    ;
  z = iter = range_num = bailout = 0
  IF (imag(p1) != 0)
    w = pixel
    c = p2
  ELSE
    w = 0
    c = pixel
  ENDIF
  prev_modw2 = 1.0e20
  rad2 = real(p1)
  num_ranges = real(p3)
  colors_in_range = imag(p3)
  colors_in_range_1 = colors_in_range - 1
  :
  w2 = w * w
  w = c * (1 - w2) / (1 + w2)
    ;
  IF ((prev_modw2 < rad2) * (|w| > rad2))
    bailout = 1
    index = colors_in_range_1 * (rad2 - prev_modw2) / rad2
    z = index + range_num * colors_in_range + 1
  ENDIF
  prev_modw2 = |w|
  range_num = range_num + 1
  IF (range_num == num_ranges)
    range_num = 0
  ENDIF
  iter = iter + 1
  z = z - iter
  bailout == 0
  ;SOURCE: 98msg.frm
}
Roger Alexander