Graphics3D 800,600,32,2

HidePointer

;gravitation
Global grav_x#= 0
Global grav_y#=-0.08
Global grav_z#= 0

;höhe des bodens
Global ground%=-5

Global camera=CreateCamera()
PositionEntity camera,0,1,-24

Global light=CreateLight()
LightColor light,200,200,200

;spiegelnder untergrund
plane=CreatePlane()
PositionEntity plane,0,ground,0
EntityColor plane,20,20,100
EntityAlpha plane,0.85
mirror=CreateMirror(plane)
MoveEntity mirror,0,0.01,0


Type mass
   Field x#,y#,z#
   Field xs#,ys#,zs#
   Field xo#,yo#,zo#
   Field fix%
End Type

Type spring
   Field m1%,m2%
   Field l#
End Type

Type face
   Field surf%
   Field m1%,m2%,m3%,m4%
   Field v1%,v2%,v3%,v4%
End Type

Dim cube(6)
Dim texture(6)

Function add_mass(x#,y#,z#,f%)
   m.mass=New mass
   m\x=x
   m\y=y
   m\z=z
   m\fix=f
   Return Handle(m)
End Function

Function add_spring(m1%,m2%)
   ma1.mass = Object.mass(m1)
   ma2.mass = Object.mass(m2)

   s.spring = New spring
   s\m1 = m1
   s\m2 = m2
   s\l = ( ( ma1\x - ma2\x )^2 + ( ma1\y - ma2\y )^2 + ( ma1\z - ma2\z )^2 )

   Return Handle(s)
End Function

Function add_face(mesh%, m1%,m2%,m3%,m4%)
   ma1.mass = Object.mass(m1)
   ma2.mass = Object.mass(m2)
   ma3.mass = Object.mass(m3)
   ma4.mass = Object.mass(m4)

   f.face=New face
   f\surf=CreateSurface(mesh)
   f\m1=m1
   f\m2=m2
   f\m3=m3
   f\m4=m4
   f\v1=AddVertex (f\surf,ma1\x,ma1\y,ma1\z, 0,0)
   f\v2=AddVertex (f\surf,ma2\x,ma2\y,ma2\z, 1,0)
   f\v3=AddVertex (f\surf,ma3\x,ma3\y,ma3\z, 1,1)
   f\v4=AddVertex (f\surf,ma4\x,ma4\y,ma4\z, 0,1)
   AddTriangle f\surf,f\v1,f\v2,f\v3
   AddTriangle f\surf,f\v1,f\v3,f\v4
End Function

Function update_object()
   ;update federn
   For t=1 To 3
   For s.spring = Each spring
      m1.mass = Object.mass(s\m1)
      m2.mass = Object.mass(s\m2)

      lx# = ( m1\x + m1\xs ) - ( m2\x + m2\xs )
      ly# = ( m1\y + m1\ys ) - ( m2\y + m2\ys )
      lz# = ( m1\z + m1\zs ) - ( m2\z + m2\zs )

      lg# = ( lx * lx + ly * ly + lz * lz )
      ld# =  0.2 * ( s\l - lg )  / lg

      lx = ( lx * ld )
      ly = ( ly * ld )
      lz = ( lz * ld )

      m1\xs = m1\xs + lx
      m1\ys = m1\ys + ly
      m1\zs = m1\zs + lz
      m2\xs = m2\xs - lx
      m2\ys = m2\ys - ly
      m2\zs = m2\zs - lz
   Next
   Next

   ;update massen
   For m.mass = Each mass
      m\xo = m\x
      m\yo = m\y
      m\zo = m\z
      If ( m\y + m\ys ) > ground Then
         m\xs = m\xs + grav_x
         m\ys = m\ys + grav_y
         m\zs = m\zs + grav_z

         If m\fix = False Then
            m\x = m\x + m\xs
            m\y = m\y + m\ys
            m\z = m\z + m\zs
         Else
            m\xs = 0
            m\ys = 0
            m\zs = 0
         EndIf
      Else
         m\y = ground
         m\xs = 0
         m\ys = 0
         m\zs = 0
      EndIf     
   Next

   ;update faces
   For f.face = Each face
      ma1.mass = Object.mass(f\m1)
      ma2.mass = Object.mass(f\m2)
      ma3.mass = Object.mass(f\m3)
      ma4.mass = Object.mass(f\m4)
      VertexCoords f\surf,f\v1,ma1\x,ma1\y,ma1\z
      VertexCoords f\surf,f\v2,ma2\x,ma2\y,ma2\z
      VertexCoords f\surf,f\v3,ma3\x,ma3\y,ma3\z
      VertexCoords f\surf,f\v4,ma4\x,ma4\y,ma4\z         
   Next

   For t=0 To 5
      UpdateNormals cube(t)
   Next 
End Function


Function check_mouse()
   For m.mass=Each mass
      If m\y<=ground Then floor_hit=True:Exit
   Next

   If floor_hit Then
      mx# = MouseXSpeed() * 0.02
   my# = MouseYSpeed() * 0.02
   MoveMouse GraphicsWidth()/2,GraphicsHeight()/2
   If MouseHit(1) Then mz#=15
      m.mass = Last mass
      m\xs = m\xs + mx
      m\zs = m\zs - my
      m\ys = m\ys + mz 
   EndIf
End Function

Function Create_Cube()

   ;massenpunkte festlegen
   m0 = add_mass (-5, 5,-5, False)
   m1 = add_mass ( 5, 5,-5, False)
   m2 = add_mass ( 5,-5,-5, False)
   m3 = add_mass (-5,-5,-5, False)
   m4 = add_mass (-5, 5, 5, False)
   m5 = add_mass ( 5, 5, 5, False)
   m6 = add_mass ( 5,-5, 5, False)
   m7 = add_mass (-5,-5, 5, False)
   mm = add_mass ( 0, 0, 0, False)

   ;massen mit federn verbinden
   add_spring (mm,m0)
   add_spring (mm,m1)
   add_spring (mm,m2)
   add_spring (mm,m3)
   add_spring (mm,m4)
   add_spring (mm,m5)
   add_spring (mm,m6)
   add_spring (mm,m7)
   add_spring (m0,m1)
   add_spring (m1,m2)
   add_spring (m2,m3)
   add_spring (m3,m0)
   add_spring (m4,m5)
   add_spring (m5,m6)
   add_spring (m6,m7)
   add_spring (m7,m4)
   add_spring (m0,m4)
   add_spring (m1,m5)
   add_spring (m2,m6)
   add_spring (m3,m7)
   add_spring (m0,m6)
   add_spring (m1,m7)
   add_spring (m5,m3)
   add_spring (m4,m2)
   add_spring (m0,m2)
   add_spring (m1,m3)
   add_spring (m4,m6)
   add_spring (m5,m7)
   add_spring (m0,m7)
   add_spring (m3,m4)
   add_spring (m1,m6)
   add_spring (m5,m2)
   add_spring (m0,m5)
   add_spring (m1,m4)
   add_spring (m2,m7)
   add_spring (m3,m6)

   ;würfelmesh + texturen erstellen
   SetFont LoadFont("arial",300)

   For t=0 To 5
      cube(t)=CreateMesh()
      EntityFX cube(t),4
      EntityShininess cube(t),0.5
   
      texture(t)=CreateTexture(256,256)
      SetBuffer TextureBuffer(texture(t))
      Color Rnd(0,255),Rnd(0,255),Rnd(0,255)
      ClsColor ColorRed(),ColorGreen(),ColorBlue():Cls
      Color 255-ColorRed(),255-ColorGreen(),255-ColorBlue()
      Text 128,128,t+1,1,1
   Next

   add_face (cube(0),m0,m1,m2,m3)
   add_face (cube(1),m6,m5,m4,m7)
   add_face (cube(2),m5,m6,m2,m1)
   add_face (cube(3),m0,m3,m7,m4)
   add_face (cube(4),m4,m5,m1,m0)
   add_face (cube(5),m3,m2,m6,m7)

   For t=0 To 5
      EntityTexture cube(t),texture(t)
   Next
End Function

create_cube()

SetBuffer BackBuffer()

Color 255,255,255
SetFont LoadFont("arial",20)

MoveMouse GraphicsWidth()/2,GraphicsHeight()/2

While Not KeyHit(1)

  update_object()
  check_mouse()

  Delay(15)

  RenderWorld()
  Text 0,0,"Maus bewegen, Mausknopf drücken"
  Flip
Wend

End

Graphics3D 1280,1024,32,1