Code: Select all
/* Nouveau projet Hollywood */
StartPath(1)
c=25
For i=0 To 640
LineTo(1,i,C)
IF C=25
C=-25
ELSE
C=25
ENDIF
Next
SetFormStyle(#ANTIALIAS) ; <============ Test with and without
DrawPath(1,0,250,#BLUE)
WaitLeftMouse
/* Boucle infinie */
Repeat
WaitEvent
Forever