TheGameCreators - CodeBase - Various functions in 2D

Return to the CodeBase listing

Category: 2D Effects

Version: 1.0

Information

Uploaded: 5th Jan 2005 10:01

Modified: 5th Jan 2005 10:02

Author: Sven B

Summary

Various functions in 2D with a 3Deffect of manipulating strings(especially 3Deffects).

Full Description

functions: 3Dbox(x1,y1,x2,y2) 3Dboxin(x1,y1,x2,y2) button(x,y,text$) 3Dtext(x,y,text$) textleft(x,y,text$) textreverse(string$) cube(x,y,size,solid) box(x,y,xsize,ysize,zsize,solid) pyramid(x,y,xsize,zsize,height)

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

`***************************************************

`*                   2D functions                  *

`***************************************************

`*             Coded by Sven Boulanger             *

`***************************************************

sync on

cls rgb(255,200,200)

`sample of 3Dbox(x1 , y1 , x2 , y2)

ink rgb(0,100,200),0

3Dbox(10,10,50,80)

ink rgb(255,0,0),0

3Dbox(60,10,100,80)

`sample of 3Dboxin(x1 , y1 , x2 , y2)

ink rgb(255,255,0),0

3Dboxin(110,10,150,80)

`sample of button(x , y , text , ink standard , ink mouseover)

set text size 32 : set text font "Comic Sans MS"

if button(320,40,"Test",rgb(0,0,0),rgb(255,0,0))>0 then 3Dtext(320,240,"Pressed",rgb(255,255,255))

`sample of textreverse(text) and textleft(x , y , text)

ink rgb(0,0,0),0

textleft(640,40,textreverse("olleh"))

`sample of box(x , y , xsize , ysize , zsize , transparant)

`cube(x , y , size , transparant)

`pyramid(x , y , xsize , zsize , height)

ink rgb(0,0,0),0

box(10,150,100,20,30,0)

cube(10,200,30,1)

pyramid(10,300,40,40,50)

sync

loop

`*********

`functions

`*********

`3D effects in 3D

function 3Dbox(x,y,x2,y2)

`work out start and end coordinates

if x<x2 then startx=x : endx=x2 else startx=x2 : endx=x

if y<y2 then starty=y : endy=y2 else starty=y2 : endy=y

`make box in current color

box startx,starty,endx,endy

`light side

ink rgb(255,255,255),0

line startx-1,starty-1,startx-1,endy

line startx-1,starty-1,endx,starty-1

`darks side

ink rgb(20,20,20),0

line endx+1,endy+1,endx+1,starty

line endx+1,endy+1,startx,endy+1

endfunction

function 3Dboxin(x,y,x2,y2)

`work out start and end coordinates

if x<x2 then startx=x : endx=x2 else startx=x2 : endx=x

if y<y2 then starty=y : endy=y2 else starty=y2 : endy=y

`make box in current color

box startx,starty,endx,endy

`light side

ink rgb(255,255,255),0

line endx+1,endy+1,endx+1,starty

line endx+1,endy+1,startx,endy+1

`darks side

ink rgb(20,20,20),0

line startx-1,starty-1,startx-1,endy

line startx-1,starty-1,endx,starty-1

endfunction

function 3Dtext(x,y,text$,ink)

ink rgb(20,20,20),0

center text x-2,y-2-text size()/2,text$

ink ink,0

center text x,y-text size()/2,text$

endfunction

`buttons and text manipulation

function button(x,y,text$,ink1,ink2)

`reset value for all buttons

pressed=0

`get text width and height

tx=text width(text$)/2

ty=text height(text$)/2

`if mouse goes over the text...

if mousex()>x-tx and mousex()<x+tx

if mousey()>y-ty and mousey()<y+ty

pressed=1

endif

`... change color

if pressed=1 then ink ink2,0 else ink ink1,0

center text x,y-text size()/2,text$

`reset again when mouseclick=0

if mouseclick()=0 then pressed=0

endfunction pressed

function textleft(x,y,text$)

tx=text width(text$)

text x-tx,y-text size()/2,text$

endfunction

function textreverse(text$)

return$=""

for x=len(text$) to 1 step -1

return$=return$+mid$(text$,x)

next x

endfunction return$

`other 3Deffects

`primitives

function cube(x,y,size,solid)

x1=x : y1=y

x2=x+size : y2=y+size

x3=x+(size/2) : y3=y-(size/2)

x4=x+(size*1.5) : y4=y+size-(size/2)

`front

line x1,y1,x1,y2

line x1,y1,x2,y1

line x2,y2,x1,y2

line x2,y2,x2,y1

`sides

line x1,y1,x3,y3

line x2,y1,x4,y3

line x2,y2,x4,y4

`back

line x3,y3,x4,y3

line x4,y4,x4,y3

`solid

if solid=0

line x1,y2,x3,y4

line x3,y3,x3,y4

line x4,y4,x3,y4

endif

endfunction

function box(x,y,xsize,ysize,zsize,solid)

x1=x : y1=y

x2=x+xsize : y2=y+ysize

x3=x+(zsize/2) : y3=y-(zsize/2)

x4=x+xsize+(zsize/2) : y4=y+ysize-(zsize/2)

`front

line x1,y1,x1,y2

line x1,y1,x2,y1

line x2,y2,x1,y2

line x2,y2,x2,y1

`sides

line x1,y1,x3,y3

line x2,y1,x4,y3

line x2,y2,x4,y4

`back

line x3,y3,x4,y3

line x4,y4,x4,y3

`solid

if solid=0

line x1,y2,x3,y4

line x3,y3,x3,y4

line x4,y4,x3,y4

endif

endfunction

function pyramid(x,y,xsize,zsize,height)

x1=x : y1=y

x2=x+xsize : y2=y-(zsize/2)

x3=x+(zsize/2) : y3=y-(zsize/2)-height

x4=x+xsize+(zsize/2)

x5=x+(xsize/2)+(cos(45)*height/2)

`bottom

line x1,y1,x2,y1

line x1,y1,x3,y2

line x2,y1,x4,y2

line x3,y2,x4,y2

`side

line x1,y1,x5,y3

line x2,y1,x5,y3

line x3,y2,x5,y3

line x4,y2,x5,y3

endfunction

Download

Please login to download

Comments

No comments yet.

Author Name:	Sven B
CodeBase Entries:	12

CodeBase - Various functions in 2D

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments