Random noise image

image-noise.red

Red [
	Author: ["Martin Ceronio" "Nenad Rakocevic" "Arnold van Hofwegen"]
	Needs: 'View
]

system/view/auto-sync?: no

break-loop: false
i: make image! 50x50

view/no-wait [img: image i button "Stop!" [break-loop: true unview]]

forever [ 
  if break-loop [break]
  while [not tail? i] [
    i/1: as-rgba random 255 random 255 random 255 0
    i: next i
  ]
  i: head i
  show img
  do-events/no-wait
]