- \section{TeX の時間} %%% 第 XIII 節 %%%
560 ：１３２人目の素数さん[]：2020/03/27(金) 07:44:43.97 ID:deOllHc9 - オリンピックパラリンピック延期騒動の軟着陸を祈願してasymptoteスクリプト奉納
（>>295 の改訂版）
・パラリンピックのエンブレムを追加しました
・対称中心が起点になるようにpathの描画順序を変更しました
pair d(int i){return exp(pi*I*i/12);}
pair t(int i, int j){return d(i)+d(j);}
path r(int l, int m){return d(l)--d(m)--d(12+l)--d(12+m)--cycle;}
struct st {pair p; path[] v;}
st operator &(st s, real r){s.p+=t(round(r),round(r*100)%100); return s;}
st operator &(st s, int i){s.v=s.v^^shift(s.p)*r(i#100,i%100); return s;}
st st3, st1, st2, st4;
st3 = st3&5.07&5.07&5.07&13.23&309 &5.07&111 &13.15&311 &11.13&103 &15.23&111
&21.23&109 &13.15&309 &9.11&311 &15.17&511 &21.23&509 &11.17&911 &19.21&711
&9.11&709 &17.19&509 &7.09&507;
st4 = st4&1.23&1.03&311 &3.05&511 &21.23&509 &5.07&709 &9.11&711 &7.09&911;
st2 = st2&13.23&17.19&19.21&307 &17.19&305 &1.17&103 &3.05&105 &5.07&107
&7.09&109 &1.09&1.11&111 &1.03&21.23&309 &1.23&507;
st1 = st1&13.23&111 &17.19&309 &19.21&15.17&507;
path[] eo=st3.v^^rotate(120)*st3.v^^rotate(240)*st3.v,
ep2=st4.v^^yscale(-1)*st4.v^^st2.v,
ep=ep2^^xscale(-1)*ep2^^st1.v;
filldraw(shift(8W)*eo^^shift(8E)*ep, heavyblue, nullpen);
size(100mm);
|
|