xContext = UNO.connect()
XMcf = xContext~getServiceManager
xDesktop         = UNO.createDesktop(xContext)
xComponentLoader = xDesktop~XComponentLoader
url = "private:factory/sdraw"
drawComponent = xComponentLoader~loadComponentFromURL(url, "_blank", 0, .UNO~noProps)
xDocumentFactory = drawComponent~XMultiServiceFactory
xDrawPage = drawComponent~XDrawPagesSupplier~getDrawPages~getByIndex(0)~XDrawPage
.bsf.dialog~messageBox("Einfuegen einer Ellipsen Form",,"info")
xShapeEllipse = xDocumentFactory~createInstance("com.sun.star.drawing.EllipseShape") ~XShape
xShapeEllipse~setPosition(.bsf~new("com.sun.star.awt.Point", 3500, 3500))
xShapeEllipse~setSize(.bsf~new("com.sun.star.awt.Size", 2000, 2000))
xDrawPage~add(xShapeEllipse)
xShapeProps = xShapeEllipse~XPropertySet
.bsf.dialog~messageBox("Der Ellipsen Form wird ein Schatten angefuegt",,"info")
xShapeProps~setPropertyValue("Shadow", box("boolean", .true))
xShapeProps~setPropertyValue("ShadowXDistance", box("int", 250))
xShapeProps~setPropertyValue("ShadowYDistance", box("int", 250))
drawComponent~XModifiable~setModified(.false)
::requires UNO.CLS