Canvas style using Draw Dialect

Nice. Paul Tretter

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