;------------------- Declares
AppTitle "Inner Evil by Eikon"
Graphics 800, 600, 16, 2
SetBuffer BackBuffer()
Global ret_X, ret_Y
Type Point
	Field A, R, ID
End Type
tmp_ID = 1
For i = 0 To 359 Step 72
	p.Point = New Point
	p\A = i: p\R = 300: p\ID = tmp_ID
	tmp_ID = tmp_ID + 1
Next

tmp_ID = 10
For i = 0 To 359 Step 72
	p.Point = New Point
	p\A = i: p\R = 91: p\ID = tmp_ID
	tmp_ID = tmp_ID + 1
Next

;------------------- Main
Color 255, 0, 0
Origin 400, 300
While Not KeyDown(1)
For p.Point = Each Point
	tmp_X = p\R * Cos(p\A)
	tmp_Y= p\R * -Sin(p\A)
	If p\ID < 10 Then
	If p\ID = 1 Then ; 1
		Connect(3): Line tmp_X, tmp_Y, ret_X, ret_Y
		Connect(4): Line tmp_X, tmp_Y, ret_X, ret_Y
	ElseIf p\ID = 2 Then ; 2
		Connect(5): Line tmp_X, tmp_Y, ret_X, ret_Y
		Connect(4): Line tmp_X, tmp_Y, ret_X, ret_Y
	ElseIf p\ID = 3 Then ; 3
		Connect(5): Line tmp_X, tmp_Y, ret_X, ret_Y
	EndIf
	p\A = p\A + 3: If p\A >= 360 Then p\A = 0
	ElseIf p\ID >= 10 And p\ID <= 20
	If p\ID = 10 Then ; 1
		Connect(12): Line tmp_X, tmp_Y, ret_X, ret_Y
		Connect(13): Line tmp_X, tmp_Y, ret_X, ret_Y
	ElseIf p\ID = 11 Then ; 2
		Connect(15): Line tmp_X, tmp_Y, ret_X, ret_Y
		Connect(14): Line tmp_X, tmp_Y, ret_X, ret_Y
	ElseIf p\ID = 12 Then ; 3
		Connect(15): Line tmp_X, tmp_Y, ret_X, ret_Y
	EndIf
	p\A = p\A - 3: If p\A <= 0 Then p\A = 359
	EndIf
Next
Flip: Cls
Wend: End
; ------------------ Functions
Function Connect(ID)
For p.Point = Each Point
	If p\ID = ID Then ret_X = p\R * Cos(p\A): ret_Y = p\R * -Sin(p\A): Exit
Next
End Function