Graphics3D 640,480,16,2

cam=CreateCamera()
;MoveEntity cam,0,10,0
;TurnEntity cam,45,-15,30

l=CreateLight()

cube = CreateCube()
PositionEntity cube,0,0,10
ScaleEntity cube,2,2,2
EntityAlpha cube,0.2
surface = GetSurface(cube,1)
vertex  = CountVertices(surface)

For i=1 To vertex-1

      Line3D VertexX#(surface,i-1),VertexY#(surface,i-1),VertexZ#(surface,i-1), VertexX#(surface,i),VertexY#(surface,i),VertexZ#(surface,i),cube
 
Next


While 1

   If KeyHit(1) End

   TurnEntity cube,1,1,1
      
   RenderWorld
   Flip

Wend



Function Line3D(x1,y1,z1,x2,y2,z2,parent%=0)

      Entity = CreateCube(parent)
      
      EntityColor Entity,0,255,0
      EntityAlpha Entity,0.4
      
      If x1<>0 And y1<>0 And z1<>0 Or x2<>0 And y2<>0 And z2<>0
         dx#=x2 - x1
         dy#=y2 - y1
         dz#=z2 - z1
         ln#=Sqr(dx^2+dy^2+dz^2)
         
         PositionMesh Entity, 0, 0, 1
         AlignToVector Entity,dx,dy,dz,0
         PositionEntity Entity,x1,y1,z1
         ScaleEntity Entity,0.01,0.01,ln/2
               
         dx=dx/ln
         dy=dy/ln
         dz=dz/ln
      EndIf
End Function