murano2 {
fractal:
  title="murano2" width=1024 height=768 numlayers=1
layer:
  caption="Layer 1" visible=yes alpha=no
mapping:
  center=0.255862202011289201/0.191741289014667644 magn=1.509853771720951
  angle=315.600538819245474 numtransforms=1
transform:
  filename="Fractint.uxf" entry="ViewWindow" p_ar=0.75
formula:
  filename="zg.frm" entry="murano" maxiter=100 percheck=normal
inside:
  filename="mac.ucl" entry="Mac013" transfer=linear repeat=yes p_skip=1
  p_colors=128 p_range=10 p_boost=1 p_Radius=0.18 p_CircleOff=0.05
  f_fn1=sin
outside:
  filename="mac.ucl" entry="Mac013" transfer=linear repeat=yes p_skip=1
  p_colors=128 p_range=10 p_boost=1 p_Radius=0.18 p_CircleOff=0.05
  f_fn1=ident
gradient:
  smooth=no numnodes=5 index=22 color=5300193 index=80 color=1656688
  index=199 color=9483427 index=272 color=2397803 index=359 color=561136
}


zg.frm:murano {; Giuseppe Zito
 z = pixel ,

c2 = 0.68162298

c12 = -0.093601

c16 = -0.26411101

c26 = 0.004199

c29 = 0.251564

c31 = -0.80334002

d1 = -0.95945197

d5 = -0.458745

d12 = -1.08000004

d15 = -0.27162501

d19 = -0.562644

d20 = 0.646236

  : 
 x = real(z), y = imag(z)

s0 = y

s0 = s0 /c2

s1 = x

s0 = s0 +s1

s0 = s0 *y

s0 = s0 +x

s1 =c12

s1 = s1 /x

s1 = s1 /c16

s1 = s1 *x

s0 = s0 *s1

s0 = s0 +y

s0 = s0 -y

s0 = s0 +x

s0 = s0 *c26

s0 = s0 /x

s0 = s0 *x

s0 = s0 -c29

s0 = s0 /c31

s0 = s0 -y

newx = s0 

s0 = y

s0 = s0 /d1

s0 = s0 +y

s0 = s0 *y

s0 = s0 -d5

s0 = s0 -y

s0 = s0 +y

s1 =d12

s1 = s1 *x

s1 = s1 /x

s1 = s1 -d15

s0 = s0 *s1

s0 = s0 /x

s0 = s0 -d19

s0 = s0 *d20

s1 = y

s0 = s0 *s1

s0 = s0 +x

newy = s0 

z = newx + flip(newy)
 newx < 4 && newx > -4 && newy < 4 && newy > -4 
}

mac.ucl:Mac013 { ; Marcelo Anelli
; May 27, 1999
; based on Petals_Series_Mset Copyright (c) Paul W. Carlson
init:
  bool done = FALSE
  float itera = 0
  float d = 1e20
  float indice = 0.0
  float actual = 0.0
  float r = @Radius
  float ro = r + r * @CircleOff
  float r2 = r * r
  float f = 1 - 2 * @CircleOff - @CircleOff * @CircleOff
  float k = @CircleOff * r + r * sqrt(f)  
  float plsqd = 2 * r2 * f        
  float factor = @range / plsqd
loop:
  complex w2 = #z * #z
  complex w4 = 0.01 * w2 * w2
  complex w8  = w4 * w4
  complex w12 = w4 * w8
  complex w16 = w4 * w12
  complex w = w2 - w4 - w8 - w12 - w16
  if (itera > @skip)
    float wr = real(w)
    float wi = imag(w)
    bool c1 = (((wr-ro) * (wr - ro) + wi * wi) < r2)
    bool c2 = ((wr * wr + (wi + ro) * (wi + ro)) < r2)
    bool c3 = (((wr + ro) * (wr + ro) + wi * wi) < r2)
    bool c4 = ((wr * wr + (wi-ro) * (wi-ro)) < r2)
    if (c1 && c4)
      done = TRUE
      float d = (wr - k) * (wr - k) + (wi - k) * (wi - k)
    elseif (c1 && c2)
      done = TRUE
      d = ( wr - k) * ( wr - k) + (wi + k) * (wi + k)
    elseif (c2 && c3)
      done = TRUE
      d = (wr + k) * (wr + k) + (wi + k) * (wi + k)
    elseif (c3 && c4)
      done = TRUE
      d = (wr + k) * (wr + k) + (wi - k) * (wi - k)
    endif
  endif
  if (done == TRUE )
    d = cabs(@fn1(d))
    indice = factor * d + @colors * actual
  elseif (itera == #maxiter - 2)
    done = TRUE
    indice = 251
  endif
  actual = actual + @boost
  if (actual >= @range)
    actual = 0
  endif
  itera = itera + 1
final:
  #index = indice * @range / @colors
default:
  title = "mac.ucl:Mac013"
  param skip
    default = 1
  caption = "Iteration to skip"
  endparam
  ;param c
  ;  caption = "Julia Coordinates"
  ;  default = (0.0 , 0.0)
  ;endparam
  param colors
    default = 128.0
    caption = "Colors range"
  endparam
  param range
    default = 10.0
    caption = "Colors in each range"
  endparam
  param boost
    caption = "Range color increments"
    default = 1.0
  endparam
  param Radius
    caption = "Circles radius"
    default = 0.18
    hint = "Controls petal width."
  endparam
  param CircleOff
    caption = "Circles offset"
    default = 0.05
    hint = "Controls petals offset."
  endparam
  func fn1
    default = ident()
  caption = "Calculation function"
  endfunc
}