Здравствуйте. Помогите сделать рисунок в Pascal Abc.

Question

Здравствуйте. Помогите сделать рисунок в Pascal Abc.

---

Comments

Из Base64

---

так она и должна быть просто, как картинка.

---

а нет, она должна быть пофигурно нарисована

---

Пофигурно?

---

Бида

---

Ну ладно, тогда за пару недель без перерыва нарисую ._. х)

---

Именно так или близко к тексту?

---

Такой же рисунок, можно, есстественно в точь-точь он вряд ли будет, но около того.

---

Я вам очень благодарен, если сделаете, завтра сдавать просто :)

Answer 1

В таком случае, вот:)

Comments

uses
GraphABC;

procedure ms(x, y, z: integer);
begin
window.Title := string.Format('({0}; {1})', x, y);
end;

begin
setbrushcolor(clGray);
circle(150, 200, 20);
GRaphabc.OnMouseMove := ms;
line(128,214,67,214);
line(66,194,125,196);
line(126,204,67,202);
moveto(131,184);

---

lineto(69,166); lineto(66,194);
lineto(67,202);
lineto(67,214); lineto(128,214);
lineto(125,196); lineto(131, 184);
graphabc.FloodFill(100, 210, cllightgray);
graphabc.FloodFill(70, 190, cllightgray);
graphabc.FloodFill(98, 200, cllightgray);

line(230,215,230,127);
ellipse(260,100,200,176);
floodfill(230,133,clwhite);

---

line(234,173,213,108);
line(235,100,259,146);
line(247,107,202,125);
line(204,152,258,148);
end.

---

Спасибо, но ругается на строку:
window.Title := string.Format('({0}; {1})', x, y);

---

Ой, да, уберите всю процедуру
procedure ms(x, y, z: integer);
begin
window.Title := string.Format('({0}; {1})', x, y);
end;

и строку
GRaphabc.OnMouseMove := ms;

У меня не ругалось, но это тут лишнее, для дебага делал