TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 11th Sep 2010 04:28

Modified: 1st Jan 1970 01:00

Author: philip2k

Summary

3d graphics converter to dark basic command

Full Description

3d graphics converter to dark basic command, the listing is still coded as numbers v(0,n) describes the command where 1 is make object, 2 add limb 3 offset limb and so on...

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

*****************

`** 3D graphicsV1.0 **

rem developed by f.leone

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

load image "menu2.bmp",1

sprite 1,1,1,1

backdrop on

color backdrop 0

`crea i componenti di base:

make object triangle 1,30,0,30,0,40,0,60,0,0

make mesh from object 1,1

delete object 1

make object plain 1,30,40

make mesh from object 2,1

delete object 1

make object cube 1,50

make mesh from object 3,1

delete object 1

make object box 1,20,70,50

make mesh from object 4,1

delete object 1

make object cylinder 1,50

make mesh from object 5,1

delete object 1

make object cone 1,50

make mesh from object 6,1

delete object 1

make object sphere 1,50

make mesh from object 7,1

delete object 1

`vettore: i_t,p1,p2,p3,p4

dim v(1000,5)

o_n=0

lmb=0

msh=0

i_n=0

ed=0

make object plain 1,10,10

make mesh from object 8,1

delete object 1

msh=8:gosub visualize

cls

set text opaque

sync on

if object exist(1) then set object 1,0,0,0

position camera 0,0,-200

point camera 0,0,0

set camera view 320,0,640,220

sync

position camera 0,200,0

point camera 0,0,0

set camera view 0,0,320,220

sync

position camera -200,0,0

point camera 0,0,0

set camera view 320,220,640,480

sync

if object exist(1) then set object 1,1,1,1

position camera -200,0,-200

point camera 0,0,0

set camera view 0,220,320,480

sync

if inkey$()="0" then n_limbs=lmb:n_istr=i_n: gosub list

box 1,450,640,480

x=mousex()

y=mousey()

m$=str$(v(i_n,0))+" "+str$(v(i_n,1))+" "+str$(v(i_n,2))+" "+str$(v(i_n,3))+" "+str$(v(i_n,4))+" "+str$(v(i_n,5))

gosub message

if inkey$()="1" then rotate object 1,wrapvalue(x),wrapvalue(y),0

if controlkey()=1 then rotate object 1,0,0,0

if mouseclick()=2 then suspend for mouse: set object keyframe 1,of:of=of+5

if inkey$()="p" or inkey$()="P" then color backdrop 25000:play object 1

`tasti per l'editing

rgt=rightkey()

lft=leftkey()

up=upkey()

down=downkey()

if mk=0 and ((rgt=1) or (lft=1)) then mk=1:m_lmb=lmb:m_in=i_n

if rgt=1 and lmb<m_lmb then inc lmb

if lft=1 and lmb > 0 then dec lmb

`if down=1 then mk=0:lmb=m_lmb:rem i_n=m:m=0

rem MENU LATERALE

if mouseclick()=1 and x<37

`disabilita editing e ritorna alla ultima istruzione creata

if m<>0 then i_n=m:m=0 :` resetta la memoria per vecchie istruzioni

if pk=1 then pk=0:i_n=m_in:lmb=m_lmb:` lo stesso per l' editing

`visualizza le primitive scelte col mouse

if y>3 and y<38    then msh=1:gosub visualize :`triangle

if y>42 and y<75   then msh=2:gosub visualize :`plain

if y>78 and y<110  then msh=3:gosub visualize :`cube

if y>114 and y<146 then msh=4:gosub visualize :`box

if y>149 and y<182 then msh=5:gosub visualize :`cylinder

if y>185 and y<218 then msh=6:gosub visualize :`cone

if y>220 and y<254 then msh=7:gosub visualize :`sphere

`esegue i comandi dell oggetto (rotazione/scale)

`INSERIRE QUI L' OPZIONE PER KEYFRAME! o menu' a parte per inglob. anim.

`257 290

`292 223

`326 359

`362 395

`398 431

endif

k$=upper$(inkey$())

REM per ora non Introdurre comando make object tipo, dimensione gest. prog.

`controlla se si sta eseguendo uno spstamento e ne crea i presupposti in v()

if k$="X" or k$="Z" or k$="D" or k$="C" or k$="F" or k$="V" and o_n>0

ins=3:gosub find

endif

`controlla se si sta eseguendo una rotazione

if k$="H" or k$="B" or k$="J" or k$="N" or k$="K" or k$="M" and o_n>0

ins=4:gosub find

endif

if k$="Q" or k$="W" or k$="E" or k$="R" or k$="T" or k$="Y" and o_n>0

ins=5:gosub find

endif

`esegue gli spostamenti secondo i tasti premuti e le direzioni x,y,z

if o_n>0 and msh>0

if k$="X" then ox=v(i_n,3)+1:v(i_n,3)=ox

if k$="Z" then ox=v(i_n,3)-1:v(i_n,3)=ox

if k$="D" then oy=v(i_n,4)+1:v(i_n,4)=oy

if k$="C" then oy=v(i_n,4)-1:v(i_n,4)=oy

if k$="F" then oz=v(i_n,5)+1:v(i_n,5)=oz

if k$="V" then oz=v(i_n,5)-1:v(i_n,5)=oz

`esegue la rotazione

if k$="H" then rx=wrapvalue(v(i_n,3)+1):v(i_n,3)=rx

if k$="B" then rx=wrapvalue(v(i_n,3)-1):v(i_n,3)=rx

if k$="J" then ry=wrapvalue(v(i_n,4)+1):v(i_n,4)=ry

if k$="N" then ry=wrapvalue(v(i_n,4)-1):v(i_n,4)=ry

if k$="K" then rz=wrapvalue(v(i_n,5)+1):v(i_n,5)=rz

if k$="M" then rz=wrapvalue(v(i_n,5)-1):v(i_n,5)=rz

`ridimensionamento

if v(i_n,0)=5

if v(i_n,3)=0 then v(i_n,3)=100

if v(i_n,4)=0 then v(i_n,4)=100

if v(i_n,5)=0 then v(i_n,5)=100

endif

if k$="W" then sx=v(i_n,3)+1:v(i_n,3)=sx

if k$="Q" and sx>-1 then sx=v(i_n,3)-1:v(i_n,3)=sx

if k$="R" then sy=v(i_n,4)+1:v(i_n,4)=sy

if k$="E" and sy>-1 then sy=v(i_n,4)-1:v(i_n,4)=sy

if k$="Y" then sz=v(i_n,5)+1:v(i_n,5)=sz

if k$="T" and sz>-1 then sz=v(i_n,5)-1:v(i_n,5)=sz

`controlla quale istruzione si sta modificando

if v(i_n,0)=3

offset limb v(i_n,1),v(i_n,2),v(i_n,3),v(i_n,4),v(i_n,5)

`m$="Offset: x="+str$(v(i_n,3))+", y="+str$(v(i_n,4))+", z="+str$(v(i_n,5))

gosub message

endif

if v(i_n,0)=4

rotate limb v(i_n,1),v(i_n,2),v(i_n,3),v(i_n,4),v(i_n,5)

`m1$=" Rotate: x="+str$(v(i_n,3))+", y="+str$(v(i_n,4))+", z="+str$(v(i_n,5))

gosub message

endif

if v(i_n,0)=5

scale limb v(i_n,1),v(i_n,2),v(i_n,3),v(i_n,4),v(i_n,5)

`m2$=" Scale: x="+str$(v(i_n,3))+", y="+str$(v(i_n,4))+", z="+str$(v(i_n,5))

gosub message

endif

loop

visualize:

if o_n=0 and msh<>0

inc o_n

` rotate camera 20,0,0

make object o_n,msh,img

` position camera 0,0,-600

` point camera 0,0,0

rem crea l oggetto (prima mesh in assoluto -radice-)

v(i_n,0)=1:v(i_n,1)=msh:v(i_n,2)=img

gosub message

return

endif

rem aggiunge via via gli altri membri

inc i_n:inc lmb:v(i_n,0)=2:v(i_n,1)=o_n:v(i_n,2)=lmb:v(i_n,3)=msh

add limb o_n,lmb,msh:suspend for mouse

gosub message

return

find:

rem controlla se gia' si e registrata l istruzione invocata

if m<>0 then i_n=m:m=0

for n=0 to i_n

if v(n,0)=ins and v(n,2)=lmb then m=i_n:i_n=n:return

next n

`nessuna istruzione corrispondente? cerca

`una posizione vuota in v() e vi scrive la nuova istruzione.

in_new:

inc i_n

if v(i_n,0)=0

v(i_n,0)=ins:v(i_n,1)=o_n:v(i_n,2)=lmb

else

goto in_new

endif

return

list:

for n=0 to n_istr

m$=str$(v(n,0))+" "+str$(v(n,1))+" "+str$(v(n,2))+" "

m$=m$+str$(v(n,3))+" "+str$(v(n,4))+" "+str$(v(n,5))

text 100,n*15,m$

next n

return

message:

`text 1,465,m$+m1$+m2$+" Instr "+str$(i_n+1)+" Object n: "+str$(o_n)+" Limb: "+str$(lmb)

text 40,465,m$+" working on limb "+str$(lmb)+" m= "+str$(m)+" mk= "+str$(mk)

return

Download

Please login to download

Comments

No comments yet.

CodeBase - 3d graphics

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments

Author Name:	philip2k
CodeBase Entries:	1