Very cool... Thank you Keith! Ed
On 8/24/18, 10:11 AM, "4D_Tech on behalf of Keith Culotta via 4D_Tech" <[email protected] on behalf of [email protected]> wrote: --------------------------- C_TEXT($svg;$ref) C_PICTURE($pict) $svg:=SVG_New // this new svg document is referred to as "$svg" $ref:=SVG_New_rect ($svg;10;10;100;100) // refer to this new rectangle in "$svg" as "$ref" SVG_SET_FILL_BRUSH ($ref;"red") $pict:=SVG_Export_to_picture ($svg) // get it to a picture variable SVG_CLEAR ($svg) SET PICTURE TO PASTEBOARD($pict) INVOKE ACTION(ak show clipboard) --------------------------- ********************************************************************** 4D Internet Users Group (4D iNUG) Archive: http://lists.4d.com/archives.html Options: https://lists.4d.com/mailman/options/4d_tech Unsub: mailto:[email protected] **********************************************************************
