'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'                          PAISAJE TRIDIMENSIONAL DE MONTA¥AS FRACTALES
SCREEN 13
PALETTE 15, 63

DIM SHARED mat(0 TO 200, 0 TO 50)
RANDOMIZE TIMER
FOR n = 1 TO 30
   h = INT(RND * 200)
   v = INT(RND * 50)
   PSET (h, v), 31
NEXT


FOR c = 31 TO 17 STEP -1
   LINE (((31 - c) * 5 + 220), 10)-STEP(3, 3), 189, BF
   LINE (((31 - c) * 5 + 220), 20)-STEP(3, 3), 189, BF
NEXT

FOR c = 31 TO 17 STEP -1
   FOR ccc = 31 TO 17 STEP -1
      LINE (((31 - ccc) * 5 + 220), 15)-STEP(3, 3), 189, BF
   NEXT
   FOR h = 0 TO 200
      FOR v = 0 TO 50
         P = 0
         IF RND > .4 THEN
            IF POINT(h + 1, v) >= c THEN P = 1
            IF POINT(h, v + 1) >= c THEN P = 1
            IF POINT(h - 1, v) >= c THEN P = 1
            IF POINT(h, v - 1) >= c THEN P = 1
            IF POINT(h, v) >= c THEN P = 0
            IF P = 1 THEN PSET (h, v), c - 1
         END IF
      NEXT
      LINE ((INT(h / 13.5) * 5 + 220), 15)-STEP(3, 3), 40, BF
   NEXT
   LINE (((31 - c) * 5 + 220), 10)-STEP(3, 3), 45, BF
   LOCATE 24, 14: COLOR (-c) + 48: PRINT "HECHO EN RONDA";
   SOUND 3000, .8
NEXT
COLOR 0

FOR h = 0 TO 200
   FOR v = 0 TO 50
      mat(h, v) = POINT(h, v)
      IF mat(h, v) = 0 THEN mat(h, v) = 15
   NEXT
   LINE ((INT(h / 13.5) * 5 + 220), 20)-STEP(3, 3), 32, BF
NEXT
SOUND 3000, 2


FOR h = 0 TO 200
   FOR v = 0 TO 50
      LINE (h + 80 - v, v + 120)-STEP(0, -mat(h, v) + 15), mat(h, v)
   NEXT
NEXT