home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1995 November / PCWK1195.iso / inne / dos / fraktale / fracxtr6.exe / FRM / PHONG2.FRM < prev    next >
Encoding:
Text File  |  1994-12-13  |  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. VerLineia(ORIGIN) {; Tom Schumm
  7.   ; Attempt to change the shape of the escape boundry
  8.   z = Pixel, z = Sqr(z):  ; Just like a julia
  9.    z = z + p1
  10.     z = Sqr(z)
  11.     real(z) <= 4      ; Different escape boundry
  12.   }
  13.  
  14. HorLineia(ORIGIN) {; Tom Schumm
  15.   ; Attempt to change the shape of the escape boundry
  16.   z = Pixel, z = Sqr(z):  ; Just like a julia
  17.    z = z + p1
  18.    z = Sqr(z)
  19.     imag(z) <= 4      ; Different escape boundry
  20.   }
  21.  
  22. Multia(ORIGIN) {; Tom Schumm
  23.   ; Attempt to change the shape of the escape boundry
  24.   z = Pixel, z = Sqr(z):  ; Just like julia
  25.    z = z + p1
  26.    z = Sqr(z)
  27.     imag(z)*real(z) <= 4   ; Different escape boundry
  28.   }
  29.  
  30. Summia(ORIGIN) {; Tom Schumm
  31.   ; Attempt to change the shape of the escape boundry
  32.   z = Pixel, z = Sqr(z):  ; Just like julia
  33.    z = z + p1
  34.    z = Sqr(z)
  35.     imag(z)+real(z) <= 4   ; Different escape boundry
  36.   }
  37.  
  38. SummAbsia(ORIGIN) {; Tom Schumm
  39.   ; Attempt to change the shape of the escape boundry
  40.   z = Pixel, z = Sqr(z):  ; Just like julia
  41.    z = z + p1
  42.    z = Sqr(z)
  43.     abs(imag(z))+abs(real(z)) <= 4   ; Different escape boundry
  44.   }  
  45.  
  46. AbsSummia(ORIGIN) {; Tom Schumm
  47.   ; Attempt to change the shape of the escape boundry
  48.   z = Pixel, z = Sqr(z):  ; Just like julia
  49.    z = z + p1
  50.    z = Sqr(z)
  51.     abs(imag(z)+real(z)) <= 4   ; Different escape boundry
  52.   }  
  53.  
  54. Parabolaia1(ORIGIN) {; Tom Schumm
  55.   ; Attempt to change the shape of the escape boundry
  56.   z = Pixel, z = Sqr(z):  ; Just like julia
  57.    z = z + p1
  58.    z = Sqr(z)
  59.     imag(z) <= sqr(real(z))+4    ; Different escape boundry
  60.   }  
  61.  
  62. Parabolaia2(ORIGIN) {; Tom Schumm
  63.   ; Attempt to change the shape of the escape boundry
  64.   z = Pixel, z = Sqr(z):  ; Just like julia
  65.    z = z + p1
  66.    z = Sqr(z)
  67.     imag(z) <= 16-sqr(real(z))    ; Different escape boundry
  68.   }  
  69.  
  70. Hyperbolaia1(ORIGIN) {; Tom Schumm
  71.   ; Attempt to change the shape of the escape boundry
  72.   z = Pixel, z = Sqr(z):  ; Just like julia
  73.    z = z + p1
  74.    z = Sqr(z)
  75.     sqr(imag(z)) >= (sqr(real(z))-16)    ; Different escape boundry
  76.   }  
  77.  
  78. Hyperbolaia2(ORIGIN) {; Tom Schumm
  79.   ; Attempt to change the shape of the escape boundry
  80.   z = Pixel, z = Sqr(z):  ; Just like julia
  81.    z = z + p1
  82.    z = Sqr(z)
  83.     sqr(imag(z)) <= (sqr(real(z))+16)    ; Different escape boundry
  84.   }  
  85.  
  86. Sineia01(ORIGIN) {; Tom Schumm
  87.   ; Attempt to change the shape of the escape boundry
  88.   z = Pixel, z = Sqr(z):  ; Just like julia
  89.    z = z + p1
  90.    z = Sqr(z)
  91.     imag(z) <= sin(real(z))+4    ; Different escape boundry
  92.   }  
  93.  
  94. Sineia02(ORIGIN) {; Tom Schumm
  95.   ; Attempt to change the shape of the escape boundry
  96.   z = Pixel, z = Sqr(z):  ; Just like julia
  97.    z = z + p1
  98.    z = Sqr(z)
  99.     5*sin(Lastsqr) <= 4    ; Different escape boundry
  100.   }  
  101.  
  102. Sineia03(ORIGIN) {; Tom Schumm
  103.   ; Attempt to change the shape of the escape boundry
  104.   z = Pixel, z = Sqr(z):  ; Just like julia
  105.    z = z + p1
  106.    z = Sqr(z)
  107.     Lastsqr <= 4+sin(10*Lastsqr)    ; Different escape boundry
  108.   }  
  109.  
  110. Sineia04(ORIGIN) {; Tom Schumm
  111.   ; Attempt to change the shape of the escape boundry
  112.   z = Pixel, z = Sqr(z):  ; Just like julia
  113.    z = z + p1
  114.    z = Sqr(z)
  115.     Lastsqr <= 4+sin(20*Lastsqr)    ; Different escape boundry
  116.   }  
  117.  
  118. Sineia05(ORIGIN) {; Tom Schumm
  119.   ; Attempt to change the shape of the escape boundry
  120.   z = Pixel, z = Sqr(z):  ; Just like julia
  121.    z = z + p1
  122.    z = Sqr(z)
  123.     Lastsqr <= 4+sin(30*Lastsqr)    ; Different escape boundry
  124.   }
  125.  
  126. Sineia06(ORIGIN) {; Tom Schumm
  127.   ; Attempt to change the shape of the escape boundry
  128.   z = Pixel, z = Sqr(z):  ; Just like julia
  129.    z = z + p1
  130.    z = Sqr(z)
  131.     sqr(imag(z)-sin(real(z))) <= 16-sqr(real(z))    ; Different escape boundry
  132.   }  
  133.  
  134. Sineia07(ORIGIN) {; Tom Schumm
  135.   ; Attempt to change the shape of the escape boundry
  136.   z = Pixel, z = Sqr(z):  ; Just like julia
  137.    z = z + p1
  138.    z = Sqr(z)
  139.     sqr(imag(z)-sin(2*real(z))) <= 16-sqr(real(z))    ; Different escape boundry
  140.   }  
  141.  
  142. Sineia08(ORIGIN) {; Tom Schumm
  143.   ; Attempt to change the shape of the escape boundry
  144.   z = Pixel, z = Sqr(z):  ; Just like julia
  145.    z = z + p1
  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. Sineia09(ORIGIN) {; Tom Schumm
  151.   ; Attempt to change the shape of the escape boundry
  152.   z = Pixel, z = Sqr(z):  ; Just like julia
  153.    z = z + p1
  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. Sineia10(ORIGIN) {; Tom Schumm
  159.   ; Attempt to change the shape of the escape boundry
  160.   z = Pixel, z = Sqr(z):  ; Just like julia
  161.    z = z + p1
  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. Sineia11(ORIGIN) {; Tom Schumm
  167.   ; Attempt to change the shape of the escape boundry
  168.   z = Pixel, z = Sqr(z):  ; Just like julia
  169.    z = z + p1
  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. Sineia12(ORIGIN) {; Tom Schumm
  175.   ; Attempt to change the shape of the escape boundry
  176.   z = Pixel, z = Sqr(z):  ; Just like julia
  177.    z = z + p1
  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. Sineia13(ORIGIN) {; Tom Schumm
  183.   ; Attempt to change the shape of the escape boundry
  184.   z = Pixel, z = Sqr(z):  ; Just like julia
  185.    z = z + p1
  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. SineTangentia1(ORIGIN) {; Tom Schumm
  191.   ; Attempt to change the shape of the escape boundry
  192.   z = Pixel, z = Sqr(z):  ; Just like julia
  193.    z = z + p1
  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. SineTangentia2(ORIGIN) {; Tom Schumm
  199.   ; Attempt to change the shape of the escape boundry
  200.   z = Pixel, z = Sqr(z):  ; Just like julia
  201.    z = z + p1
  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. SineTangentia3(ORIGIN) {; Tom Schumm
  207.   ; Attempt to change the shape of the escape boundry
  208.   z = Pixel, z = Sqr(z):  ; Just like julia
  209.    z = z + p1
  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. Cosecantia(ORIGIN) {; Tom Schumm
  215.   ; Attempt to change the shape of the escape boundry
  216.   z = Pixel, z = Sqr(z):  ; Just like julia
  217.    z = z + p1
  218.    z = Sqr(z)
  219.     imag(z) <= 4/sin(real(z))    ; Different escape boundry
  220.   }  
  221.  
  222. Cosineia(ORIGIN) {; Tom Schumm
  223.   ; Attempt to change the shape of the escape boundry
  224.   z = Pixel, z = Sqr(z):  ; Just like julia
  225.    z = z + p1
  226.    z = Sqr(z)
  227.     imag(z) <= cos(real(z))+4    ; Different escape boundry
  228.   }
  229.  
  230. Secantia(ORIGIN) {; Tom Schumm
  231.   ; Attempt to change the shape of the escape boundry
  232.   z = Pixel, z = Sqr(z):  ; Just like julia
  233.    z = z + p1
  234.    z = Sqr(z)
  235.     imag(z) <= 4/cos(real(z))    ; Different escape boundry
  236.   }
  237.  
  238. AbsArcTangentia1(ORIGIN) {; Tom Schumm
  239.   ; Attempt to change the shape of the escape boundry
  240.   z = Pixel, z = Sqr(z):  ; Just like julia
  241.    z = z + p1
  242.    z = Sqr(z)
  243.     imag(z) <= abs(1/tan(real(z)))     ; Different escape boundry
  244.   }  
  245.  
  246. AbsArcTangentia2(ORIGIN) {; Tom Schumm
  247.   ; Attempt to change the shape of the escape boundry
  248.   z = Pixel, z = Sqr(z):  ; Just like julia
  249.    z = z + p1
  250.    z = Sqr(z)
  251.     imag(z) <= abs(1/tan(real(z))+4)     ; Different escape boundry
  252.   }  
  253.  
  254. AbsArcTangentia3(ORIGIN) {; Tom Schumm
  255.   ; Attempt to change the shape of the escape boundry
  256.   z = Pixel, z = Sqr(z):  ; Just like julia
  257.    z = z + p1
  258.    z = Sqr(z)
  259.     imag(z) <= abs(1/tan(real(z)))+4     ; Different escape boundry
  260.   }  
  261.  
  262. Tangentia1(ORIGIN) {; Tom Schumm
  263.   ; Attempt to change the shape of the escape boundry
  264.   z = Pixel, z = Sqr(z):  ; Just like julia
  265.    z = z + p1
  266.    z = Sqr(z)
  267.     imag(z) <= tan(real(z)) + 2    ; Different escape boundry
  268.   }  
  269.  
  270. Tangentia2(ORIGIN) {; Tom Schumm
  271.   ; Attempt to change the shape of the escape boundry
  272.   z = Pixel, z = Sqr(z):  ; Just like julia
  273.    z = z + p1
  274.    z = Sqr(z)
  275.     imag(z) <= tan(real(z))+4    ; Different escape boundry
  276.   }  
  277.  
  278. Tangentia3(ORIGIN) {; Tom Schumm
  279.   ; Attempt to change the shape of the escape boundry
  280.   z = Pixel, z = Sqr(z):  ; Just like julia
  281.    z = z + p1
  282.    z = Sqr(z)
  283.     imag(z) <= tan(real(z))+6    ; Different escape boundry
  284.   }  
  285.  
  286. Tangentia4(ORIGIN) {; Tom Schumm
  287.   ; Attempt to change the shape of the escape boundry
  288.   z = Pixel, z = Sqr(z):  ; Just like julia
  289.    z = z + p1
  290.    z = Sqr(z)
  291.     imag(z) <= tan(real(z))+8    ; Different escape boundry
  292.   }  
  293.  
  294. Tangentia5(ORIGIN) {; Tom Schumm
  295.   ; Attempt to change the shape of the escape boundry
  296.   z = Pixel, z = Sqr(z):  ; Just like julia
  297.    z = z + p1
  298.    z = Sqr(z)
  299.     imag(z) <= tan(real(z))+10    ; Different escape boundry
  300.   }  
  301.  
  302. Absia1(ORIGIN) {; Tom Schumm
  303.   ; Attempt to change the shape of the escape boundry
  304.   z = Pixel, z = Sqr(z):  ; Just like julia
  305.    z = z + p1
  306.    z = Sqr(z)
  307.     imag(z) <= 4-abs(real(z))    ; Different escape boundry
  308.   }  
  309.  
  310. Absia2(ORIGIN) {; Tom Schumm
  311.   ; Attempt to change the shape of the escape boundry
  312.   z = Pixel, z = Sqr(z):  ; Just like julia
  313.    z = z + p1
  314.    z = Sqr(z)
  315.     imag(z) <= 4+abs(real(z))    ; Different escape boundry
  316.   }  
  317.