Есть фрагмент кода, он рисует что-то наподобии снежинки
public void snowflake(PaintEventArgs e,float x0,float y0,float xn,float yn,float r,int n,int n1)
{
Pen pen = new Pen(Pens.Black, 2);
int i = 1;
int i2 = 0;
float xc = x + r;
float yc = y + r;
float ncur = 0;
e.Graphics.DrawEllipse(pen, x, y, 2 * r, 2 * r);
e.Graphics.DrawEllipse(pen, x - r, y - r, 4 * r, 4 * r);
for (; i < n1 + 1; i++)
{
for (; i2 < n; i2++)
{
float il = i2 - (n - 1) / 2;
//float rl = r / n1 * i;
ncur = n * (ncur + il);
xn = x0 + r * (float)Math.Cos((ncur + il) * 2 * (float)Math.PI / n);
yn = y0 + r * (float)Math.Sin((ncur + il) * 2 * (float)Math.PI / n);
e.Graphics.DrawLine(pen, xc, yc, xn, yn);
}
}
}
Как сделать так, чтобы можно было выводить разное кол-во ярусов, по желанию? Сейчас всегда рисует только один ярус. X,y-координаты центра, r-радиус одного яруса
Есть также код на паскале, полностью рабочий
procedure drawsnowflake(x0, y0, x, y, r, n, k, kcur: integer; ncur, angle: real; color: system.drawing.color);
begin
if kcur <= k then
begin
for var i := 0 to n - 1 do
begin
var i1 := i - (n - 1) / 2;
var r1 := round(r / k * kcur);
var x1 := round(x0 + r1 * cos((ncur + i1) * angle));
var y1 := round(y0 + r1 * sin((ncur + i1) * angle));
line(x, y, x1, y1, color);
drawsnowflake(x0, y0, x1, y1, r, n, k, kcur + 1, n * (ncur + i1), angle / n, color);
end;
end;
end;
var
x, y, r, n, k, answer: integer;
color: system.drawing.color;
begin
while true do
begin
textout(0, 0, 'X = ');
read(x);
clearwindow;
textout(0, 0, 'X = ');
textout(25, 0, x);
textout(0, 20, 'Y = ');
read(y);
textout(25, 20, y);
textout(0, 40, 'R = ');
read(r);
textout(25, 40, r);
textout(0, 60, 'Ветвлений = ');
read(n);
textout(80, 60, n);
textout(0, 80, 'Ярусов = ');
read(k);
textout(60, 80, k);
textout(0, 100, 'BorderColor = ');
textout(0, 120, '0 - Black');
textout(0, 140, '1 - Red');
textout(0, 160, '2 - Green');
textout(0, 180, '3 - Blue');
textout(0, 200, '4 - Yellow');
read(answer);
fillrect(0, 120, 100, 220);
case answer of
1: begin color := clred; textout(90, 100, 'Red'); end;
2: begin color := clgreen; textout(90, 100, 'Green'); end;
3: begin color := clblue; textout(90, 100, 'Blue'); end;
4: begin color := clyellow; textout(90, 100, 'Yellow'); end;
else begin color := clblack; textout(90, 100, 'Black'); end;
end;
textout(25, 40, r);
drawsnowflake(x, y, x, y, r, n, k, 1, 0, 2 * pi / n, color)
end;
end.
drawsnowflake(x0, y0, x1, y1, r, n, k, kcur + 1, n * (ncur + i1), angle / n, color);
в коде на паскале. Это называется "рекурсия". В коде на c# у вас её нет.