REBOL [
	title: "Spaghetti"
	Author: "Gregory Pecheret"
	Size: "1kb"
]

colorline: make image! 1530x10

repeat i 255 [change/dup at colorline as-pair (255 - i) 0 to-tuple reduce [i 0 255] 1x10]
repeat i 255 [change/dup at colorline as-pair (i + 254) 0 to-tuple reduce [0 i 255] 1x10]
repeat i 255 [change/dup at colorline as-pair (765 - i) 0 to-tuple reduce [0 255 i] 1x10]
repeat i 255 [change/dup at colorline as-pair (i + 764) 0 to-tuple reduce [i 255 0] 1x10]
repeat i 255 [change/dup at colorline as-pair (1275 - i) 0 to-tuple reduce [255 i 0] 1x10]
repeat i 255 [change/dup at colorline as-pair (i + 1274) 0 to-tuple reduce [255 0 i] 1x10]

view/options center-face make face [
	size: 500x500
	rate: 0

	feel: make feel [
		engage: func [f a e][
			blk: [pen colorline spline 9]
			if 300 < length? blk [
				clear blk
				append blk [pen colorline spline 9]
			]
			loop 5 [append blk as-pair random f/size/x random f/size/y]
			f/effect: reduce ['draw blk]
			show f
		]
	]
][resize]