Yin and yang: Difference between revisions
Content added Content deleted
Underscore (talk | contribs) (→{{header|Asymptote}}: Added a rendering.) |
No edit summary |
||
Line 211: | Line 211: | ||
.******** |
.******** |
||
* </lang> |
* </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}}== |
=={{header|Prolog}}== |