用processing编程如何实现毕达哥拉斯树 求具体代码

用processing编程如何实现毕达哥拉斯树 求具体代码

问题补充说明：用processing编程如何实现毕达哥拉斯树 求具体代码 应该是Java语言

voidsetup()

{

size(600,600);

background(0);

noFill();

stroke(255,200);

frameRate神属儿往(1);

}

booleanzmianaK=true;

intii=1;

voiddraw()

{

if(ii<18)

{background(1);

dPitagorejskie(100,height/2-50,55,0.25,0.4,ii);

ii++;

}

}

voiddPitagorejskie(floatX,floatY,floatD,floatwspP配房友带诉报却困善希,floatwspH,intilRek)

{

pushMat路谓友你显视右画rix();

tran为余slate(X,Y);

rectMode(CENTER);

dPitagorejskieR(D,wspP,wspH,随体劳厂马厚基汽ilRek);

rectMode(CORNER);

popMatrix();

}

v激班oiddPitagorejskieR(floatD,floatwspP,floatwspH,intilRek)

{

if(ilRek>0&&(里能孙还年一wspP<=1))

{

ilRek--;

rect(0广买变临故一呀状唱,0,D,D);

pushM宽于镇现兰atrix();

translate(D/必草孙2,0);

floatH=ws据客灯个务粒慢写pH*D;

floatrA=wspP*D;

floatrB=(1-wspP)*D;

floatA=dist(0,-D/2情再批速程林劳,H,rA-D/章财突满2);//przeciwprostokatnaA

floatB=dist(0,D/2,H,D/2-rB);//przeciwprostokatnaA

floatalfa=atan(H/rA);

floatbeta=atan(H/rB);

tr石父升特直anslate(H/2,rA/2-D/2);

rotate(-alfa);

translate(A/2,0);

厚剧对又富选究导dPitagorejskieR(A,zmianaK?1-wspP:wspP,w教故坚训调spH,ilRek);

popMatrix();

translate(D/2,D/2);

translate(H/2,-rB/2);

rotate(beta);

trans父late(B/2,0);

dPitagorejskieR(B,zmianaK?1-wspP:wspP,wspH,ilRe李倍合角k);

}

}