Keskustelu: Koodit: QB: maan valutus

tein nyt tämmösen ohjelman, eli tää valuttaa maata.
tuskallisen hidas homma on, mutta en nyt keksiny nopeempaakaan tyyliä

' saa käyttää vapaasti, mutta tekijän saa silti mainita
DEFINT A-Z ' nopeuttaa (?)
DECLARE SUB valuta ()
SCREEN 13

LINE (0, 0)-(319, 30), 2
LINE (319, 0)-(0, 199), 9
PAINT (319, 199), 9
CIRCLE (169, 99), 100, 0
PAINT (169, 99), 0
DO: LOOP UNTIL INKEY$ <> ""
valuta

DEFSNG A-Z
SUB valuta
DO
  onko = 0
  FOR y = 0 TO 199
    FOR x = 0 TO 319
      ' oletetaan että tausta on musta
      IF NOT POINT(x, y) = 0 AND POINT(x, y + 1) = 0 THEN
        PSET (x, y + 1), POINT(x, y)
        PSET (x, y), 0
        onko = 1
      END IF
    NEXT
  NEXT
LOOP UNTIL onko = 0 ' en keksiny muuta viritystä
END SUB

pakkohan niitä kommentteja on pyytää..

tein nyt mää tämmöisen kommentin taas niin kerran joo. eli mää nyt vaan sanon että aika ovelahan tuo siis on joo. (:D)

Ei erityisen luonnollinen maan valutus. Maan pitäisi valua tasaisesti joka puolelta, ei ylhäältä alas ja vasemmalta oikealle ;)

no se nyt on semmonen ;D

Toisaan hidas on eikä kovin luonnollinen. \:

Toisaan hidas on eikä kovin luonnollinen. \:

Mitäh?! Kommentti meni kahteen kertaan.

Semmoista sattuu, kannattaa kikkailla vielä enemmän sen back-nappulan kanssa :P

mutta kun tässä käytetään headeria (?) niin ei pitäis haitata back nappulan kanssa kikkaileminen

Roskaa! Mitäs jos ruudulla on muutakin kuin tuota "maata"? ja mitä järkeä on käydä kaikki mahdolliset ruudun pikselit läpi, tuskin se koko ruutu maata on.

no, tostahan saa ihan helvetin helpolla säädettyä semmosen homman.

hmm, ei ihan kuulu tänne mutta kuka tämä nimimerkillä anon oikein on? Kommentoinut viittä uusinta vinkkiä samaan tyyliin kuin tähänkin vinkkiin... Mikäli ei vinkit omasta mielestäsi ole hyviä/käyttökelpoisia niin tee itse parempia ja lähetä tänne.

En tiedä, kuka anon on, mutta yksi asia on varmaa: niin kauan kuin minä voin vaikuttaa, kyseiseltä henkilöltä ei tule enää yhtä ainoaa kommenttia ;) Väärin kohdeltu/syrjääntynyt/kateellinen on oma arvioni.

yep

snakari, no ois varmaan kannattanu suoraan tehä tollanen versio kun anon pyysi jos se on nii helppoa, ku toi on niin hidas...

mut sen saa nopeesti muutettua
säätelee vaan for hommia