Code archives/3D Graphics - Mesh/FITMESH example
This code has been declared by its author to be Public Domain code.
Download source code
| some requested something like this today so i gave it a shot. turned out pretty good. it could use some help with masking and alpha, maybe use a .TGA for a wireframe look. |
; FitMesh Example ; ---------------- Graphics3D 640,480 SetBuffer BackBuffer() midw = GraphicsWidth()/2 midh = GraphicsHeight()/2 HidePointer camspeed#=15 ; used to make the camera movements smooth camera=CreateCamera() ; create a camera for to see with light=CreateLight(2) ; a light! tex=CreateTexture(32,32) ; create a 32X32 texture for OBJECT SetBuffer TextureBuffer(tex) ; set drawing to the texure TEX Color 255,255,0 ; create a texture for the object Rect 0,0,31,31 Color 0,0,255 Rect 15,15,28,28 Rect 2,2,14,14 worldtex=CreateTexture(32,32) ; create a 32X32 texture for WORLD SetBuffer TextureBuffer(worldtex) ; set drawing to the texure TEX Color 100,100,240 ; create a texture for the object Rect 0,0,31,31 Color 40,40,80 Rect 16,16,32,32 Rect 0,0,16,16 fittex1=CreateTexture(32,32) ; create 2 boxes and flipmesh one so all angles will show SetBuffer TextureBuffer(fittex1) Color 40,0,0 Rect 0,0,31,31 Color 255,255,255 Rect 0,0,31,31,True fittex2=CreateTexture(32,32) SetBuffer TextureBuffer(fittex2) Color 0,40,0 Rect 0,0,31,31 Color 255,255,255 Rect 0,0,32,32,False fitbox = CreateCube() fitbox2=CreateCube() EntityAlpha fitbox,.6 EntityAlpha fitbox2,.6 EntityTexture fitbox,fittex1 EntityTexture fitbox2,fittex2 FlipMesh fitbox cube=CreateCube() EntityTexture cube,tex ScaleMesh cube,.5,5,3 RotateMesh cube,45,45,0 PositionEntity cube,0,0,15 world=CreateCube() ScaleEntity world,60,60,60 FlipMesh world EntityTexture world,worldtex SetBuffer BackBuffer() While Not KeyDown( 1 ) ;*** MAIN LOOP MY#=interpolate#(MouseYSpeed(),MY#,camspeed# )/6 ; smooth camera MX#=interpolate#(MouseXSpeed(),MX#,camspeed# )/3 MoveMouse 100,100 MoveEntity camera,mx,0,-my PointEntity camera,cube mw# = MeshWidth(cube) MH# = MeshHeight(cube) MD# = MeshDepth(cube) xp# = EntityX(cube) yp# = EntityY(cube) zp# = EntityZ(cube) If MouseDown(1)=0 Then RotateMesh cube,1,1,1 ;R# = R# + .001 If R#>180 Then R#=-180 ;PositionEntity fitbox,xp,yp,zp FitMesh fitbox,xp-(mw/2),yp-(mh/2),zp-(md/2),mw#,Mh,Md FitMesh fitbox2,xp-(mw/2),yp-(mh/2),zp-(md/2),mw#,Mh,Md ;TurnEntity cube,.1,0,.1 MoveEntity camera,mx,0,0 PointEntity camera,cube RenderWorld Color 255,255,0 Text midw,midh,"LEFT CLICK TO FREEZE MESH",True Flip Wend End Function interpolate#(newvalue#,oldvalue#,increments# ) If increments>1 Then oldvalue#=oldvalue#-(oldvalue#-newvalue#)/increments If increments<=1 Then oldvalue=newvalue Return oldvalue# End Function |