Просмотр полной версии : Снег на рабочем столе
Когда-то давно я разбирал процедуры рисования на экране в Делфи. В начале года, разбирая свои старые недоделанные проекты, я наткнулся на этот пример и решил написать программу, забрасывающую рабочий стол снегом. На улице тогда стояла слякоть, а программа создавала приятное зимнее настроение.
Но вскоре мне не захотелось ограничиваться статическими картинками снежинок, и я решил сделать снег движущимся и накапливающимся на окнах. Но самое главное, что отличает мою программу от аналогов - у меня движение мыши создаёт потоки воздуха, которые увлекают снежинки за собой. Поэтому можно самостоятельно направлять рост снежных узоров, к примеру, создавая вихри, скатывая снежки и прикрепляя их в нужном месте.
Вот как выглядит окно после некоторого времени падения снежинок:
http://general.civfanatics.ru/soft/IDS/IDS-screen.JPG
Скачать интерактивный снегопад (http://general.civfanatics.ru/soft/IDS/IDS.exe), 880КБ
круть :applau2:
но оформление хромает :umnik:
эх, жалко моей первой программе не суждено было сохраниться.. магнитофон тогда не работал :no:
Спасибо :)
Над оформлением подумаю.
Кстати, какая система у тебя? А то я только для ХР тестировал, всё никак не соберусь проставить виртуальную машину для тестов всяких.
Задумался, какая же у меня была первая программа... Скорее всего такая: прочитав книжку про Бейсик, я в тетрадке писал программу, которая по введённому числу выдаёт какой-нибудь анекдот. Вряд ли та тетрадка сохранилась, да и программа тогда в бейсик не воплотилась.
А вот уже реализованные бейсиковские проги храню. Игра Жизнь и рисование параметрически заданных функций.
<div class='quotetop'>Цитата(General * 22.1.2010, 23:30) 322935</div>
Спасибо :)
Над оформлением подумаю.
Кстати, какая система у тебя? А то я только для ХР тестировал, всё никак не соберусь проставить виртуальную машину для тестов всяких.
Задумался, какая же у меня была первая программа... Скорее всего такая: прочитав книжку про Бейсик, я в тетрадке писал программу, которая по введённому числу выдаёт какой-нибудь анекдот. Вряд ли та тетрадка сохранилась, да и программа тогда в бейсик не воплотилась.
А вот уже реализованные бейсиковские проги храню. Игра Жизнь и рисование параметрически заданных функций.
[/b]
windows 7
запускается и зависает.. приходится гасить через д.з.
понятно...
почитаю про особенности API семёрки
А предыдущая версия идёт?
http://general.civfanatics.ru/soft/DS/DS.exe
<div class='quotetop'>Цитата(General * 22.1.2010, 23:52) 322941</div>
понятно...
почитаю про особенности API семёрки
А предыдущая версия идёт?
http://general.civfanatics.ru/soft/DS/DS.exe
[/b]
идет.. весело :biglol:
но в режиме snow storm начинает тормозить компьютер :shock:
<div class='quotetop'>Цитата(General * 22.1.2010, 23:52) 322941</div>
понятно...
почитаю про особенности API семёрки
А предыдущая версия идёт?
http://general.civfanatics.ru/soft/DS/DS.exe
[/b]
На 7 64 идёт без проблем, только за мышкой снег не летает и не ложится. :no: Так просто точки, но не висит.
superregistr
23.01.2010, 02:15
:applau2: Красиво. За мышкой у меня летит и накапливается :bayan:
Заценил!
Теперь всё в снегу!
Из снега:
- Спасибо Генерал!
:bayan:
(если добится плавности падения снега, то и выключать его будет ни к чему:))
:)
Плавность - что имеешь в виду? Думаешь, стоит уменьшить случайную составляющую скорости снежинок?
<div class='quotetop'>Цитата(И.В. * 22.1.2010, 23:45) 322939</div>
windows 7
запускается и зависает.. приходится гасить через д.з.
[/b]
Тут мне кажется проблема с железом. Ну в смысле зависания.
Поставил нат ноут, там ХР. Да, классно. Закину в автозагрузку пока снег не надоест. Если на рабоче столе нет фона, снег не идёт.
<div class='quotetop'>Цитата(General * 23.1.2010, 14:50) 322999</div>
:)
Плавность - что имеешь в виду? Думаешь, стоит уменьшить случайную составляющую скорости снежинок?
[/b]
Смотрел, думал. Как описать?
Наверно движения слижком резкие. Возможно дело в скорости. Тут надо опытным путём искать максимальное сходство с настоящим снегопадом.
А может в траектории...
<div class='quotetop'>Цитата(Unikum * 23.1.2010, 15:16) 323003</div>
<div class='quotetop'>Цитата(И.В. * 22.1.2010, 23:45) 322939
windows 7
запускается и зависает.. приходится гасить через д.з.
[/b]
Тут мне кажется проблема с железом. Ну в смысле зависания.
Поставил нат ноут, там ХР. Да, классно. Закину в автозагрузку пока снег не надоест. Если на рабоче столе нет фона, снег не идёт.
[/b][/quote]
железо свежее, не глючное :pray:
а вот интерфейс аэро .. может и в нем дело
UserCivAlex
23.01.2010, 18:17
Круто, Генерал. Большое спасибо :)
Прикольная штукенция :applau2:
А где такую заставку ( :secret: для полного щастья) взять? .. ну конкретно эту :shy2:
<div class='quotetop'>Цитата(Vigo * 23.1.2010, 18:09) 323030</div>
Прикольная штукенция :applau2:
А где такую заставку ( :secret: для полного щастья) взять? .. ну конкретно эту :shy2:
[/b]
Там же ссылка внизу :biglol:
http://general.civfanatics.ru/soft/IDS/IDS.exe
Картинка на рабочий стол без наметённого снега вот:
http://general.civfanatics.ru/pictures/Veter.jpg
<div class='quotetop'>Цитата(Unikum * 23.1.2010, 18:13) 323031</div>
Там же ссылка внизу :biglol:
[/b]
Другое имелось ввиду :harhar:
Генерал, класс! :D .. тока хочется таких же "деревьев", а оно тока панель "быстрого запуска" замело, а правой кнопкой тыкается да все не то :shy2:
А поставь вид ветра "To center" так будет быстрее нарастать в центра одно дерево
Поставил.
Как дела вообще?
Вот такое дерево наросло, пока чай пил
http://general.civfanatics.ru/soft/IDS/tree1.JPG
А дела - аспирантуру закончил, только не защитился пока, жду внедрения программы моей... Сейчас на полставки преподавателем, на пол - программистом. Запустил в этом году 2 англоязычных блога, в одном буду свои программки выкладывать вроде этой, а в другом - математические задачи. Попробую раскрутиться.
Пратчетта продолжаю читать, недавно "Пирамиды" прочёл. В циву играю сейчас только в 113 РВЕМ. Пропатчил БТС нормлаьно, хотел уже оп сетке погамать, а случайно, чистив винт, потёр патченную версию. А ты как?
Выросла, только чуть поменьше - на "moderate" поставил. В остальном тоже нормально, жесткий диск вот недавно приехал со всей литературой и музыкой - лет 15 собирал, сижу на съемном - на дне корпуса валяется, все жду когда перемкнет. Хожу по друзьям/знакомым и собираю всё что когда то раздавал.. :cry:
NeseryozniyVET
23.01.2010, 22:56
А можно убрать ограничение на количество снежинок?
Круговыми движениями мышки собрал все снежинки в ком, а новые перестали появлятся!
Да, сейчас их летает ровно 1000 штук. Если посадить ком на панель задач, выпадет следующая волна. Хотя массив динамический, я остановился на таком фиксированном числе, т.к. при увеличении количества снежинок увеличивается потребление ресурсов программой.
Хотя, есть пара идей, как сделать количество снежинок плавающим в определённых пределах, чтобы при наличии кома новые продолжали чуть-чуть падать. Подумаю.
NeseryozniyVET
24.01.2010, 00:48
Можно в опциях дать возможность пользователю самому выбирать лимит снежинок.
<div class='quotetop'>Цитата(Vigo * 23.1.2010, 20:07) 323050</div>
В остальном тоже нормально, жесткий диск вот недавно приехал со всей литературой и музыкой - лет 15 собирал, сижу на съемном - на дне корпуса валяется, все жду когда перемкнет. Хожу по друзьям/знакомым и собираю всё что когда то раздавал.. :cry:
[/b]
Виго, всё будет!
Или лучше так:
- Всё будет хорошо! :yes:
Supremator
27.01.2010, 19:17
Информация:
На Windows 7, Windows Vista - не работает.
Выглядит это как появление белых пикселей (на всей площади экрана (могут появится (не сразу все)) и они не могут перемещаться).
Спасибо!
Сейчас пытаюсь сделать совместимую с семёркой версию.
У меня при тесте на семёрке иногда снежинки затирали свой предыдущее положение, иногда - нет. Как мне кажется, след остаётся тогда, когда активизируется какое-то окно или меню.
Скомпилировал в семёрке тестовую версию6 летает по экрану одна точка жёлтого цвета. Изначально появляется ближе к левому верхнему углу экрана в точке с координатами (200, 200). В заголовке окна пишутся её координаты.
При тесте у меня точка затирала за собой след исправно и реагировала на порывы ветра, создаваемые движениями курсора. Проверьте, пожалуйста, как программа будет работать на других компах с семёркой?
http://general.civfanatics.ru/soft/IDS/test7.exe
Хальк Юсдаль
28.01.2010, 21:33
Очень красивая штука, жаль только, что при работе других программ сугробы затираются.
И да XP, так что тестом помочь не смогу.
<div class='quotetop'>Цитата(General * 28.1.2010, 19:18) 323463</div>
Спасибо!
Сейчас пытаюсь сделать совместимую с семёркой версию.
У меня при тесте на семёрке иногда снежинки затирали свой предыдущее положение, иногда - нет. Как мне кажется, след остаётся тогда, когда активизируется какое-то окно или меню.
Скомпилировал в семёрке тестовую версию6 летает по экрану одна точка жёлтого цвета. Изначально появляется ближе к левому верхнему углу экрана в точке с координатами (200, 200). В заголовке окна пишутся её координаты.
При тесте у меня точка затирала за собой след исправно и реагировала на порывы ветра, создаваемые движениями курсора. Проверьте, пожалуйста, как программа будет работать на других компах с семёркой?
http://general.civfanatics.ru/soft/IDS/test7.exe
[/b]
Летает исправно. :yes:Настройки теперь ждать не надо. Осталось только кол-во увеличить.
Supremator
28.01.2010, 21:57
Windows 7.
Точка двигается, но мигает.
http://i078.radikal.ru/1001/a6/77fb93cd2f48t.jpg (http://radikal.ru/F/i078.radikal.ru/1001/a6/77fb93cd2f48.png.html)
superregistr
29.01.2010, 14:11
<div class='quotetop'>Цитата</div>
Сыпала ночь снег;
Рваной подушкой луны;
Звездами дискотек;
На города валуны ...[/b]
Мыслитель
04.01.2012, 21:00
А у меня лаги от него((( точки появляются но не двигаются(может из-за того, что у меня Виста)
Да, дело в том, что те фукнции АПИ, что используются для отрисовки на экране в ХР для Висты не подходят. Поэтому я переписал этот хранитель экрана в виде кроссплатформенной флеш-игры (http://www.civfanatics.ru/content/219-Snowtree-from-General-(Smart-Flash-Games))
Powered by vBulletin® Version 4.1.9 Copyright © 2024 vBulletin Solutions, Inc. All rights reserved. Перевод: zCarot