Carr2056 {
; Updated for UF2 by Erik Reckase, March 2000
; Modified Sylvie Gallet frm.
init:
z=conj(pixel)^4-tan(.0002/pixel)-sin(.0002/pixel)
c=(-.7456,-.03)+.009/pixel
float compt=0, float limit=real(p1*cos(pixel/5))
float bailout=4
loop:
IF (compt>=limit)
c = (-.745680900000982,-.131850030300002)
ENDIF
z=z*z + c
compt=compt+1
bailout:
|z|<=bailout
default:
title = "Carr 2056"
periodicity = 0
maxiter = 500
magn = 1.3
center = (0,0)
method = multipass
param p1
caption = "Iter Limit"
default = (100,0)
hint = "This iteration limit is scaled by the cosine of \
the current pixel divided by 5. The real part of \
this scaled iteration limit signals a change in the \
value of c."
endparam
}
http://u.115.com/file/f6c0dbd92e#
 Carr2056.gsp (33.04 KB)
|
