Local i, nahe, nahe_Dis, Dis
For i=0 To 8
   Dis = EntityDistance(Box, spiv[i])
   If Dis < nahe_Dis Then nahe = i : nahe_Dis = Dis
Next

   poly = 3         ;zb 3 für Dreieck, 4 für Viereck
   snaps = 12         ;Anzahl der Randpunkte (muss Vielfaches von poly sein!!!)
                  ;
   ;;;;;;;;;;;;;;;;;;;;;
   
   
   snapw = 360 / snaps
   Dim K(snaps - 1)
   For i = 0 To snaps - 1
      K(i) = snapw * i
   Next

   Graphics  400, 300, 0, 2
   SetBuffer BackBuffer()

   mx = GraphicsWidth() / 2
   my = GraphicsHeight() / 2
   mr = my * 0.8

   Repeat
   
      boxw# = ((Float(MouseX()) / mx) * 360) Mod 360
         
      Cls      
      Text mx - 24, my - 8, "Winkel":   Text mx - 15, my + 8, boxw
      
      ;Box zeichnen
      For i = 0 To poly
         pw = 360 / poly
         px1 = mx - Sin(boxw + pw * i) * (mr - 10)
         py1 = my - Cos(boxw + pw * i) * (mr - 10)
         px2 = mx - Sin(boxw + pw * (i + 1)) * (mr - 10)
         py2 = my - Cos(boxw + pw * (i + 1)) * (mr - 10)
         Line px1, py1, px2, py2
         If i = 0 Then Oval px1 - 5, py1 - 5, 10, 10
      Next      
      
      ;Kugeln zeichnen
      nearestSnap = Floor(boxw / snapw + 0.5) Mod snaps
      Text 0, 0, "nearest Snap: " + nearestSnap
      For i = 0 To snaps - 1
         px = mx - Sin(K(i)) * mr
         py = my - Cos(K(i)) * mr         
         fill = (i - nearestSnap) Mod (snaps / poly) = 0
         Oval px - 3, py - 3, 6, 6, fill
         Text mx - Sin(K(i)) * (mr + 16), my - Cos(K(i)) * (mr + 16), i
      Next      
      
      Flip()   
   Until KeyDown(1)
   End