Черно-белое

[maximus009]

Извеняюсь если было уже можно как-нибудь сделать изображение черно-белым (нужно для паузы)??

[BlackDragon]

Возможно я ошибаюсь, но кажись это можно сделать с помощью команды SetGamma

[NitE]

этого ненадо делать с помощью SetGamma потомучто команда гавно и неработает

надо сделать перед камерой куб (чайлд) альфу ему поставить 0 и цвет серый, когда надо альфу ставим на 0.5

[IGR]

надо сделать перед камерой куб (чайлд) альфу ему поставить 0 и цвет серый, когда надо альфу ставим на 0.5

ты уверен что быдет ЧБ ??

(нужно для паузы)

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

[HolyDel]

вот были бы шейдеры, можно было бы сделать честное ЧБ, а так, dot3 вам в помощь. будет что то похожее.

[ABTOMAT]

Если для паузы - можно скопировать буфер экрана в картинку, программно в ней все пиксели сделать чёрно-белыми и отрисовать на экран.
Я в своё время это делал, работало, но на процесс чтение из картинки+зачёрнобеливание+запись в bmp при разрешении 1280*1024 уходило секунды 4. Может, исходники поищу. Так что тут быстро не получится.

[maximus009]

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

[ABTOMAT]

Ну я не говорил что этот способ единственный, просто на FFP так или иначе получится через жопу. Шейдерами - быстро и просто (даже я делал), но чего нема, того нема
З.Ы. Блюр бы подошёл для паузы.

[maximus009]

Я блюром и сделал, в ашадов всего одной командой ))

[HolyDel]

я имел ввиду что то вроде этого:

Graphics3D 640,480,32,2

For i = 1 To 100
	c = CreateCube()
	PositionEntity c,Rnd(-100,100),Rnd(-100,100),Rnd(0,200)
	EntityColor c,Rnd(0,255),Rnd(0,255),Rnd(0,255)
	RotateEntity c,Rnd(0,360),Rnd(0,360),Rnd(0,360)
	ScaleEntity c,Rnd(1,10),Rnd(1,10),Rnd(1,10)
	
Next

For i = 1 To 100
	c = CreateSphere()
	PositionEntity c,Rnd(-100,100),Rnd(-100,100),Rnd(0,200)
	EntityColor c,Rnd(0,255),Rnd(0,255),Rnd(0,255)
	RotateEntity c,Rnd(0,360),Rnd(0,360),Rnd(0,360)
	ScaleEntity c,Rnd(1,10),Rnd(1,10),Rnd(1,10)
	
Next

cam = CreateCamera()
l = CreateLight()

tex = CreateTexture(1024,512,1+256+512)
TextureBlend tex,4
ScaleTexture tex, 1024.0/GraphicsWidth(),512.0/GraphicsHeight()

spr = CreateSprite(cam)
PositionEntity spr, 0,0,1.3333333333333333
ScaleSprite spr, GraphicsWidth()/Float(GraphicsHeight()),1

EntityTexture spr,tex

HideEntity spr

While Not KeyDown(1)
	
	If KeyDown(203) Then TurnEntity cam,0,-1,0
	If KeyDown(205) Then TurnEntity cam,0,1,0
	If KeyDown(208) Then TurnEntity cam,-1,0,0
	If KeyDown(200) Then TurnEntity cam,1,0,0
	
	RenderWorld
	
	If KeyDown(25)
		paused = 1
	;	Viewport(0,0,256,256)
		CopyRect(0,0,640,480,0,0,BackBuffer(),TextureBuffer(tex))
		ShowEntity spr
	;	Viewport(0,0,640,480)
	EndIf
	
	While KeyDown(25) : Delay(1) : Wend
	
	While paused
		RenderWorld
		Flip
		
		If KeyDown(25)
			HideEntity spr
			paused = 0
			
			While KeyDown(25) : Delay(1) : Wend
		EndIf
	Wend
	
	Flip
Wend

[maximus009]

Неплохо, только долговато)

[HolyDel]

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

upd на моей машине копирование с бакбуффера в текстуру занимает меньше миллисекунды.