 вращение диска |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Sensitive |
 2.06.2007 13:32
Сообщение
#1
|
|
Пионер  Группа: Пользователи Сообщений: 132 Пол: Женский Реальное имя: Юлия Репутация:  0   |
Вообще не знаю каким способом делать эту задачу.
Условие прилагается. Подскажите пожалуйста, как это всё реализовать. Эскизы прикрепленных изображений 
|
   |
 
|
  |
Ответов
| klem4 |
2.06.2007 20:39
Сообщение
#2
|
 Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Цитата тебе понадобится только хранить углы начала/конца одного из сегментов, из этих данных элементарно находится, где начинается/заканчивается второй сегмент... Отрисовывать эти сегменты можно через Sector, а можно - PieSlice (еще один вариант - Arc + 2 линии).. Помоему будет достаточно одного угла, второй то будет = первый + 180* ? Я вот тоже так пробовал, Sector + FillEllipse или Sector + Sector. Получается достаточно глючно (мерцание при маленькой задержке)  ) Может что-то я не верно конечно делаю.Volvo ты пробовал ? Есть мысль не полностью сектора заливать, а сначала отрисовать окружность, на половину белую на половину черную, а потом, в цикле, перекрашивать FloodFill'ом маленкие кусочки, на которые будет осуществляться сдвиг прямой, делящей окружность на 2 половины. -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
| Sensitive |
2.06.2007 20:49
Сообщение
#3
|
|
Пионер Группа: Пользователи Сообщений: 132 Пол: Женский Реальное имя: Юлия Репутация: 0 |
volvo, если можешь дай полную ссылку. Не смогла найти, где там есть эти варианты.
 |
|
|
|
Сообщений в этой теме
Sensitive вращение диска 2.06.2007 13:32
volvo Если на диске должен быть только черный и белый се... 2.06.2007 18:11
Sensitive Да,на диске на белой его части есть частички (чёрн... 2.06.2007 18:28 volvo Несколько способов есть здесь (перевести то, что т... 2.06.2007 19:03 volvo Если диск разделен по диаметру, то хватит и одного... 2.06.2007 20:47 volvo Sensitive, я же дал полный путь к статьям :blink:... 2.06.2007 20:55 Sensitive Ой,сорри,volvo, всё нашла. Сейчас буду разбираться... 2.06.2007 21:28 klem4 Вроде этого
cx := GetMaxX div 2;
cy := GetMaxY ... 2.06.2007 20:56 klem4 В общем вот черновой вариант, есть небольшие несты... 2.06.2007 21:57 Sensitive К моему сожалению не смогла разобраться в тех прим... 4.06.2007 16:30 Sensitive к моему сожалению не смогла разобраться в тех прим... 4.06.2007 16:33 Sensitive Я прошу прощения еще раз...
при повороте изображен... 5.06.2007 18:04 klem4 В твоем конкретном случае, при использовании предл... 5.06.2007 18:08 Sensitive всё сижу над этим диском...
вот подпрограмма,котор... 6.06.2007 18:54 volvo Зачем тебе вручную рассчитывать все координаты, ко... 6.06.2007 20:29 Sensitive да,действительно и без ручного расчета тот код,что... 6.06.2007 23:32 Sensitive С диском так и "воюю"...
как закрасить д... 9.06.2007 13:32 volvo Вот так вращается одинаково:
uses graph, crt;
pro... 9.06.2007 14:10 Sensitive volvo,спасибо большое. Программу почти доделала с ... 9.06.2007 16:27 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 21.06.2025 6:02 |