Анимация планеты.

[Don Leno]

Создал проект в котором подгружаю картинку. В ней анимация. Нужно подгружать каждый кадр и показывать на форме, но ничего не получилось. В чем трабл?

[Mikle]

Во-первых - выключи у формы AutoRedraw. Далее увидишь другие проблемы.

[Don Leno]

А как сделать так чтобы он с включеным AutoRedraw работал? Кстати пробовал наложить планету с прозрачным фоном (убрать черный фон) через TransparentBlt - не работает(((

[Mikle]

А как сделать так чтобы он с включеным AutoRedraw работал?

Я на это один раз уже давал ответ - после BitBlt поставить Refresh.

[Don Leno]

А других вариантов нет? Как то не лучше будет через Refresh, Cls.
Реализовал прозрачный фон - но есть глюки, как исправить?

[Mikle]

Как то не лучше будет через Refresh, Cls.

Объясни смысл этого предложения.

[Don Leno]

Появляется мерцание.

[Mikle]

Я попросил пояснить смысл предложения:

Как то не лучше будет через Refresh, Cls.

Ты ответил:

Появляется мерцание.

Оооо...
А мерцает из-за Cls, я написал, что нужен Refresh, про Cls ничего не писал.
Вообще-то, есть правило хорошего тана: если хочешь, чтобы тебе помогли - локализуй проблему, убери всё, что к проблеме не относится, и давай пример в таком виде.
Думаешь интересно копаться в коде, где чёрт ногу сломит? Вот, например, у тебя закрытие окна крестиком не останавливает работу программы, тебя это никак не тревожит?

[Don Leno]

Ок, понял.
Суть проекта - создать анимационую планету с прозрачным фоном.
Вначале ничего не получилось, но ты помог исправить ошибку))
Ты спросил, я ответил что варианты не подходят...и как ты можешь видеть в проекте я заранее проверил И Refresh И Cls, и даже пробовал Loadpicture(""). Но при каждом этом методе - появляется мерцание. Так я тебе и ответил. За крестик сори, терь буду предусмотрительней))
Вопросы: как убрать мерцание? Может есть альтернативный метод для такой анимации?

[Mikle]

заранее проверил И Refresh И Cls, и даже пробовал Loadpicture("")

Где-то раньше я уже писал, что из всего этого наиболее оптимально Line(x1,y1)-(x2,y2),0,BF.

Но при каждом этом методе - появляется мерцание.

И будет появляться, и Line тут тоже не поможет.
Мерцает потому, что у тебя два этапа рисования идут прямо на видимую форму. Стирание - это первый этап, если после него пройдёт синхроимпульс развёртки - ты увидишь цвет фона в этот кадр.
Нужно рисовать не стирая, если у рисуемого объекта должен быть прозрачный фон - то только TransparentBlt, не пойму, что там делают BitBlt. У этой ф-ции есть, конечно, параметр dwRop, определяющий эффект наложения. Но там булевские эффекты и альфаналожения там нет.
Вообще, когда ты пишешь: "создать анимационую планету с прозрачным фоном", а потом стираешь (Cls и т. п.), ты сам себе противоречишь, ведь прозрачный фон нужен в случае, когда нужно в прозрачных местах сохранить рисунок поверхности, но ты его затираешь, зачем тогда прозрачный фон?
В соседней теме я дал готовый пример, где всё работает, чем он не устроил?

[Don Leno]

TransparentBlt у меня не работает.
Все верно - я неправильно описал то что было нужно. Нужно лишь сохранить рисунок поверхности за планетой. Но ведь здесь анимация, а не статический рисунок. Идет наложение нескольких кадров. Если не стирать - BitBlt не отрисует планету и останется лишь черный круг (т.к. AutoRedraw=False).
И я хотел попробовать другие варианты, а не использовать первый попавшийся. Мне интересна сама реализация такого метода анимации.

[Mikle]

TransparentBlt у меня не работает.

Разве такое бывает? Мой пример из соседней темы тоже не работает?

[Jack Ferre]

Появляется мерцание.

А если посмотреть внимательно - периодическое мерцание.

Код: Выделить всё

If anim > 20 Then anim = 0: an2 = an2 + 1
If an2 >= 18 Then an2 = 0

Почему в соседних и одинаковых по смыслу строках разные условия?


P.S.
Просто любопытно. Что это?

Код: Выделить всё

'For i = 0 To 1000
'Test.Width = Test.Width
'Next i

В прошлом примере эти строчки резали фпс и изображение успевало рисоваться полностью, а не несколько строк.
Как так вышло, что эти строки были написаны?

[Don Leno]

Небольшой Delay. Как один из вариантов.
А переменные anim & an2 задают считывание рисунка планеты из анимационого файла. В файле 20*18=360 кадров планеты.
Mikle, спс за помощь и указание на мои же ошибки и недочеты. TransparentBlt теперь работает.

[Jack Ferre]

В файле 20*18=360 кадров планеты.

А судя по коду - 21*18.
И отсюда

Появляется мерцание.

посмотреть внимательно

[Don Leno]

Jack Ferre ты ошибаешься там именно 360 кадров. if anim>20 then anim=0 если кадров больше 20, то счетчик обнуляется.
Исходник сделал, но залить не могу из-за БМП файла в 22 мега =)
Кстати, TransparentBlt работает только с БМП файлами? Потому что когда я ставлю JPG, он не делает прозрачность.
Вот ссылка на исходник:
http://jmey.ucoz.ru/forum-planet_anim2.rar

[Mikle]

Кстати, TransparentBlt работает только с БМП файлами?

TransparentBlt работает не с файлами, а с битмапами в памяти. Битмапу всё равно из какого файла он загружен, но сам формат Jpeg подразумевает сжатие с потерями, цвет может немного поменяться, глаз этого не видит, но равенства уже нет, ColorKey не срабатывает.
Чтобы не терять качество, можно использовать PNG формат, правда он далеко не так хорошо сжимает (потому, что без потерь). Для экономии размера есть хороший метод - хранить изображение в JPG, а маску - отдельно в PNG или, ещё эффективнее для таких вещей, GIF. При загрузке комбинировать.

[goldexer]

Прошел месяц, но я всё же отпишусь: можно загрузить JPG изображение и PNG маску в PictureBox и потом c помощью GetDIBits() получить два массива битов изображения и маски, создать третий маленький массив для конечного изображения одного кадра, и в цикле побайтно перемножать в конечный массив с учетом маски, алфы, эффектов и прочего. Потом SetDIBitsToDevice() в PictureBox с autoredraw=true + Refresh().
Очень, конечно, топорно, но просто до безобразия, хоть прямо на рабочем столе отрисовывай, анимируй, подсветку, эффекты, код пишется 5 минут.

[Don Leno]

goldexer, спс за предложенный вариант )))
Но использование PictureBox меня как то не устраивает. Но я достиг успеха в своем проекте. И использовать решил альфа маску, это все таки лучше чем через цвет делать прозрачность, да и глюков не будет.