[Fractint] Outside coloring = tdis

21 Jul 2002


      Outside coloring = tdis.


David Dollevoet
djd@bytemeusa.com


DD020719.par-----------------------------------------------------

in=0_out=iter      { ; (c) David Dollevoet 2002
                     ;  Version 2002 Patchlevel 3
  reset=2002 type=formula formulafile=DD020719.FRM formulaname=DD_AA1
  function=acos/cosh/ident/ident passes=2
  center-mag=+0.00000000000000000/+0.00000000000000000/13817
  params=2/1.02/0.93/0.95 float=y maxiter=56 inside=0
  periodicity=0 sound=off
  colors=000TIERFDPCCK8BTHJbRTj`ashjiZjaQjSHjYOjbUjgajnflmhf<3>cZYUO\
  YVNSSLQXQU_TYbZafebhgdjjgnnjlljiiigghdcfa`dZYcUTbRQ_NKXQNZTQ`VTbZT\
  caYedaggcijeloioqlptorrjnnehiaceXZaRTYKOTFHTFPUFUXFaYFgZEodKndKmdK\
  jdLicLgcLecNd<3>bOZbPYbPV<3>aRO<4>`TT`UU_UV_VX_XY<3>YZaYZbY_bX`c<5\
...
YYcYXcZVc<3>_Tc_Sc_Sc_Rc`Qc_Rb_Rb<4>YT_YTZXUYXUXVVV<3>USSURRURR<8\
SOOSNNRNNRNNRLLRLLQKKRKKSLKTLKUNK<3>ZPK_PK`QK<3>cSKdSKeTKfTIgUGhV\
  EjXB<3>p_2<3>lYBjYDiXGhXIgVLeUP<2>fTIgSGgSC<2>iQ6jP3iP3<3>cK4bJ4aI\
  4`H4YG5YG5_G5<3>bK9bLAbOB<4>fUHgVIhXJiYKjZLl`O<2>l_Nl_Nl_L<3>lYKlY\
  JlXJlXIlXIlVHlVHjUG<9>hOAhN9gL9<4>fI6fI5fH4fH4fG3eF2<4>dH7
  }
in=0_out=tdis      { ; (c) David Dollevoet 2002
                     ;  Version 2002 Patchlevel 3
  reset=2002 type=formula formulafile=DD020719.FRM formulaname=DD_AA1
  function=acos/cosh/ident/ident passes=2
  center-mag=+0.00000000000000000/+0.00000000000000000/13817
  params=2/1.02/0.93/0.95 float=y maxiter=56 inside=0
  outside=tdis periodicity=0 sound=off
  colors=000TIERFDPCCK8BTHJbRTj`ashjiZjaQjSHjYOjbUjgajnflmhf<3>cZYUO\
  YVNSSLQXQU_TYbZafebhgdjjgnnjlljiiigghdcfa`dZYcUTbRQ_NKXQNZTQ`VTbZT\
  caYedaggcijeloioqlptorrjnnehiaceXZaRTYKOTFHTFPUFUXFaYFgZEodKndKmdK\
  jdLicLgcLecNd<3>bOZbPYbPV<3>aRO<4>`TT`UU_UV_VX_XY<3>YZaYZbY_bX`c<5\
YYcYXcZVc<3>_Tc_Sc_Sc_Rc`Qc_Rb_Rb<4>YT_YTZXUYXUXVVV<3>USSURRURR<8\
SOOSNNRNNRNNRLLRLLQKKRKKSLKTLKUNK<3>ZPK_PK`QK<3>cSKdSKeTKfTIgUGhV\
  EjXB<3>p_2<3>lYBjYDiXGhXIgVLeUP<2>fTIgSGgSC<2>iQ6jP3iP3<3>cK4bJ4aI\
  4`H4YG5YG5_G5<3>bK9bLAbOB<4>fUHgVIhXJiYKjZLl`O<2>l_Nl_Nl_L<3>lYKlY\
  JlXJlXIlXIlVHlVHjUG<9>hOAhN9gL9<4>fI6fI5fH4fH4fG3eF2<4>dH7
  }
in=fmod_out=tdis   { ; (c) David Dollevoet 2002
                     ;  Version 2002 Patchlevel 3
  reset=2002 type=formula formulafile=DD020719.FRM formulaname=DD_AA1
  function=acos/cosh/ident/ident passes=2
  center-mag=+0.00000000000000000/+0.00000000000000000/13817
  params=2/1.02/0.93/0.95 float=y maxiter=56 inside=fmod
  outside=tdis periodicity=0 sound=off
  colors=000TIERFDPCCK8BTHJbRTj`ashjiZjaQjSHjYOjbUjgajnflmhf<3>cZYUO\
  YVNSSLQXQU_TYbZafebhgdjjgnnjlljiiigghdcfa`dZYcUTbRQ_NKXQNZTQ`VTbZT\
  caYedaggcijeloioqlptorrjnnehiaceXZaRTYKOTFHTFPUFUXFaYFgZEodKndKmdK\
  jdLicLgcLecNd<3>bOZbPYbPV<3>aRO<4>`TT`UU_UV_VX_XY<3>YZaYZbY_bX`c<5\
YYcYXcZVc<3>_Tc_Sc_Sc_Rc`Qc_Rb_Rb<4>YT_YTZXUYXUXVVV<3>USSURRURR<8\
SOOSNNRNNRNNRLLRLLQKKRKKSLKTLKUNK<3>ZPK_PK`QK<3>cSKdSKeTKfTIgUGhV\
  EjXB<3>p_2<3>lYBjYDiXGhXIgVLeUP<2>fTIgSGgSC<2>iQ6jP3iP3<3>cK4bJ4aI\
  4`H4YG5YG5_G5<3>bK9bLAbOB<4>fUHgVIhXJiYKjZLl`O<2>l_Nl_Nl_L<3>lYKlY\
  JlXJlXIlXIlVHlVHjUG<9>hOAhN9gL9<4>fI6fI5fH4fH4fG3eF2<4>dH7
  }
DD020719.frm------------------------------------------------------

DD_AA1 {;(c) David Dollevoet 1998
  IF (REAL(P1) || IMAG(P1))
      Q1 = P1
    ELSE
      Q1 = PIXEL
    ENDIF
  Q1R = REAL(Q1), R1R = 8^(ABS(Q1R))
  IF (Q1R >= 0)
      S1R = 1
    ELSE
      S1R = -1
    ENDIF
  Q1I = IMAG(Q1)
  IF (REAL(P2) || IMAG(P2))
      Q2 = P2
    ELSE
      Q2 = PIXEL
    ENDIF
  Q2R = REAL(Q2), Q2I = IMAG(Q2)
  Z = PIXEL
  :
  Z = Q1I*FN1(FN2(Q2R*Z))+FN3(FN4(Q2I*Z))
  ZM = |Z|
  Q2R = Q2R*S1R
  ZM <= R1R
  }

end data----------------------------------------------------------