Keskustelu: Koodit: QB: Mosaiikki

SCREEN 13

nelio.x = 10 'neliön korkeus
nelio.y = 10 'neliön leveys

'TÄSTÄ ALKAA KUVAN PIIRTŽMINEN

max.x = 320
max.y = 200

RANDOMIZE TIMER
FOR i = 1 TO 55 'piirretään 55 ympyrää arvottuihin paikkoihin ja täytetään ne
   x = INT(RND * (max.x - 1)) + 1 'arvotaan sijainti
   y = INT(RND * (max.y - 1)) + 1
   vari = INT(RND * 14) + 1 'arvotaan väri
   CIRCLE (x, y), INT(RND * 50) + 1, vari
   PAINT (x, y), vari 'täytetään ruutu (valitettavasti jotkut saattavat jäädä täyttämättä)
NEXT i

'KUVAN PIIRTŽMINEN LOPPUU TÄHÄN

PRINT "Katso miltä kuva näyttää nyt"
PRINT "Paina enter pistääksesi kuvan mosaiikiksi"
DO: LOOP UNTIL INKEY$ = CHR$(13) 'odotetaan enterin painamista

'MOSAIIKIN TEKEMINEN ALKAA TÄSTÄ
FOR y = (nelio.y / 2) TO max.y - (nelio.y / 2) STEP nelio.y
   FOR x = (nelio.x / 2) TO max.x - (nelio.x / 2) STEP nelio.x
      vari = POINT(x, y) 'katsotaan pisteen väri
      LINE (x - (nelio.x / 2), y - (nelio.y / 2))-(x + (nelio.x / 2), y + (nelio.y / 2)), vari, BF 'piiretään "lattialaatta"
   NEXT x
NEXT y
'MOSAIIKIN TEKEMINEN LOPPUU TÄHÄN