Keskustelu: Koodit: Metapallot QB:lle

Metapallukat QB:lle. Grafiikka on hieman surkeaa johtuen alhaisesta värimäärästä.

TYPE pallukkatyyppi
  k AS INTEGER 'koko

  x AS INTEGER 'koordinaatit
  y AS INTEGER
END TYPE

CONST max = 10 'pallukoitten määrä

DIM pallukka(max) AS pallukkatyyppi

SCREEN 13

DEF SEG = &HA000 'tarvitaan pikselien nopeampaan piirtämiseen

RANDOMIZE TIMER

OUT &H3C8, 0
FOR n = 0 TO 63 'sotketaan paletti
 OUT &H3C9, n
 OUT &H3C9, n
 OUT &H3C9, n
NEXT

FOR n = 0 TO max 'asetetaan pallukoiden arvot
  pallukka(n).x = INT(RND * 320) + 1 'koordinaatit
  pallukka(n).y = INT(RND * 200) + 1

  pallukka(n).k = INT(RND * 250) + 50 'koko
NEXT

FOR x = 1 TO 319
  FOR y = 1 TO 199
    c = 0
    FOR p = 0 TO max 'käydään kaikki pallukat läpi
      'metapallojen laskukaava 1/x^2
      m = SQR(((x - pallukka(p).x) ^ 2) + ((y - pallukka(p).y) ^ 2) + 1)
      c = c + pallukka(p).k / m
    NEXT
    IF c > 63 THEN c = 63
    POKE x + (320 * y), c 'piirretään pikseli
  NEXT
NEXT

DEF SEG

No kovin on hieno.

No kohta on metapallot joka kielellä. :D
Mukavaa, kun useampikin innostuu tästä demosta.

pitäisikö pistää vielä javallakin nämä metapallot?

hyvähän tämä on ja mukavaa että meta-palloja taas tullut kehiin :)

Harmi vaan, kun ei oikein Basicilla saa tehtyä liikkuvaa demoa. Minäkin tein metapallot alunperin QB:llä, ja sain aikaan vain todella hitaan kahden metapallon animaation, joten pistin koodivinkin ainoastaan VB:lle. Ainakin sai laajemman väriskaalan.

paska puhetta :) itekki koodasin 150mhz:lle ihan hyvin pyörivät metaballiz 320x200 resoon. pitää vaan vähän optata sieltä täältä.

No pistä tänne sitten, jos kerran niin hyvä tuli. Yhdet metapallot lisää ei tunnu missään. (toivottavasti)

iha hyvä koodivinkki, joo

Ihan kiva joo. Kumman hieno qb-graffalla :P

hunajavohveli: tuskin mun tarvii tänne tarvii niitä tänne tunkea. vinkkinä sanottakoon, että kantsii precalcata noita neliöitä ja optata toi piirto-looppi edes vähän järkeväksi.

lainaus:

paska puhetta :) itekki koodasin 150mhz:lle ihan hyvin pyörivät metaballiz 320x200 resoon. pitää vaan vähän optata sieltä täältä.

no teepä sitten "pyörivät" metapallot qb:lle! me odotamme!

Ihan hirrveen hidas, tällä kivikauden tietokoneella.

Juhko kirjoitti:

Ihan hirrveen hidas, tällä kivikauden tietokoneella.

ei kivikaurella ollu tietokoneita mutta kyllä se vähä hiras on. ja outo

hieno vinkki mut värit on vähän
prkl
prkl