yves974
Site Admin
Inscrit le: 30 Oct 2007
Messages: 163
Localisation: Réunion
|
 Posté le: Mar Nov 03, 2009 4:56 am Sujet du message: |
 |
|
Ci joint un heptagone booléen, dans la version figure de base + script à appliquer + figure finale
| Code: |
m1="A";n1="B";p1="C";q1="D";r1="E";s1="F";t1="G"
for (i=0; i<80; i=i+1){
m2=Point("x_m1+coef*(x_n1-x_m1)","y_m1+coef*(y_n1-y_m1)");
n2=Point("x_n1+coef*(x_p1-x_n1)","y_n1+coef*(y_p1-y_n1)");
p2=Point("x_p1+coef*(x_q1-x_p1)","y_p1+coef*(y_q1-y_p1)");
q2=Point("x_q1+coef*(x_r1-x_q1)","y_q1+coef*(y_r1-y_q1)");
r2=Point("x_r1+coef*(x_s1-x_r1)","y_r1+coef*(y_s1-y_r1)");
s2=Point("x_s1+coef*(x_t1-x_s1)","y_s1+coef*(y_t1-y_s1)");
t2=Point("x_t1+coef*(x_m1-x_t1)","y_t1+coef*(y_m1-y_t1)");
Segment(m2,n2);Segment(n2,p2);Segment(p2,q2);
Segment(q2,r2);Segment(r2,s2);Segment(s2,t2);Segment(t2,m2);
SetHide(m2,true);SetHide(n2,true);SetHide(p2,true);
SetHide(q2,true);SetHide(r2,true);SetHide(s2,true);SetHide(t2,true);
m1=m2;n1=n2;p1=p2;q1=q2;r1=r2;s1=s2;t1=t2;
}
|
à appliquer sur BaseHeptBool |
|
