TheGameCreators - CodeBase - TickyTackyLilBox

Category: 3D Effects

Version: 1.0

Information

Uploaded: 6th May 2005 22:14

Modified: 8th May 2005 20:51

Author: NoteJam

Summary

Cube is textured with Kalidoscope designs. New designs each time you run the program. Cube rotates. Use arrow keys to change view. This code was made possible by spooky's cube

Full Description

Displays a different Kalidoscope design on each side of a cube. YOu get new designs each time you run the program.<br /> Arrow keys adjust camera position.<br /> Recycled spooky's cube code snippet to make this. Thanks spooky, could not of done it without you to show the way.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

sync on : sync rate 60 :autocam off

global ox,oy

makeatexture()

` make a texture (3 by 2) or load one in

` make an object

make object cube 1,10

texture object 1,1

` make object to show what image looks like

REM make object plain 2,80,30

REM texture object 2,1

REM position object 2,0,0,10

` rearrange uv coordinates - faces are ordered

` front, back, top, bottom, right, left

lock vertexdata for limb 1,0

for face=1 to 6

for corner=1 to 4

vert=((face-1)*4)+corner-1

u#=get vertexdata u(vert)

v#=get vertexdata v(vert)

my=(face-1)/3

mx=face-(my*3)-1

newu#=((mx+u#)/3.0)

newv#=((my+v#)/2.0)

set vertexdata uv vert,newu#,newv#

next corner

next face

unlock vertexdata

position camera 0,0,-17

control camera using arrowkeys 0,1,1

turn object left 1,0.5

pitch object up 1,0.3

sync

loop

function makeatexture()

ox=50:oy=50:gosub Kalidoscope

ox=180:oy=50:gosub kalidoscope

ox=310:oy=50:gosub kalidoscope

ox=50:oy=180:gosub kalidoscope

ox=180:oy=180:gosub kalidoscope

ox=310:oy=180:gosub kalidoscope

get image 1,0,0,384,256,0

endfunction

Rem Kalidoscope subroutine  set ox and oy before calling.

Kalidoscope:

a=rnd(255):b=rnd(255):c=rnd(255)

ink rgb(a,b,c),0

x1=rnd(100)

y1=rnd(100)

f=rnd(20)+20

x1=0

y1=0

for j=1 to 5

x1=0:y1=0

for z=1 to f

a=rnd(255):b=rnd(255):c=rnd(255)

ink rgb(a,b,c),1

x2=x1+rnd(15)-rnd(15)

y2=y1+rnd(15)-rnd(15)

d=20

if x1 >50 then x1=0:y1=0:x2=0:y2=0

if x1 < -50 then x1=0:y1=0:x2=0:y2=0

if x2>50 then x1=0:y1=0:x2=0:y2=0

if x2<-50 then x1=0:y1=0:x2=0:y2=0

if y1>50 then x1=0:y1=0:x2=0:y2=0

if y1<-50 then x1=0:y1=0:x2=0:y2=0

if y2>50 then x1=0:y1=0:x2=0:y2=0

if y2<-50 then x1=0:y1=0:x2=0:y2=0

rem line

line x1+ox,y1+oy,x2+ox,y2+oy

line x1+ox+1,y1+oy+1,x2+ox+1,y2+oy+1

line d-x1+ox,y1+oy,d-x2+ox,y2+oy

line d-x1+ox+1,y1+oy+1,d-x2+ox+1,y2+oy+1

line x1+ox,d-y1+oy,x2+ox,d-y2+oy

line x1+ox+1,d-y1+oy+1,x2+ox+1,d-y2+oy+1

line d-x1+ox,d-y1+oy,d-x2+ox,d-y2+oy

line d-x1+ox+1,d-y1+oy+1,d-x2+ox+1,d-y2+oy+1

x1=x2

y1=y2

if x1 >50 then x1=0:y1=0:x2=0:y2=0

if x1 < -50 then x1=0:y1=0:x2=0:y2=0

if x2>50 then x1=0:y1=0:x2=0:y2=0

if x2<-50 then x1=0:y1=0:x2=0:y2=0

next z

next j

return

Download

Please login to download

Comments

No comments yet.

Author Name:	NoteJam
CodeBase Entries:	5

CodeBase - TickyTackyLilBox