Resizing of viewport

The drawing area(viewport) is set to the whole range of the slide from the upper left of the slide in Sub InitializeGraphics.

Sub InitializeGraphics()
    Call SetViewPort(gScreenXLeft, gScreenYTop, gScreenXRight, gScreenYBottom)
    Call SetGraphicsWindow(gScreenXLeft, gScreenYTop, gScreenXRight, gScreenYBottom)
  ......
End Sub

The drawing range is set to (0, 0)-(960, 540) for wide slide size and the drawing range is set to (0, 0)-(720, 540) for standard slide size.

You can change the size of the drawing area by changing the argument value of Sub SetViewPort

Example  Setting to the range of 600 x 400 pixels from the upper left

    Call SetViewPort(0, 0, 600, 400)

If you want to always set the different size of the drawing area, change the argument of SetViewPort in Sub InitializeGraphics.

When a range of 600 x 450 pixels from the upper left is used as the drawing area and the upper right specifies a positive coordinate system.

Sub InitializeGraphics()
    Call SetViewPort(0, 0, 600, 450)
    Call SetGraphicsWindow(-4, 3, 4, -3)
  ......
End Sub