home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / a / allfrm.zip / EXPLODE.FRM < prev    next >
Text File  |  1992-02-14  |  3KB  |  197 lines
  1. { Here is the Fractint formula file used for EXPLOD.GIF on CIS - author
  2.   L.Kerry Mitchell - CIS 70152,1444.
  3.   Downloaded as part of EXPLOD.TXT 06 Jan 92 by Jon Horner and modified
  4.   to allow use of fn1 in place of sqr.
  5.   }
  6.  
  7. j1 {
  8.         z=pixel, c=p1:
  9.         z=sqr(z)+c,
  10.         c=c+p2,
  11.         |z| <= 4
  12.         }
  13.  
  14. F'Cetj1 {; fn1 added by Jon Horner
  15.         z=pixel, c=p1:
  16.         z=fn1(z)+c,
  17.         c=c+p2,
  18.         |z| <= 4
  19.         }
  20.  
  21. m1 {
  22.         z=0, c=pixel:
  23.         z=sqr(z)+c,
  24.         c=c+p1,
  25.         |z| <= 4
  26.         }
  27.  
  28. F'Cetm1 {; fn1 added by Jon Horner
  29.         z=0, c=pixel:
  30.         z=fn1(z)+c,
  31.         c=c+p1,
  32.         |z| <= 4
  33.         }
  34.  
  35. jz {
  36.         z=pixel, c=p1:
  37.         z=sqr(z)+c,
  38.         c=c+p2*z,
  39.         |z| <= 4
  40.         }
  41.  
  42. F'Cetjz {; fn1 added by Jon Horner
  43.         z=pixel, c=p1:
  44.         z=fn1(z)+c,
  45.         c=c+p2*z,
  46.         |z| <= 4
  47.         }
  48.  
  49. mz {
  50.         z=0, c=pixel:
  51.         z=sqr(z)+c,
  52.         c=c+p1*z,
  53.         |z| <= 4
  54.         }
  55.  
  56. F'Cetmz {; fn1 added by Jon Horner
  57.         z=0, c=pixel:
  58.         z=fn1(z)+c,
  59.         c=c+p1*z,
  60.         |z| <= 4
  61.         }
  62.  
  63. joz {
  64.         z=pixel, c=p1:
  65.         z=sqr(z)+c,
  66.         c=c+p2/z,
  67.         |z| <= 4
  68.         }
  69.  
  70. F'Cetjoz {; fn1 added by Jon Horner
  71.         z=pixel, c=p1:
  72.         z=fn1(z)+c,
  73.         c=c+p2/z,
  74.         |z| <= 4
  75.         }
  76.  
  77. moz {
  78.         z=0, c=pixel:
  79.         z=sqr(z)+c,
  80.         c=c+p1/z,
  81.         |z| <= 4
  82.         }
  83.  
  84. F'Cetmoz {; fn1 added by Jon Horner
  85.         z=0, c=pixel:
  86.         z=sqr(z)+c,
  87.         c=c+p1/z,
  88.         |z| <= 4
  89.         }
  90.  
  91. jfnz {
  92.         z=pixel, c=p1:
  93.         z=sqr(z)+c,
  94.         c=c+p2*fn1(z),
  95.         |z| <= 4
  96.         }
  97.  
  98. mfnz {
  99.         z=0, c=pixel:
  100.         z=sqr(z)+c,
  101.         c=c+p1*fn1(z),
  102.         |z| <= 4
  103.         }
  104.  
  105. F'Cetmfnz { fn2 added by Jon Horner
  106.         z=0, c=pixel:
  107.         z=fn2(z)+c,
  108.         c=c+p1*fn1(z),
  109.         |z| <= 4
  110.         }
  111.  
  112. jc {
  113.         z=pixel, c=p1:
  114.         z=sqr(z)+c,
  115.         c=c+p2*c,
  116.         |z| <= 4
  117.         }
  118.  
  119. F'Cetjc { fn1 added by Jon Horner
  120.         z=pixel, c=p1:
  121.         z=fn1(z)+c,
  122.         c=c+p2*c,
  123.         |z| <= 4
  124.         }
  125.  
  126. mc {
  127.         z=0, c=pixel:
  128.         z=sqr(z)+c,
  129.         c=c+p1*c,
  130.         |z| <= 4
  131.         }
  132.  
  133. F'Cetmc {; fn1 added by Jon Horner
  134.         z=0, c=pixel:
  135.         z=fn1(z)+c,
  136.         c=c+p1*c,
  137.         |z| <= 4
  138.         }
  139.  
  140. joc {
  141.         z=pixel, c=p1:
  142.         z=sqr(z)+c,
  143.         c=c+p2/c,
  144.         |z| <= 4
  145.         }
  146.  
  147. F'Cetjoc {; fn1 added by Jon Horner
  148.         z=pixel, c=p1:
  149.         z=fn1(z)+c,
  150.         c=c+p2/c,
  151.         |z| <= 4
  152.         }
  153.  
  154. moc {
  155.         z=0, c=pixel:
  156.         z=sqr(z)+c,
  157.         c=c+p1/c,
  158.         |z| <= 4
  159.         }
  160.  
  161. F'Cetmoc {; fn1 added by Jon Horner
  162.         z=0, c=pixel:
  163.         z=fn1(z)+c,
  164.         c=c+p1/c,
  165.         |z| <= 4
  166.         }
  167.  
  168. jfnc {
  169.         z=pixel, c=p1:
  170.         z=sqr(z)+c,
  171.         c=c+p2*fn1(c),
  172.         |z| <= 4
  173.         }
  174.  
  175. F'Cetjfnc {; fn2 added by Jon Horner
  176.         z=pixel, c=p1:
  177.         z=fn2(z)+c,
  178.         c=c+p2*fn1(c),
  179.         |z| <= 4
  180.         }
  181.  
  182. mfnc {
  183.         z=0, c=pixel:
  184.         z=sqr(z)+c,
  185.         c=c+p1*fn1(c),
  186.         |z| <= 4
  187.         }
  188.  
  189. F'Cetmfnc {; fn2 added by Jon Horner
  190.         z=0, c=pixel:
  191.         z=fn2(z)+c,
  192.         c=c+p1*fn1(c),
  193.         |z| <= 4
  194.         }
  195.  
  196.  
  197.