Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Графика

Автор: Neon6868 22.06.2008 22:14

Я провожу дугу, определяю координаты её конца. Потом я провожу линию из центра дуги в координаты конца дуги, но она не проводится. Подскажите почему, никак не могу понять!

  procedure linii_11(r1:real;x,y:integer);
  var
    m:integer;
    n:integer;
    coo:arccoordstype;
  begin
    setcolor(15);
    arc(x,y,0,80,round(r1+r1/3));
    getarccoords(coo);
    m:=coo.Xend;
    n:=coo.Yend;
    line(x,y,m,n);
    line(m,n,m+3,n+3);
    line(m,n,m-3,n+3);
  end;


Автор: volvo 22.06.2008 22:44

Проводится... Из центра дуги к окончанию... Чтоб провести к началу - пользуйся coo.Xstart и coo.Ystart...

Автор: Neon6868 22.06.2008 22:58

Цитата(volvo @ 22.06.2008 19:44) *

Проводится... Из центра дуги к окончанию... Чтоб провести к началу - пользуйся coo.Xstart и coo.Ystart...


Проверил на компьютере, действительно проводится. А на ноутбуке нет! wacko.gif Кто-нибудь знает почему?

Автор: Neon6868 22.06.2008 23:27

Извиняюсь, я просто случайно нажал F8, вот программа и выполнялась до вывода линии lol.gif