home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / f / fracxtr4.zip / FLIP.FRM < prev    next >
Text File  |  1992-03-17  |  1KB  |  69 lines
  1. phoenix_m { ; Mandelbrot stye map of the Phoenix curves
  2.    z=x=y=nx=ny=x1=y1=x2=y2=0:
  3.    x2 = sqr(x), y2 = sqr(y),
  4.    x1 = x2 - y2 + real(pixel) + imag(pixel) * nx,
  5.    y1 = 2 * x * y + imag(pixel) * ny,
  6.    nx=x, ny=y, x=x1, y=y1, z=x + flip(y),
  7.    |z| <= 4
  8.    }
  9. phoenix_j (XAXIS) { ; Use P1=0.56667/-0.5   &   .1/.8
  10.    x=real(pixel), y=imag(pixel), z=nx=ny=x1=x2=y1=y2=0:
  11.    x2 = sqr(x), y2 = sqr(y),
  12.    x1 = x2 - y2 + real(p1) + imag(p1) * nx,
  13.    y1 = 2 * x * y + imag(p1) * ny,
  14.    nx=x, ny=y, x=x1, y=y1, z=nx + flip(ny),
  15.    |z| <= 4
  16.    }
  17. non-conformal { ; From Media Magic Calender - August
  18.    z=x=y=x2=y2=0:
  19.    t = x * y,
  20.    x = x2 + t + real(pixel),  y = y2 - t + imag(pixel),
  21.    x2 = sqr(x),  y2 = sqr(y), z=x + flip(y),
  22.    |z| <= 4
  23.    }
  24. flip0_man_m(XAXIS) {
  25.    z=0:
  26.    z = flip(sqr(z) + pixel),
  27.    |z| <= 4
  28.    }
  29. flip0_man_j(ORIGIN) {
  30.    z=pixel:
  31.    z = flip(sqr(z) + p1),
  32.    |z| <= 4
  33.    }
  34. flip1_man_m {
  35.    z=0, q = pixel:
  36.    q = flip(q),
  37.    z = sqr(z) + q,
  38.    |z| <= 4
  39.    }
  40. flip1_man_j(ORIGIN) {
  41.    z=pixel, q = p1:
  42.    q = flip(q),
  43.    z = sqr(z) + q,
  44.    |z| <= 4
  45.    }
  46. flip2_man_m { ;
  47.    z=0, q = pixel:
  48.    q = flip(q),
  49.    z = flip(sqr(z) + q),
  50.    |z| <= 4
  51.    }
  52. flip2_man_j(ORIGIN) {
  53.    z=pixel, q = p1:
  54.    q = flip(q),
  55.    z = flip(sqr(z) + q),
  56.    |z| <= 4
  57.    }
  58. flip3_man_m(XAXIS) { ;
  59.    z = 0:
  60.    z = 1/flip(sqr(z) + pixel),
  61.    |z| <= 4
  62.    }
  63. flip3_man_j { ;
  64.    z = pixel:
  65.    z = 1/flip(sqr(z) + p1),
  66.    |z| <= 4
  67.    }
  68.  
  69.