Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/
Code: Alles auswählen
' Returns 0 if on line, negative for left, positive for right
DEF FNib(a0,a1,b0,b1) = (a0 < b1) AND (a1 > b0)
Code: Alles auswählen
; Returns 0 If on line, negative For left, positive For right
; DEF FNib(a0,a1,b0,b1) = (a0 < b1) And (a1 > b0)
Macro FNib(a0,a1,b0,b1)
Bool((a0 < b1) And (a1 > b0))
EndMacro
Der Code ist ok.DarkDragon hat geschrieben:Aber der Kommentar darüber sagt eigentlich was anderes als der Code. Ist das nun eher so gemeint wie im Code oder eher wie im Kommentar?
Code: Alles auswählen
Define r1, r2
Define val1, val2
val1 = 10
Val2 = 20
r1 = 100 * Bool(val1 < val2)
r2 = 1000 * Bool(val1 > val2)
Debug "r1 = " + r1
Debug "r2 = " + r2
Ich verstehe den Code/Kommentar auch nicht.Imhotheb hat geschrieben:Danke für die Aufklärung ... eigentlich sollte das hauptsächlich als Denkanstoß gelten ... da im Kommentar vermerkt ist: "negativ für links"
Code: Alles auswählen
OpenWindow(0,0,0,400,400,"inbetween?",#PB_Window_SystemMenu)
CanvasGadget(0,0,0,400,400)
Repeat
e=WaitWindowEvent()
If e=#PB_Event_Gadget
If EventGadget()=0
If EventType()=#PB_EventType_MouseMove
StartDrawing(CanvasOutput(0))
Box(18,18,364,364,$000000)
Box(20,20,360,360,$FFFFFF)
For a0 = -180 To 180
For a1 = -180 To 180
b0=GetGadgetAttribute(0, #PB_Canvas_MouseX)
b1=GetGadgetAttribute(0, #PB_Canvas_MouseY)
If a0<b1 And a1>b0 ;Hier die Prüfung "FNib"
x=a0
y=a1
Plot(x+200, 200-y, RGBA(255,0,0,50) )
EndIf
Next
Next
Line(199,0,1,400,$000000):Line(200,0,1,400,$000000)
Line(0,199,400,1,$000000):Line(0,200,400,1,$000000)
StopDrawing()
EndIf
EndIf
EndIf
Until e=#PB_Event_CloseWindow
End