feya писал(а):То что обрезает иногда - это следствие нашего обрезания логотипа.Получается, что валиден интервал от 0 до 360. Думаю, правильнее заменить на while Result>=360 do
Почему?
- Код: Выделить всё
while Result>360 do
Result:=Result-360;
while Result<0 do
result:=result+360;
на выходе получаем 0<=Result<=360.
А интервал должен быть 0<=Result<360.