Help me Mirror FastExt

Blitz3D Forums/Blitz3D Programming/Help me Mirror FastExt

Yue	(Posted 2012) [#1]

Include "Includes2\FastExt.bb"
Graphics3D 800,600,32,False
InitExt()

Local Camara% = CreateCamera()
PositionEntity Camara%,0,20,-60

Local Luz% = CreateLight()
RotateEntity Luz%,45,90,0

Local Yue% = LoadAnimMesh("Laboratorio\YueRexie.b3d")
ScaleEntity  Yue%,20,20,20


Local Pared% = CreateCube()
ScaleEntity Pared%,30,30,1
PositionEntity Pared%,20,30,20
RotateEntity Pared%,0,90,0

Local Plano% = CreatePlane()

Local ReflectTexture = CreateTexture (512, 512, 1+16+32+256 + FE_RENDER + FE_ZRENDER)	

TextureBlend ReflectTexture, FE_PROJECT										
PositionTexture ReflectTexture, 0.5, 0.5										
ScaleTexture ReflectTexture, 2, -2





While Not KeyDown(1)
	
	UpdateWorld 
	mouselook(Camara%)
	KeyControl(Camara%)
	
	
	HideEntity Pared%
	
	MirrorCamera Camara, Pared								
	SetBuffer TextureBuffer(ReflectTexture)
	CameraViewport Camara, 0,0, TextureWidth(ReflectTexture), TextureHeight(ReflectTexture)
	ScaleEntity Camara,1,Float(GraphicsHeight())/Float(GraphicsWidth()),1		
	RenderWorld
	RestoreCamera Camara										
	
	ShowEntity Pared%
	EntityTexture Pared%, ReflectTexture, 0, 0			
	
	
	SetBuffer BackBuffer()
	CameraViewport Camara, 0,0, GraphicsWidth(), GraphicsHeight()
	ScaleEntity Camara,1,1,1		
	
	RenderWorld 
	Flip
Wend

Function mouselook(ent)
	
	mxspd#=MouseXSpeed()*0.25
	myspd#=MouseYSpeed()*0.25
	
	MoveMouse GraphicsWidth()/2,GraphicsHeight()/2	
	
	campitch#=EntityPitch(ent)+myspd#
	
	If campitch#<-85 Then campitch#=-85
	If campitch#>85 Then campitch#=85
	
	RotateEntity ent,campitch#,EntityYaw(ent)-mxspd#,EntityRoll(ent)
	
End Function

Function KeyControl(ent,mov#=1,Mode=1)
	If Mode=1 Then 
		If KeyDown(17) Then  MoveEntity ent,0,0,mov
		If KeyDown(31) Then MoveEntity ent,0,0,-mov
		If KeyDown(32) Then  MoveEntity ent,mov,0,0
		If KeyDown(30) Then  MoveEntity ent,-mov,0,0
	ElseIf Mode=3 Then 
		If KeyDown(200) Then  MoveEntity ent,0,0,1
		If KeyDown(208) Then  MoveEntity ent,0,0,-1
		If KeyDown(205) Then  MoveEntity ent,1,0,0
		If KeyDown(203) Then  MoveEntity ent,-1,0,0
		If KeyDown(17) Then  MoveEntity ent,0,0,mov
		If KeyDown(31) Then  MoveEntity ent,0,0,-mov
		If KeyDown(32) Then  MoveEntity ent,mov,0,0
		If KeyDown(30) Then  MoveEntity ent,-mov,0,0
		If MouseDown(1) Then  MoveEntity ent,0,0,mov
		If MouseDown(2) Then  MoveEntity ent,0,0,-mov
	ElseIf Mode=2 Then 
		If KeyDown(200) Then  MoveEntity ent,0,0,1
		If KeyDown(208) Then  MoveEntity ent,0,0,-1
		If KeyDown(205) Then MoveEntity ent,1,0,0
		If KeyDown(203)Then  MoveEntity ent,-1,0,0
	EndIf
End Function

I'm trying to make a mirror with Fastext, however I get the other way round mirror image, if I change the scale of the texture by positive values moving the camera is meuve reflection, help please.

Last edited 2012

Last edited 2012

Last edited 2012

stayne

(Posted 2012) [#2]

Just a guess but wouldn't...

ScaleTexture ReflectTexture, 2, -2

...flip the texture?

Yue	(Posted 2012) [#3]

ok, no problem. =)
http://youtu.be/Kg86qbPbeJ0