ランダムなメモランダム

雑草のような雑念と雑考

インヤン坊のMathematicaコード


Graphics[ {EdgeForm[Directive[Thin, Black]], Black,
Disk[{0, 0}, 1, {0, Pi}], EdgeForm[Directive[Thin, LightGray]],
White, Disk[{0, 0}, 1, {Pi, 2 Pi}], EdgeForm[Directive[Thin, Gray]],
Black, Disk[{1/2, 0}, 1/2, {Pi, 2 Pi}],
White, Disk[{1/2, 0}, 1/8], Black, Disk[{1/2, 0}, 1/18],
EdgeForm[Directive[Thin, White]], White,
Disk[{-1/2, 0}, 1/2, {0, Pi}]
, Black, Disk[{-1/2, 0}, 1/8], White, Disk[{-1/2, 0}, 1/18],
EdgeForm[Directive[Thick, Gray]], Black,
Circle[{0, -1/2}, 1/14, {3 Pi/2 - Pi/4, 3 Pi/2 + Pi/4}]}]