Извините, ничего не найдено.

Randomize · 06.03.2009, 16:09

HolyDel, ты мысли читаешь.
Да игра типа кримсона будет.
По кровище типа кримсона, а жанр - стратегия.
Естественно от танка следы. От взрыва воронка.
От металла осколки. Из пушки гильзы.
От людей следы.Из врагов кравища.

dimanche13 · 06.03.2009, 17:22

Сообщение от HolyDel

В играх потипу кримсоланда (в играх другого типа, где крови мало, я не вижу смысла запекать ее в текстуру) именно ТЫСЯЧИ монстров. Там каждую секунду 10-20 убийств монстров (если не больше). Там в прямом смысле - моря крови

Допустим убивать 10 монстров в секунду, что маловероятно, тока если из гранатомета их валить. И держаться в таком темпе 10 минут(мне б за 10 минут надоело), то набежало бы 6000 объектов. причем один по любасу наслоится на другой, и будет такая кровавая каша, что если убирать первых убитых монстраков, которые лежат под пятью слоями новых, никто и не заметит. Я так и делал в своем кримсоне, без всякого рендера в текстуру. Правда там и убийств в секунду было не 10...

HolyDel · 06.03.2009, 21:29

dimanche13, хм. ты прав.

вот я сделал через рендер в текстуру:
http://forum.boolean.name/showpost.p...&postcount=483

dimanche13 · 06.03.2009, 23:22

давно, кстати, слежу за Sigel. Вот все кричат Xors да Xors, у тебя вроде не хуже выходит. Хотел покрутить, но не нашел информации ни о фьючерсах, ни о том что сделано, ни о том что планируется, ни сравнительных тестов с другими движками, а это не есть гуд...

NitE · 07.03.2009, 00:22

dimanche13, движок-то может и лучше но кодить на С++ не все гаразды - ктомуже уж для цпп точно есть движки лучше сигела и любого другого на этом форуме...

HolyDel · 07.03.2009, 19:38

Randomize · 11.03.2009, 07:14

BlitzMax хочет меня убить.
Изображение в оконном режиме трансперентится а в фуллскрине нет.
Из опробываного мной:


			
SetMaskColor(255,0,255)



image.mask_r=255

image.mask_g=0

image.mask_b=255



Флаг картинке: MASKED_IMAGE

Картинка не хочет иметь прозрачный цвет ни в какую

Привожу код для большей предметности вопроса:


			
Function LoadTileBase:TImage(FileName:String, TileWidth:Int, TileHeight:Int)

    Local temp_img:TImage = LoadImage (FileName)

    Local tilex_c:Int = (ImageWidth(temp_img) / (TileWidth + 2))

    Local tiley_c:Int = (ImageHeight(temp_img) / (TileHeight + 2))

    Local TileCount:Int = tilex_c * tiley_c

    Local TileBase:TImage = CreateImage(tilewidth, tileheight, TileCount + 1, MASKEDIMAGE)

    Local n:Int = 0

    SetColor(255, 0, 255)

    DrawRect 0, 0, ImageWidth(temp_img), ImageHeight(temp_img)

    SetColor(255, 255, 255)

    DrawImage (temp_img, 0, 0)

    For Local y:Int = 0 To tiley_c - 1

        For Local x:Int = 0 To tilex_c-1

                GrabImage TileBase, (tilewidth + 2) * x + 1, (tileheight + 2) * y + 1, n

                MaskPixmap(LockImage(TileBase, n), 255, 0, 255)

                UnlockImage(TileBase, n)

            n = n + 1

        Next

    Next

    Flip;WaitKey()

    Return TileBase



EndFunction

Функция загружает набор тайлов с рамкой и ликвидирует рамку.
Легче так обьяснить:
-- До --

Нажмите на изображение для увеличения
Название: b1.png
Просмотров: 916
Размер: 38.3 Кб
ID: 5512

-- После --

Нажмите на изображение для увеличения
Название: b2.png
Просмотров: 833
Размер: 38.3 Кб
ID: 5513

Использую OpenGL драйвер * SetGraphicsDriver GLMax2DDriver()
Изображения только PNG.

И ещё один вопрос: Модуль BMPLoader по любому нуже чтоли? Без него ошибка. Картинки сохранял все фотошопом. Открывал и смотрел заголовок на каждой PNG. Неужели без него в проекте никак?

dimanche13 · 11.03.2009, 14:18

ну во первых, для чего тебе такая функция LoadTileBase:TImage(FileName:String, TileWidth:Int, TileHeight:Int)? Просто не грузи тайлы с рамками. Для этого уже есть LoadAnimImage и с SetMaskColor - все работает, я проверял.

Randomize · 12.03.2009, 16:32

Сообщение от dimanche13

ну во первых, для чего тебе такая функция LoadTileBase:TImage(FileName:String, TileWidth:Int, TileHeight:Int)? Просто не грузи тайлы с рамками. Для этого уже есть LoadAnimImage и с SetMaskColor - все работает, я проверял.

Дело в том, что рисовать очень большие файлы с большим набором тайлов бывает крайне сложно.
И я нашол решение. Ширина и высота тайла получается на 2px больше.
Между тайлами идут жирные линии отделяющие тайлы друг от друга.
Тоесть я создаю файл наполненый прямоугольниками и заполняю прямоугольник картинкой.
Просто чисто так не очень то и удобно рисовать особенно когда тайлов много и они однотипные.
Как пример прикладываю изображение:

Нажмите на изображение для увеличения
Название: images.GIF
Просмотров: 946
Размер: 5.0 Кб
ID: 5524

Без рамки я бы просто умер.

dimanche13 · 12.03.2009, 20:31

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

Randomize · 14.03.2009, 16:25

Решение про накладывание изображения на изображение:


			
Graphics 800, 600



Explosion = LoadImage("Картинка1")

bg = LoadImage("Картинка2", DYNAMICIMAGE)





Repeat

Cls





DrawImage bg, 0, 0

If MouseHit(1)

    DrawToPixmap(Explosion, 0, LockImage(bg), MouseX(), MouseY())

End If



Flip

Until KeyHit(KEY_ESCAPE)





Function ARGB_Alpha:Int(ARGB:Int)

 Return (argb Shr 24) & $ff

 'Return Int((ARGB & $FF000000:Int) / $1000000:Int) 

End Function



Function ARGB_Red:Int(ARGB:Int)

  Return (argb Shr 16) & $ff

' Return Int((ARGB & $00FF0000:Int) / $10000:Int)

End Function



Function ARGB_Green:Int(ARGB:Int)

  Return (argb Shr 8) & $ff

' Return Int((ARGB & $0000FF00:Int) / $100:Int)

End Function



Function ARGB_Blue:Int(ARGB:Int)

 Return (argb & $ff) 

' Return (ARGB & $000000FF:Int)

End Function



Function ARGB_Color:Int(alpha:Int,red:Int,green:Int,blue:Int)

 Return (Int(alpha * $1000000) + Int(RED * $10000) + Int(green * $100) + Int(blue)) 

End Function



Function DrawToPixmap(image:TImage, framenr:Int = 0, Pixmap:TPixmap, x:Int, y:Int, alpha:Float = 1.0, Multiply:Int = 1)

      Local TempPix:TPixmap = Null

      If framenr = 0 Then TempPix = LockImage(image)

      If framenr > 0 Then TempPix = LockImage(image, Framenr) 

      For Local i:Int = 0 To ImageWidth(image) - 1

        For Local j:Int = 0 To ImageHeight(image) - 1

          If x + i < pixmap.width And y + j < pixmap.Height 'And i >= x And j >= y

            Local sourcepixel:Int = ReadPixel(TempPix, i, j) 

            Local destpixel:Int = ReadPixel(pixmap, x+i,y+j)

            Local destA:Float = ARGB_Alpha(destpixel) 

            Local sourceA:Float = ARGB_Alpha(sourcepixel) * alpha

            If sourceA = 255 Then destA = 0

                Local destR:Float = ARGB_Red(destpixel)

                Local destG:Float = ARGB_Green(destpixel) 

                Local destB:Float = ARGB_Blue(destpixel) 

                Local SourceR:Float = ARGB_Red(Sourcepixel) 

                Local SourceG:Float = ARGB_Green(Sourcepixel) 

                Local SourceB:Float = ARGB_Blue(Sourcepixel) 

                    Local AlphaSum:Int = destA + sourceA

                    If multiply = 1

                        sourceR = (sourceR  * sourceA / AlphaSum) + destA / AlphaSum * (destR * destA / AlphaSum) 

                        sourceG = (sourceG  * sourceA / AlphaSum) + destA / AlphaSum * (destG * destA / AlphaSum) 

                        sourceB = (sourceB  * sourceA / AlphaSum) + destA / AlphaSum * (destB * destA / AlphaSum) 

                    Else

                        sourceR = (sourceR  * sourceA / AlphaSum) + (destR * destA / AlphaSum) 

                        sourceG = (sourceG  * sourceA / AlphaSum) + (destG * destA / AlphaSum) 

                        sourceB = (sourceB  * sourceA / AlphaSum) + (destB * destA / AlphaSum) 

                    EndIf

                    If AlphaSum > 255 Then AlphaSum = 255

                    sourcepixel = ARGB_Color(AlphaSum, SourceR, sourceG, sourceB) 

            If SourceA <> 0 Then WritePixel(Pixmap, x + i, y + j, sourcepixel)

          EndIf

        Next

      Next

      If framenr = 0 UnlockImage(image)

      If framenr > 0 UnlockImage(image, framenr)

End Function

Этот способ ещё тормознее и без alpha канала:


			
Local e:TPixmap = LockImage(imgBlood)

    Local p:TPixmap = LockImage(imgFloor)

    MaskPixmap(e, 0, 0, 0)

    p.Paste(e, MouseX(), MouseY())

    UnlockImage(imgBlood)

    UnlockImage(imgFloor)

Нужели это всё, что можно сделать?
В Blitz3D подобное - расплюнуть.
Я понимаю, что тут какбы 3D-2D, но ведь SetBuffer(TextureBuffer()) в B3D есть, значит и тут чёто подобное должнобыть.
Просто я помню как я грабил экран в B3D и текстурил этим всю мапу и воду и скайбокс и юнитов. Баловался кароче

Randomize · 17.03.2009, 21:56

Нароод!? Неужели на BlitzMax тут так мало прогают?
Не верю, что никто ничего не знает про наложение картинки на картинку.

dimanche13 · 17.03.2009, 23:35

Я же тебе написал, как это делается paste методом. Потом если тебе так нравятся эти pink-полосы, то можно загрузить картинку с pink-маской порезать на тайлы с полосами, а потом просто изменить width и height картинки, отрубив таким образом остатки полос. Ты морочаешься на пустом месте. Если я прально понял.

Randomize · 18.03.2009, 08:09

Не сейчас я просто хочу наложить image на image.
Оставляя Alpha-канал png изображения.
В моём случае наклаедываемого, хотя это не имеет значения.
Должен же быть в BlitzMax для этого метод. Paste просто напросто плюёт на альфа канал.
Попиксельно пробывал бррр скорость не ахти какая.

18.03.2009, 09:16

Randomize
вот исходник метода Paste :

	Rem
	bbdoc: Paste a pixmap
	end rem
	Method Paste( source:TPixmap,x,y )
		For Local h=0 Until source.height
			ConvertPixels source.PixelPtr(0,h),source.format,Self.PixelPtr(x,y+h),Self.format,source.width
		Next
	End Method

а функция ковертации пикселей

Function CopyPixels( in_buf:Byte Ptr,out_buf:Byte Ptr,format,count )
	MemCopy out_buf,in_buf,count*BytesPerPixel[format]
End Function

Function ConvertPixels( in_buf:Byte Ptr,in_format,out_buf:Byte Ptr,out_format,count )
	If in_format=out_format
		CopyPixels in_buf,out_buf,out_format,count
	Else If in_format=PF_STDFORMAT
		ConvertPixelsFromStdFormat in_buf,out_buf,out_format,count
	Else If out_format=PF_STDFORMAT
		ConvertPixelsToStdFormat in_buf,out_buf,in_format,count
	Else
		Local tmp_buf:Int[count]
		ConvertPixelsToStdFormat in_buf,tmp_buf,in_format,count
		ConvertPixelsFromStdFormat tmp_buf,out_buf,out_format,count
	EndIf
End Function

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

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