gambas-source-code/app/other/MakeWebSite/.src/MBeams.module
Benoît Minisini eac2589a86 [INTERPRETER]
* BUG: Do the full commit of the floating point to string conversion fix.


git-svn-id: svn://localhost/gambas/trunk@4364 867c0c6c-44f3-4631-809d-bfa615b0a4ec
2011-12-30 10:57:06 +00:00

42 lines
879 B
Text

' Gambas module file
Public Sub Main()
Dim hImage As New Image(2288, 1280, Color.Transparent)
Dim fAngle As Float
Dim fWidth As Float
Paint.Begin(hImage)
For fAngle = 0 To Pi(2) Step 0.02
Paint.Brush = Paint.Color(Color.SetAlpha(&H3398C3&, &HE0))
For fWidth = 10 DownTo 7
Paint.LineWidth = fWidth
Paint.MoveTo(hImage.W / 2, hImage.H - 250)
Paint.RelLineTo(hImage.W * Cos(fAngle), - hImage.W * Sin(fAngle))
Paint.Stroke
Next
fAngle += Pi(0.02)
Next
For fAngle = 0 To Pi(2) Step 0.02
Paint.Brush = Paint.Color(Color.SetAlpha(&HFFFFFF&, 192))
Paint.LineWidth = 6
Paint.MoveTo(hImage.W / 2, hImage.H - 250)
Paint.RelLineTo(hImage.W * Cos(fAngle), - hImage.W * Sin(fAngle))
Paint.Stroke
fAngle += Pi(0.02)
Next
Paint.End
hImage.Save("~/beam.png")
End