Simple little drawing thing

new

« Prev
1
Next »

Azan
The Ascended One

This image has not been photoshopped. (really)

Posts: 3,259

Simple little drawing thing Aug 13, 2005 12:41:07 GMT -5

Quote

Post by Azan on Aug 13, 2005 12:41:07 GMT -5

Well I guess it can be used to show how to make a box bounce, and the demo is kindof neat too.

Graphics 800,600
SetBuffer BackBuffer()

Global x=710
Global y=510
Global diry=5
Global dirx=5

While Not KeyHit(1)
	Flip
	;Cls
	Text 10,10,dirx+" "+diry
	If x+20=800 Then
		dirx=dirx*-1
	EndIf
	If x=0 Then
		dirx=dirx*-1
	EndIf
	If y+20=600 Then
		diry=diry*-1
	EndIf
	If y=0 Then
		diry=diry*-1
	EndIf
	x=x+dirx
	y=y+diry
	Rect x,y,20,20

Wend

www.almosteternity.com
Currently adding more features, if you want your own Personal Page just register there and ask me.

112% of all people have random statistics in their signature. If you are one of the -12% that don't, put this in your signature.

Azan
The Ascended One

This image has not been photoshopped. (really)

Posts: 3,259

Simple little drawing thing Aug 13, 2005 13:00:35 GMT -5

Quote

Post by Azan on Aug 13, 2005 13:00:35 GMT -5

Heres a double one

Graphics 800,600
SetBuffer BackBuffer()

Global x=710
Global y=510
Global diry=5
Global dirx=5

Global x2=90
Global y2=90
Global diry2=-5
Global dirx2=-5
While Not KeyHit(1)
	Flip
	;Cls
	Text 10,10,dirx+" "+diry
	If x+20=800 Then
		dirx=dirx*-1
	EndIf
	If x=0 Then
		dirx=dirx*-1
	EndIf
	If y+20=600 Then
		diry=diry*-1
	EndIf
	If y=0 Then
		diry=diry*-1
	EndIf
	x=x+dirx
	y=y+diry
	Rect x,y,20,20
	
	If x2+20=800 Then
		dirx2=dirx2*-1
	EndIf
	If x2=0 Then
		dirx2=dirx2*-1
	EndIf
	If y2+20=600 Then
		diry2=diry2*-1
	EndIf
	If y2=0 Then
		diry2=diry2*-1
	EndIf
	x2=x2+dirx2
	y2=y2+diry2
	Rect x2,y2,20,20
Wend