Schildeffekt

Übersicht

BlitzBasic

Codearchiv

	Mr.Keks Betreff: Schildeffekt	So, März 21, 2004 19:52 Antworten mit Zitat
Habe hier gerade so einen tollen Schildeffekt . (Einfach auf die Kugel klicken...) Sieht mit Texture noch um einiges besser aus. BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Graphics3D 640,480,16,2 SetBuffer BackBuffer() campiv=CreatePivot() camera=CreateCamera(campiv) light=CreateLight() PositionEntity camera,0,0,-5 RotateEntity light,90,0,0 mesh = CreateSphere(12) CreateCube(mesh) ScaleMesh mesh,2,1.5,2 surface = GetSurface(mesh,1) EntityFX mesh,32 + 2 EntityBlend mesh,3 EntityColor mesh,200,140,150 For i = 0 To CountVertices(surface) VertexColor surface,i,150,200,300,0 Next ;stex = LoadTexture("schild.bmp") ;EntityTexture mesh,stex,0 ;ScaleTexture stex,.6,.6 EntityPickMode mesh,2,1 While Not KeyHit(1) ;PositionTexture stex,MilliSecs()/10000.00,MilliSecs()/5000.00 If MouseHit(1) If CameraPick(camera,MouseX(),MouseY()) shieldeffect(PickedEntity(),PickedSurface(),PickedX(),PickedY(),PickedZ()) EndIf EndIf TurnEntity campiv,.3,.3,.3 RenderWorld updateshield(mesh,surface) Flip Wend End Function shieldeffect(mesh,surface,x#,y#,z#) For i = 0 To CountVertices(surface) alpha# = 1/CoorDist#(VertexX(surface,i),VertexY(surface,i),VertexZ(surface,i),x,y,z) VertexColor surface,i,VertexRed(surface,i),VertexGreen(surface,i),VertexBlue(surface,i),alpha# Next End Function Function updateshield(mesh,surface) For i = 0 To CountVertices(surface) VertexColor surface,i,VertexRed(surface,i),VertexGreen(surface,i),VertexBlue(surface,i),VertexAlpha(surface,i)*.99 Next End Function Function CoorDist#(x1#,y1#,z1#,x2#,y2#,z2#) abstand# = Sqr(((x1-x2)^2)+((y1-y2)^2)+((z1-z2)^2)) Return abstand# End Function
MrKeks.net

Mr.Keks

Betreff: Schildeffekt

So, März 21, 2004 19:52
Antworten mit Zitat

Habe hier gerade so einen tollen Schildeffekt Smile

. (Einfach auf die Kugel klicken...)
Sieht mit Texture noch um einiges besser aus.
BlitzBasic: [AUSKLAPPEN]

Graphics3D 640,480,16,2
SetBuffer BackBuffer()
campiv=CreatePivot()
camera=CreateCamera(campiv)
light=CreateLight()
PositionEntity camera,0,0,-5
RotateEntity light,90,0,0

mesh = CreateSphere(12)
CreateCube(mesh)
ScaleMesh mesh,2,1.5,2
surface = GetSurface(mesh,1)
EntityFX mesh,32 + 2
EntityBlend mesh,3
EntityColor mesh,200,140,150

For i = 0 To CountVertices(surface)
	VertexColor surface,i,150,200,300,0
Next

;stex = LoadTexture("schild.bmp")
;EntityTexture mesh,stex,0
;ScaleTexture stex,.6,.6

EntityPickMode mesh,2,1

While Not KeyHit(1)
	;PositionTexture stex,MilliSecs()/10000.00,MilliSecs()/5000.00
	If MouseHit(1)
		If CameraPick(camera,MouseX(),MouseY())
			shieldeffect(PickedEntity(),PickedSurface(),PickedX(),PickedY(),PickedZ())
		EndIf
	EndIf
	TurnEntity campiv,.3,.3,.3
	RenderWorld
	updateshield(mesh,surface)
	Flip
Wend
End

Function shieldeffect(mesh,surface,x#,y#,z#)
	For i = 0 To CountVertices(surface)
		alpha# = 1/CoorDist#(VertexX(surface,i),VertexY(surface,i),VertexZ(surface,i),x,y,z)
		VertexColor surface,i,VertexRed(surface,i),VertexGreen(surface,i),VertexBlue(surface,i),alpha#
	Next
End Function

Function updateshield(mesh,surface)
	For i = 0 To CountVertices(surface)
		VertexColor surface,i,VertexRed(surface,i),VertexGreen(surface,i),VertexBlue(surface,i),VertexAlpha(surface,i)*.99
	Next
End Function

Function CoorDist#(x1#,y1#,z1#,x2#,y2#,z2#) 
	abstand# = Sqr(((x1-x2)^2)+((y1-y2)^2)+((z1-z2)^2)) 
	Return abstand# 
End Function

MrKeks.net

	Travis	So, März 21, 2004 20:15 Antworten mit Zitat
Vertex index out of range!
www.funforge.org Ich hasse WASD-Steuerung. Man kann alles sagen, man muss es nur vernünftig begründen können.

Travis

So, März 21, 2004 20:15
Antworten mit Zitat

Vertex index out of range!

www.funforge.org

Ich hasse WASD-Steuerung.

Man kann alles sagen, man muss es nur vernünftig begründen können.

	Mr.Keks	So, März 21, 2004 20:21 Antworten mit Zitat
och hatte ganz vergessen, dass der bbdebugger es als fehlerankreidet, wenn man einen vertex zuviel versucht durchzugehen, was nur an der rückgabe des counts liegt =) das folgende geht auch mit aktiviertem debugger... BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Graphics3D 640,480,16,2 SetBuffer BackBuffer() campiv=CreatePivot() camera=CreateCamera(campiv) light=CreateLight() PositionEntity camera,0,0,-5 RotateEntity light,90,0,0 mesh = CreateSphere(12) CreateCube(mesh) ScaleMesh mesh,2,1.5,2 surface = GetSurface(mesh,1) EntityFX mesh,32 + 2 EntityBlend mesh,3 EntityColor mesh,200,140,150 For i = 0 To CountVertices(surface) -1 VertexColor surface,i,150,200,300,0 Next ;stex = LoadTexture("schild.bmp") ;EntityTexture mesh,stex,0 ;ScaleTexture stex,.6,.6 EntityPickMode mesh,2,1 While Not KeyHit(1) ;PositionTexture stex,MilliSecs()/10000.00,MilliSecs()/5000.00 If MouseHit(1) If CameraPick(camera,MouseX(),MouseY()) shieldeffect(PickedEntity(),PickedSurface(),PickedX(),PickedY(),PickedZ()) EndIf EndIf TurnEntity campiv,.3,.3,.3 RenderWorld updateshield(mesh,surface) Flip Wend End Function shieldeffect(mesh,surface,x#,y#,z#) For i = 0 To CountVertices(surface) -1 alpha# = 1/CoorDist#(VertexX(surface,i),VertexY(surface,i),VertexZ(surface,i),x,y,z) VertexColor surface,i,VertexRed(surface,i),VertexGreen(surface,i),VertexBlue(surface,i),alpha# Next End Function Function updateshield(mesh,surface) For i = 0 To CountVertices(surface) -1 VertexColor surface,i,VertexRed(surface,i),VertexGreen(surface,i),VertexBlue(surface,i),VertexAlpha(surface,i)*.99 Next End Function Function CoorDist#(x1#,y1#,z1#,x2#,y2#,z2#) abstand# = Sqr(((x1-x2)^2)+((y1-y2)^2)+((z1-z2)^2)) Return abstand# End Function
MrKeks.net

Mr.Keks

So, März 21, 2004 20:21
Antworten mit Zitat

och hatte ganz vergessen, dass der bbdebugger es als fehlerankreidet, wenn man einen vertex zuviel versucht durchzugehen, was nur an der rückgabe des counts liegt =)

das folgende geht auch mit aktiviertem debugger...
BlitzBasic: [AUSKLAPPEN]

Graphics3D 640,480,16,2 
SetBuffer BackBuffer() 
campiv=CreatePivot() 
camera=CreateCamera(campiv) 
light=CreateLight() 
PositionEntity camera,0,0,-5 
RotateEntity light,90,0,0 

mesh = CreateSphere(12) 
CreateCube(mesh) 
ScaleMesh mesh,2,1.5,2 
surface = GetSurface(mesh,1) 
EntityFX mesh,32 + 2 
EntityBlend mesh,3 
EntityColor mesh,200,140,150 

For i = 0 To CountVertices(surface) -1
   VertexColor surface,i,150,200,300,0 
Next 

;stex = LoadTexture("schild.bmp") 
;EntityTexture mesh,stex,0 
;ScaleTexture stex,.6,.6 

EntityPickMode mesh,2,1 

While Not KeyHit(1) 
   ;PositionTexture stex,MilliSecs()/10000.00,MilliSecs()/5000.00 
   If MouseHit(1) 
      If CameraPick(camera,MouseX(),MouseY()) 
         shieldeffect(PickedEntity(),PickedSurface(),PickedX(),PickedY(),PickedZ()) 
      EndIf 
   EndIf 
   TurnEntity campiv,.3,.3,.3 
   RenderWorld 
   updateshield(mesh,surface) 
   Flip 
Wend 
End 

Function shieldeffect(mesh,surface,x#,y#,z#) 
   For i = 0 To CountVertices(surface) -1
      alpha# = 1/CoorDist#(VertexX(surface,i),VertexY(surface,i),VertexZ(surface,i),x,y,z) 
      VertexColor surface,i,VertexRed(surface,i),VertexGreen(surface,i),VertexBlue(surface,i),alpha# 
   Next 
End Function 

Function updateshield(mesh,surface) 
   For i = 0 To CountVertices(surface) -1
      VertexColor surface,i,VertexRed(surface,i),VertexGreen(surface,i),VertexBlue(surface,i),VertexAlpha(surface,i)*.99 
   Next 
End Function 

Function CoorDist#(x1#,y1#,z1#,x2#,y2#,z2#) 
   abstand# = Sqr(((x1-x2)^2)+((y1-y2)^2)+((z1-z2)^2)) 
   Return abstand# 
End Function

MrKeks.net

	x.Force	So, März 21, 2004 21:48 Antworten mit Zitat
sieht gut aus
AMD Athlon XP 2000+ \| 1024mb DDR-Ram \| Asus Radeon 9600XT \| BENQ FP757 17°Zoll TFT Was kümmert mich mein Geschwätz von gestern? (Konrad Adenauer) -.-

x.Force

So, März 21, 2004 21:48
Antworten mit Zitat

sieht gut aus Wink

AMD Athlon XP 2000+ | 1024mb DDR-Ram | Asus Radeon 9600XT | BENQ FP757 17°Zoll TFT

Was kümmert mich mein Geschwätz von gestern? (Konrad Adenauer) -.-

	CodeMaster	So, März 21, 2004 23:04 Antworten mit Zitat
Ja sieht sehr geil aus!
Dies ist ein Text, der an jeden Beitrag von dir angehängt werden kann. Es besteht eine Limit von 500 Buchstaben. Zuletzt bearbeitet von CodeMaster am Mo Apr 01, Parse error: syntax error, unexpected ';' in htdocs\viewtopic.php on line 102

CodeMaster

So, März 21, 2004 23:04
Antworten mit Zitat

Ja sieht sehr geil aus!

Dies ist ein Text, der an jeden Beitrag von dir angehängt werden kann. Es besteht eine Limit von 500 Buchstaben.

Zuletzt bearbeitet von CodeMaster am Mo Apr 01, Parse error: syntax error, unexpected ';' in htdocs\viewtopic.php on line 102