Как сделать "Матрицу" на фоне своего окна?

← →
DenZ © (2004-06-02 21:22) [0]

Народ! Если кто знает как сделать на фоне своего окна эффект "Матрицы" (падающие буковки), то ПЛЗ напишите на ящик...

← →
sniknik © (2004-06-02 22:36) [1]

на борланде в примерах такой скрин сейвер есть.

и тут еще ктото вариацию на эту же тему выкладывал, поищи. (прямо в потрепатся)

← →
Knight © (2004-06-02 22:42) [2]

Не... лучше напишите откуда эти глючные символы берёте? Генерируете или библиотека какая есть? :)

← →
DrPass © (2004-06-02 23:05) [3]

Я, например, когда поработал первую недельку на консоли AS/400, без всяких библиотек и генерации их видел. Достаточно было просто закрыть глаза

← →
Knight © (2004-06-02 23:23) [4]

Мне не надо, но просто интересно... сами люди генерят, из каждый раз фильма грабят или уже всё давно заграблено, запёхано в бибилиотеку или битмэп и выложено... а я не видел? :)

← →
Rouse_ © (2004-06-02 23:30) [5]

Иди за белым кроликом...

← →
Knight © (2004-06-02 23:31) [6]

Мне не надо, но просто интересно... сами люди генерят, или каждый из фильма грабит? Или уже всё давно заграблено, запёхано в бибилиотеку или битмэп и где-то выложено?

← →
Knight © (2004-06-03 00:07) [7]

>> [5] Rouse_ © (02.06.04 23:30)
Пошёл именно туда... и оказалось, что на самом деле, большая часть символов - не что иное, как зеркальное отображение японских иероглифов... то-то я никак не мог понять чего они напоминают... :)

← →
sniknik © (2004-06-03 00:18) [8]

та ветка
http://delphimaster.net/view/14-1084905650/

> Мне не надо, но просто интересно...
в примере с борланда на битмапах, может и с фильма.

по сравнению с тем что сдесь по ссылке убого, но с исходниками и писалось это очень давно, можно простить ;о).

← →
DeadMeat © (2004-06-03 01:02) [9]

Да не так уж давно это и писалось... А символы я из другого ScreenSaver-а брал... Прямо в About-е так и записано...

---
...Death Is Only The Begining...

← →
DenZ © (2004-06-03 01:33) [10]

Если по большому счету все это дело будет не скринсавером, а на фоне окошка Авторана для VideoCD дисков (Универсалтного Авторана), вот я и полез искать... А символы есть битмаповские, из одного скринсавера РесХакером сграбил... Но мне не битмаповские нужны, а хотя бы обычные латинские символы. Exe-шник и так большой получается, да ещё и битмапы туды впихивать :)!

← →
DenZ © (2004-06-03 02:04) [11]

Только мне желательно чтобы во всем этом деле не использовалось Direct3D, OpenGL или что-то в этом роде, только DirectDraw. Иначе я сам проверить не смогу... (Объясняю: Комп то мощьный, а видюха сдохла! Друган дал одну, которая у него валялась. Ну а ЭТО уже видюхой не считается (Rendition Vierte 2200, 4Mb).

← →
Паниковский © (2004-06-03 08:06) [12]

Береш ASCII(выдераеш от туда символы)
В два потока прога 1 поток только на прорисовку
Прорисовка кидает символы на канве
положение символа := положение символа + итерация(*Например 1*);

← →
sniknik © (2004-06-03 08:32) [13]

> Да не так уж давно это и писалось...
ты про свою чтоли? я про пример от борланда, сорри если на свой счет принял, у тебя приличная (по эффектам) программа не сравнить с той, по исходникам не знаю не видел ;). а та похоже сразу после первой матрицы писалась (там дата и кто положил есть), т.е. давно.

← →
Knight © (2004-06-03 09:36) [14]

> sniknik © (03.06.04 08:32) [13]
> и кто положил есть

А где положил? :)

← →
DeadMeat © (2004-06-03 18:20) [15]

> [13] sniknik © (03.06.04 08:32)
> сорри если на свой счет принял
Да я та только рад критике... Скоро всё причешу и с исходниками выкину...

---
...Death Is Only The Begining...

← →
sniknik © (2004-06-03 19:45) [16]

> А где положил? :)
говорю же на борланде, где точно не скажу, не знаю, искал чегото и наткнулся, поэтому и проще выслать чем ссылку дать, да и не поможет ссылка (не всем) это в в той области сайта что для "правильных" пользователей. ;о)

← →
Knight © (2004-06-03 19:48) [17]

>> [16] sniknik © (03.06.04 19:45)
> поэтому и проще выслать чем ссылку дать
А сколько весит? если в переделах 500К... шли, если не сложно :)

← →
sniknik © (2004-06-03 20:04) [18]

> А сколько весит? если в переделах 500К...
не так много, исходники, меньше 50к.
до дому дойду вышлю, и всем остальным кто "заявку" дать успеет. ;о)) чтобы в 1 раз вложится, а то 10 * 50 уже и 500 наберется а если желающих больше?
(хозяина ветки считаю желающим по "default"-у)

← →
Knight © (2004-06-03 20:15) [19]

>> [18] sniknik © (03.06.04 20:04)
Ок. :)

← →
Knight © (2004-06-03 22:11) [20]

> [18] sniknik © (03.06.04 20:04)
> не так много, исходники, меньше 50к.

Это называется "меньше 50"? ... 296К
Спасибо, получил нормально, даже компилируется и работает :)

← →
sniknik © (2004-06-03 23:55) [21]

> Это называется "меньше 50"? ... 296К
ну дак, обшибся.

да и ссылку в хисторе нашол
http://codecentral.borland.com/codecentral/ccweb.exe/listing?id=15103 у кого доступ есть... инфа the Matrix Screen Saver Terms : No Special Terms Name : Anders Ohlsson email: Anonymous URL : None Summary : The Matrix Screen Saver by Andy Kern. Modified by Anders Ohlsson. Description : The Matrix Screen Saver. Delphi 5.0 source and binary. Written by Andy Kern. The only thing Andy asks, is that you do *not* remove his name from the screen saver. (Borland marketing "take the red pill" added by Anders Ohlsson) Product : Delphi (5-5) Source Code Contest : None Uploaded: 04-Aug-00 3:40:20 PM last updated 24-Aug-00 2:45:15 PM Tools CD: No Copyright: No significant restrictions Size : 289.2K List Files (12756 downloads)

← →
Knight © (2004-06-04 00:16) [22]

А что значит "у кого доступ есть"? У меня открылось...

← →
Knight © (2004-06-04 00:21) [23]

Там написано...

(Anonymous users cannot add entries)

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

← →
DenZ © (2004-06-04 01:01) [24]

>хозяина ветки считаю желающим по "default"-у

Спасибо! Хотя я уже успел найти и скачать этот файл... Но все равно спасибо!

Если кому нужна какая документация по Делфи и ещё по некоторым языкам (даже по Виндам есть...) обращайтесь, у меня её прилично набралось...

← →
DenZ © (2004-06-04 01:03) [25]

А вот если ещё разобраться как там сделать чтобы не на канвасе прорисовывалось, а на фоне окна... Если у кого есть предложения, я их внимательно выслушаю.

← →
DVM © (2004-06-04 01:15) [26]

что понимается под фоном окна? то что за ним что ли?

← →
Knight © (2004-06-04 01:18) [27]

> [26] DVM © (04.06.04 01:15)
> что понимается под фоном окна? то что за ним что ли?

Наверно по форме... т.е. так, как в примере от борланд.

← →
DenZ © (2004-06-04 01:19) [28]

>что понимается под фоном окна? то что за ним что ли?

Так скажем background.

← →
Knight © (2004-06-04 01:47) [29]

Возьми пример от борланд, убери всё лишнее и будет background.

← →
DenZ © (2004-06-04 02:16) [30]

Попробую...

← →
DenZ © (2004-06-04 02:30) [31]

Че-то никак не пойму че он тут сделал...
procedure TGraphicManager.BltToCanvas(sr: Trect; DestCoord: Tpoint; DestDC: Thandle); begin BitBlt(destdc,DestCoord.X,DestCoord.Y,sr.right-sr.left,sr.bottom-sr.top,fBitmap.canvas.handle,sr.Left,sr.top,srccopy); end;
Вроде этот кусок как раз таки и говорит куда рендерить... А вроде ХЗ!

← →
DenZ © (2004-06-04 02:45) [32]

Ладно! Я сам вообще инчего немогу понять в этом коде... Попробую с одним другом связаться, он уже давно на Дельфи программирует, VSofter если кто знает...

Вот из-за таких вещей иногда хочется бросить программирование! :(

← →
sniknik © (2004-06-04 08:09) [33]

> Вот из-за таких вещей иногда хочется бросить программирование! :(
читай хелп там все написано.

этот кусок копирует кусочек изображения с одного канваса на другой, и если источник указан явно то приемник вычислен, и скорее всего это десктоп. замени у себя на хендл какваса формы, и в принципе должно уже работать.
BitBlt(Firm1.canvas.handle,DestCoord.X,...

> А что значит "у кого доступ есть"? У меня открылось...
а я туда по паролю захожу, странно. или это у них к общей базе исходников пароль а дальше свободно (?) хз.

← →
Knight © (2004-06-04 10:08) [34]

>> DenZ © (04.06.04 02:45) [32]
> Ладно! Я сам вообще инчего немогу понять в этом коде...

У-у-у как всё запущено... видать ранова-то тебе ещё до эффекта матрицы, ты сначала с основами разберись. Мне до мастеров далеко, так и то на переделку только 5 минут ушло, в смысле, на полную очистку кода от кусков предназначенных только для хранителя экрана и перехода к форме, там же всё как на ладони. Если до вечера не разберёшься и друг не объяснит, то запости о результате в районе 20-ти часов (время московское), пропишу комментарии и отправлю... влом второй раз 300К качать.

> а я туда по паролю захожу, странно. или это у них к общей
> базе исходников пароль а дальше свободно (?) хз.

Ага... смотреть можно всё, а вот скачать, точно, не дали :)

Так у меня ж с регистрацией на хорших ресурсах проблем нет (тут тоже прежде чем первый пост отправить регистрацию сделал), поэтому стал я там Rus_Knight (Knight уже занят)... теперь у меня на столе обои от Борланда и какой-то Супер-пупер быстрый алгоритм поиска, не смотрел пока, но пусть будет, может пригодится :)

Хотел ещё полазить, но сервер стал выдавать ту же надпись, что и тут, типа, внутреняя ошибка (500), а потом вообще куда-то выпал... нигде не везёт Делфям в этой жизни с хостингом... :(

← →
DenZ © (2004-06-04 14:37) [35]

Ладно... До вечера попробую разобраться (оп московскому??? А по какому ещё! :) ).

И чо у Вас у всех аськи отключены??? Так же будет проще общаться! Там ведь можно целую конфиренцию устроить...

← →
Knight © (2004-06-04 16:34) [36]

> И чо у Вас у всех аськи отключены??? Так же будет проще
> общаться! Там ведь можно целую конфиренцию устроить...

... если ты постоянно в онлайне и по трафику, то да, а если по диалапу и на время, то какие тут конференции по аське? И почему сразу аська? У меня, например, не толстая баба Ася, а стройная девушка Миранда... дающая только по-требованию, а не автоматом (хм... в смысле, коннект, а не то, что некоторые подумали :)

← →
sniknik © (2004-06-04 16:44) [37]

> Там ведь можно целую конфиренцию устроить...
а работать когда? потому и отключено.

← →
DenZ © (2004-06-04 17:57) [38]

Ну если кому, что нетак, то можно и по mIRC"у законнектится... :) Тока нужно свободный канал найти... :)

← →
DenZ © (2004-06-04 18:13) [39]

Да и Windows Messenger тоже ничего... :))

← →
DenZ © (2004-06-04 19:15) [40]

Вот кое что удалось сделать...
Кто хочет посмотреть прошу качать архивчик отсюда:
http://www.denzmedia.narod.ru/MatrixSource.zip
Не пугайтесь! Всего 19 килобайт... (Без .exe)
Надеюсь то, что все это компилировалось на 6 Дельфе не помешает просмотреть...
Только одного не могу понять... Как уменьшить длинну темных символов. Чтобы след не такой длинный был.

← →
DenZ © (2004-06-04 20:20) [41]

> ... если ты постоянно в онлайне и по трафику, то да, а если по > диалапу и на время, то какие тут конференции по аське?

Ну допустим я соединяюсь по Диалапу, и даже умудряюсь по 80 мегов за ночь выкачивать... Что плохого в Диалапе? Скорость... Ну и фиг с ней со с коростью с этой, а за трафик платить надо МНОГО. Тоже на тоже получается! Диалап дешевле, но скорость... А выделенка быстрее, но трафик! А таким людям как я надо только на Диалапе и сидеть! Если я сяду на выделенку с трафиком, то через часа 3 у меня баланс будет -500 , если не больше! Я же если что в инете умное вижу - тут же качать начинаю!!! :)

← →
DenZ © (2004-06-04 20:22) [42]

Ну и где? Уже 25 минут девятого!

← →
Knight © (2004-06-04 21:24) [43]

> [42] DenZ © (04.06.04 20:22)
> Ну и где? Уже 25 минут девятого!

Лето, однако... огороды разные... :)
Да вот ещё с водой проблемы начались... лет 30 вода чистая шла, а как рванули году в 98-ом ядрёну бомбу на Виляди (где-то не так далеко, даже стаканы в шкафу прыгали) тогда сразу многие колодцы в городе пообсыхали, в других какая-то гадость заплавала, и та-же гадость стала появлять тонкой плёнкой после кипячения воды из скважины... 20 метров в сторону (у гаража вторая скважина) вода нормальная. Уже, ту что дома, и глубже били, и мелче вытаскивали, и в новое место заколачивали... без толку, давление хорошее, но чача... надо где-то дозиметр надыбать, может оно ещё и светится в придачу :(

Но чё-то я от темы отклонился... щас твоё качну, посмотрю.

> [41] DenZ © (04.06.04 20:20)
> Ну допустим я соединяюсь по Диалапу, и даже умудряюсь по
> 80 мегов за ночь выкачивать... Что плохого в Диалапе?

У тебя сколько? Скорость и оплата... У меня 19200+30руб/час.
В месяц сжирает по 1000р, а максимум сколько закачивал (в месяц) - 70М.

Ну вот наконец-то соединился... 3 часа сижу модем слушаю... Диалап... блин :(

Пока ждал, вообще всё переделал, посмотри тут... даже вроде и работает :)
http://knight.amillo.net/MatrixSource.rar (12К)

У меня скорость скачивания 4,2 Кб/сек... Доступ Диалап - РОЛ 20 = 500 руб и спокойно на месяц хватает... Ночью бесплатно (с 2-х ночи до 9-и утра)! А днем поминутный тариф. Всего 40 часов на 30 дней дается (это дневного доступа!). В общем нормально! Модем хороший! Ни тебе дисконнектов, ни потери несущей! Знаменитый черный Курьер! В общем ситуацией даволен! :)

ВООБЩЕ УЛЁЁЁЁЁЁЁЁЁЁЁЁЁЁЁЁЁЁЁЁЁЁЁЁЁЁЁЁЁЁЁЁЁЁТ!!!!!!!!!!! Уже нет того ультра-гигантского кода! Все оптимизировано!! Вообще зашибись! Будешь в первой строчке об авторах программы в диалоге о программе!!!! И на сайте все будет написано!!! Когда я его доделаю правда... :) Ща решил, что раз инет появился (а я тут уже 3 месяца небыл!) надо бы сайтик переделать, а то дизайн устарел и все такое... Вот буду как-нибудь ковырятся...

А насчет дозиметра... У меня есть, но как до тебя добраться? Вообще не представляю...

> [45] DenZ © (05.06.04 00:46)
> Ночью бесплатно (с 2-х ночи до 9-и утра)
> :)

Вот потому и круто... а у меня
днём - 30,
вечером - 23,
ночью - 19
ни минуты бесплатно :(

> [46] DenZ © (05.06.04 00:57)
> Уже нет того ультра-гигантского кода! Все оптимизировано!!

Ну там ещё есть в чём поковыряться... и костыли кое-какие имеются :)

Кстати, можешь удалить
NumLetters из TMatrixColumn
и его же из SetColumn;
чтобы не смущало, потому-как это дело ещё никак не задействавано.
Только начал изменять и тут свершился коннект... запаковал всё как есть и отправил.

> Будешь в первой строчке об авторах программы
> в диалоге о программе!!!! И на сайте все будет написано!!!

А вот это лишнее... мы рыцари народ скромный... не люблю где-либо светиться.

Как скажешь! Мне главное узнать? Остальное дело техники...

Последнюю строку прочитал?

> А вот это лишнее... мы рыцари народ скромный... не люблю где-либо светиться.

Я так наоборот люблю посветится где не надо, да ещё так посветится, чтобы долго помнили!

> Knight

А ты теперь на основе этой "Матрицы" компонент напиши!

> DenZ © (05.06.04 11:01) [50]
> А ты теперь на основе этой "Матрицы" компонент напиши!

Это тебе в качестве персонального упражнения... :)

> Knight

У меня 6 Дельфи. Ну ты знаешь. Иногда при установке дополнительных компонентов возникает следующая проблема:
При компиляции даже пустой формы (после установки компонентов) в строке сообщений появляется текст следующего не самого приятного содержания:
[Fatal Error] Project1.dpr(1): File not found: "System.pas"

И ничего не компилируется!

Помогает только переустановка... :(

Как можно избавится от этой ошибки? Или хотябы как восстановить Делфи без переустановки? А то я уже заколебался! :E

> [52] DenZ © (05.06.04 20:46)

У меня пятый (в котором кодю) и седьмой (на всякий пожарный)... оба работают и с такой проблемой не встречался. Так-что... звиняй.

А вообще, если такой .pas присутствует в $(DELPHI)\source\rtl\Sys;, то для начала проверь Browsing path"ы на наличие отой строки.

Ну попробовать можно... А то я тока начал разбираться как компоненты писать, а тут такая лажа началась... Кстати о написании компонентов. Я достаточно долго буду сидеть и писать этот компонент, т.к. я первы раз пишу компонент и хелпа в которой описывается как это делается немного не связаная с компонентом токого типа (там описывается как сделать кнопку с счетчиком) так, что скажи какой компонент брать за основу (Ancestor Type).

Короче! Эта Дельфа! Будь она не ладна!!! Забыло что обозначает $(DELPHI) и её пришлось вбивать путь типа "C:\Program Files\Borland\Delphi6\source\rtl\Sys"! Не ну вот лажа!

> [54] DenZ © (05.06.04 23:15)
> Кстати о написании компонентов.

Ты чё серьёзно? Я ж пошутил :)
Кому такой компонент нужен... особенно, с такой узкой функциональностью.

Если сделать всё красиво, оптимизированно и правильно (чтоб не глючило) в результате может получиться компонент, которому можно найти как минимум 2-два применения:
1) просто симпотично оформить программу
2) динамически создавать текстуру, которую можно потом накладывать на 3D объекты для симпотичных заставок

---
...Death Is Only The Begining...

Пардон... Проверочное слово симпАтия...

---
...Death Is Only The Begining...

> Knight © (06.06.04 14:23) [56]
> Ты чё серьёзно? Я ж пошутил :)
> Кому такой компонент нужен... особенно, с такой узкой функциональностью.

Ну функцианальность всегда можно расширить! Хотя шутка твоя не удалсь... Потому как я все воспринял серьёзно. И сразу полез в Хелпы за помощью... :(

> DeadMeat © (06.06.04 14:38) [57]

Ну насчет текстур это черезчур! С моим уровнем знаний программирования мне ещё текстур не хватало, а тем более ещё и 3D (моя видюха токого изврата не выдержит [4Mb, Rendition Verite 2200] :( (А что делать! Мой GeForce 4 MX 440 SE на 64 Mb сгорел...) :(. Так, что пока хотябы простой компонент написать...

> [59] DenZ © (06.06.04 20:44)

Если расширять функциональность...
1) ширина столбца.

изменений в ядро не внесёт, но под

2) длина столбца;
3) перерисовка по WM_PAINT;

придётся менять сам принцип работы... а если ещё добавить

4) 3D-симуляцию, в виде зависимости ширины столбца, от расстояния до условной "камеры", что неизбежно повлечёт за собой
5) зависимость прозрачности столбца с подключением fastlib.
то вообще всё менять надо.

Неплохо бы ещё
6) полупрозрачных призраков двух эстонцев-читеров, летающих между падающими символами и изредко глотающих "камеру";
7) управление "камерой", чтобы полетать за ними;
8) десяток видов оружия, чтобы не просто так летать (начиная с катаны, и заканчивая ракетной установкой "земля-воздух" с ядерной боеголовкой;
9) тысчёнку другую Смитов, чтоб веселее и ;
10) Тринити с Шоколадным зайцем, потому как одному не справиться, пусть летят рядом, как дельфины, и поливали Смитов шквальным огнём из дешёвых спареных пулемётов с подствольными огнемётами и гранатомётами... для начала достаточно...

PS: с шестого пункта... шутка :)

Идея не плохая!
Особенно с призраками! :)
Тока дайте мне сначала поднять аппаратные мощности (у меня ж даже флеш тормозит!).
А то даже Альфа-блендинг в Икспишнике отключить пришлось!

Как сделать "Матрицу" на фоне своего окна? Найти похожие ветки