Print Page - a little starfield with Types

Title: a little starfield with Types
Post by: Schranz0r on 2007-Apr-06

Code (glbasic) Select

SYSTEMPOINTER TRUE
SETSCREEN 640,480,1

TYPE star
	x
	y
ENDTYPE

LOCAL S AS star

LOCAL stars[] AS  star

WHILE TRUE

	starX = RND(640)

	S.x = starX
	S.y = -10

	DIMPUSH stars[], S


FOREACH check IN stars[]
	INC  check.y,RND(3)
	SETPIXEL check.x, check.y, RGB(RND(255),RND(255),RND(255))
         IF check.y > 480 THEN DELETE check
NEXT


SHOWSCREEN
WEND
END

GLBasic forum

Codesnippets => Code Snippets => Topic started by: Schranz0r on 2007-Apr-06