Графика на паскале.....

[КиношкА]

Незнаю какойто клин пошёл задание вродь простое но не идёт..... Может у когонить есть литература ссылки на програмирование графики скиньте плиззз.....

Задание вот такое: Для заданных координат левого верхнего и правого нижнего углов прямоугольника нарисовать N дуг концентрических элепсов с центром в правом верхнем углу так, что бы последная дуга проходила через левый верхний и правый нижний углы прямоугольника. Площади между дугами покрыть разными типами штриховки......

[shepelin]

Вот глава из книги М. Фленова "Библия Delphi" посвяшенная графике+примеры. может поможет чем то.

[КиношкА]

Увы Delphi я ещё не изучала..... изза этого думаю трудно будет орентироваться но спасибки гляну......

[puporev]

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

Школа работы на IBM PC. Часть 2
Книга Сидорова М.Е. и Трушина О.В.
http://www.nullsoft.ru/tv/pascal.htm

[КиношкА]

puporev к сожилению неодна ссылка тама не открылась((((((

[Stilet]

Киношка, я правильно угадал твою задачку? Ато мутное условие...

 uses Graph;
var
  grDriver: Integer;
  grMode: Integer;
  x,y,a,b,ErrCode,i: longint;
  ang:real;
begin
  grDriver := Detect;
  InitGraph(grDriver, grMode,'');
  ErrCode := GraphResult;
  if ErrCode = grOk then
  begin  { Do graphics }
   x:=100;y:=100; a:=200;b:=300;
    rectangle(x,y,a,b);
    i:=sqr(abs(a-x));
    i:=i+sqr(abs(b-x));
    ang:=sqrt(i);
    i:=trunc(ang);
    while i>10 do begin
     setfillstyle(XhatchFill,red);
     pieslice(x,y,270,360,i);
     dec(i,20);
    end;
 {}   rectangle(x,y,a,b);
    readln;
    CloseGraph;
  end
  else
    Writeln('Graphics error:', GraphErrorMsg(ErrCode));
end.

[КиношкА]

Stilet
спасибки огромное чтото похожие должно сотвариться только с разными типами штриховок))) Но ду маю это не столь трудно исправить попробуемс сделать))))

[puporev]

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

[КиношкА]

puporev
огромное спасибо!!!!!! И за програму иза материал для обучения))))