Based on a joke of me & big10p about bubbles hereby the code for a bubble generator :-P
;The ULTIMATE bubble generator!
;
;Worklog
;-------
;big10p 20-may-07, bubble mesh
;LeeMing 20-may-07, Tbubble, movement
Graphics3D 800,600,32
SetBuffer BackBuffer()
SeedRnd MilliSecs()
Global cam = CreateCamera()
CameraClsColor cam,50,0,100
PositionEntity cam,0,0,-5
Global light = CreateLight()
Global light2 = CreateLight()
TurnEntity light,50,90,0
TurnEntity light2,90,50,0
Global ang# = 0.0
Type Tbubble
Field mesh
Field uf# ;up force
End Type
For b=1 To 60
bubble.Tbubble = New Tbubble
bubble\mesh=makebubble()
bubble\uf=Rnd(.1,.3)
PositionEntity bubble\mesh, Rand(-80,80)/10, Rand(-70,70)/10, Rand(4)
Next
While Not KeyHit(1)
For bubble.Tbubble = Each Tbubble
ScaleEntity bubble\mesh,1+(Cos(ang)*0.05),1+(Sin(ang)*0.05),1+(Cos(ang)*0.05)
ang = (ang + 10) Mod 360.0
TurnEntity bubble\mesh,.5,.5,.5
PositionEntity bubble\mesh,EntityX(bubble\mesh)+Rnd(-.1,.1),EntityY(bubble\mesh)+bubble\uf,EntityZ(bubble\mesh)
If EntityY(bubble\mesh)>7 Then PositionEntity bubble\mesh,EntityX(bubble\mesh),EntityY(bubble\mesh)-14,EntityZ(bubble\mesh)
;If EntityX(bubble\mesh)>4 Then PositionEntity bubble\mesh,EntityX(bubble\mesh)-8,EntityY(bubble\mesh),EntityZ(bubble\mesh)
;If EntityX(bubble\mesh)<4 Then PositionEntity bubble\mesh,EntityX(bubble\mesh)+8,EntityY(bubble\mesh),EntityZ(bubble\mesh)
Next
RenderWorld
Text 10,10, "The ULTIMATE bubble generator!"
Flip True
Wend
End
Function makebubble()
bubble = CreateSphere(32)
inside = CreateSphere(32)
FlipMesh inside
AddMesh inside,bubble
FreeEntity inside
EntityShininess bubble,1
EntityBlend bubble,3
EntityFX bubble,2+32
ss = 0
ee = 55
surf = GetSurface(bubble,1)
For i = 0 To CountVertices(surf)-1
VertexColor surf,i,Rand(ss,ee),Rand(ss,ee),Rand(ss,ee),1
Next
Return bubble
End Function
|
