Kirjoittaja: Antti Laaksonen
Kirjoitettu: 12.03.2002 – 12.03.2002
Tagit: grafiikka, koodi näytille, vinkki
Tämä ohjelma luo näytön kokoisen vaakasuuntaisen värilliu'un. Ylä- ja alaosan RGB-arvo on määriteltävissä. Värit kannattaa tosin valita melko etäältä toisistaan, tai väriliu'usta tulee epätarkka.
SCREEN 13 RANDOMIZE TIMER 'RGB ylhäällä ar = INT(RND * 1 + .5) * 255 ag = INT(RND * 1 + .5) * 255 ab = INT(RND * 1 + .5) * 255 'RGB alhaalla lr = INT(RND * 1 + .5) * 255 lg = INT(RND * 1 + .5) * 255 lb = INT(RND * 1 + .5) * 255 fr = (lr - ar) / 200 fg = (lg - ag) / 200 fb = (lb - ab) / 200 nr = ar ng = ag nb = ab FOR i = 1 TO 200 nr = nr + fr ng = ng + fg nb = nb + fb OUT &H3C8, 50 + i OUT &H3C9, nr \ 4 OUT &H3C9, ng \ 4 OUT &H3C9, nb \ 4 LINE (0, i)-(320, i), 50 + i NEXT SLEEP
Ihmeen vähän koodia laatuun nähden,
mutta jään yleensä miettimään, et mihin näitä vinkkejä tarvitaan.
Eikö kannattaisi tehdä hyödyllisiä ja käytännöllisiä?
Minkälaiset vinkit olisivat sinun mielestäsi sitten hyödyllisiä ja käytännöllisiä?
hieno