Mad Scientist lightning function!

This code has been declared by its author to be Public Domain code.

Mad Scientist lightning function! by Rob

2001

This will create controlled lightning bolts with minimal effort in 2D.

It's just like drawing a line except you have two more parameters: how many segments and how violent the motion.

;quick lightning bolt hack by rob cummings (rob@redflame.net)

Graphics 640,480,16,2
SetBuffer BackBuffer()
While Not KeyHit(1)
	Cls
	
	;bolt(x,y,x2,y2,points,multiplier) - this is all you need.
	bolt(x1,y1,x2,y2,32,scale)
	
	;simple randomiser to see the function working (to demonstrate)
	If timer<0
		timer=100
		x1=Rnd(640)
		y1=Rnd(480)
		x2=Rnd(640)
		y2=Rnd(480)
		scale=8+Rnd(16)
	Else
		timer=timer-1
	EndIf
	Color 255,255,255
	Oval x1,y1,8,8
	Oval x2,y2,8,8
	Flip
Wend
End

Function bolt(bx1,by1,bx2,by2,s,bscale)
	Color 90,90,255
	x=bx2
	y=by2
	xstep=(bx1-bx2)/s
	ystep=(by1-by2)/s
	LockBuffer BackBuffer()
	For i=1 To s-1
		r1=Rnd(-bscale,bscale)
		r2=Rnd(-bscale,bscale)
		x2=(x+xstep)+r1
		y2=(y+ystep)+r2
		Line x,y,x2,y2
		x=x2
		y=y2
	Next
	Line x,y,bx1,by1
	UnlockBuffer BackBuffer()
End Function

Comments

None.

Code Archives Forum