Anonymous user
Yin and yang: Difference between revisions
no edit summary
Underscore (talk | contribs) (→{{header|Asymptote}}: Added a rendering.) |
No edit summary |
||
Line 211:
.********
* </lang>
=={{header|Mathematica}}==
Mathematica's ability to symbolically build up graphics is often underrated. The following function will create a yin-yang symbol with the parameter size indicating the diameter in multiples of 40 pixels.
<lang Mathematica>
YinYang[size_] :=
Graphics[{{Circle[{0, 0}, 2]}, {Disk[{0, 0},
2, {90 Degree, -90 Degree}]}, {White, Disk[{0, 1}, 1]}, {Black,
Disk[{0, -1}, 1]}, {Black, Disk[{0, 1}, 1/4]}, {White,
Disk[{0, -1}, 1/4]}}, ImageSize -> 40 size]
</lang>
=={{header|Prolog}}==
| |||