REBOL [
	title: "join-cap-test"
	author: cyphre@seznam.cz
	needs: [1.2.115] 
]
gen-draw: does [
	bx/effect/draw: compose [
		fill-rule 0
  		line-join (lj)
		line-cap (lc)
		line-pattern 10 10
		pen red yellow
		line-width 15

		spline 1 40x40 80x120 180x140 20x180

		box 240x140 370x220
		
		polygon	60x274 350x264 340x324 100x354
		
		line-width 2
		line 230x30 380x30
		line-width 4
		line 230x40 380x40
		line-width 6
		line 230x52 380x52
		line-width 8
		line 230x65 380x65
		line-width 10
		line 230x80 380x80

	]
	show bx
]


lc: 'butt lj: 'miter

view layout [
	backcolor black
	bx: box 400x400 black effect [draw []]
	across
	vtext bold "Line cap"
	choice data ["butt" "square" "round"][
		lc: to-word face/data/1
		gen-draw
	]
	vtext bold "Line join"
	choice 150 data ["miter" "miter-bevel" "round" "bevel"][
		lj: to-word face/data/1
		gen-draw
	]	
	do [gen-draw]
]