home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1995 November / PCWK1195.iso / inne / dos / fraktale / fracxtr6.exe / FRM / PHONG.FRM < prev    next >
Encoding:
Text File  |  1994-12-04  |  9.4 KB  |  317 lines
  1. ;Credits go to all members of the Coteric Continuum:
  2. ;  Phong                     =           Tom Schumm 
  3. ;  Dan the Math+(Man)²       =          Dan Laursen 
  4. ;  Aquatic Nusiance          =         Ryan Mahoney   
  5.  
  6. VerLinebrot(XAXIS) {; Tom Schumm
  7.   ; Attempt to change the shape of the escape boundry
  8.   z = Pixel, z = Sqr(z):  ; Just like a mandel
  9.    z = z + Pixel
  10.    z = Sqr(z)
  11.     real(z) <= 4      ; Different escape boundry
  12.   }
  13.  
  14. HorLinebrot {; Tom Schumm
  15.   ; Attempt to change the shape of the escape boundry
  16.   z = Pixel, z = Sqr(z):  ; Just like a mandel
  17.    z = z + Pixel
  18.    z = Sqr(z)
  19.     imag(z) <= 4      ; Different escape boundry
  20.   }
  21.  
  22. Multbrot {; Tom Schumm
  23.   ; Attempt to change the shape of the escape boundry
  24.   z = Pixel, z = Sqr(z):  ; Just like mandel
  25.    z = z + Pixel
  26.    z = Sqr(z)
  27.     imag(z)*real(z) <= 4   ; Different escape boundry
  28.   }
  29.  
  30. Summbrot {; Tom Schumm
  31.   ; Attempt to change the shape of the escape boundry
  32.   z = Pixel, z = Sqr(z):  ; Just like mandel
  33.    z = z + Pixel
  34.    z = Sqr(z)
  35.     imag(z)+real(z) <= 4   ; Different escape boundry
  36.   }
  37.  
  38. SummAbsbrot(XAXIS) {; Tom Schumm
  39.   ; Attempt to change the shape of the escape boundry
  40.   z = Pixel, z = Sqr(z):  ; Just like mandel
  41.    z = z + Pixel
  42.    z = Sqr(z)
  43.     abs(imag(z))+abs(real(z)) <= 4   ; Different escape boundry
  44.   }  
  45.  
  46. AbsSummbrot {; Tom Schumm
  47.   ; Attempt to change the shape of the escape boundry
  48.   z = Pixel, z = Sqr(z):  ; Just like mandel
  49.    z = z + Pixel
  50.    z = Sqr(z)
  51.     abs(imag(z)+real(z)) <= 4   ; Different escape boundry
  52.   }  
  53.  
  54. Parabolabrot1 {; Tom Schumm
  55.   ; Attempt to change the shape of the escape boundry
  56.   z = Pixel, z = Sqr(z):  ; Just like mandel
  57.    z = z + Pixel
  58.    z = Sqr(z)
  59.     imag(z) <= sqr(real(z))+4    ; Different escape boundry
  60.   }  
  61.  
  62. Parabolabrot2 {; Tom Schumm
  63.   ; Attempt to change the shape of the escape boundry
  64.   z = Pixel, z = Sqr(z):  ; Just like mandel
  65.    z = z + Pixel
  66.    z = Sqr(z)
  67.     imag(z) <= 16-sqr(real(z))    ; Different escape boundry
  68.   }  
  69.  
  70. Hyperbolabrot1(XAXIS) {; Tom Schumm
  71.   ; Attempt to change the shape of the escape boundry
  72.   z = Pixel, z = Sqr(z):  ; Just like mandel
  73.    z = z + Pixel
  74.    z = Sqr(z)
  75.     sqr(imag(z)) >= (sqr(real(z))-16)    ; Different escape boundry
  76.   }  
  77.  
  78. Hyperbolabrot2(XAXIS) {; Tom Schumm
  79.   ; Attempt to change the shape of the escape boundry
  80.   z = Pixel, z = Sqr(z):  ; Just like mandel
  81.    z = z + Pixel
  82.    z = Sqr(z)
  83.     sqr(imag(z)) <= (sqr(real(z))+16)    ; Different escape boundry
  84.   }  
  85.  
  86. Sinebrot01 {; Tom Schumm
  87.   ; Attempt to change the shape of the escape boundry
  88.   z = Pixel, z = Sqr(z):  ; Just like mandel
  89.    z = z + Pixel
  90.    z = Sqr(z)
  91.     imag(z) <= sin(real(z))+4    ; Different escape boundry
  92.   }  
  93.  
  94. Sinebrot02(XAXIS) {; Tom Schumm
  95.   ; Attempt to change the shape of the escape boundry
  96.   z = Pixel, z = Sqr(z):  ; Just like mandel
  97.    z = z + Pixel
  98.    z = Sqr(z)
  99.     5*sin(Lastsqr) <= 4    ; Different escape boundry
  100.   }  
  101.  
  102. Sinebrot03 (XAXIS){; Tom Schumm
  103.   ; Attempt to change the shape of the escape boundry
  104.   z = Pixel, z = Sqr(z):  ; Just like mandel
  105.    z = z + Pixel
  106.    z = Sqr(z)
  107.     Lastsqr <= 4+sin(10*Lastsqr)    ; Different escape boundry
  108.   }  
  109.  
  110. Sinebrot04 (XAXIS){; Tom Schumm
  111.   ; Attempt to change the shape of the escape boundry
  112.   z = Pixel, z = Sqr(z):  ; Just like mandel
  113.    z = z + Pixel
  114.    z = Sqr(z)
  115.     Lastsqr <= 4+sin(20*Lastsqr)    ; Different escape boundry
  116.   }  
  117.  
  118. Sinebrot05 (XAXIS){; Tom Schumm
  119.   ; Attempt to change the shape of the escape boundry
  120.   z = Pixel, z = Sqr(z):  ; Just like mandel
  121.    z = z + Pixel
  122.    z = Sqr(z)
  123.     Lastsqr <= 4+sin(30*Lastsqr)    ; Different escape boundry
  124.   }
  125.  
  126. Sinebrot06{; Tom Schumm
  127.   ; Attempt to change the shape of the escape boundry
  128.   z = Pixel, z = Sqr(z):  ; Just like mandel
  129.    z = z + Pixel
  130.    z = Sqr(z)
  131.     sqr(imag(z)-sin(real(z))) <= 16-sqr(real(z))    ; Different escape boundry
  132.   }  
  133.  
  134. Sinebrot07{; Tom Schumm
  135.   ; Attempt to change the shape of the escape boundry
  136.   z = Pixel, z = Sqr(z):  ; Just like mandel
  137.    z = z + Pixel
  138.    z = Sqr(z)
  139.     sqr(imag(z)-sin(2*real(z))) <= 16-sqr(real(z))    ; Different escape boundry
  140.   }  
  141.  
  142. Sinebrot08{; Tom Schumm
  143.   ; Attempt to change the shape of the escape boundry
  144.   z = Pixel, z = Sqr(z):  ; Just like mandel
  145.    z = z + Pixel
  146.    z = Sqr(z)
  147.     sqr(imag(z)-sin(2*real(z))) <= 16-sqr(real(z)+sin(real(z)))    ; Different escape boundry
  148.   }  
  149.  
  150. Sinebrot09{; Tom Schumm
  151.   ; Attempt to change the shape of the escape boundry
  152.   z = Pixel, z = Sqr(z):  ; Just like mandel
  153.    z = z + Pixel
  154.    z = Sqr(z)
  155.     sqr(imag(z)-sin(2*real(z))) <= 16-sqr(real(z)+sin(imag(z)))    ; Different escape boundry
  156.   }  
  157.  
  158. Sinebrot10{; Tom Schumm
  159.   ; Attempt to change the shape of the escape boundry
  160.   z = Pixel, z = Sqr(z):  ; Just like mandel
  161.    z = z + Pixel
  162.    z = Sqr(z)
  163.     (imag(z)-sin(2*real(z)))^3 <= 16-sqr(real(z)+sin(imag(z)))    ; Different escape boundry
  164.   }  
  165.  
  166. Sinebrot11{; Tom Schumm
  167.   ; Attempt to change the shape of the escape boundry
  168.   z = Pixel, z = Sqr(z):  ; Just like mandel
  169.    z = z + Pixel
  170.    z = Sqr(z)
  171.     sqr(imag(z)-sin(2*real(z))) <= 64-(real(z)+sin(imag(z)))^3    ; Different escape boundry
  172.   }  
  173.  
  174. Sinebrot12{; Tom Schumm
  175.   ; Attempt to change the shape of the escape boundry
  176.   z = Pixel, z = Sqr(z):  ; Just like mandel
  177.    z = z + Pixel
  178.    z = Sqr(z)
  179.     (imag(z)-sin(2*real(z)))^5 <= 16-sqr(real(z)+sin(imag(z)))    ; Different escape boundry
  180.   }  
  181.  
  182. Sinebrot13{; Tom Schumm
  183.   ; Attempt to change the shape of the escape boundry
  184.   z = Pixel, z = Sqr(z):  ; Just like mandel
  185.    z = z + Pixel
  186.    z = Sqr(z)
  187.     (imag(z)-sin(2*real(z)))^7 <= 16-sqr(real(z)+sin(imag(z)))    ; Different escape boundry
  188.   }  
  189.  
  190. SineTangentbrot1{; Tom Schumm
  191.   ; Attempt to change the shape of the escape boundry
  192.   z = Pixel, z = Sqr(z):  ; Just like mandel
  193.    z = z + Pixel
  194.    z = Sqr(z)
  195.     tan(imag(z)-sin(2*real(z))) <= 16-sqr(real(z)+sin(imag(z)))    ; Different escape boundry
  196.   }  
  197.  
  198. SineTangentbrot2{; Tom Schumm
  199.   ; Attempt to change the shape of the escape boundry
  200.   z = Pixel, z = Sqr(z):  ; Just like mandel
  201.    z = z + Pixel
  202.    z = Sqr(z)
  203.     tan(imag(z)-sin(2*real(z))) <= 16-sqr(real(z)+sin(2*imag(z)))    ; Different escape boundry
  204.   }  
  205.  
  206. SineTangentbrot3{; Tom Schumm
  207.   ; Attempt to change the shape of the escape boundry
  208.   z = Pixel, z = Sqr(z):  ; Just like mandel
  209.    z = z + Pixel
  210.    z = Sqr(z)
  211.     tan(imag(z)-sin(4*real(z))) <= 16-sqr(real(z)+sin(2*imag(z)))    ; Different escape boundry
  212.   }  
  213.  
  214. Cosecantbrot {; Tom Schumm
  215.   ; Attempt to change the shape of the escape boundry
  216.   z = Pixel, z = Sqr(z):  ; Just like mandel
  217.    z = z + Pixel
  218.    z = Sqr(z)
  219.     imag(z) <= 4/sin(real(z))    ; Different escape boundry
  220.   }  
  221.  
  222. Cosinebrot {; Tom Schumm
  223.   ; Attempt to change the shape of the escape boundry
  224.   z = Pixel, z = Sqr(z):  ; Just like mandel
  225.    z = z + Pixel
  226.    z = Sqr(z)
  227.     imag(z) <= cos(real(z))+4    ; Different escape boundry
  228.   }
  229.  
  230. Secantbrot {; Tom Schumm
  231.   ; Attempt to change the shape of the escape boundry
  232.   z = Pixel, z = Sqr(z):  ; Just like mandel
  233.    z = z + Pixel
  234.    z = Sqr(z)
  235.     imag(z) <= 4/cos(real(z))    ; Different escape boundry
  236.   }
  237.  
  238. AbsArcTangentbrot1 {; Tom Schumm
  239.   ; Attempt to change the shape of the escape boundry
  240.   z = Pixel, z = Sqr(z):  ; Just like mandel
  241.    z = z + Pixel
  242.    z = Sqr(z)
  243.     imag(z) <= abs(1/tan(real(z)))     ; Different escape boundry
  244.   }  
  245.  
  246. AbsArcTangentbrot2 {; Tom Schumm
  247.   ; Attempt to change the shape of the escape boundry
  248.   z = Pixel, z = Sqr(z):  ; Just like mandel
  249.    z = z + Pixel
  250.    z = Sqr(z)
  251.     imag(z) <= abs(1/tan(real(z))+4)     ; Different escape boundry
  252.   }  
  253.  
  254. AbsArcTangentbrot3 {; Tom Schumm
  255.   ; Attempt to change the shape of the escape boundry
  256.   z = Pixel, z = Sqr(z):  ; Just like mandel
  257.    z = z + Pixel
  258.    z = Sqr(z)
  259.     imag(z) <= abs(1/tan(real(z)))+4     ; Different escape boundry
  260.   }  
  261.  
  262. Tangentbrot1 {; Tom Schumm
  263.   ; Attempt to change the shape of the escape boundry
  264.   z = Pixel, z = Sqr(z):  ; Just like mandel
  265.    z = z + Pixel
  266.    z = Sqr(z)
  267.     imag(z) <= tan(real(z)) + 2    ; Different escape boundry
  268.   }  
  269.  
  270. Tangentbrot2 {; Tom Schumm
  271.   ; Attempt to change the shape of the escape boundry
  272.   z = Pixel, z = Sqr(z):  ; Just like mandel
  273.    z = z + Pixel
  274.    z = Sqr(z)
  275.     imag(z) <= tan(real(z))+4    ; Different escape boundry
  276.   }  
  277.  
  278. Tangentbrot3 {; Tom Schumm
  279.   ; Attempt to change the shape of the escape boundry
  280.   z = Pixel, z = Sqr(z):  ; Just like mandel
  281.    z = z + Pixel
  282.    z = Sqr(z)
  283.     imag(z) <= tan(real(z))+6    ; Different escape boundry
  284.   }  
  285.  
  286. Tangentbrot4 {; Tom Schumm
  287.   ; Attempt to change the shape of the escape boundry
  288.   z = Pixel, z = Sqr(z):  ; Just like mandel
  289.    z = z + Pixel
  290.    z = Sqr(z)
  291.     imag(z) <= tan(real(z))+8    ; Different escape boundry
  292.   }  
  293.  
  294. Tangentbrot5 {; Tom Schumm
  295.   ; Attempt to change the shape of the escape boundry
  296.   z = Pixel, z = Sqr(z):  ; Just like mandel
  297.    z = z + Pixel
  298.    z = Sqr(z)
  299.     imag(z) <= tan(real(z))+10    ; Different escape boundry
  300.   }  
  301.  
  302. Absbrot1 {; Tom Schumm
  303.   ; Attempt to change the shape of the escape boundry
  304.   z = Pixel, z = Sqr(z):  ; Just like mandel
  305.    z = z + Pixel
  306.    z = Sqr(z)
  307.     imag(z) <= 4-abs(real(z))    ; Different escape boundry
  308.   }  
  309.  
  310. Absbrot2 {; Tom Schumm
  311.   ; Attempt to change the shape of the escape boundry
  312.   z = Pixel, z = Sqr(z):  ; Just like mandel
  313.    z = z + Pixel
  314.    z = Sqr(z)
  315.     imag(z) <= 4+abs(real(z))    ; Different escape boundry
  316.   }  
  317.