rebol []

site: http://www.sweb.cz/r-mud/
do load-thru site/styles/text-effects.r
do load-thru site/styles/capsules.r

wm: make object! load-thru site/components/win-maker.r

code-example: does [
	code/text: rejoin [{layout [
	styles text-effects-ss
	sine-text 400x110 "REBOLREBOLREBOLREBOL" with [
		text-style: } mold t/text-style {
		transposition: } t/transposition {
		amplitude: } t/amplitude {
		frequency: } t/frequency {
		move: } t/move {
		rate: } t/rate {
	]
]}]
	show code
]
wm/add-title/and-view layout/offset [
	styles text-effects-ss
	styles capsules
	backdrop 170.185.165
	origin 0x0
	below
	t: sine-text 400x110 "REBOLREBOLREBOLREBOL" with [move: 1 text-style: [title 144.162.149]]
	at 0x0
	sine-text 400x110 "....Hi Rebolers... here is my first text effect style... feel free to use it as you like... source code you can find here: http://sweb.cz/r-mud/ ... mailto: oliva.david@seznam.cz ... MSG to Rebol: I'm looking forward for the new version and hope there will be removed the RATE limitation soon... MSG to PremekV and M$ crew: do this in JS or VBS in less then 2kB of uncompressed code... MSG to all: Keep the rebolution alive!" with [start-offset: 400x0]
	pad 0x-10
	capsule 400x275  effect [] 'image site/imgz/capsules/rounded.gif
	pad 10x-273
	code: field 380x172 with [colors: [232.253.213 242.253.223] init: [code-example]]
	pad 80x0 space 0x2
	s: slider 300x13 [t/transposition: to-integer 360 * face/data t/redraw code-example]
	amp: slider 300x13 [t/amplitude: to-integer 60 * face/data t/redraw code-example]
	rate: slider 300x13 [t/rate: to-integer (200 * face/data) t/redraw code-example]
	fr: slider 300x13 [t/frequency: to-integer (40 * face/data) t/redraw code-example]
	mov: slider 300x13 [t/move: to-integer (8 * face/data) - 4  t/redraw code-example]
	pad -80x-77 space 0x0
	style leg h4 78x15 with [font/align: 'right]
	leg "transposition"
	leg "amplitude"
	leg "rate"
	leg "frequency"
	leg "move"
] 0x0 "Sine-text style example"