かかりこ
$init=t100; $base1=b-<fb-<d>b-f> g<dgb-gd> <cgb-<f>b-f> f<f<ce-c>a>; $base2=e-b-<b-gb-g> f<cafaf> b-<fb-fb-f> g<gbgbg> <cgb-gb-g> f<cacac> /: b-<fb-fb-f> :/; $base3=/:e-b-<b-gb-g>:/ /:d<fb-fb-f>:/ </:cgb-gb-g:/> b-<fb-fb-f> a-<fa-fa-f>; $base4=/:e-b-<b-gb-g>:/ db-<b-fb-f> g<gbgbg> <cg<c>g<c>g> f<cacac> b-<fb-fb-f> $base1; $melo0=r2.r2.r2.r2; $melo1=fb-2f<d2>b-<f1>r; $melo2=<fg2.>a2<gf2.d2.d2.d2c>b-1r; $melo3=b-b-2.a2<c> b-2.f2. e-2de-2f d1&d; $melo4=b-b-2.a2<c> b-2f<f2. e-2.d2c>b-1&b- r2.r2.r2.; $init @3o5l4v10 $melo0 /:99 /: /: $melo1 :/ $melo2 :/ $melo3 $melo4 :/; $init @2o3l8v15 $base1 /:99 /: /: $base1 :/ $base2 :/ $base3 $base4 :/;
マクロ使ってみた。