Когда-то давно я разбирал процедуры рисования на экране в Делфи. В начале года, разбирая свои старые недоделанные проекты, я наткнулся на этот пример и решил написать программу, забрасывающую рабочий стол снегом. На улице тогда стояла слякоть, а программа создавала приятное зимнее настроение.
Но вскоре мне не захотелось ограничиваться статическими картинками снежинок, и я решил сделать снег движущимся и накапливающимся на окнах. Но самое главное, что отличает мою программу от аналогов - у меня движение мыши создаёт потоки воздуха, которые увлекают снежинки за собой. Поэтому можно самостоятельно направлять рост снежных узоров, к примеру, создавая вихри, скатывая снежки и прикрепляя их в нужном месте.
Вот как выглядит окно после некоторого времени падения снежинок:
Скачать интерактивный снегопад, 880КБ
Спасибо
Над оформлением подумаю.
Кстати, какая система у тебя? А то я только для ХР тестировал, всё никак не соберусь проставить виртуальную машину для тестов всяких.
Задумался, какая же у меня была первая программа... Скорее всего такая: прочитав книжку про Бейсик, я в тетрадке писал программу, которая по введённому числу выдаёт какой-нибудь анекдот. Вряд ли та тетрадка сохранилась, да и программа тогда в бейсик не воплотилась.
А вот уже реализованные бейсиковские проги храню. Игра Жизнь и рисование параметрически заданных функций.
<div class='quotetop'>Цитата(General * 22.1.2010, 23:30) [snapback]322935[/snapback]</div>windows 7Спасибо
Над оформлением подумаю.
Кстати, какая система у тебя? А то я только для ХР тестировал, всё никак не соберусь проставить виртуальную машину для тестов всяких.
Задумался, какая же у меня была первая программа... Скорее всего такая: прочитав книжку про Бейсик, я в тетрадке писал программу, которая по введённому числу выдаёт какой-нибудь анекдот. Вряд ли та тетрадка сохранилась, да и программа тогда в бейсик не воплотилась.
А вот уже реализованные бейсиковские проги храню. Игра Жизнь и рисование параметрически заданных функций.
[/b]
запускается и зависает.. приходится гасить через д.з.
понятно...
почитаю про особенности API семёрки
А предыдущая версия идёт?
http://general.civfanatics.ru/soft/DS/DS.exe
<div class='quotetop'>Цитата(General * 22.1.2010, 23:52) [snapback]322941[/snapback]</div>идет.. веселопонятно...
почитаю про особенности API семёрки
А предыдущая версия идёт?
http://general.civfanatics.ru/soft/DS/DS.exe
[/b]
но в режиме snow storm начинает тормозить компьютер
<div class='quotetop'>Цитата(General * 22.1.2010, 23:52) [snapback]322941[/snapback]</div>На 7 64 идёт без проблем, только за мышкой снег не летает и не ложится. Так просто точки, но не висит.понятно...
почитаю про особенности API семёрки
А предыдущая версия идёт?
http://general.civfanatics.ru/soft/DS/DS.exe
[/b]
Сколько людей, столько и мнений.
ISDG1-команда Парламент
Плавность - что имеешь в виду? Думаешь, стоит уменьшить случайную составляющую скорости снежинок?
<div class='quotetop'>Цитата(И.В. * 22.1.2010, 23:45) [snapback]322939[/snapback]</div>Тут мне кажется проблема с железом. Ну в смысле зависания.windows 7
запускается и зависает.. приходится гасить через д.з.
[/b]
Поставил нат ноут, там ХР. Да, классно. Закину в автозагрузку пока снег не надоест. Если на рабоче столе нет фона, снег не идёт.
Сколько людей, столько и мнений.
ISDG1-команда Парламент
<div class='quotetop'>Цитата(General * 23.1.2010, 14:50) [snapback]322999[/snapback]</div>Смотрел, думал. Как описать?
Плавность - что имеешь в виду? Думаешь, стоит уменьшить случайную составляющую скорости снежинок?
[/b]
Наверно движения слижком резкие. Возможно дело в скорости. Тут надо опытным путём искать максимальное сходство с настоящим снегопадом.
А может в траектории...
<div class='quotetop'>Цитата(Unikum * 23.1.2010, 15:16) [snapback]323003[/snapback]</div><div class='quotetop'>Цитата(И.В. * 22.1.2010, 23:45) [snapback]322939[/snapback]Тут мне кажется проблема с железом. Ну в смысле зависания.windows 7
запускается и зависает.. приходится гасить через д.з.
[/b]
Поставил нат ноут, там ХР. Да, классно. Закину в автозагрузку пока снег не надоест. Если на рабоче столе нет фона, снег не идёт.
[/b][/quote]
железо свежее, не глючное
а вот интерфейс аэро .. может и в нем дело
<div class='quotetop'>Цитата(Vigo * 23.1.2010, 18:09) [snapback]323030[/snapback]</div>Там же ссылка внизуПрикольная штукенция
А где такую заставку ( для полного щастья) взять? .. ну конкретно эту
[/b]
http://general.civfanatics.ru/soft/IDS/IDS.exe
Сколько людей, столько и мнений.
ISDG1-команда Парламент
Картинка на рабочий стол без наметённого снега вот:
http://general.civfanatics.ru/pictures/Veter.jpg
<div class='quotetop'>Цитата(Unikum * 23.1.2010, 18:13) [snapback]323031[/snapback]</div>Другое имелось ввидуТам же ссылка внизу
[/b]
Генерал, класс! .. тока хочется таких же "деревьев", а оно тока панель "быстрого запуска" замело, а правой кнопкой тыкается да все не то
А поставь вид ветра "To center" так будет быстрее нарастать в центра одно дерево