Keskustelu: Koodit: QB: Matemaattista kuvanpiirtoa

Oikein mukavan näköisiä kuvia piirtävä pikkuohjelma, ei tarvitse edes osata kauheasti matematiikkaa osatakseen käyttää tätä.

SCREEN 13
ON ERROR GOTO virhe  ' Virhe saattaa syntyä liian suurista luvuista
RANDOMIZE TIMER
FOR i = 0 TO 63  ' Muutetaan paletin värit
  OUT &H3C8, i   ' Muutettavan värin numero
  OUT &H3C9, i   ' Punaisen määrä
  OUT &H3C9, 0   ' Vihreän määrä
  OUT &H3C9, 0   ' Sinisen määrä
NEXT

FOR x = 0 TO 319
  FOR y = 0 TO 199
    ' Tällä PSETillä piirretään kaikki kivat kuvat
    ' PSETiin kannattaa kokeilla laittaa toista potenssia, kertolaskua
    ' ja pluslaskua MODia edeltäviin sulkeisiin (laskee värin
    ' jakojäännöksen mukaan)
    PSET (x, y), (x + x * y) MOD 64
  NEXT y
NEXT x

DO  ' Sitten aletaan muuttelemaan värejä
  FOR i = 1 TO 64              ' Muutetaan paletin värit
    OUT &H3C8, i               ' Muutettavan värin numero
    OUT &H3C9, (i + z) MOD 64  ' Punaisen määrä
    OUT &H3C9, 0               ' Vihreän määrä
    OUT &H3C9, 0               ' Sinisen määrä
  NEXT
  z = z + 1
  FOR viive = 1 TO 20000  ' Huono, mutta toimiva tapa hidastaa
  NEXT viive

LOOP WHILE INKEY$ = ""

END

virhe:
color 75
PRINT "VIRHE"
END

Tämähän saatiin nopeasti julkaistua, lähetin tämän noin 5 minuuttia sitten... (Joskus on mennyt parikin päivää).

hmm.. Ihan toimivalta näyttää, WinXP ei oikein suostu ajamaan noita.. :(

Hienokuva tost syntyy

Heh...
Nyt voinkin paljastaa sen, että olin tekemässä tästä yhtä toista juttua, mutta kokeilin sitten laittaa siihen PSETiin tuon (x + x * y) MOD 64 ja totesin että siitähän tuli hieno. Eli tämä syntyi osittain vahingossa :)

Ja tässä on yllä oleva valmiina EXE:nä.

http://www.teemuikonen.net/op/math.exe

Ja sitten kun niitä tulee enemmän ni sitten pääsivulla on koko listaus. On siellä nyttenkin jo tämä juttu.

http://www.teemuikonen.net/op

Jos Teillä koodivinkkien kirjottajilla ei ole mitään sitä vastaan että teen niistä tollasia EXE-päätteisiä ja lähdekoodit mukaan imuroitavaksi ni kaipa niitä voi tuonne laittaa enemmänkin?

Ei haittaa, omia vinkkejäni saat ainakin pistää niihin paketteihin.

Ihan hieno, mutta ton:
FOR viive = 1 TO 20000
NEXT viive
ois kyllä voinu korvata VSync:llä:
WAIT &H3DA, 8

Juu, tiedän. Tein sen tuolla FOR-NEXT tavalla sen takia, että sitä värinvaihdon viivettä olisi helpompi muutella.