Keskustelu: Koodit: QB: mielenkiintoinen viivaefekti

DEFINT A-Z
SCREEN 13
DO
'kasvatetaan väriä ja jos se on yli 24 niin takaisin 0
vari = vari + 1
IF vari > 24 THEN vari = 0
'seuraavaksi asetamme pisteiden paikat
'sinilla ja cosinilla saa hyvän ympyrä liikkeen
'lukuja voi kokeilla muuttaa niin saa eri tyylisiä
x1 = 160 + 140 * SIN(kohta!): y1 = 100 + 80 * COS(kohta!)
x2 = 160 + 140 * SIN(kohta! * 1.1): y2 = 100 + 80 * COS(kohta! * 1.1)
x3 = 160 + 140 * SIN(kohta! * 1.21): y3 = 100 + 80 * COS(kohta! * 1.21)
x4 = 160 + 140 * SIN(kohta! * 1.3): y4 = 100 + 80 * COS(kohta! * 1.3)
x5 = 160 + 140 * SIN(kohta! * 1.4): y5 = 100 + 80 * COS(kohta! * 1.4)
x6 = 160 + 140 * SIN(kohta! * 1.5): y6 = 100 + 80 * COS(kohta! * 1.5)
x7 = 160 + 140 * SIN(kohta! * 1.64): y7 = 100 + 80 * COS(kohta! * 1.64)
x8 = 160 + 140 * SIN(kohta! * 1.8): y8 = 100 + 80 * COS(kohta! * 1.8)
CLS 'näyttö tyhjaksi. voi kokeilla ottaa pois niin tulee myös hieno
'pisteiden väliin viivoja
LINE (x1, y1)-(x2, y2), vari + 32
LINE (x2, y2)-(x3, y3), vari + 32
LINE (x3, y3)-(x4, y4), vari + 32
LINE (x4, y4)-(x5, y5), vari + 32
LINE (x5, y5)-(x6, y6), vari + 32
LINE (x6, y6)-(x7, y7), vari + 32
LINE (x7, y7)-(x8, y8), vari + 32
LINE (x8, y8)-(x1, y1), vari + 32
kohta! = kohta! + .1'liikutetaan
'ajastus
aika! = TIMER + .055
DO UNTIL TIMER >= aika!
LOOP
LOOP WHILE INKEY$ = ""'jatketaan kunnes painetaan nappia