Vector Drawing

Anfängerfragen zum Programmieren mit PureBasic.
tdiehl
Beiträge: 3
Registriert: 22.03.2017 19:54

Vector Drawing

Beitrag von tdiehl »

Hallo,
ich bin ziemlich neu in Purebasic und beschäftige mich gerade damit ein altes GW Basic Programm nach Purebasic zu bringen. Mit den Vector Drawing Library geht es echt gut, aber jetzt stehe ich vor einem Problem, wo ich nicht weiter komme. Ich male einige Linien auf ein Window und möchte dann mit dem Befehl "point" den Bildschirm danach absuchen können. Das gelingt mir aber nicht, wenn ich auf ein CanvasGadget gezeichnet habe. Was mache ich falsch, bzw. wer könnte mir bitte einen Tip geben. Ich hänge mal ein paar Zeilen Code dazu, damit es etwas klarer wird. Vielen Dank für jede Rückmeldung. Thomas

Code: Alles auswählen

If OpenWindow(0, 0, 0, 200, 200, "2DDrawing Beispiel", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)

CanvasGadget(0, 0, 0, 400, 200)

; Male Linie von 90,100 nach 110,100

StartVectorDrawing(CanvasVectorOutput(0))
 MovePathCursor(90, 100)
 AddPathLine(110, 100)
 VectorSourceColor(RGB(255, 0, 0))
 StrokePath(1)
StopVectorDrawing()

; Versuche die Farbe des Punktes zu finden, um die Linie zu identifizieren

StartDrawing(CanvasOutput(0))
 a = Point(100,100)               
 b = Point( 50, 50)
StopDrawing()


 Repeat
  Event = WaitWindowEvent()
 Until Event = #PB_Event_CloseWindow
EndIf

End
Edit by NicTheQuick: Code-Tags hinzugefügt
Benutzeravatar
Bisonte
Beiträge: 2427
Registriert: 01.04.2007 20:18

Re: Vector Drawing

Beitrag von Bisonte »

Also... VectorSourceColor() Benötigt einen Farbwert MIT Alpha... Soll heissen : RGBA(255,0,0,255)

Dann ist 1. Die Linie auch sichtbar und 2. ist in Variable a auch die Farbe zu sehen.
PureBasic 6.04 LTS (Windows x86/x64) | Windows10 Pro x64 | Asus TUF X570 Gaming Plus | R9 5900X | 64GB RAM | GeForce RTX 3080 TI iChill X4 | HAF XF Evo | build by vannicom​​
tdiehl
Beiträge: 3
Registriert: 22.03.2017 19:54

Re: Vector Drawing

Beitrag von tdiehl »

danke
Antworten