Нарисовать "Розу ветров" Опции

[Demian]

Здравствуйте. Нужно нарисовать "Розу ветров". Прошу о помощи.

[renesko1]

Попробуй сначало нарисовать крест, а потом вычесли опорные точки для углов внутри .Они отходят от центра на 45 гр. те берем окружность и / на 4 части и отмеряя углы находим координаты точек.
Не забудь, что все в радианах.
Потом соедини линиями (line(x,y,x1,y1)) получ. точки и концы креста, а дальше осталось все закрасить.

Центр , если не знаешь, находиться след. образом :
x0 := getmaxx div 2 ;
y0 := getmaxy div 2 ;
Линия line(x,y,x1,y1) ;


Сообщение отредактировано: renesko1 - 22.06.2008 16:54