HACKERBOT

shotting.cc

DEFCON-1

HOME

WELCOME TO SHOTTING.CC

pi rotation demo

pi-rotation-formula.mp4 Public Class Form1 Public light(20) As Integer Public count As Integer = 0 REM co-ordinates array Public dark(1000) As Double Public cloud(1000) As Double Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load REM vertical line light(0) = 480 light(1) = 128 light(2) = 480 light(3) = 640 REM vertical line rotated horizontal and to left join light(4) = light(0) / 1.5 light(5) = light(1) * 2.5 light(6) = light(2) light(7) = light(3) / 2 DrawArc(dark, light(4), light(5), light(6), light(7)) REM another vertical line off left join light(16) = light(4) / 0.85 light(17) = light(5) light(18) = light(6) / 1.275 light(19) = light(7) / 1.5 REM horizontal left line flipped right light(8) = (light(4) * 1.5) * 1.5 light(9) = light(5) light(10) = light(6) light(11) = light(7) DrawArc(cloud, light(10), light(9), light(8), light(11)) REM vertical right line conversion on right flipp light(12) = light(8) * 0.85 light(13) = light(9) light(14) = light(10) * 1.275 light(15) = light(11) * 1.5 Timer1.Start() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick REM get bitmap drawing surface Dim bmp As Bitmap = New Bitmap(800, 600) REM apply drawing skills Dim gfx As Graphics = Graphics.FromImage(bmp) REM load array of co-ordinates Dim x = light(0) Dim y = light(1) Dim x1 = (light(2)) Dim y1 = (light(3)) Dim lngth As Double = x1 - x REM get length of lines Dim x2 = light(4) Dim y2 = light(5) Dim x3 = (light(6)) Dim y3 = (light(7)) Dim lngth1 As Double = x3 - x2 Dim x4 = light(8) Dim y4 = light(9) Dim x5 = (light(10)) Dim y5 = (light(11)) Dim lngth2 As Double = x5 - x4 Dim x6 = light(12) Dim y6 = light(13) Dim x7 = (light(14)) Dim y7 = (light(15)) Dim lngth3 As Double = x7 - x6 Dim x8 = light(16) Dim y8 = light(17) Dim x9 = (light(18)) Dim y9 = (light(19)) Dim lngth4 As Double = x9 - x8 REM draw lines of binary tree to screen count += 2 If count > 500 Then count = 0 End If gfx.DrawLine(Pens.LightBlue, CInt(x), CInt(y), CInt(x1), CInt(y1)) gfx.DrawLine(Pens.LightBlue, CInt(dark(0 + count)), CInt(dark(1 + count)), CInt(x3), CInt(y3)) gfx.DrawLine(Pens.LightBlue, CInt(cloud(0 + count)), CInt(cloud(1 + count)), CInt(x5), CInt(y5)) gfx.DrawLine(Pens.LightBlue, CInt(x6), CInt(y6), CInt(x7), CInt(y7)) gfx.DrawLine(Pens.LightBlue, CInt(x8), CInt(y8), CInt(x9), CInt(y9)) REM unload drawing skills gfx.Dispose() REM display bitmap PictureBox1.Image = bmp End Sub Function DrawArc(ByRef dark() As Double, ByVal x As Double, ByVal y As Double, ByVal x1 As Double, ByVal y1 As Double) As Array Dim arc As Double = (x1 - x) / 2 Dim cnt As Integer = 1 For a As Integer = 0 To 3 For b As Integer = 0 To arc If a = 0 Then x += 1 y = y + (Math.PI) / 4 dark(cnt) = x dark(cnt + 1) = y End If If a = 1 Then x += 1 y = y + (Math.PI / 2) dark(cnt) = x dark(cnt + 1) = y End If If a = 2 Then x -= 1 y = y + (3 * Math.PI / 4) dark(cnt) = x dark(cnt + 1) = y End If If a = 3 Then x -= 1 y = y + (Math.PI) dark(cnt) = x dark(cnt + 1) = y End If cnt += 2 Next Next Return dark End Function End Class

Valid CSS!