Carr1997(XAXIS) {
; Updated for UF2 by Erik Reckase, March 2000
; Modified Sylvie Gallet frm. [101324,3444],1996
init:
z=c=pixel, c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
l1=round(real(p1)), l2=round(imag(p1))
l3=round(real(p2)), l4=round(imag(p2))
float bailout=16, int iter=0
loop:
IF (iter==l1)
z = 0, c = c1
ELSEIF (iter==l2)
z = 0, c = c2
ELSEIF (iter==l3)
z = 0, c = c3
ELSEIF (iter==l4)
z = 0, c = c4
ENDIF
z=z*z+c
iter=iter+1
bailout:
|real(z)| <= bailout
default:
title = "Carr 1997"
periodicity = 0
maxiter = 500
magn = 1
center = (0,0)
method = multipass
param p1
caption = "Iter Limits 1,2"
default = (100,150)
hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
for best results"
endparam
param p2
caption = "Iter Limits 3,4"
default = (200,250)
hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
for best results"
endparam
}
制作过程视频在这里:
http://u.115.com/file/f6336e267# |