TheGameCreators - CodeBase - Using 2d text with a 3d object present

Category: Complete Applications

Version: 1.0

Information

Uploaded: 13th Sep 2004 13:06

Modified: 1st Jan 1970 01:00

Author: jayandy

Summary

This shows how to have a 3d object on screen while 2d text/output is being displayed in various ways. (with little to no flicker)

Full Description

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

1``````````````````````````````

` Simple example of outputing

` 2d on a 3d screen

` by Jayson Powers

`  9/13/04

``````````````````````````````

` Note : A key to little flicker

`        is understanding how

`        the "sync", "wait", and "cls"

`        commands are placed

Set Display Mode 800,600,32

backdrop off

draw to back   ` This command is another key to low flicker,

` refer to help files for more info.

sync on

``````````````````````````````````

` Create the 3d object

``````````````````````````````````

make object sphere 1,45

``````````````````````````````````````

` Output text with a 3d object on screen

` with low or no flicker

```````````````````````````````````````

text 10,10,"Hello"

sync

wait 300

cls

text 10,10,"How are you?"

sync

wait 600

cls

text 10,10,"I'm fine, how are you?"

sync

wait 600

cls

Dim string$(10)

``````````````````````````````````````

` Output numbers 0 - 9, one by one,

` with a 3d object on screen

` with low or no flicker

``````````````````````````````````````

For i = 1 to 10  ` Put numbers 0 - 9 in an array

string$(i) = str$(i - 1)

text 10 * i,10,string$(i) ` output those numbers one by one

sync

wait 300

Next i

cls

``````````````````````````````````````

`  Example using the "data" comand and the

`  previous code in a simple mannor

``````````````````````````````````````

For i = 1 to 10

read string$(i)   ` This puts the contents of 1 data value into string$(1)

` and automatically moves to the next piece of data

text 10 * i,10,string$(i)

sync

wait 300

Next i

Data "2","3","4","5","H","E","L","L","O"," This is an entire sentance."

cls

wait 1500

``````````````````````````````````````

`  Example of a hidden or small cursor

``````````````````````````````````````

text 10,10,"Enter anything when the cursor apears"

sync

wait 1500

cls

Ink rgb(255,0,0), rgb(0,0,0)

set cursor 10, 20

Input string$(1)

sync

Ink rgb(255,255,255), rgb(0,0,0)

text 10,10, string$(1)

sync

wait 800

cls

``````````````````````````````````````

`  Example of a positioned cursor

`  with a red background

``````````````````````````````````````

text 10,10, "Enter a number"

Ink rgb(0,0,0), rgb(255,0,0)

set cursor 200, 10           ` Positioning the cursor

Input string$(1)

Ink rgb(255,255,255), rgb(0,0,0)

text 10,20, string$(1)

sync

wait 1000

cls

`````````````````````````````````

`  Example of the dot command over 3d

`  graphics

`````````````````````````````````

text 10,10,"Press enter again"

sync

wait 600

cls

x = 0

wait key

For i = 0 To 360

dot x,(Sin(i)*100)+100

inc x,1

Next i

sync

wait key

Download

Please login to download

Comments

No comments yet.

Author Name:	jayandy
CodeBase Entries:	4

CodeBase - Using 2d text with a 3d object present

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments