| 0,0 → 1,59 |
|---|
| --PICTURE: Pattern - Sierpinsky carpet v1.0 |
| --by Richard Fhager |
| --http://hem.fyristorg.com/dawnbringer/ |
| -- Email: dawnbringer@hem.utfors.se |
| -- MSN: annassar@hotmail.com |
| -- |
| -- Copyright 2010 Richard Fhager |
| -- |
| -- This program is free software; you can redistribute it and/or |
| -- modify it under the terms of the GNU General Public License |
| -- as published by the Free Software Foundation; version 2 |
| -- of the License. See <http://www.gnu.org/licenses/> |
| |
| -- This script was adopted from Evalion, a Javascript codecrafting/imageprocessing project |
| -- http://goto.glocalnet.net/richard_fhager/evalion/evalion.html |
| -- |
| |
| frac = {{1,1,1},{1,0,1},{1,1,1}} |
| |
| iter = 6 |
| |
| |
| -- |
| function pattern(x,y,p,n,i) -- Fractal Pattern V1.0 by Richard Fhager (mod allows for wrapping) |
| py = #p |
| px = #p[1] |
| while ((p[1+math.abs(math.floor(y*py))%py][1+math.abs(math.floor(x*px))%px]) == 1 and n<i) do |
| x=x*px-math.floor(x*px); |
| y=y*py-math.floor(y*py); |
| n = n+1 |
| end |
| return 1 - n/i; |
| end |
| -- |
| |
| w, h = getpicturesize() |
| |
| rp,gp,bp = getcolor(getforecolor()) |
| |
| |
| for y = 0, h - 1, 1 do |
| for x = 0, w - 1, 1 do |
| |
| ox = x / w; |
| oy = y / h; |
| |
| f = pattern(ox,oy,frac,0,iter); |
| |
| c = matchcolor(rp*f,gp*f,bp*f) |
| |
| putpicturepixel(x, y, c); |
| end |
| updatescreen() |
| if (waitbreak(0)==1) then |
| return |
| end |
| |
| end |
| |