Yin and yang: Difference between revisions

Content added Content deleted
No edit summary
Line 4: Line 4:
Generate and display the symbol generated for two different (small) sizes.
Generate and display the symbol generated for two different (small) sizes.


[[File:Beispiel.jpg]]=={{header|D}}==
=={{header|D}}==
<lang d>import std.stdio, std.string, std.algorithm, std.array;
<lang d>import std.stdio, std.string, std.algorithm, std.array;


Line 94: Line 94:


=={{header|Delphi}}==
=={{header|Delphi}}==
<lang Delphi>
<lang d>
procedure TForm1.ButtonCreateClick(Sender: TObject);
procedure TForm1.ButtonCreateClick(Sender: TObject);
begin
begin
Line 123: Line 123:
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>
Output:
[[File:Yin&Yang.jpg]]


=={{header|J}}==
=={{header|J}}==