getFrontColor() ?

[sibru]

Hallo,
wie kann ich die aktuelle FrontColor() ermitteln ? (darf ruhig ´ne API sein,
kann ich mir bei PB-Interals jedoch nicht vorstellen...)

Ich bau´ grad ´ne _allgemeingültige_ Proc "Line_broken" (zeichnen einer
gebrochenen Linie (- - - -) und möchte -ähnlich der PB-Fnc. Line() den
Farb-Parameter optinal halten...

Danke im Vorraus...


Siggi

[Kevin]

das brauchst du doch garnich
bsp:

Code: Alles auswählen

InitSprite()
InitMouse()


OpenScreen(800,600,32,"sdafsf")

Procedure BrockenLine(x,y,xx,yy)
LineXY(x,y,xx,yy)
EndProcedure

Repeat
FlipBuffers()
ExamineMouse()

If StartDrawing(ScreenOutput())

FrontColor(RGB(255,0,0))
BrockenLine(5,5,555,555)
StopDrawing()
EndIf


If MouseButton(1)
End
EndIf
ForEver

[NicTheQuick]

Da man aber in PB keine Procedire überladen kann, geht das nicht so einfach. Man müsste es z.B. so machen:

Code: Alles auswählen

Procedure BrokenLine(x1.i, y1.i, x2.i, y2.i, Color.l = -1)
  If (Color = -1)
    Line(x1, y1, x2, y2)
  Else
    Line(x1, y1, x2, y2, Color)
  EndIf
EndProcedure

Das Überladen von Prozeduren fehlt einfach noch.

[sibru]

Tja, hab´s auch schon wie NicTheQuick vorgeschlagen gelöst...
bläht den Code unnötig auf, aber immerhin klappt´s so.

Danke


Siggi