sub joonis1
  Dim Doc As Object
Dim Page As Object
Dim RectangleShape As Object
Dim Point As New com.sun.star.awt.Point
Dim Size As New com.sun.star.awt.Size
Doc = StarDesktop.CurrentComponent
Page = Doc.drawPages(0)
Point.x = 1000
Point.y = 1000
Size.Width = 10000
Size.Height = 10000
RectangleShape = Doc.createInstance("com.sun.star.drawing.RectangleShape")
RectangleShape.Size = Size
RectangleShape.Position = Point
Page.add(RectangleShape)
end sub

sub joonis2
Dim Doc As Object
Dim Page As Object
Dim RectangleShape As Object
Dim Point As New com.sun.star.awt.Point
Dim Size As New com.sun.star.awt.Size
Dim Gradient As New com.sun.star.awt.Gradient
Point.x = 1000
Point.y = 1000
Size.Width = 10000
Size.Height = 10000
Doc = StarDesktop.CurrentComponent
Page = Doc.drawPages(0)
RectangleShape = Doc.createInstance("com.sun.star.drawing.RectangleShape")
RectangleShape.Size = Size
RectangleShape.Position = Point
Gradient.Style = com.sun.star.awt.GradientStyle.LINEAR
Gradient.StartColor = RGB(255,0,0)
Gradient.EndColor = RGB(0,0,0)
RectangleShape.FillTransparence = 50
'Gradient.StartIntensity = 550
'Gradient.EndIntensity = 150
'Gradient.Angle = 50
'Gradient.StepCount = 3
RectangleShape.FillStyle = com.sun.star.drawing.FillStyle.GRADIENT
RectangleShape.FillGradient = Gradient
Page.add(RectangleShape)
end sub

sub piirjoon
Dim Doc As Object
Dim Page As Object
Dim RectangleShape As Object
Dim Point As New com.sun.star.awt.Point
Dim Size As New com.sun.star.awt.Size
Point.x = 1000
Point.y = 1000
Size.Width = 10000
Size.Height = 10000
Doc = StarDesktop.CurrentComponent
Page = Doc.drawPages(0)
RectangleShape = Doc.createInstance("com.sun.star.drawing.RectangleShape")
RectangleShape.Size = Size
RectangleShape.Position = Point
RectangleShape.LineColor = RGB(128,128,128)
RectangleShape.LineTransparence = 50
RectangleShape.LineWidth = 500
RectangleShape.LineJoint = com.sun.star.drawing.LineJoint.MITER
RectangleShape.LineStyle = com.sun.star.drawing.LineStyle.SOLID
Page.add(RectangleShape)
RectangleShape.String="Tere"
end sub 


sub ring1
  Dim Doc As Object
Dim Page As Object
Dim EllipseShape As Object
Dim Point As New com.sun.star.awt.Point
Dim Size As New com.sun.star.awt.Size
Point.x = 1000
Point.y = 1000
Size.Width = 10000
Size.Height = 10000
Doc = StarDesktop.CurrentComponent
Page = Doc.drawPages(0)
EllipseShape = Doc.createInstance("com.sun.star.drawing.EllipseShape")
EllipseShape.Size = Size
EllipseShape.Position = Point
'EllipseShape.CircleStartAngle = 2000 'nġnda saab sektori. Arv on nurk
sajandikes kraadides
'EllipseShape.CircleEndAngle = 9000
'EllipseShape.CircleKind = com.sun.star.drawing.CircleKind.SECTION
Page.add(EllipseShape)
end sub

sub joon1
 Dim Doc As Object
Dim Page As Object
Dim LineShape As Object
Dim Point As New com.sun.star.awt.Point
Dim Size As New com.sun.star.awt.Size
Point.x = 1000
Point.y = 1000
Size.Width = 10000
Size.Height = 10000
Doc = StarDesktop.CurrentComponent
Page = Doc.drawPages(0)
LineShape = Doc.createInstance("com.sun.star.drawing.LineShape")
LineShape.Size = Size
LineShape.Position = Point
Page.add(LineShape)
end sub

sub jooned
  dim punkt as new com.sun.star.awt.Point
  dim suurus as new com.sun.star.awt.Size
  suurus.height=5000
  suurus.width=0
  doc=StarDesktop.CurrentComponent
  leht=doc.drawPages(0)
  punkt.y=1000
  for i=1 to 10
    kujund=doc.createInstance("com.sun.star.drawing.LineShape")
    punkt.x=1000+100*i
    kujund.Size=suurus
    kujund.Position=punkt
    leht.add(kujund)
  next i
end sub

sub joonegrupp
  dim punkt as new com.sun.star.awt.Point
  dim suurus as new com.sun.star.awt.Size
  suurus.height=5000
  suurus.width=0
  doc=StarDesktop.CurrentComponent
  leht=doc.drawPages(0)
  punkt.y=1000
  kujundid=createUnoService("com.sun.star.drawing.ShapeCollection")  
  for i=1 to 10
    kujund=doc.createInstance("com.sun.star.drawing.LineShape")
    punkt.x=1000+100*i
    kujund.Size=suurus
    kujund.Position=punkt
    leht.add(kujund)
    kujundid.add(kujund)
  next i
  leht.group(kujundid)
end sub