Re: модель из Желе
Цитата:
Сообщение от tormoz
Код:
;********************DEMO 2****************
Graphics3D 640,480,32
HidePointer
;gravitation
Global grav_x#= 0
Global grav_y#=-0.08
Global grav_z#= 0
;hohe 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)
;wurfelmesh + 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 drucken"
Flip
Wend
End
|
***** спасибо тебе!
Убил мои дрова!!
Модеры удалите на*** этот код отсюда, чтобы больше никто не пострадал!!! |
