IF und ENDIF verhindern Programmablauf

[PB42]

Hallo,

ich will ein Programm schreiben, mit dem man Funktionsgraphen anzeigen kann. Zunächst geht nur um eine einzige Linie. Weil aber die Funktion Plot() außerhalb des Anzeigebereichs eine Fehlermeldung auslöst, habe ich mit If und Endif die entsprechende Begrenzung eingebaut. Das Programm läuft dann aber selbst mit EventID = WindowEvent() nur dann, wenn man das Fenster mit der Maus verschiebt. Wie kriegt man das flüssig? Der Code:

Code: Alles auswählen

InitSprite()
OpenWindow(0,0,0,800,600,"", #PB_Window_SystemMenu |#PB_Window_ScreenCentered |#PB_Window_MinimizeGadget |#PB_Window_MaximizeGadget)
OpenWindowedScreen(WindowID(0),200,0,600,600,0,0,0)
CreateGadgetList(WindowID(0))

StringGadget(0,50,50,100,20,"")

x = -1
y = 100

Repeat
EventID = WindowEvent()
  
  If x < 599
  x = x + 1 
  EndIf 
      
  StartDrawing(ScreenOutput())
  Line(0,300,600,0,RGB(250,250,250))
  Line(300,0,0,600,RGB(250,250,250))    
  Plot(x,y,RGB(250,0,0)) 
  StopDrawing()
  
Until eventID = #PB_Event_CloseWindow  

Danke für Hilfe.

[HeX0R]

Du solltest auch die Buffer flippen...

[ts-soft]

Und EventID = WaitWindowEvent(10) damits nicht 100% CPU verbraucht

[PB42]

BOAH, da hab ich aber echt geschlafen mit dem vergessenen Flipbuffers() und WaitWindowEvent() mit Timeout ist mir natürlich auch lieber. Danke für die Antworten

PB42