Ohjelma piirtää serpentiinin näköistä värikästä nauhaa joka puolelle näyttöä. Käyttäjä voi myös lisätä nauhan paksuutta kuinka paljon haluaa, tai lisätä kiertymisnopeutta, jolloin nauha voi muuttua monenlaisiksi kuvioiksi. Myös värit voi määritellä uudelleen.
Edit 2019 by mod: Vaihdettu nopeuden säätöön TIMER, niin vinkki toimii myös nykyisillä koneilla ja FreeBASICilla.
SCREEN 13 rad = ATN(1) * 4 / 180 'lasketaan asteiden suhde radiaaneihin x = 160 'aloitus x y = 100 'aloitus y k = 0 'aloitus kulma rullan liikkumiselle s = 1 'rullan aloituspyörimissuunta k2 = 0 'aloitus kulma nauhalle p = 1 'nauhan paksuus (kokeile isompiakin lukuja!) c = 32 'nauhan aloitusväri pv = 55 'väri johon päästyä värit alkavat taas alusta av = 32 'alkuväri, johon palataan pn = 3 'rullan pyörimisnopeus nn = 1 'nauhan pyörimisnopeus RANDOMIZE TIMER t# = TIMER DO t# = t# + 0.005 WHILE TIMER < t#: WAIT &h3da, &h8: WEND 'hidastus x = x + SIN(k * rad) 'lisätään arvoja y = y - COS(k * rad) k = k + pn k2 = k2 + nn c = c + .1 IF c > pv THEN c = av 'värinkierto LINE (x + SIN(k2 * rad) * p, y - COS(k2 * rad) * p)-(x - SIN(k2 * rad) * p, y + COS(k2 * rad) * p), c 'vedetään viiva ruudulla = 1 IF x < 40 OR x > 279 OR y < 40 OR y > 159 THEN ruudulla = 0 'ettei karata ruudulta IF RND < .03 AND ruudulla = 1 THEN pn = -pn 'käännetään kulmaa (ehkä) LOOP UNTIL INKEY$ <> ""
Hmm... lyhyt mutta hieno :)
hieno¨
Kokeilkaa muuttaa alkuarvoja, niin voi tulla vielä hienompi.
Aihe on jo aika vanha, joten et voi enää vastata siihen.