Den letzten eingegebenen xy-Wert ermitteln

[super_castle]

Hallo, kann man irgendwo den letzten xy-Wert (100,100) rauslesen zum weiterzeichnen?

mfg

Code: Alles auswählen

LineXY(0,0,100,100)

[cxAlex]

Hallo, kann man irgendwo den letzten xy-Wert (100,100) rauslesen zum weiterzeichnen?

mfg

Code: Alles auswählen

LineXY(0,0,100,100)

Nirgends, den musst du dir selbst mitloggen.

[Batze]

Code: Alles auswählen

Macro StartLine (x1,y1, x2,y2) 
  LineXY(x1,y1, x2,y2)
  OldLineEndX = x2
  OldLineEndY = y2
EndMacro

Macro ContinueLine(x,y)
  LineXY(OldLineEndX,OldLineEndY, x,y)
  OldLineEndX = x
  OldLineEndY = y
EndMacro

Wäre z.B. eine Idee

[super_castle]

Jup, sieht gut aus. danke.

mfg

[Kaeru Gaman]

oder gleich ein Array für die Werte....

Code: Alles auswählen

Dim x(100)
Dim y(100)

For n=0 To 100
  c.f = n
  x(n) = 400 + 350 * Sin(c /  3)
  y(n) = 300 + 250 * Cos(c /  5)
Next

CreateImage(0, 800,600)
  StartDrawing( ImageOutput(0) )
    For n=1 To 100
      LineXY( x(n-1), y(n-1), x(n), y(n), RGB(0, 55+2*n, 0) )
    Next
  StopDrawing()

OpenWindow(0, #PB_Ignore,0, 800,600, "TrackDraw")
  ImageGadget(0, 0,0, 800,600, ImageID(0) )

Repeat
  EvID = WaitWindowEvent()
Until EvID = #PB_Event_CloseWindow