Julia Set IBNIZ

\Julia set in IBNIZ
\written by real_het

\initialize x,y vars
2*2!2*3!

\calculate cx,cy
10rd  F2  *s0!
      F9  *s1!
     \^^x,y animation speeds

10,6! \loop counter
[
  2@3@*4!    \xy=x*y
  2@d*2!     \x*=x
  3@d*3!     \y*=y
  2@3@+5!    \z=x+y
  2@3@-0@+2! \x=x-y+cx
  4@d+1@+3!  \y=xy+xy+cy

  5@4-<      \bailout
  6@,1-d6!   \maxiter
*] \combine ifs, endloop

[email protected]^1977+ \palette fx