§ Скриншот


§ Исходный код

SCREEN 13

WINDOW (-5, 0)-(5, 10)
RANDOMIZE TIMER

DO

  SELECT CASE RND

    CASE 0 TO .01
      nextx = 0
      nexty = .16 * y
    CASE .01 TO .08
      nextx = .2 * x - .26 * y
      nexty = .23 * x + .22 * y + 1.6
    CASE .08 TO .15
      nextx = -.15 * x + .28 * y
      nexty = .26 * x + .24 * y + .44
    CASE ELSE
      nextx = .85 * x + .04 * y
      nexty = -.04 * x + .85 * y + 1.6

  END SELECT

  x = nextx
  y = nexty
  i = i + 1
  IF RND < .5 THEN c = 2 ELSE c = 10

  PSET (x, y), c

LOOP WHILE i < 32768

SLEEP 0
19 фев, 2021
© 2007-2022 Мыш кродеться на дому