home *** CD-ROM | disk | FTP | other *** search
/ Freelog 9 / Freelog009.iso / BAS / Graphism / VicPhoto / PHEDINST.EXE / effect.prg next >
Text File  |  1999-12-25  |  2KB  |  21 lines
  1. 19
  2. ╟αΩ≡≤≈ΦΓαφΦσ (Twirl)|╤≥σ∩σφⁿ ταΩ≡≤≥ΩΦ1^0^0^0^0^0^0^0^0^0^0^0^01t+r*(a/5/h)|r
  3. ╧εΓε≡ε≥|├≡αΣ≤± ∩εΓε≡ε≥α1^0^0^0^0^0^0^0^0^0^0^0^01t+a/50*3.141592|r
  4. ┬εδφ√|├ε≡Φτεφ≥αδⁿφ√σ1^0^┬σ≡≥ΦΩαδⁿφ√σ1^0^0^0^0^0^0^0^0^0^11x+a/10*sin(y/5)|y+b/10*sin(x/7)
  5. ╩≡≤πΦ φα ΓεΣσ|╩εδ-Γε1^0^─δΦφα Γεδφ1^0^0^0^0^0^0^0^0^0^11x+a/5*sin((1-b/100)*sqr(0.6*cx^2+cy^2))|y+a/8*sin((1-b/100)*sqr(0.6*cx^2+cy^2))
  6. ╤Γ╕≡≥√ΓαφΦσ ß≤∞απΦ|╙ΣαδσφΦσ ÷σφ≥≡α1^0^0^0^0^0^0^0^0^0^0^0^01t|r+sin(7.9)*a*sqrt(w^2+h^2)/200
  7. ╤ΣΓΦπ|╧ε πε≡Φτεφ≥αδΦ1^50^╧ε Γσ≡≥ΦΩαδΦ1^50^0^0^0^0^0^0^0^0^10x+((a-50)/50*w)|y+((b-50)/50*h)
  8. ╠εταΘΩα|╧ε πε≡Φτεφ≥αδΦ1^0^╧ε Γσ≡≥ΦΩαδΦ1^0^0^0^0^0^0^0^0^0^11x+y-int(y/(a/5+0.1))*(a/5+0.1)|y+x-int(x/(b/5+0.1))*(b/5+0.1)
  9. ╩≡≤πΦ φα ΓεΣσ -2|╩εδΦ≈σ±≥Γε Γεδφ1^0^"╟αΩ≡≤≈σφφε±≥ⁿ"1^0^0^0^0^0^0^0^0^0^01t+b/40000*sqr(w^2+h^2)*sin(r/(10.1-a/10))|r
  10. ┴στ√∞ φφα  Σσ⌠ε≡∞α÷Φ  -1|╧σ≡Γ√Θ α≡π≤∞σφ≥1^0^┬≥ε≡εΘ α≡π≤∞σφ≥1^0^0^0^0^0^0^0^0^0^01t|r*(1+(a/100000*sqr(w^2+h^2))*sin(t*b/5))
  11. "Fish Eye"|┴στ α≡π≤∞σφ≥εΓ0^0^0^0^0^0^0^0^0^0^0^0^01t|2*(r^2)/sqr(w^2+h^2)
  12. ╬Γαδ|┴στ α≡π≤∞σφ≥εΓ0^0^0^0^0^0^0^0^0^0^0^0^10w/2+cx*sqr((w^2)/4-((cy*w/h)^2))/(w/2)|y
  13. ═αΩδεφ|╧α≡α∞σ≥≡ 1^50^╧α≡α∞σ≥≡ 21^50^0^0^0^0^0^0^0^0^11x+y*((50-a)/50)|y+x*((50-b)/50)
  14. ╙ΓσδΦ≈σφΦσ/≤∞σφⁿ°σφΦσ|╤≥σ∩σφⁿ1^50^0^0^0^0^0^0^0^0^0^0^01t|r+r*(a-50)/50
  15. ├ε≡Φτεφ≥αδⁿφεσ ε≥≡αµσφΦσ|0^0^0^0^0^0^0^0^0^0^0^0^11w-1-x|y
  16. ┬σ≡≥ΦΩαδⁿφεσ ε≥≡αµσφΦσ|0^0^0^0^0^0^0^0^0^0^0^0^11x|h-1-y
  17. ╬≥∩σ≈α≥ΩΦ|┬√≡αµσφφε±≥ⁿ1^0^0^0^0^0^0^0^0^0^0^0^00t|(a+2)*(r^2)/sqr(w^2+h)
  18. ╟αΩ≡≤≈ΦΓαφΦσ Φ ε≥∩σ≈α≥ΩΦ|┬√≡αµσφφε±≥ⁿ1^0^═αΩδεφ δ≤≈σΘ1^0^0^0^0^0^0^0^0^0^00(t+b)+r*(a/5/h)|r
  19. ╟αΩ≡≤≈ΦΓαφΦσ 2|┬√≡αµσφφε±≥ⁿ1^0^═αΩδεφ δ≤≈σΘ1^0^0^0^0^0^0^0^0^0^01(t+b)+r*(a/5/h)|r
  20. ╧≡ΦΩεδ|╟αΩ≡≤≥Ωα1^99^╨ατ∞σ≡1^25^0^0^0^0^0^0^0^0^01t*(a/50)|r/(b/50)
  21.