Pour fonctionner correctement, ce site a besoin de JavaScript. Il semble que celui-ci a été désactivé ou que votre navigateur ne le supporte pas.
![setvar(icone, loadimage(http://www.yaronet.com/sp/img/triangle.img))
setvar(w, image_width(icone) - 1)
setvar(h, image_height(icone) - 1)
setvar(r, 45)
setvar(p1, (-w + h*i)/2 * exp(-i*r*pi/180))
setvar(p2, (w + h*i)/2 * exp(-i*r*pi/180))
setvar(p3, (w - h*i)/2 * exp(-i*r*pi/180))
setvar(p4, (- w - h*i)/2 * exp(-i*r*pi/180))
setvar(x1, real(p1))
setvar(x2, real(p2))
setvar(x3, real(p3))
setvar(x4, real(p4))
setvar(y1, -imag(p1))
setvar(y2, -imag(p2))
setvar(y3, -imag(p3))
setvar(y4, -imag(p4))
setvar(minx, min(min(x1, x2), min(x3, x4)))
setvar(maxx, max(max(x1, x2), max(x3, x4)))
setvar(miny, min(min(y1, y2), min(y3, y4)))
setvar(maxy, max(max(y1, y2), max(y3, y4)))
setvar(iconer, newimage(maxx - minx + 1, maxy - miny + 1))
setvar(iconer, imagecopy(iconer, icone, x1 - minx, y1 - miny, x2 - minx, y2 - miny, x3 - minx, y3 - miny, x4 - minx, y4 - miny))
nomargin()
noalpha()
setvar(hi, max(max(image_width(icone), image_height(icone)), max(image_width(iconer), image_height(iconer))))
setvar(options, [0, 0, 4, 4, 3, 3, 7, 7, 0, 0, 4, 4, 3, 3, 7])
setvar(res, pretty_foreach(options, a, b,
setvar(img, newimage(4*(image_width(icone)+image_height(icone)), hi))
pretty_if(mod(a, 2) = 0,
setvar(sx, ceil(a/4)*image_width(icone) + floor(a/4)*image_height(icone))
setvar(fx, sx + mod(a/2+1,2)*image_width(icone) + mod(a/2,2)*image_height(icone) - 1)
setvar(hic, mod(a/2,2)*image_width(icone)+mod(a/2+1,2)*image_height(icone))
setvar(im, icone)
,
setvar(lx, mod((a-1)/2+1,2)*image_width(iconer) + mod((a-1)/2,2)*image_height(iconer))
setvar(sx, ceil((a+1)/4)*image_width(icone) + floor((a+1)/4)*image_height(icone) - lx/2)
setvar(fx, sx + lx - 1)
setvar(hic, mod((a-1)/2,2)*image_width(iconer)+mod((a-1)/2+1,2)*image_height(iconer))
setvar(im, iconer)
)
setvar(sy, (hi - hic)/2)
setvar(fy, sy + hic - 1)
setvar(img, imagecopy(img, im, sx, sy, fx, fy, 0, b))
pretty_return(img)
))
pretty_return(set_goback_animation(make_animation(res, 0.06)))](http://prettyprint.free.fr/i/28783.gif "setvar(icone, loadimage(http://www.yaronet.com/sp/img/triangle.img))
setvar(w, image_width(icone) - 1)
setvar(h, image_height(icone) - 1)
setvar(r, 45)
setvar(p1, (-w + h*i)/2 * exp(-i*r*pi/180))
setvar(p2, (w + h*i)/2 * exp(-i*r*pi/180))
setvar(p3, (w - h*i)/2 * exp(-i*r*pi/180))
setvar(p4, (- w - h*i)/2 * exp(-i*r*pi/180))
setvar(x1, real(p1))
setvar(x2, real(p2))
setvar(x3, real(p3))
setvar(x4, real(p4))
setvar(y1, -imag(p1))
setvar(y2, -imag(p2))
setvar(y3, -imag(p3))
setvar(y4, -imag(p4))
setvar(minx, min(min(x1, x2), min(x3, x4)))
setvar(maxx, max(max(x1, x2), max(x3, x4)))
setvar(miny, min(min(y1, y2), min(y3, y4)))
setvar(maxy, max(max(y1, y2), max(y3, y4)))
setvar(iconer, newimage(maxx - minx + 1, maxy - miny + 1))
setvar(iconer, imagecopy(iconer, icone, x1 - minx, y1 - miny, x2 - minx, y2 - miny, x3 - minx, y3 - miny, x4 - minx, y4 - miny))
nomargin()
noalpha()
setvar(hi, max(max(image_width(icone), image_height(icone)), max(image_width(iconer), image_height(iconer))))
setvar(options, [0, 0, 4, 4, 3, 3, 7, 7, 0, 0, 4, 4, 3, 3, 7])
setvar(res, pretty_foreach(options, a, b,
setvar(img, newimage(4*(image_width(icone)+image_height(icone)), hi))
pretty_if(mod(a, 2) = 0,
setvar(sx, ceil(a/4)*image_width(icone) + floor(a/4)*image_height(icone))
setvar(fx, sx + mod(a/2+1,2)*image_width(icone) + mod(a/2,2)*image_height(icone) - 1)
setvar(hic, mod(a/2,2)*image_width(icone)+mod(a/2+1,2)*image_height(icone))
setvar(im, icone)
,
setvar(lx, mod((a-1)/2+1,2)*image_width(iconer) + mod((a-1)/2,2)*image_height(iconer))
setvar(sx, ceil((a+1)/4)*image_width(icone) + floor((a+1)/4)*image_height(icone) - lx/2)
setvar(fx, sx + lx - 1)
setvar(hic, mod((a-1)/2,2)*image_width(iconer)+mod((a-1)/2+1,2)*image_height(iconer))
setvar(im, iconer)
)
setvar(sy, (hi - hic)/2)
setvar(fy, sy + hic - 1)
setvar(img, imagecopy(img, im, sx, sy, fx, fy, 0, b))
pretty_return(img)
))
pretty_return(set_goback_animation(make_animation(res, 0.06)))")