Nii no tässä on vihreä paletti :
OUT &H3C8, 0
FOR c = 0 TO 65
OUT &H3C9, 0
OUT &H3C9, INT(c)
OUT &H3C9, 0
NEXT
Kopioin sen eräästä esimerkki ohjelmasta, jota en tässä muista, mutta mikä tästä tekee juuri vihreän eikä esim punaista tai jotain ? Joten jos joku viitsisi sen verran sivistää minua, että kertoisi miten saa punaisen tai keltaisen paletin, niin näkisin värieron koodauksessa.
Oli ehkä hiukan sekavaa, joten jos vaan joku pistäisi samalla menetelmällä punaisen väripaletin teon.
Ps. Kiitos jo etukäteen !
OUT &H3C8, 0
FOR c = 0 TO 65
OUT &H3C9, 0
OUT &H3C9, INT(c)
OUT &H3C9, 0
NEXT
Kopioin sen eräästä esimerkki ohjelmasta, jota en tässä muista, mutta mikä tästä tekee juuri vihreän eikä esim punaista tai jotain ? Joten jos joku viitsisi sen verran sivistää minua, että kertoisi miten saa punaisen tai keltaisen paletin, niin näkisin värieron koodauksessa.
Oli ehkä hiukan sekavaa, joten jos vaan joku pistäisi samalla menetelmällä punaisen väripaletin teon.
Ps. Kiitos jo etukäteen !
Vastaukset 3
Vanhimmat
Ikinä en ole QBasicilla mitään vääntänyt, mutta epäilisin että tuossa on kyseessä jokin käyttiksen videomoodia muokkaava toiminto tms.
Eli tuohan on silmukkarakenne, joka käy läpi lukuarvot 0 - 65 ja jokaisella silmukan kierroksella sijoitetaan kohtaan INT(c) se sillä kierroksella vallitseva c:n arvo. Värithän esitetään tietokoneen muistissa usein (ainakin ammoisina Assembly -aikoina =) RGB muodossa ja samasta asiasta on varmaan kyse tässäkin.
Eli vihreän paletista tekee varmaan se, että joka kierroksella asetetaan R (red=punainen) ja B (blue=sininen) nollaksi ja G (green=vihreä) saa joka kerta jonkin nollasta poikkeavan arvon. Näin ollen paletin kaikkiin muistipaikkoihin tallentuu vihreän eri sävy. Saat varmaan punaisen paletin siirtämällä tossa silmukassa tuon INT(c):n riviä ylemmäksi (oletuksella että eka rivi todella asettaa sen punaisen arvon) ja laittamalla muut kohdat nolliksi. Sekoitettuja värejä saat kikkailemalla noiden nollien paikalle jotain satunnaisia lukuarvoja. Eikun kokeilemaan...
Toivottavasti homma menee noin, vedin kyllä ihan hihasta...
Niin siis se esimerkki punaisesta paletista:
OUT &H3C8, 0
FOR c = 0 TO 65
OUT &H3C9, INT(c)
OUT &H3C9, 0
OUT &H3C9, 0
NEXT
Mielestäni kerroin kokeilleeni kaikkia numerojen ym. vaihtamista, joten ensimmäisessä viestissä turhia mikäli... oikeen ymmärsin. Ei tarvkoittanut pahalla. Kaikki kommentit ovat aina tervettulleita.
Noin viisi minuuttia vistin lähettämisen jälkeen tajusinkin jo mikä vaikuttaa paletin värrin ja en vaan kehdannut heti perrän kertoa asiasta, vaan lähinnä halusin nähdä teidän selityksiä.
Tässä kuitenkin niille, joille jäi epäselväksi:
OUT &H3C8, 0
FOR c = 0 TO 64 'muistaakseni 65 menee jo mustan puolelle ?
OUT &H3C9, INT(c) 'punaisen värin arvo
OUT &H3C9, INT(c) 'vihreän värin arvo
OUT &H3C9, 0 'sinisen värin arvo
NEXT
Elikkä tässä on keltainen paletti 0 - 64.
ps. Esimerkki on hatusta, wordissa kirjoitettu, joten se voi olla väärin ? En tiedä mikä, mutta kai siinä joku on väärin.