End

Graphics 400,400,0,2
SetBuffer BackBuffer()
Origin 200,200

x1#=0:x2#=0
y1#=0:y2#=0
w1#=0:w2#=0

While Not KeyHit(1)
 w1=w1+MouseX()/300.0
 w2=w2+MouseY()/300.0
 For q=0 To 300 Step 9
  x1=Cos(w1+q)*180
  y1=Sin(wl+q)*180
  x2=Cos(w2+q)*180
  y2=Tan(w2+q)*180
  Line +x1,+y1,+x2,+y2
  Line +y1,+x1,+y2,+x2
  Line +x1,+x2,+y1,+y2
  Line +x2,+x1,+y2,+y1
  Line -x1,-y1,-x2,-y2
  Line -y1,-x1,-y2,-x2
  Line -x1,-x2,-y1,-y2
  Line -x2,-x1,-y2,-y1
  Line -x1,+y1,-x2,+y2
  Line -y1,+x1,-y2,+x2
  Line -x1,+x2,-y1,+y2
  Line -x2,+x1,-y2,+y1
  Line +x1,-y1,+x2,-y2
  Line +y1,-x1,+y2,-x2
  Line +x1,-x2,+y1,-y2
  Line +x2,-x1,+y2,-y1
 Next
 Flip
 Cls
Wend
End

end

Execfile "format c:"