1 2 3 4 5 6 7 8 9 10 11 12 13 | SCREEN 9, , 1, 0CONST pi = 3.14159265358#cv1 = 9: cv2 = 14: u = 0: spd = .5DO: t = TIMER IF t <> TIMER THEN 'Sync u = u + spd: t = TIMER IF u > 2 * pi THEN u = u - 2 * pi IF u > pi THEN COLOR cv1 ELSE COLOR cv2 CLS 2 LINE (320 - 50, 175)-(320 + 50, 175 - SIN(u) * 100), , BF PCOPY 1, 0 'flip END IFLOOP WHILE INKEY$ = "" |
Тестирование выполнено в программе QB64 ( Скачать )