rem Basic3D Functionality
rem Standard Setup Code for all examples
backdrop off : cls : sync on : sync rate 0 : hide mouse
set text font "arial" : set text size 16
set text to bold : set text transparent
rem Legacy or New Commands
legacyonly=rnd(1)
if legacyonly=1
gosub _legacycommands
else
gosub _newcommands
endif
rem End program
end
_legacycommands:
rem Test loop
do
rem Produce random values
ObjectNumber=1+rnd(500000)
Wireframe=rnd(1)
Transparency=rnd(1)
Cull=rnd(1)
Filter=rnd(1)
Light=rnd(1)
Fog=rnd(1)
Ambient=rnd(1)
MeshNumber=1+rnd(5)
TextureNumber=1+rnd(5)
LimbNumber=10
Size=10+rnd(90)
XSize=10+rnd(90)
YSize=10+rnd(90)
ZSize=10+rnd(90)
StartFrame=1+rnd(10)
EndFrame=StartFrame+1+rnd(10)
Speed=50+rnd(50)
QuarterPercent=100/4
ImageNumber=1+rnd(5)
TextureMode=1+rnd(2)
Percentage#=rnd(100)
SecondObject=1+rnd(500000)
TextureMode=1+rnd(2)
MipMode=1+rnd(2)
X=rnd(400)-200
Y=0
Z=rnd(400)
NewX=rnd(400)-200
NewY=0
NewZ=rnd(400)
Velocity=1+rnd(9)
XAngle=rnd(359)
YAngle=rnd(359)
ZAngle=rnd(359)
UValue=rnd(100)/100.0
VValue=rnd(100)/100.0
Scale=50+rnd(50)
XScale=50+rnd(50)
YScale=50+rnd(50)
ZScale=50+rnd(50)
MipmapGeneration=1+rnd(1)
rem Try each command group at random
r=r+1 : if r>=4 then r=0
if r=0 then gosub _3dobjects
if r=1 then gosub _3dmotion
if r=2 then gosub _3dcollision
if r=3 then gosub _3dlimbs
rem Display data
cls 0
print "BASIC3D EXPRESSION DATA"
print
if object exist(ObjectNumber)=1
if rnd(5)=1
print "3D OBJECTS"
print "exist:";object exist(ObjectNumber)
print "frames:";total object frames(ObjectNumber)
print "size:";object size(ObjectNumber)
print "x:";object position x(ObjectNumber)
print "y:";object position y(ObjectNumber)
print "z:";object position z(ObjectNumber)
print "anglex:";object angle x(ObjectNumber)
print "angley:";object angle y(ObjectNumber)
print "anglez:";object angle z(ObjectNumber)
print "sizex:";object size x(ObjectNumber)
print "sizey:";object size y(ObjectNumber)
print "sizez:";object size z(ObjectNumber)
print "visible:";object visible(ObjectNumber)
print "playing:";object playing(ObjectNumber)
print "looping:";object looping(ObjectNumber)
print "frame:";object frame(ObjectNumber)
print "speed:";object speed(ObjectNumber)
print "interpolation:";object interpolation(ObjectNumber)
print "object in screen:";object in screen(ObjectNumber)
print "object screen x:";object screen x(ObjectNumber)
print "object screen y:";object screen y(ObjectNumber)
print
endif
if rnd(5)=1
print "COLLISION"
if object exist(SecondObject)=1
print "object collision:";object collision(ObjectNumber, SecondObject)
print "object hit:";object hit(ObjectNumber, SecondObject)
endif
print "object col radius:";object collision radius(ObjectNumber)
print "object col center x:";object collision center x(ObjectNumber)
print "object col center y:";object collision center y(ObjectNumber)
print "object col center z:";object collision center z(ObjectNumber)
print "object col x:";get object collision x()
print "object col y:";get object collision y()
print "object col z:";get object collision z()
print "static hit:";get static collision hit( 2,2,2,10,10,10, 3,3,3,11,11,11 )
print "static col x:";get static collision x()
print "static col y:";get static collision y()
print "static col z:";get static collision z()
print "static line hit:";static line of sight( 0,0,0, 0,0,100, 1, 1 )
print "static line col x:";static line of sight x()
print "static line col y:";static line of sight y()
print "static line col z:";static line of sight z()
print
endif
if rnd(5)=1
print "LIMBS"
print "exist:";limb exist(ObjectNumber, LimbNumber)
if limb exist(ObjectNumber, LimbNumber)=1
print "offsetx:";limb offset x(ObjectNumber, LimbNumber)
print "offsety:";limb offset y(ObjectNumber, LimbNumber)
print "offsetz:";limb offset z(ObjectNumber, LimbNumber)
print "anglex:";limb angle x(ObjectNumber, LimbNumber)
print "angley:";limb angle y(ObjectNumber, LimbNumber)
print "anglez:";limb angle z(ObjectNumber, LimbNumber)
print "positionx:";limb position x(ObjectNumber, LimbNumber)
print "positiony:";limb position y(ObjectNumber, LimbNumber)
print "positionz:";limb position z(ObjectNumber, LimbNumber)
print "directionx:";limb direction x(ObjectNumber, LimbNumber)
print "directiony:";limb direction y(ObjectNumber, LimbNumber)
print "directionz:";limb direction z(ObjectNumber, LimbNumber)
print "texture:";limb texture(ObjectNumber, LimbNumber)
print "visible:";limb visible(ObjectNumber, LimbNumber)
print "linkvalid:";check limb link(ObjectNumber, LimbNumber)
print "name$:";limb texture name(ObjectNumber, LimbNumber)
endif
print
endif
if rnd(5)=1
print "MISC"
print "mesh exist:";mesh exist(MeshIndex)
print "alphablending available:";alphablending available()
print "filtering available:";filtering available()
print "fog available:";fog available()
print "TnL available:";tnl available()
print "Polys on nscreen:";statistic(1)
print
endif
endif
rem Delete Object
if object exist(ObjectNumber)=1 then delete object ObjectNumber
rem Update screen
sync
loop
return
_3dobjects:
rem Load Objects
load object "models\model.x",ObjectNumber
load object "models\model.x",SecondObject
rem Load Image for object
load image "iron.jpg",ImageNumber
rem Append Object
append object "models\extraanim.x", ObjectNumber, total object frames(ObjectNumber)+1
rem Set Object Properties
set object ObjectNumber, Wireframe, Transparency, Cull
set object ObjectNumber, Wireframe, Transparency, Cull, Filter
set object ObjectNumber, Wireframe, Transparency, Cull, Filter, Light
set object ObjectNumber, Wireframe, Transparency, Cull, Filter, Light, Fog
set object ObjectNumber, Wireframe, Transparency, Cull, Filter, Light, Fog, Ambient
rem Control Object Animation
play object ObjectNumber
play object ObjectNumber,StartFrame
play object ObjectNumber,StartFrame,EndFrame
loop object ObjectNumber
loop object ObjectNumber,StartFrame
loop object ObjectNumber,StartFrame,EndFrame
stop object ObjectNumber
set object frame ObjectNumber, StartFrame
set object speed ObjectNumber, Speed
set object interpolation ObjectNumber, QuarterPercent
rem Control Object Orientation
set object rotation xyz ObjectNumber
set object rotation zyx ObjectNumber
rem Object Visuals
hide object ObjectNumber
show object ObjectNumber
color object ObjectNumber, rgb(255,255,0)
scale object ObjectNumber,XSize,YSize,ZSize
texture object ObjectNumber, ImageNumber
set object texture ObjectNumber, TextureMode, MipmapGeneration
scroll object texture ObjectNumber, 0.1, 0.2
scale object texture ObjectNumber, 75, 75
ghost object on ObjectNumber
ghost object off ObjectNumber
fade object ObjectNumber, Percentage#
glue object to limb ObjectNumber, SecondObject, 1
unglue object ObjectNumber
lock object on ObjectNumber
lock object off ObjectNumber
disable object zdepth ObjectNumber
enable object zdepth ObjectNumber
rem Load mesh
load mesh "mesh.x",MeshNumber
rem Make Primitives
delete object ObjectNumber : make object cube ObjectNumber, Size
delete object ObjectNumber : make object box ObjectNumber, XSize, YSize, ZSize
delete object ObjectNumber : make object cylinder ObjectNumber, Size
delete object ObjectNumber : make object cone ObjectNumber, Size
delete object ObjectNumber : make object plain ObjectNumber, XSize, YSize
delete object ObjectNumber : make object triangle ObjectNumber, 0, 0, 0, 1, 1, 0, 0, 1, 0
delete object ObjectNumber : make object sphere ObjectNumber, Size
delete object ObjectNumber : make object ObjectNumber, MeshNumber, TextureNumber
rem Change Mesh In Object
LimbNumber=0
change mesh ObjectNumber, LimbNumber, MeshNumber
rem Delete Mesh
delete mesh MeshNumber
rem Make Mesh From Object
make mesh from object MeshNumber, ObjectNumber
rem Delete second object
delete object SecondObject
rem Remove redundant video items
flush video memory
return
_3dmotion:
rem Load objects
load object "model.x",ObjectNumber
load object "model.x",SecondObject
rem Adjust model to face correct direction
rotate object ObjectNumber, 270, 0, 0
fix object pivot ObjectNumber
rem Control object motion using EULER
position object ObjectNumber, X, Y, Z
rotate object ObjectNumber, XAngle, YAngle, ZAngle
xrotate object ObjectNumber, XAngle
yrotate object ObjectNumber, YAngle
zrotate object ObjectNumber, ZAngle
point object ObjectNumber, NewX, NewY, NewZ
move object ObjectNumber, Velocity
rem Control object motion using FREEFLIGHT
turn object left ObjectNumber, Velocity
turn object right ObjectNumber, Velocity
pitch object up ObjectNumber, Velocity
pitch object down ObjectNumber, Velocity
roll object left ObjectNumber, Velocity
roll object right ObjectNumber, Velocity
rem Align position and angle with other entities
set object to object orientation ObjectNumber, SecondObject
set object to camera orientation ObjectNumber
rem Delete second object
delete object SecondObject
return
_3dcollision:
rem Activate global collision
set global collision on
rem Load object
load object "model.x",ObjectNumber
rem Deactivate object collision
set object collision off ObjectNumber
rem Activate object collision
set object collision on ObjectNumber
rem Make new collision box for object
make object collision box ObjectNumber, -50,-50,-50,50,50,50,1
rem Delete collision box from object
delete object collision box ObjectNumber
rem Set different styles of collision
set object collision to boxes ObjectNumber
set object collision to spheres ObjectNumber
set object collision to polygons ObjectNumber
rem Deactivate global collision
set global collision off
return
_3dlimbs:
rem Load object
load object "model.x",ObjectNumber
rem Load Image for object
load image "iron.jpg",ImageNumber
rem Get details for all object limbs
perform checklist for object limbs ObjectNumber
for c=1 to checklist quantity()
print checklist string$(c)
next c
rem Manipulate single limb of the object
hide limb ObjectNumber, LimbNumber
show limb ObjectNumber, LimbNumber
offset limb ObjectNumber, LimbNumber, 0, 0, 100
rotate limb ObjectNumber, LimbNumber, XAngle, YAngle, ZAngle
scale limb ObjectNumber, LimbNumber, XScale, YScale, ZScale
color limb ObjectNumber, LimbNumber, rgb(0,255,0)
texture limb ObjectNumber, LimbNumber, ImageNumber
scroll limb texture ObjectNumber, LimbNumber, UValue, VValue
scale limb texture ObjectNumber, LimbNumber, XScale, YScale
return
_newcommands:
rem Set starting object numbers
ObjectNumber=1+rnd(49)
SecondObject=51+rnd(49)
ImageNumber=1+rnd(5)
Side=ImageNumber
rem Load image
load image "iron.jpg",ImageNumber
rem Create a higher quality sphere
make object sphere ObjectNumber,100,5,30
texture object ObjectNumber,ImageNumber
rem Test loop
do
rem Produce random values
Wireframe=rnd(1)
Transparency=rnd(1)
Cull=rnd(1)
Filter=rnd(1)
Light=rnd(1)
Fog=rnd(1)
Ambient=rnd(1)
VertexShaderNumber=1+rnd(5)
rem Try each command group at random
r=r+1 : if r>=5 then r=0
if r=0 then gosub _newobjectcommands
if r=1 then gosub _newtexturecommands
if r=2 then gosub _newvisualcommands
if r=3 then gosub _newshadercommands
if r=4 then gosub _newpixelshadercommands
rem Remove any second object
if object exist(SecondObject)=1 then delete object SecondObject
rem Display data
s=rnd(2)
cls
print "NEW BASIC3D EXPRESSION DATA (";r;")"
print
if s=0
print "3D DEVICE DATA"
print "devicetype:";get device type()
print "max lights:";get maximum lights()
print "max tex width:";get maximum texture width()
print "max tex height:";get maximum texture height()
print "max volume extent:";get maximum volume extent()
print "max vertexshader version:";get maximum vertex shader version()
print "max vertexshader constant:";get maximum vertex shader constants()
print "max pixelshader version:";get maximum pixel shader version()
print "max pixelshader value:";get maximum pixel shader value()
print
endif
if s=1
print "GENERAL AVAILABILITY FLAGS"
print "blit sys to local:";blitsystolocal available()
print "calibrate gamma:";calibrategamma available()
print "fullscreen gamma:";fullscreengamma available()
print "render after flip:";renderafterflip available()
print "render windowed:";renderwindowed available()
print "tlvertex system memory:";tlvertexsystemmemory available()
print "tlvertex video memory:";tlvertexvideomemory available()
print "nonlocal video memory:";nonlocalvideomemory available()
print "texture system memory:";texturesystemmemory available()
print "texture video memory:";texturevideomemory available()
print "fog range:";fogrange available()
print "fog table:";fogtable available()
print "fog vertex:";fogvertex available()
print "wbuffer:";wbuffer available()
print "wfog:";wfog available()
print "zbuffer:";zbuffer available()
print "zfog:";zfog available()
print
endif
if s=2
print "TEXTURE AVAILABILITY FLAGS"
print "alpha:";alpha available()
print "alpha comparison:";alphacomparison available()
print "anistropic filtering:";anistropicfiltering available()
print "antialias:";antialias available()
print "clip and scale points:";clipandscalepoints available()
print "clip tlverts:";cliptlverts available()
print "color perspective:";colorperspective available()
print "color write enable:";colorwriteenable available()
print "cubemap:";cubemap available()
print "cullccw:";cullccw available()
print "cullcw:";cullcw available()
print "dither:";dither available()
print "mipcubemap:";mipcubemap available()
print "mipmap:";mipmap available()
print "mipmap lodbias:";mipmaplodbias available()
print "mipmap volume:";mipmapvolume available()
print "non power of 2 textures:";nonpowtextures available()
print "perspective textures:";perspectivetextures available()
print "projected textures:";projectedtextures available()
print "seperate texture memories:";seperatetexturememories available()
print "only square textures:";onlysquaretextures available()
print "volumemap:";volumemap available()
print
endif
rem Update screen
sync
rem Short pause
sleep 1000
rem End loop
loop
return
_newobjectcommands:
rem Clone object
clone object ObjectNumber, SecondObject
rem Move clone slightly so we can see it
if object exist(SecondObject)=1 then position object SecondObject,50,50,50
rem Move against the object angle
move object up ObjectNumber, rnd(25)
move object down ObjectNumber, rnd(25)
move object left ObjectNumber, rnd(25)
move object right ObjectNumber, rnd(25)
rem Adjust the collision radius of the object
set object radius ObjectNumber, 50
return
_newtexturecommands:
rem Apply a texturing style
set light mapping on ObjectNumber, ImageNumber
set cube mapping on ObjectNumber, Side, Side, Side, Side, Side, Side
set sphere mapping on ObjectNumber, ImageNumber
set detail mapping on ObjectNumber, ImageNumber
set blend mapping on ObjectNumber, ImageNumber, 10
set bump mapping on ObjectNumber, ImageNumber
set cartoon shading on ObjectNumber, ImageNumber, ImageNumber
return
_newvisualcommands:
rem Adjust visual properties of the object
set object wireframe ObjectNumber, Wireframe
set object transparency ObjectNumber, Transparency
set object cull ObjectNumber, Cull
set object filter ObjectNumber, Filter
set object light ObjectNumber, Light
set object fog ObjectNumber, Fog
set object ambient ObjectNumber, Ambient
return
_newshadercommands:
rem Constants for vertex shader
#constant CSCALE 1
#constant CTRANSLATION 2
#constant CXROTATE 3
#constant CYROTATE 4
#constant CZROTATE 5
#constant CROTATION 6
#constant CWORLD 7
#constant CVIEW 8
#constant CPROJECTION 9
#constant CTEMP 10
#constant CLIGHT 11
#constant CDEGTORAD ( 3.14 / 180.0 )
rem Provide vertex shader with stream count
set vertex shader streamcount VertexShaderNumber, 4
rem Provide vertex shader with stream
VSDT_FLOAT2=0x01 : VSDT_FLOAT3=0x02 : VSDT_D3DCOLOR=0x04
VSDE_POSITION=0 : VSDE_NORMAL=3 : VSDE_DIFFUSE=5 : VSDE_TEXCOORD0=7
set vertex shader stream VertexShaderNumber, 1, VSDE_POSITION, VSDT_FLOAT3
set vertex shader stream VertexShaderNumber, 2, VSDE_NORMAL, VSDT_FLOAT3
set vertex shader stream VertexShaderNumber, 3, VSDE_DIFFUSE, VSDT_D3DCOLOR
set vertex shader stream VertexShaderNumber, 4, VSDE_TEXCOORD0, VSDT_FLOAT2
rem Create a vertex shader from a text file
create vertex shader from file VertexShaderNumber, "vshader.vsh"
rem Make simple object
if object exist(ObjectNumber)=1 then delete object ObjectNumber
make object sphere ObjectNumber,100
rem Convert object to correct mesh format
FVF_XYZ=0x002 : FVF_NORMAL=0x010 : FVF_DIFFUSE=0x040 : FVF_TEX1=0x100
FVF_FINAL=D3DFVF_XYZ || D3DFVF_NORMAL || D3DFVF_DIFFUSE || D3DFVF_TEX1
convert object fvf ObjectNumber,FVF_FINAL
rem Check if vertex shader was created
if vertex shader exist(VertexShaderNumber)=1
rem Apply vertex shader to object
set vertex shader on ObjectNumber, VertexShaderNumber
rem Create required matrices
r=make matrix4(CVIEW)
r=make matrix4(CPROJECTION)
r=make matrix4(CSCALE)
r=make matrix4(CTRANSLATION)
r=make matrix4(CXROTATE)
r=make matrix4(CYROTATE)
r=make matrix4(CZROTATE)
r=make matrix4(CROTATION)
r=make matrix4(CWORLD)
r=make matrix4(CTEMP)
rem required light vector
r=make vector3(CLIGHT)
rem setup camera and light vector position
sync on : position camera 0,0,-500
set vector3 CLIGHT,0,0,-500
rem Simple loop
while mouseclick()=0
rem get view and projection matrices
view matrix4 CVIEW
projection matrix4 CPROJECTION
rem setup a scale matrix
scale matrix4 CSCALE, 2.0, 2.0, 2.0
rem now setup the position
translate matrix4 CTRANSLATION, 0.0, 10.0, 0.0
rem setup rotation
rotate x matrix4 CXROTATE, 0.0 * CDEGTORAD
rotate y matrix4 CYROTATE, 0.0 * CDEGTORAD
rotate z matrix4 CZROTATE, 45.0 * CDEGTORAD
rem multiply all 3 rotation matrices together
multiply matrix4 CROTATION, CXROTATE, CYROTATE
multiply matrix4 CROTATION, CROTATION, CZROTATE
rem multiply all final matrices
multiply matrix4 CTEMP, CROTATION, CSCALE
multiply matrix4 CWORLD, CTEMP, CSCALE
multiply matrix4 CWORLD, CWORLD, CVIEW
multiply matrix4 CWORLD, CWORLD, CPROJECTION
rem transpose the matrix
transpose matrix4 CWORLD, CWORLD
rem we send the light vector3 to the vertex shader
set vertex shader vector VertexShaderNumber, 4, CLIGHT, 4
rem this is an important part – we send the world matrix to the vertex shader
set vertex shader matrix VertexShaderNumber, 0, CWORLD, 4
rem camera look
rotate camera camera angle x()+mousemovey(),camera angle y()+mousemovex(),0
rem update screen
sync
rem end loop
endwhile
rem Deactivate vertex shader of the object
set vertex shader off ObjectNumber
rem Delete a vertex shader
delete vertex shader VertexShaderNumber
endif
return
_newpixelshadercommands:
rem Create an object
if object exist(1)=1 then delete object 1
make object sphere 1,10
rem If Pixel Shaders supported
if get maximum pixel shader version()>0
rem Create a pixel shader from a text file
create pixel shader from file PixelShaderNumber, "pixelshader.psh"
rem Provide pixel shader with a texture
ImageNumber=1
load image "face.bmp",ImageNumber
set pixel shader texture PixelShaderNumber, 0, ImageNumber
rem Check if pixel shader was created
if pixel shader exist(PixelShaderNumber)=1
rem Apply pixel shader to object
set pixel shader on ObjectNumber, PixelShaderNumber
endif
rem Main loop
while mouseclick()<>2
set cursor 0,0 : print "Press Right Mouse Button To Exit"
endwhile
rem Check if pixel shader was created
if pixel shader exist(PixelShaderNumber)=1
rem Deactivate pixel shader of the object
set pixel shader off ObjectNumber
rem Delete a pixel shader
delete pixel shader PixelShaderNumber
endif
else
print "No Pixel Shader Support - Press Key" : wait key
endif
return
