draw.red

Drawing app
Work in progress!

Red [
	Needs: 'View
]

pen-buffer-settings: [500x500 0.0.0.254]
buffer: make image! [500x500 100.100.100]
pen-buffer: make image! pen-buffer-settings
line-array: []

color: 50.0.50.100

canvas: layout [
	at 10x10 image buffer
	at 10x10 image pen-buffer
	on-down [append line-array event/offset]
	on-up [
		line-array: copy []
		draw buffer [image pen-buffer]
		pen-buffer: make image! pen-buffer-settings
		face/image: pen-buffer
	]
	all-over
	on-over [if find event/flags 'down [
			append line-array event/offset
			draw pen-buffer: make image! pen-buffer-settings
			append copy [
				pen color
				line-join round
				fill-pen color
				line-width 25
				line
			] line-array
			face/image: pen-buffer
		]
	]
]

view canvas