Снег на рабочем столе

[General]

Когда-то давно я разбирал процедуры рисования на экране в Делфи. В начале года, разбирая свои старые недоделанные проекты, я наткнулся на этот пример и решил написать программу, забрасывающую рабочий стол снегом. На улице тогда стояла слякоть, а программа создавала приятное зимнее настроение.

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

Вот как выглядит окно после некоторого времени падения снежинок:

Скачать интерактивный снегопад, 880КБ

[caban]

круть
но оформление хромает

эх, жалко моей первой программе не суждено было сохраниться.. магнитофон тогда не работал

[General]

Спасибо

Над оформлением подумаю.

Кстати, какая система у тебя? А то я только для ХР тестировал, всё никак не соберусь проставить виртуальную машину для тестов всяких.

Задумался, какая же у меня была первая программа... Скорее всего такая: прочитав книжку про Бейсик, я в тетрадке писал программу, которая по введённому числу выдаёт какой-нибудь анекдот. Вряд ли та тетрадка сохранилась, да и программа тогда в бейсик не воплотилась.

А вот уже реализованные бейсиковские проги храню. Игра Жизнь и рисование параметрически заданных функций.

[caban]

<div class='quotetop'>Цитата(General * 22.1.2010, 23:30) [snapback]322935[/snapback]</div>

Спасибо

Над оформлением подумаю.

Кстати, какая система у тебя? А то я только для ХР тестировал, всё никак не соберусь проставить виртуальную машину для тестов всяких.

Задумался, какая же у меня была первая программа... Скорее всего такая: прочитав книжку про Бейсик, я в тетрадке писал программу, которая по введённому числу выдаёт какой-нибудь анекдот. Вряд ли та тетрадка сохранилась, да и программа тогда в бейсик не воплотилась.

А вот уже реализованные бейсиковские проги храню. Игра Жизнь и рисование параметрически заданных функций.
[/b]

windows 7
запускается и зависает.. приходится гасить через д.з.

[General]

понятно...
почитаю про особенности API семёрки
А предыдущая версия идёт?
http://general.civfanatics.ru/soft/DS/DS.exe

[caban]

<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 начинает тормозить компьютер

[Unikum]

<div class='quotetop'>Цитата(General * 22.1.2010, 23:52) [snapback]322941[/snapback]</div>

понятно...
почитаю про особенности API семёрки
А предыдущая версия идёт?
http://general.civfanatics.ru/soft/DS/DS.exe
[/b]

На 7 64 идёт без проблем, только за мышкой снег не летает и не ложится. Так просто точки, но не висит.

[superregistr]

Красиво. За мышкой у меня летит и накапливается

[Папа]

Заценил!
Теперь всё в снегу!
Из снега:
- Спасибо Генерал!

(если добится плавности падения снега, то и выключать его будет ни к чему)

[General]

Плавность - что имеешь в виду? Думаешь, стоит уменьшить случайную составляющую скорости снежинок?

[Unikum]

<div class='quotetop'>Цитата(И.В. * 22.1.2010, 23:45) [snapback]322939[/snapback]</div>

windows 7
запускается и зависает.. приходится гасить через д.з.
[/b]

Тут мне кажется проблема с железом. Ну в смысле зависания.

Поставил нат ноут, там ХР. Да, классно. Закину в автозагрузку пока снег не надоест. Если на рабоче столе нет фона, снег не идёт.

[Папа]

<div class='quotetop'>Цитата(General * 23.1.2010, 14:50) [snapback]322999[/snapback]</div>

Плавность - что имеешь в виду? Думаешь, стоит уменьшить случайную составляющую скорости снежинок?
[/b]

Смотрел, думал. Как описать?
Наверно движения слижком резкие. Возможно дело в скорости. Тут надо опытным путём искать максимальное сходство с настоящим снегопадом.

А может в траектории...

[caban]

<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]

железо свежее, не глючное
а вот интерфейс аэро .. может и в нем дело

[UserCivAlex]

Круто, Генерал. Большое спасибо

[Vigo]

Прикольная штукенция
А где такую заставку ( для полного щастья) взять? .. ну конкретно эту

[Unikum]

<div class='quotetop'>Цитата(Vigo * 23.1.2010, 18:09) [snapback]323030[/snapback]</div>

Прикольная штукенция
А где такую заставку ( для полного щастья) взять? .. ну конкретно эту
[/b]

Там же ссылка внизу
http://general.civfanatics.ru/soft/IDS/IDS.exe

[General]

Картинка на рабочий стол без наметённого снега вот:
http://general.civfanatics.ru/pictures/Veter.jpg

[Vigo]

<div class='quotetop'>Цитата(Unikum * 23.1.2010, 18:13) [snapback]323031[/snapback]</div>

Там же ссылка внизу
[/b]

Другое имелось ввиду

Генерал, класс! .. тока хочется таких же "деревьев", а оно тока панель "быстрого запуска" замело, а правой кнопкой тыкается да все не то

[General]

А поставь вид ветра "To center" так будет быстрее нарастать в центра одно дерево

[Vigo]

Поставил.
Как дела вообще?