xDesktop=uno.createDesktop()
xcl=xDesktop~XComponentLoader
uri="private:factory/sdraw"
doc=xcl~loadComponentFromURL(uri,"_blank",0,.uno~noProps)
xsf=doc~XMultiServiceFactory

xDrawPage = doc~XDrawPagesSupplier~getDrawPages~getByIndex(0)~XDrawPage

xShape=xsf~createInstance("com.sun.star.drawing.EllipseShape") ~XShape
xShape~setPosition(.bsf~new("com.sun.star.awt.Point", 6000, 2000))
xShape~setSize(.bsf~new("com.sun.star.awt.Size", 10000, 10000))
xDrawPage~add(xShape)
cr="0d"x
xShape~XText~setString("Eine Ellipse"cr"erstellt von"cr"Gruppe 8!")
red=box("int", "FF 00 00"x ~c2d) -- color red (RGB color) as integer
xShape~XPropertySet~setPropertyValue("CharColor", red)
xPropertySet=xShape~xPropertySet
xPropertySet~setPropertyValue("FillColor", box("int", "00FF00"x ~c2d))

Call SysSleep 3

xShape=xsf~createInstance("com.sun.star.drawing.EllipseShape") ~XShape
xShape~setPosition(.bsf~new("com.sun.star.awt.Point", 6000, 14000))
xShape~setSize(.bsf~new("com.sun.star.awt.Size", 10000, 10000))
xDrawPage~add(xShape)
cr="0d"x
xShape~XText~setString("                     ------## " cr "     -----------------#--#" cr "----------------------#--#" cr "---------------------#---#" cr"--------------------#----# "cr"------#########-----#######"cr"-----------#######--------------#"cr"-----------#######--------------#"cr"-----------#######--------------#"cr"-----------#######--------------#"cr"-----------#######--------------#"cr"  ------############--------# "cr"        --------########----##"cr )

Call SysSleep 5

doc~XCloseable~close(.false)

::requires UNO.CLS