Bobby Dazzler

Warpy

(Posted 2009) [#1]

I'm making something to do with rockets.

AppTitle=""
Graphics 600,600
SetBlend ALPHABLEND

off#=0
While Not (KeyHit(KEY_ESCAPE) Or AppTerminate())

	diag#=Sqr(2*300*300)
	rad#=Sqr(diag*diag-200*200)
	off:+.02
	SetAlpha .12
	a#=0
	While a<360
		an#=a+off
		SetColor 0,(Cos(a*3+off*10)*.5+.5)*255,(Sin(a*2-off)*.5+.5)*255
		x#=300+Cos(an)*200
		y#=300+Sin(an)*200
		DrawLine x,y,x+Cos(an+90)*rad,y+Sin(an+90)*rad
		DrawLine 300-Cos(an)*160,300-Sin(an)*160,300-Cos(an)*120,300-Sin(an)*120
		DrawLine 300+Cos(an)*80,300+Sin(an)*80,300+Cos(an)*40,300+Sin(an)*40
		a:+.2
	Wend
	
	Flip
	Cls
Wend

GfK	(Posted 2009) [#2]

That's.... pretty. Its like looking at a CD. Through cataracts, or something.

I'm not seeing a connection to rockets, though...

Oh, and lol@"Bobby Dazzler" - haven't heard that in a while. :)

Tri|Ga|De

(Posted 2009) [#3]

Nothing to do with Dart *sigh*

Ked	(Posted 2009) [#4]

Looks awesome!

markcw

(Posted 2009) [#5]

Who is Bobby Dazzler anyway?

Jesse

(Posted 2009) [#6]

http://www.urbandictionary.com/define.php?term=bobby%20dazzler

@Warpy: did you mean #4? ;)

Matt McFarland

(Posted 2009) [#7]

neat..

modified for funzies:

AppTitle = ""
Graphics 600,600
SetBlend ALPHABLEND

off#=0
While Not (KeyHit(KEY_ESCAPE) Or AppTerminate())
	jol:+1
	diag:Float = Sqr(3 * 300 * 300)
	rad:Float = Sqr(diag * diag - 300 * 200)
	off:+.02
	stel:+1
	SetAlpha .12
	a#=0
	While a<360
		an#=a+off
		SetColor 0, (Cos(a * 2 + off * 10) *.5 +.5) * 255, (Sin(a * 2 - off) *.5 +.5) * 255
		x:Float = stel + Cos(an) * 200
		y:Float = stel + Sin(an) * 200
		DrawLine x,y,x+Cos(an+90)*rad,y+Sin(an+90)*rad
		DrawLine jol - Cos(an) * 120, 300 - Sin(an) * 160, 300 - Cos(an) * 120, 300 - Sin(an) * 120
		DrawLine jol + Cos(an) * 80, 300 + Sin(an) * 80, 300 + Cos(an) * 40, 300 + Sin(an) * 40
		a:+.2
	Wend
	
	Flip
	Cls
Wend

Blitzplotter

(Posted 2009) [#8]

Nice, gave me a reason to dig out BMax, thought it was B3D at first. Looks pleasing to the eye - once I dug out BMax IDE from backup folder 5, god knows why it there?