Yin and yang: Difference between revisions
Content added Content deleted
No edit summary |
m (→{{header|Delphi}}: Fix syntax highlighting) |
||
| Line 94: | Line 94: | ||
=={{header|Delphi}}== |
=={{header|Delphi}}== |
||
| ⚫ | |||
<lang d> |
|||
| ⚫ | |||
begin |
begin |
||
DrawYinAndYang(StrToInt(EditSize.Text), Canvas, GetClientRect); |
DrawYinAndYang(StrToInt(EditSize.Text), Canvas, GetClientRect); |
||
| Line 122: | Line 121: | ||
DrawArea.Pen.Color := clblack; |
DrawArea.Pen.Color := clblack; |
||
DrawArea.Ellipse(10 + 7 * (size div 16), 10 + 3 * (size div 16), 10 + 9 * (size div 16),10 + 5 * (size div 16)); |
DrawArea.Ellipse(10 + 7 * (size div 16), 10 + 3 * (size div 16), 10 + 9 * (size div 16),10 + 5 * (size div 16)); |
||
end; |
end;</lang> |
||
</lang> |
|||
=={{header|J}}== |
=={{header|J}}== |
||