PureBoard

Code: Alles auswählen

; polygon.pbi

;XIncludeFile "E:\pbi\getAngle.pbi"
;{ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\ E:\pbi\getAngle.pbi
        ; getAngle.pbi
        
        
        Procedure.f getAngle(mx,my, px,py, mode.l=1)
        ; returns the angle of a line going from point
        ; [mx,my] to point [px,py] in radian
        ; mode=1 (default):
        ; pointing to the right means 0 degrees
        ; pointing to the top means 90 degrees, ect
        ; [math y-axis]
        ; mode=-1:
        ; pointing to the right means 0 degrees
        ; pointing to the bottom means 90 degrees, ect
        ; [screen y-axis.]
        
          Static xd.l, yd.l, alpha.f
          xd=px-mx
          yd=py-my
          
          If xd>0
            If     yd<0 :: alpha=         ATan(-yd / xd )
            ElseIf yd>=0 :: alpha= 2*#PI - ATan( yd / xd )
            EndIf
          ElseIf xd<0
            If     yd<0 :: alpha=   #PI - ATan(-yd /-xd )
            ElseIf yd>=0 :: alpha=   #PI + ATan( yd /-xd )
            EndIf
          ElseIf xd=0
            If     yd>0 : alpha=   #PI*1.5
            ElseIf yd<0 : alpha=   #PI*0.5
            EndIf
          EndIf
          If mode=-1
            alpha = 2*#PI-alpha
          EndIf
        ;   If Not Random(200)
        ;     Debug Str(xd) + " | " + Str(yd) + " | " + StrF(alpha)
        ;   EndIf
          ProcedureReturn alpha
        EndProcedure
        
        
        ; [...]
;}
;  ________________________________/ [end] E:\pbi\getAngle.pbi



Structure _S_poly
  p0.POINT
  p.POINT
  go.POINT
  center.POINT
  radius.l
  angle.f
  color.l
  relative.l
  temp.f
EndStructure
Global _poly._S_poly





; 'initPoly(..)' sets the initial coordiantes for a new polygon.
; you can also set a color (default is white)
; set 'relative_' to #FALSE if following calls of 'setPoly(..)'
; use absolute coordinates. if set to #TRUE (default) 'setPoly(..)'
; moves relative to its current position
Macro initPoly(x_, y_, color_=$ffffff, relative_=#True)
  _poly\p0\x = x_
  _poly\p0\y = y_
  _poly\p\x  = x_
  _poly\p\y  = y_
  _poly\color = color_
  _poly\relative = relative_
  _poly\angle = 0
EndMacro


; 'setPoly(..)' sets a new point / adds a segment.
; paramters 'x_'/'y_' are used as absolute (i.e.:screen-coordinates)
; or relaitve to the current position, according to what was defined
; in 'initPoly(..)'
; you can choose a optional color for this segment.
Macro setPoly(x_, y_, color_=_poly\color)
  _poly\go\x = (x_)+(0 Or _poly\relative)*_poly\p\x
  _poly\go\y = (y_)+(0 Or _poly\relative)*_poly\p\y
  LineXY( _poly\p\x, _poly\p\y, _poly\go\x, _poly\go\y, color_)
  _poly\p\x =  _poly\go\x
  _poly\p\y =  _poly\go\y
EndMacro


; 'setPoly2(..)' sets a new point / adds a segment.
; paramter 'a_' is the angle of the segment relative to
; the current angle. 'r_' is the length of the segment
; you can choose an optional color for this segment.
; 'a_' is always relative.
; 'r_' is always absolute
Macro setPolyA(a_, r_, color_=_poly\color)
  _poly\radius = (r_)
  _poly\angle  + (a_)
  Line( _poly\p\x, _poly\p\y, _poly\radius*Cos(_poly\angle), _poly\radius*Sin(_poly\angle), color_)
  _poly\p\x + _poly\radius*Cos(_poly\angle)
  _poly\p\y + _poly\radius*Sin(_poly\angle)
EndMacro


; 'closePoly()' is not required, but can be used to easily close
; a polygon, that is to say to draw a line from the current postion
; back to the initial position.
; you can choose an optional color for this segment.
Macro closePoly(color_=_poly\color)
  LineXY(_poly\p\x, _poly\p\y, _poly\p0\x, _poly\p0\y, color_)
EndMacro







Macro initRadialPolyA(xCenter_, yCenter_, a_, r_, color_=$ffffff, relative_=#True)
  _poly\center\x = xCenter_
  _poly\center\y = yCenter_
  _poly\p0\x = _poly\center\x + (r_) * Cos(a_)
  _poly\p0\y = _poly\center\y + (r_) * Sin(a_)
  _poly\p\x  = _poly\p0\x
  _poly\p\y  = _poly\p0\y
  _poly\color = color_
  _poly\relative = relative_
  _poly\angle = a_
EndMacro


Macro setRadialPolyA(a_, r_, color_=_poly\color)
  _poly\angle = (a_) + (0 Or _poly\relative)*_poly\angle
  _poly\go\x = _poly\center\x + (r_) * Cos(_poly\angle)
  _poly\go\y = _poly\center\y + (r_) * Sin(_poly\angle)
  LineXY( _poly\p\x, _poly\p\y, _poly\go\x, _poly\go\y, color_)
  _poly\p\x = _poly\go\x
  _poly\p\y = _poly\go\y
EndMacro


Macro initRadialPoly(xCenter_, yCenter_, x_, y_, a_, color_=$ffffff, relative_=#True)
  _poly\center\x = xCenter_
  _poly\center\y = yCenter_
  _poly\angle = a_
  _poly\temp = getAngle(_poly\center\x, _poly\center\y, _poly\center\x + (x_), _poly\center\y + (y_),-1)
  _poly\radius = Sqr( (x_)*(x_)+(y_)*(y_) )
  _poly\p0\x = _poly\center\x + _poly\radius * Cos(_poly\angle + _poly\temp)
  _poly\p0\y = _poly\center\y + _poly\radius * Sin(_poly\angle + _poly\temp)
  _poly\p\x  = _poly\p0\x
  _poly\p\y  = _poly\p0\y
  _poly\color = color_
  _poly\relative = relative_
EndMacro


Macro setRadialPoly(x_, y_, color_=_poly\color)
  _poly\temp = getAngle(_poly\center\x, _poly\center\y, _poly\center\x + (x_), _poly\center\y + (y_),-1)
  _poly\radius = Sqr( (x_)*(x_)+(y_)*(y_) )
  _poly\go\x = _poly\center\x + _poly\radius * Cos(_poly\angle + _poly\temp)
  _poly\go\y = _poly\center\y + _poly\radius * Sin(_poly\angle + _poly\temp)
  LineXY( _poly\p\x, _poly\p\y, _poly\go\x, _poly\go\y, color_)
  _poly\p\x = _poly\go\x
  _poly\p\y = _poly\go\y
EndMacro



Macro rad(_deg_)
  ((_deg_)*0.017453292519943295) ; _deg_ * #PI / 180
EndMacro


; [merge_end]









; ;EXAMPLE
; 
; hWin=OpenWindow(0, 50,50,800,700, "EXAMPLE - polygon.pbi")
; CreateGadgetList(hWin)
; ImageGadget(0, 0,0,  0,0, CreateImage(0,800,700), #PB_Image_Border)
; AddKeyboardShortcut(0,#PB_Shortcut_Escape,0)
; font=LoadFont(0,"Arial",8)
; Repeat
;   StartDrawing( ImageOutput(0) )
;     Box(0,0,WindowWidth(0),WindowHeight(0),$000000)
;     
;     
;     ;a triangle
;     
;     initPoly(50,300,$ff0000)
;     setPoly(100,0)
;     setPoly(-100,100)
;     closePoly()
;     
;     
;     ;a polygon
;     
;     initPoly(140,20,$ffff00,#False)
;     setPoly(190,70)
;     setPoly(240,70)
;     setPoly(240,20,$00ff00)
;     setPoly(270,20)
;     setPoly(270,220)
;     setPoly(220,220,$0000ff)
;     setPoly( 20,20,$0000ff)
;     setPoly(140,20)
;     
;     
;     ;a spiral
;     
;     amount = DesktopMouseY()/4
;     angle.f = DesktopMouseX()/10
;     initPoly(400,200)
;     For i=1 To amount
;       setPolyA( rad(angle), i, RGB(255,255*i/amount,0) )
;     Next
;     
;     
;     ;a bzzz
;     
;     For n=0 To 4
;       initPoly(100,500)
;       For i=0 To 150
;         setPoly(4, Random(8)-4, $ff0000+$0000ff*i/150)
;       Next
;     Next
;     
;     
;     ;a whirling star
;     
;     size=50
;     initPoly(300,350,$00ff00)
;     For n=1 To DesktopMouseX()/30
;       setPolyA(rad(175),size)
;       setPolyA(rad(-160),size+(DesktopMouseY()-400)/40)
;     Next
;     
;     
;     ;an angled box
;     
;     width=180
;     height=40
;     angle=DesktopMouseX()/10
;     initPoly(400,400)
;     setPolyA(rad(angle),width)
;     setPolyA(rad(90),height)
;     setPolyA(rad(90),width)
;     closePoly()
;     
;     
;     ;another angled box (centered)
;     
;     a=20
;     b=80
;     angle=DesktopMouseX()/10
;     Circle(450,510,3,$00ff00)
;     initRadialPolyA(450,510,rad(angle),50)
;     setRadialPolyA(rad(180*a/b),50)
;     setRadialPolyA(rad(180-180*a/b),50)
;     setRadialPolyA(rad(180*a/b),50)
;     closePoly()
;     
;     
;     ;an angled ellipse
;     
;     r1    = 100
;     r2    = 50
;     angle = DesktopMouseY()
;     min   = DesktopMouseX()
;     max   = min+356-45
;     Circle(200,600,3,$0000ff)
;     initRadialPoly(200,600,r1*Cos(rad(min)),r2*Sin(rad(min)),rad(angle),$0000ff)
;     For i=min To max
;       setRadialPoly(r1*Cos(rad(i)),r2*Sin(rad(i)))
;     Next
;     ;closePoly()
;     
;     
;   StopDrawing()
;   SetGadgetState(0,ImageID(0))
;   event=WaitWindowEvent(40)
;   Select event
;     Case #PB_Event_CloseWindow
;       quit=1
;     Case #PB_Event_Menu
;       quit=1
;   EndSelect
; Until quit