Wirbel

Übersicht

BlitzBasic

Codearchiv

	Last-Action-Hero Betreff: Wirbel	Sa, Okt 30, 2004 20:47 Antworten mit Zitat
Is jetzt nix besonderes aber sieht nett aus deswegen dachte ich mir das postest du jetzt mal .... viel spass damit (vielleicht macht ja jemand noch was großes draus) BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600,16,0 SetBuffer BackBuffer() Type pl Field x,y,angle,r Field red,green,blue End Type For t = 1 To 20 For u= 0 To 1 p.pl=New pl p\r=15t p\red=0 p\green=10t+60 p\blue=0 p\angle=180u Next Next While Not KeyHit(1) Cls For p.pl=Each pl p\x=Sin(p\angle)p\r+400 p\y=Cos(p\angle)*p\r+300 Color 255,255,0 Oval 380,280,40,40 Color p\red,p\green,p\blue Oval p\x-5,p\y-5,10,10 p\angle=p\angle + 20 - p\r/15 If p\angle > 360 Then p\angle = p\angle - 360 EndIf Next fps=fps+1 If MilliSecs() > fps_time + 1000 Then act_fps=fps fps=0 fps_time=MilliSecs() EndIf Color 255,255,255 Text 10,10,\"FPS:\"+act_fps Flip Wend End

Last-Action-Hero

Betreff: Wirbel

Sa, Okt 30, 2004 20:47
Antworten mit Zitat

Is jetzt nix besonderes aber sieht nett aus deswegen dachte ich mir das postest du jetzt mal ....
viel spass damit (vielleicht macht ja jemand noch was großes draus)

BlitzBasic: [AUSKLAPPEN]


Graphics 800,600,16,0
SetBuffer BackBuffer()

Type pl
	Field x,y,angle,r
	Field red,green,blue
End Type

For t = 1 To 20
	For u= 0 To 1
	p.pl=New pl
	p\r=15*t
	p\red=0
	p\green=10*t+60
	p\blue=0
	p\angle=180*u
	Next
Next


While Not KeyHit(1)
Cls

	For p.pl=Each pl
	p\x=Sin(p\angle)*p\r+400
	p\y=Cos(p\angle)*p\r+300
	
	Color 255,255,0
	Oval 380,280,40,40
	Color p\red,p\green,p\blue
	Oval p\x-5,p\y-5,10,10 
	p\angle=p\angle + 20 - p\r/15
	If p\angle > 360 Then 
		p\angle = p\angle - 360
	EndIf
	Next
	
	fps=fps+1
	If MilliSecs() > fps_time + 1000 Then 
		act_fps=fps
		fps=0
		fps_time=MilliSecs()
		
	EndIf
	
	Color 255,255,255
	Text 10,10,\"FPS:\"+act_fps
	
	
Flip
Wend
End

	Kekskiller	Sa, Okt 30, 2004 21:11 Antworten mit Zitat
Knuffig . Kleiner Effekt mit noch kleinerer Wirkung .

Kekskiller

Sa, Okt 30, 2004 21:11
Antworten mit Zitat

Knuffig

. Kleiner Effekt mit noch kleinerer Wirkung Wink

	Triton	So, Okt 31, 2004 2:20 Antworten mit Zitat
Sehr schöne Sache. Kann man sich wirklich länger ansehen
Coding: silizium-net.de \| Portfolio: Triton.ch.vu

Triton

So, Okt 31, 2004 2:20
Antworten mit Zitat

Sehr schöne Sache. Kann man sich wirklich länger ansehen Smile

Coding: silizium-net.de | Portfolio: Triton.ch.vu

	Wild-Storm	So, Okt 31, 2004 11:13 Antworten mit Zitat
cool! wie kommt ihr blos immer auf solche ideen?
Visit http://www.next-dimension.org ------------------------------------------------- Freeware Modelle, Texturen & Sounds: http://www.blitzforum.de/forum...hp?t=12875

Wild-Storm

So, Okt 31, 2004 11:13
Antworten mit Zitat

cool!
wie kommt ihr blos immer auf solche ideen? Very Happy

Visit http://www.next-dimension.org
-------------------------------------------------
Freeware Modelle, Texturen & Sounds:
http://www.blitzforum.de/forum...hp?t=12875

	hot-bit Gast	So, Okt 31, 2004 11:47 Antworten mit Zitat
Hoi.. Habs mir auch angesehen. Leider lief es zu schnell, also mit 138 FPS bei mir. Nach Anpassung mit WaitTimer(60) rennt es nun so halbwegs normal. Recht schön, nur für meinen Geschmack zu wenig Wirbel Toni

hot-bit

Gast

So, Okt 31, 2004 11:47
Antworten mit Zitat

Hoi..

Habs mir auch angesehen.

Leider lief es zu schnell, also mit 138 FPS bei mir.

Nach Anpassung mit WaitTimer(60) rennt es nun so halbwegs normal.

Recht schön, nur für meinen Geschmack zu wenig Wirbel Smile

Toni