Sierpinski pentagon: Difference between revisions
m
Use the pi function built into SWI Prolog
(Added Prolog Solution) |
m (Use the pi function built into SWI Prolog) |
||
Line 924:
Margin = 5,
Radius is Size/2 - 2 * Margin,
▲ Side is Radius * sin(Pi/5) * 2,
X is Size/2,
Y is 3 * Margin,
Scale_factor is 1/(2 + cos(2 *
sierpinski_pentagon(Stream, X, Y, Scale_factor, Side, Order),
write(Stream, "</svg>\n"),
close(Stream).
sierpinski_pentagon(Stream, X, Y, _, Side, 1):-
Line 939 ⟶ 936:
write(Stream, "<path stroke-width='1' stroke='black' fill='blue' d='"),
format(Stream, 'M ~g,~g ', [X, Y]),
Angle is 6 * pi
write_pentagon_points(Stream, Side, Angle, X, Y, 5),
write(Stream, "z'/>\n").
Line 946 ⟶ 942:
Side1 is Side * Scale_factor,
N1 is N - 1,
Angle is 6 * pi
sierpinski_pentagons(Stream, X, Y, Scale_factor, Side1, Angle, N1, 5).
Line 953 ⟶ 948:
write_pentagon_points(Stream, Side, Angle, X, Y, N):-
N1 is N - 1,
X1 is X + cos(Angle) * Side,
Y1 is Y - sin(Angle) * Side,
Angle1 is Angle + 2 *
format(Stream, 'L ~g,~g ', [X1, Y1]),
write_pentagon_points(Stream, Side, Angle1, X1, Y1, N1).
Line 963 ⟶ 957:
sierpinski_pentagons(Stream, X, Y, Scale_factor, Side, Angle, N, I):-
I1 is I - 1,
▲ Distance is Side + Side * cos(2 * Pi/5) * 2,
X1 is X + cos(Angle) * Distance,
Y1 is Y - sin(Angle) * Distance,
Angle1 is Angle + 2 *
sierpinski_pentagon(Stream, X1, Y1, Scale_factor, Side, N),
sierpinski_pentagons(Stream, X1, Y1, Scale_factor, Side, Angle1, N, I1).</lang>
|