19/04/05 23:23:38.43 2tyxQZOG.net
十年ほど前はMetapost使ってたがAsymptote派になった
頭の体操がてらオリンピックTokyo2020エンブレム生成するAsymptoteスクリプト書いた
Tikzはよくしらないので これをネタに「ここが便利！」って話があれば聞きたい
pair[] v, s; path p;
for(int i=0; i<12; ++i){
v[i]=exp(2*pi*I*(2.5-i)/12);
s[i]=exp(2*pi*I*(2.5-i)/12)/2+exp(2*pi*I*(3.5-i)/12)/2;
p=p--v[i];
}
p=p--cycle;
pair[] c={(0, 0)};
c[1]=c[0]+2*s[6]; c[2]=c[0]+2*s[8]; c[3]=c[2]+2*s[6];
c[4]=c[2]+2*s[9]; c[5]=c[2]+2*s[8]; c[6]=c[5]+2*s[6];
c[7]=c[5]+2*s[8]; c[8]=c[7]+2*s[7]; c[9]=c[6]+2*s[7];
c[10]=c[8]+v[4]+v[6]; c[11]=c[10]+v[5]+v[9];
c[12]=c[10]+2*s[8]; c[13]=c[10]+2*s[5]; c[14]=c[10]+2*s[8]+2*s[5];
for(int i=0; i<size(c); ++i) draw(shift(c[i])*p, pink);
pair cc=c[14]+2*s[6];
path r(pair c, int i0, int i1, int i2, int i3){
return shift(c)*(v[i0]--v[i1]--v[i2]--v[i3]--cycle);
}
path[] q0=r(c[0], 2, 3, 8, 9)^^r(c[1], 1, 4, 7, 10)^^r(c[2], 1, 3, 7, 9)^^
r(c[3], 2, 4, 8, 10)^^r(c[4], 1, 2, 7, 8)^^r(c[5], 2, 3, 8, 9)^^
r(c[6], 1, 4, 7, 10)^^r(c[7], 1, 3, 7, 9)^^r(c[8], 0, 3, 6, 9)^^
r(c[9], 0, 4, 6, 10)^^r(c[10], 3, 4, 9, 10)^^r(c[11], 4, 5, 10, 11)^^
r(c[12], 0, 5, 6, 11)^^r(c[13], 3, 5, 9, 11)^^r(c[14], 0, 4, 6, 10),
q=q0^^shift(cc)*rotate(120)*q0^^shift(xscale(-1)*cc)*rotate(240)*q0;
filldraw(q, heavyblue, nullpen); size(100mm);