Помогите нарисовать рисунок бабочки в turbo pascal

[Влад135]

помогите пожалуйста нарисовать рисунок бабочки без применения команд
x:=getmaxX div 2;
y:=getmaxY div 2;

и к примеру чтоб при прописывании было не с использованием
(x,y,x-,y-,x+,y+) как на отрывке

line(x,y,x-150,y-40);
line(x-150,y-40,x-100,y-180);
line(x-100,y-180,x,y-40);
line(x,y,x+150,y-40);
line(x+150,y-40,x+100,y-180)

а чтоб вид рисунка был вот как другая бабочка

uses graph;
var x,y:integer;
begin
initgraph(x,y,'');
setcolor(14);
ellipse(320,240,0,360,8,60);
circle(320,171,8);
line(313,165,283,135);
circle(281,132,2);
line(327,165,357,135);
circle(359,132,2);
line(316,188,324,188);
line(314,199,326,199);
line(314,216,327,216);
line(313,232,328,232);
line(313,248,328,248);
line(314,264,326,264);
line(314,281,326,281);
line(316,292,324,292);
ellipse(355, 220, 255, 160, 30, 50);
ellipse(340, 290, 180, 70, 15, 25);
ellipse(285, 220, 20, 295, 30, 50);
ellipse(300, 290, 120, 360, 15, 25);
readln
end.

[Black Fregat]

Ничего не понял. Ну посчитайте руками все эти суммы и разности, если не лень за компьютер работать..

[min@y™]

Если это школьное/универское задание, то сфоткай препода и выложи сюда. Хочу этому вредителю в глаза посмотреть.

[Влад135]

Простите я не уточнил что у меня сломан монитор, я писал вам с телефона поэтому не смог сразу ответить. и мне срочно нужно перевести порядок кода рисунка из вида

uses graph;
var x,y:integer;
begin
initgraph(x,y,'');
{центр экрана}
x:=getmaxX div 2;
y:=getmaxY div 2;
setcolor(8); {фон}
setbkcolor(11);
{крылья}
setcolor(14);
line(x,y,x-150,y-40);
line(x-150,y-40,x-100,y-180);
line(x-100,y-180,x,y-40);
line(x,y,x+150,y-40);
line(x+150,y-40,x+100,y-180);
line(x+100,y-180,x,y-40);
line(x,y,x-150,y+40);
line(x-150,y+40,x-100,y+180);
line(x-100,y+180,x,y+50);
line(x,y,x+150,y+40);
line(x+150,y+40,x+100,y+180);
line(x+100,y+180,x,y+50);
line(x,y-40,x,y+50);
setfillstyle(1,14);
floodfill(x-30,y-10,14);
floodfill(x+30,y-10,14);
floodfill(x-30,y+10,14);
floodfill(x+30,y+10,14);
setlinestyle(0,0,3);
setcolor(8);
line(x,y,x-150,y-40);
line(x-150,y-40,x-100,y-180);
line(x-100,y-180,x,y-40);
line(x,y,x+150,y-40);
line(x+150,y-40,x+100,y-180);
line(x+100,y-180,x,y-40);
line(x,y,x-150,y+40);
line(x-150,y+40,x-100,y+180);
line(x-100,y+180,x,y+50);
line(x,y,x+150,y+40);
line(x+150,y+40,x+100,y+180);
line(x+100,y+180,x,y+50);
line(x,y-40,x,y+50);
{туловище}
setfillstyle(1,8);
fillellipse(x,y+10,20,150);
{голова}
setcolor(14);
setfillstyle(1,14);
fillellipse(x,y-140,20,20);
{усы}
setlinestyle(0,0,3);
setcolor(8);
circle(x,y-140,20);
line(x-5,y-158,x-10,y-180);
line(x+5,y-158,x+10,y-180);
{пятна на крыльях}
setfillstyle(1,8);
fillellipse(x-10,y-178,3,3);
fillellipse(x+10,y-178,3,3);
fillellipse(x-70,y-70,20,35);
fillellipse(x+70,y-70,20,35);
fillellipse(x-100,y+100,20,35);
fillellipse(x+100,y+100,20,35);
setfillstyle(1,7);
fillellipse(x-60,y+40,25,10);
fillellipse(x+60,y+40,25,10);
readln
end.

в вид
подобный другому рисунку такому как

uses graph;
var x,y:integer;
begin
initgraph(x,y,'');
setcolor(14);
ellipse(320,240,0,360,8,60);
circle(320,171,8);
line(313,165,283,135);
circle(281,132,2);
line(327,165,357,135);
circle(359,132,2);
line(316,188,324,188);
line(314,199,326,199);
line(314,216,327,216);
line(313,232,328,232);
line(313,248,328,248);
line(314,264,326,264);
line(314,281,326,281);
line(316,292,324,292);
ellipse(355, 220, 255, 160, 30, 50);
ellipse(340, 290, 180, 70, 15, 25);
ellipse(285, 220, 20, 295, 30, 50);
ellipse(300, 290, 120, 360, 15, 25);
readln
end.

то есть без применения команд
x:=getmaxX div 2;
y:=getmaxY div 2;
я не могу сделать перевод в другой вид по очевидной причине - не вижу что печатаю из за сломанного монитора хеех

[Black Fregat]

Я сегодня добрый

uses graph;
  var x,y:integer;
begin
  initgraph(x,y,'');
  {центр экрана}
  setcolor(8); {фон}
  setbkcolor(11);
  {крылья}
  setcolor(14);
  line(320,240,170,200);
  line(170,200,220,60);
  line(220,60,320,200);
  line(320,240,470,200);
  line(470,200,420,60);
  line(420,60,320,200);
  line(320,240,170,280);
  line(170,280,220,420);
  line(220,420,320,290);
  line(320,240,470,280);
  line(470,280,420,420);
  line(420,420,320,290);
  line(320,200,320,290);
  setfillstyle(1,14);
  floodfill(290,230,14);
  floodfill(350,230,14);
  floodfill(290,250,14);
  floodfill(350,250,14);
  setlinestyle(0,0,3);
  setcolor(8);
  line(320,240,170,200);
  line(170,200,220,60);
  line(220,60,320,200);
  line(320,240,470,200);
  line(470,200,420,60);
  line(420,60,320,200);
  line(320,240,170,280);
  line(170,280,220,420);
  line(220,420,320,290);
  line(320,240,470,280);
  line(470,280,420,420);
  line(420,420,320,290);
  line(320,200,320,290);
  {туловище}
  setfillstyle(1,8);
  fillellipse(320,250,20,150);
  {голова}
  setcolor(14);
  setfillstyle(1,14);
  fillellipse(320,100,20,20);
  {усы}
  setlinestyle(0,0,3);
  setcolor(8);
  circle(320,100,20);
  line(315,82,310,60);
  line(325,82,330,60);
  {пятна на крыльях}
  setfillstyle(1,8);
  fillellipse(310,62,3,3);
  fillellipse(330,62,3,3);
  fillellipse(250,170,20,35);
  fillellipse(390,170,20,35);
  fillellipse(220,340,20,35);
  fillellipse(420,340,20,35);
  setfillstyle(1,7);
  fillellipse(260,280,25,10);
  fillellipse(380,280,25,10);
  readln
end.

[Влад135]

Аллилуя!!! я действительно студент, преподаватель у нас строгий, врятли поверит в сломанный компьютер. Задал эту чертову бабочку в субботу до понедельника! Вечером в субботу у меня сломался монитор, при вскрытии оказалось что конденсатор вздулся а замены на руках нет, а это значит монитора нет, паскаля нет! уух теперь все обошлось, а задание я в универе скину с телефона на флешку и передам преподу, боже!!! вы меня спасли!!!

[Black Fregat]

Но мы все так и не поняли, чем плохо считать координаты от центра экрана