l = 160
y = 240

for(i=1 ; i<=6 ; i+=1)
{
    for(j=1 ; j<=power(2,i-1) ; j+=1)
    {
        xs = (1-power(0.5,i))/0.5
        ys = xs - (j-1)*(xs*2)/(power(2,i)-1 )
       
        xe = (1-power(0.5,i+1))/0.5
        ye1= ys + xs/(power(2,i+1)-2)
        ye2= ys - xs/(power(2,i+1)-2)
       
        draw_line(xs*l-l, ys*l-l+y, xe*l-l, ye1*l-l+y)
        draw_line(xs*l-l, ys*l-l+y, xe*l-l, ye2*l-l+y)
    }
}

//dessinefractal(repete,x,y,angle)
var a
var b
var c
var d
var e
if (argument0==0){exit}

e=0.8
a=lengthdir_x(e*argument0,argument3)
b=lengthdir_y(e*argument0,argument3)
c=lengthdir_x(e*argument0,argument3/2)
d=lengthdir_y(e*argument0,argument3/2)


draw_line(argument1,argument2,argument1+c,argument2+d)
draw_line(argument1,argument2,argument1+a,argument2+b)


dessinefractal(argument0-1,argument1+a,argument2+b,argument3+15)