Kreis Punkte setzen

roherter · Beitrag von **roherter** » 06.02.2008 01:12

Ich möchte von einem vorgebenen Startpunkt aus Punkte setzen die im Kreis verlaufen, soll heißen ich gebe den Startpunkt x,y vor und möchte dann von dort aus vom Mittelpunkt ausgehend ein Kreis oder punkte zeichen.
Versuch noch mal anders ich habe ein bild das 500x500 pixel hat.

Mittelpunkt ist jetzt 250x250 wenn ich jetzt z.b. mit der maus ins bild klicke möchte ich das von dort aus der kreis gezeichnet wir in bezug auf den Mittelpunkt(radius)!

Ich habe hier schon etwas versucht aber klappt nicht so wie ich will vielleicht kann jemand helfen:

Code: Alles auswählen


Global teiler.l,Image0
teiler=360/12



Enumeration
  #Window_0
EndEnumeration



Enumeration
  #Image_0
EndEnumeration






Image0 = CreateImage(0,500,500)
StartDrawing(ImageOutput(0))
Box(0,0,500,500,RGB(255,255,255))
StopDrawing()


Procedure GetMouseX(Gadget)
  GetCursorPos_(mouse.POINT)
  MapWindowPoints_(0,GadgetID(Gadget),mouse,1)
  ProcedureReturn mouse\x
EndProcedure


Procedure GetMouseY(Gadget)
  GetCursorPos_(mouse.POINT)
  MapWindowPoints_(0,GadgetID(Gadget),mouse,1)
  ProcedureReturn mouse\y
EndProcedure
Procedure Open_Window_0()
  If OpenWindow(#Window_0, 391, 283, 521, 511, "test",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
    If CreateGadgetList(WindowID(#Window_0))
      ImageGadget(#Image_0, 10, 10, 500, 500, Image0)
      
    EndIf
  EndIf
EndProcedure

Open_Window_0()

Repeat
  
  Event = WaitWindowEvent() 
  
  WindowID = EventWindow()
  
  GadgetID = EventGadget()
  
  EventType = EventType()
  
  
  If  GetAsyncKeyState_(#VK_LBUTTON)
    winkel=0
    posx= GetMouseX(#Image_0)
    posy=GetMouseY(#Image_0)
    x_mitte=250
    y_mitte=250
    If posx>0 And posx<501
      If posy>0 And posy<501
        Debug "x"+Str(posx)
        Debug "y"+Str(posy)
        Repeat
          If winkel < 370
            winkel + teiler % 360
            x = posx * Cos(winkel *(2*3.1415/360)) + x_mitte ; Winkel als Bogenmaß
            y = posy * Sin(winkel *(2*3.1415/360)) + y_mitte
            StartDrawing(ImageOutput(0))
            Box(posx,posy,4,4,RGB(0,0,0))
            Box(x,y,4,4,RGB(0,0,0))
            StopDrawing()
            SetGadgetState(#Image_0,ImageID(0))
          EndIf
        Until  winkel>360
      EndIf
    EndIf
  EndIf
  If Event = #PB_Event_Gadget
    
    
    
  EndIf
  
Until Event = #PB_Event_CloseWindow

End

STARGÅTE · Beitrag von **STARGÅTE** » 06.02.2008 02:23

du musst das so machen :

Code: Alles auswählen

      If posy>0 And posy<501 
        Debug "x"+Str(posx) 
        Debug "y"+Str(posy) 
        Radius.f = Sqr(Pow(posx-x_mitte,2)+Pow(posy-y_mitte,2))
        Repeat 
          If winkel < 370 
            winkel + teiler % 360 
            x = Radius * Cos(winkel *(2*3.1415/360)) + x_mitte ; Winkel als Bogenmaß 
            y = Radius * Sin(winkel *(2*3.1415/360)) + y_mitte 
            StartDrawing(ImageOutput(0)) 
            Box(posx,posy,4,4,RGB(0,0,0)) 
            Box(x,y,4,4,RGB(0,0,0)) 
            StopDrawing() 
            SetGadgetState(#Image_0,ImageID(0)) 
          EndIf 
        Until  winkel>360 
      EndIf

Also mit dem Radius rechnet nicht mit dem jeweiligen Abstand von x und y

Außerdem würde ich dir raten den Kreis aus Linien zu machen die dnan immer von Winkel zu Winkel+2 oder Winkel+5 gehen, damit erhätst du immer ein geute Kreis egal wie groß er wird, bei Punkte hast du ja immer das prob ei großen kreisen

EDIT: Hier n version mit LINEXY()

Code: Alles auswählen

        If winkel < 370 
         winkel + teiler % 360 
         x1 = Radius * Cos(winkel *(2*3.1415/360)) + x_mitte ; Winkel als Bogenmaß 
         y1 = Radius * Sin(winkel *(2*3.1415/360)) + y_mitte 
         x2 = Radius * Cos((winkel+teiler) *(2*3.1415/360)) + x_mitte ; Winkel als Bogenmaß 
         y2 = Radius * Sin((winkel+teiler) *(2*3.1415/360)) + y_mitte 
         StartDrawing(ImageOutput(0)) 
          LineXY(x1,y1,x2,y2,0) 
         StopDrawing() 
         SetGadgetState(#Image_0,ImageID(0)) 
        EndIf

Laurin · Beitrag von **Laurin** » 06.02.2008 08:48

STARGÅTE hat geschrieben:bei Punkte hast du ja immer das prob ei großen kreisen

Du sprechen Deutsch?

Hab nix verstanden.

ZeHa · Beitrag von **ZeHa** » 06.02.2008 09:38

Du kannst Dir auch den Bresenham-Algorithmus anschauen, der kommt völlig ohne Winkelzeugs aus... und ist soweit ich weiß der Standard-Algorithmus den die meisten Zeichenprogramme und -Libs einsetzen. Den gibt's für Linien und für Kreise.

roherter · Beitrag von **roherter** » 06.02.2008 09:41

Das was ich an der stelle Male soll sich halt im kreis, also hier an allen 12 stellen vortsetzen oder dort auch gemalt werden das bekomme ich irgendwie nicht richtig hin

?
Es ist eigentlich ja auch keinkreis sondern ein 12eck muss mal schauen ob ich das irgendwie berechen kann!

Scarabol · Beitrag von **Scarabol** » 06.02.2008 10:24

Meinst du so?

Tip: Strg+Linksklick zum markieren des Quellcodes

Code: Alles auswählen

Global teiler.l,Image0
teiler=360/12



Enumeration
  #Window_0
EndEnumeration



Enumeration
  #Image_0
EndEnumeration






Image0 = CreateImage(0,500,500)
StartDrawing(ImageOutput(0))
Box(0,0,500,500,RGB(255,255,255))
StopDrawing()


Procedure GetMouseX(Gadget)
  GetCursorPos_(mouse.POINT)
  MapWindowPoints_(0,GadgetID(Gadget),mouse,1)
  ProcedureReturn mouse\x
EndProcedure


Procedure GetMouseY(Gadget)
  GetCursorPos_(mouse.POINT)
  MapWindowPoints_(0,GadgetID(Gadget),mouse,1)
  ProcedureReturn mouse\y
EndProcedure
Procedure Open_Window_0()
  If OpenWindow(#Window_0, 391, 283, 521, 511, "test",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
    If CreateGadgetList(WindowID(#Window_0))
      ImageGadget(#Image_0, 10, 10, 500, 500, Image0)
     
    EndIf
  EndIf
EndProcedure

Open_Window_0()

Repeat
 
  Event = WaitWindowEvent()
 
  WindowID = EventWindow()
 
  GadgetID = EventGadget()
 
  EventType = EventType()
 
 
  If  GetAsyncKeyState_(#VK_LBUTTON)
    winkel=0
    posx= GetMouseX(#Image_0)
    posy=GetMouseY(#Image_0)
    x_mitte=250
    y_mitte=250
    If posx>0 And posx<501
      If posy>0 And posy<501
;        Debug "x"+Str(posx)
;        Debug "y"+Str(posy)
        For i = 1 To 12
          winkel = i*360/12
          rad = 50
          x = posx + Cos(winkel*#PI/180)*rad
          y = posy + Sin(winkel*#PI/180)*rad
          StartDrawing(ImageOutput(0))
          Box(posx,posy,4,4,RGB(0,0,0))
          Box(x,y,4,4,RGB(0,0,0))
          StopDrawing()
          SetGadgetState(#Image_0,ImageID(0))
        Next
      EndIf
    EndIf
  EndIf
  If Event = #PB_Event_Gadget
   
   
   
  EndIf
 
Until Event = #PB_Event_CloseWindow

End

Gruß
Scarabol

roherter · Beitrag von **roherter** » 06.02.2008 11:21

Fast das ist schon nicht schlecht nurd as sich das alles auf den mittelpunkt des bildes beziehen soll.soll heißen der mittelpunkt muss immer bei 250,250 liegen!

Scarabol · Beitrag von **Scarabol** » 06.02.2008 11:43

Wo sollen die anderen Mittelpunkte liegen?

Im Kreis darum angeordnet oder?

Erhöh mal den rad Wert auf 220 und sag mir dann obs nicht besser ist.

Gruß
Scarabol

roherter · Beitrag von **roherter** » 06.02.2008 12:09

Vielleicht kann man hier besser erkennen was ich meine hab mal ebend ne Skizze gemacht!

Scarabol · Beitrag von **Scarabol** » 06.02.2008 12:13

Aaaahhhhhhhhssooooooo....

Du musst nur rausfinden, in welchem "Kuchenstück" sich die Mausbefindet, den x und y Abstand zum Punkt des Stücks ermitteln und auf alle anderen Punkte übertragen....

Gruß
Scarabol