Nice.
Paul Tretter
----- Original Message -----
From: "Allen Kamp" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
Sent: Monday, April 09, 2001 9:42 PM
Subject: [REBOL] Canvas style using Draw Dialect
> Hi All,
>
> Here is a simple example drawing Canvas style that uses the new draw
dialect
> in in View.
>
> For a fuller demo of how this style can be used,
> do http://www.rebolforces.com/reb/canvas.r
>
>
> ; Create the style for drawing on
> draw-styles: stylize [
> canvas: image with [
> size: 100x100
> edge: [size: 2x2 effect: 'ibevel color: 110.120.130]
> color: ivory
> saved-area: none
> line: none
> reset: does [clear line append line compose [pen (pen) line]]
> set-pen: func [color][old-pen: pen pen: color
> if pen <> old-pen [append line compose [pen (pen) line]]
> ]
> pen: black
> old-pen: pen
> feel: make feel [
> engage: func [f a e] [
> if find [down over] a [
> append f/line e/offset - 2x2
> show f
> ]
> if a = 'up [append f/line [line]]
> ]
> ]
> words: [pen [new/pen: second args next args]]
> init: [
> if (1 >= length? self/effect) [
> self/effect: copy/deep compose/deep [draw [pen (self/pen) line]]
> ]
> self/line: second self/effect
> ]
> ]
> ]
>
>
> ; Now to use the style in a simple layout...
> view center-face layout [
> styles draw-styles
> canvas 200x200 pen green
> ]
>
>
> Cheers,
>
> Allen K
>
> For a fuller demo of how this style can be used,
> do http://www.rebolforces.com/reb/canvas.r
>
>
>
> --
> To unsubscribe from this list, please send an email to
> [EMAIL PROTECTED] with "unsubscribe" in the
> subject, without the quotes.
>
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the
subject, without the quotes.
