Post by Deleted on Feb 6, 2010 9:40:08 GMT -5
Hello coders,
Here somewhat Dragon math.
You can refresh your brain cells.
Best wishes.
-----------------------------------------------------------------
Option Explicit
Public Text,TextL,i,x,Letter,Font,cx1,cy1,s1,r1,d1,v1
Dim Winkel(60)
Dim y(60)
Sub Main
Graphics.Initialize 640,480,True,32
Mouse.Initialize
Key.Initialize
Font = Graphics.CreateFont("comic",38,True)
Text = ">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>"
TextL = Len(Text)
cx1 =0: cy1 =100: r1 =10: d1 =1: v1 =0
For i = 1 To TextL
winkel(i) = 360 - i*(360/TextL)
y(i) = 240
Next
While Key.Pressed(1) = False And Key.Pressed(0) = False
Graphics.Clear(&hFFCD853F)
Graphics.SetText "DRAGON FLIGHT",120,16,Font,&h80C0FFFF
For x = 1 To TextL
winkel(x) = winkel(x) + .2
If winkel(x) = 360 Then winkel(x) = 0
Letter = Mid(Text,x,1)
y(x) = y(x) + Sin(winkel(x))
Graphics.SetText Letter,x*10,y(x),Font,ARGB(128,255,255,0)
Next
iF d1 =1 Then
Cloud1 cx1,cy1,r1,s1
s1 = s1 + 1
r1 = cos(r1)+rnd(20) *2
iF s1 >640 Then s1 = -1
v1 = v1 +1
iF v1 =7 Then
v1 =0: d1 =2
End iF
ElseiF d1 =2 Then
Cloud2 cx1,cy1,r1,s1
s1 = s1 + 1
r1 = cos(r1)+rnd(20) *2
iF s1 >640 Then s1 = -1
v1 = v1 +1
iF v1 =6 Then
v1 =0: d1 =3
End iF
ElseiF d1 =3 Then
Cloud3 cx1,cy1+6,r1,s1
s1 = s1 + 1
r1 = cos(r1)+rnd(20) *2
iF s1 >640 Then s1 = -1
v1 = v1 +1
iF v1 =5 Then
v1 =0: d1 =1
End iF
End iF
Graphics.Display
Graphics.SetFPS 40
Wend
Graphics.Terminate
Mouse.Terminate
Key.Terminate
End Sub
Call Main
Function Cloud1(x1,y1,r1,s1)
Graphics.SetCircle x1+s1,y1,r1,&hFFFAFAFA
Graphics.SetLine x1+s1,y1,(x1+10)+s1,y1-6,&hFFFAFAFA
Graphics.SetLine x1+s1,y1,(x1-10)+s1,y1-6,&hFFFAFAFA
End Function
Function Cloud2(x1,y1,r1,s1)
Graphics.SetCircle x1+s1,y1,r1,&hFFF0F0F0
Graphics.SetLine x1+s1,y1,(x1+10)+s1,y1,&hFFF0F0F0
Graphics.SetLine x1+s1,y1,(x1-10)+s1,y1,&hFFF0F0F0
End Function
Function Cloud3(x1,y1,r1,s1)
Graphics.SetCircle x1+s1,y1,r1,&hFFE6E6E6
Graphics.SetLine x1+s1,y1,(x1+10)+s1,y1+6,&hFFE6E6E6
Graphics.SetLine x1+s1,y1,(x1-10)+s1,y1+6,&hFFE6E6E6
End Function
Here somewhat Dragon math.
You can refresh your brain cells.
Best wishes.
-----------------------------------------------------------------
Option Explicit
Public Text,TextL,i,x,Letter,Font,cx1,cy1,s1,r1,d1,v1
Dim Winkel(60)
Dim y(60)
Sub Main
Graphics.Initialize 640,480,True,32
Mouse.Initialize
Key.Initialize
Font = Graphics.CreateFont("comic",38,True)
Text = ">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>"
TextL = Len(Text)
cx1 =0: cy1 =100: r1 =10: d1 =1: v1 =0
For i = 1 To TextL
winkel(i) = 360 - i*(360/TextL)
y(i) = 240
Next
While Key.Pressed(1) = False And Key.Pressed(0) = False
Graphics.Clear(&hFFCD853F)
Graphics.SetText "DRAGON FLIGHT",120,16,Font,&h80C0FFFF
For x = 1 To TextL
winkel(x) = winkel(x) + .2
If winkel(x) = 360 Then winkel(x) = 0
Letter = Mid(Text,x,1)
y(x) = y(x) + Sin(winkel(x))
Graphics.SetText Letter,x*10,y(x),Font,ARGB(128,255,255,0)
Next
iF d1 =1 Then
Cloud1 cx1,cy1,r1,s1
s1 = s1 + 1
r1 = cos(r1)+rnd(20) *2
iF s1 >640 Then s1 = -1
v1 = v1 +1
iF v1 =7 Then
v1 =0: d1 =2
End iF
ElseiF d1 =2 Then
Cloud2 cx1,cy1,r1,s1
s1 = s1 + 1
r1 = cos(r1)+rnd(20) *2
iF s1 >640 Then s1 = -1
v1 = v1 +1
iF v1 =6 Then
v1 =0: d1 =3
End iF
ElseiF d1 =3 Then
Cloud3 cx1,cy1+6,r1,s1
s1 = s1 + 1
r1 = cos(r1)+rnd(20) *2
iF s1 >640 Then s1 = -1
v1 = v1 +1
iF v1 =5 Then
v1 =0: d1 =1
End iF
End iF
Graphics.Display
Graphics.SetFPS 40
Wend
Graphics.Terminate
Mouse.Terminate
Key.Terminate
End Sub
Call Main
Function Cloud1(x1,y1,r1,s1)
Graphics.SetCircle x1+s1,y1,r1,&hFFFAFAFA
Graphics.SetLine x1+s1,y1,(x1+10)+s1,y1-6,&hFFFAFAFA
Graphics.SetLine x1+s1,y1,(x1-10)+s1,y1-6,&hFFFAFAFA
End Function
Function Cloud2(x1,y1,r1,s1)
Graphics.SetCircle x1+s1,y1,r1,&hFFF0F0F0
Graphics.SetLine x1+s1,y1,(x1+10)+s1,y1,&hFFF0F0F0
Graphics.SetLine x1+s1,y1,(x1-10)+s1,y1,&hFFF0F0F0
End Function
Function Cloud3(x1,y1,r1,s1)
Graphics.SetCircle x1+s1,y1,r1,&hFFE6E6E6
Graphics.SetLine x1+s1,y1,(x1+10)+s1,y1+6,&hFFE6E6E6
Graphics.SetLine x1+s1,y1,(x1-10)+s1,y1+6,&hFFE6E6E6
End Function