TheGameCreators - CodeBase - StarField Bitmap Generator

Category: Bitmap

Version: 1.0

Information

Uploaded: 24th Nov 2004 06:44

Modified: 24th Nov 2004 06:55

Author: Anonymous Coder

Summary

Generates a quick randomized 640 x 480 bitmap filled with stars (you choose the amount of stars or density). Program utilizes the so very easy "DOT X,Y" command. This could be used as a "quck fix" for a backdrop texture when you can't make up your mind right now (I know I use it alot...lol). Every generation is NEVER the same pattern (WHY? check it out and see if you can discover it's secret). An Extended Idea for this could be... color the backdrop blue, add the dots in fewer numbers, then extract and stretch a smaller portion of the bitmap to create the illusion of a sky with puffy clouds, then wrap the new texture around a global sphere, then scroll the backdrop's "X" position slowly for an illusion of global movement (I've actually done that in another program of mine and it looks pretty good).

Full Description

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Rem * Title  : STARFIELD BITMAP GENERATOR

Rem * Author : TIMOTHY J. SAUNDERS

Rem * Date   : NOVEMBER 2004

REM ***

INK RGB(255,255,255),0

HIDE MOUSE

SYNC RATE 0

PRINT "This program will generate a black 640 X 480 bitmap filled with stars."

REDOA:

RANDOMIZE TIMER()

REPEAT : WAIT 500 : UNTIL INKEY$()=""

INPUT "HOW MANY STARS DO YOU WANT? ",AMOUNT

REDOB:

REPEAT : WAIT 500 : UNTIL INKEY$()=""

CLS

INPUT "WHAT WILL THE FILE NAME BE? ",NAME$

IF LEN(NAME$)<1

PRINT "ERROR: NAME MUST CONTAIN AT LEAST ONE CHARACTER."

WAIT 5000 : GOTO REDOB

ENDIF

NAME$=NAME$+".bmp"

IF FILE EXIST(NAME$)=1

PRINT : PRINT NAME$+" <-- THIS FILE ALREADY EXISTS."

PRINT "WOULD YOU LIKE TO DELETE IT? (Y/N)"

IF INKEY$()="Y" OR INKEY$()="y" THEN GOTO ERASE

IF INKEY$()="N" OR INKEY$()="n" THEN GOTO REDOB

LOOP

ERASE:

REPEAT : WAIT 500 : UNTIL INKEY$()=""

DELETE FILE NAME$

REPEAT : WAIT 500 : UNTIL FILE EXIST(NAME$)=0

ENDIF

CLS

FOR STARS=0 TO AMOUNT

DX=RND(640) : DY=RND(480)

DOT DX,DY

NEXT STARS

SAVE BITMAP NAME$

REPEAT : WAIT 500 : UNTIL FILE EXIST(NAME$)=1

PRINT "STARFIELD BITMAP GENERATED."

PRINT "DOES IT LOOK OK? (Y/N) "

IF INKEY$()="Y" OR INKEY$()="y" THEN GOTO FINISH

IF INKEY$()="N" OR INKEY$()="n" THEN CLS : GOTO REDOA

LOOP

FINISH:

REPEAT : WAIT 500 : UNTIL INKEY$()=""

PRINT "PRESS ANY KEY TO EXIT"

SUSPEND FOR KEY

REM ***

Download

Please login to download

Comments

No comments yet.

Author Name:	Anonymous Coder
CodeBase Entries:	8

CodeBase - StarField Bitmap Generator

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments