! TEST_VT_PLOTD.F90
! just a little test for VT_PLOTD

program TEST_VT_PLOTD
  use VT_PLOTD
  implicit none

  call INITIALIZE
  call PUT_STRING( 1, 10, "lower left")
  call PUT_STRING(20, 60, "UPPER right")
  call PUT_STRING( 1, 60, "lower right")
  call PUT_STRING(20,  5, "UPPER LEFT")

  call delay(2.0)
  call INITIALIZE

  call DRAW_CIRCLE( X = 0.0, Y = 0.0, R = 8.0, kind = FILL)
  call DRAW_RECTANGLE( X = 16.0, Y = 0.0, W = 8.0, H = 9.0, kind = FILL)
  call DRAW_ELIPSE( X = -16.0, Y = 0.0, XR = 7.0, YR = 6.0, kind = FILL)

  call delay(2.0)
  call DRAW_CIRCLE( X = 0.0, Y = 0.0, R = 8.0, kind = CLEAR_FILL)
  call DRAW_RECTANGLE( X = 16.0, Y = 0.0, W = 8.0, H = 9.0, KIND = CLEAR_FILL)
  call DRAW_ELIPSE( X = -16.0, Y = 0.0, XR = 7.0, YR = 6.0, KIND = CLEAR_FILL)
  ! screen should be blank

  call delay(2.0)
  call DRAW_CIRCLE( X = 0.0, Y = 0.0, R = 8.0)
  call DRAW_RECTANGLE( X = 0.0, Y = 0.0, W = 76.0, H = 22.0)
  call DRAW_ELIPSE( X = 0.0, Y = 0.0, XR = 25.0, YR = 9.0)
!  call DRAW_LINE( X1 = -30.5, Y1 = -8.1, X2 = 30.5, Y2 =  8.1)
!  call DRAW_LINE( X1 = -30.5, Y1 =  8.1, X2 = 30.5, Y2 = -8.1)
!  call DRAW_LINE( X1 = -37.0, Y1 = -6.0, X2 = -31.0, Y2 = -6.0)
!  call DRAW_LINE( X1 = -34.0, Y1 = -4.0, X2 = -34.0, Y2 = -8.0)
  call WRITE_TEXT( X = -10.0, Y = -6.0, TEXT = "This is just some text")

  call delay(3.0)
  call DRAW_CIRCLE( X = 0.0, Y = 0.0, R = 8.0, kind = CLEAR)
  call DRAW_RECTANGLE( X = 0.0, Y = 0.0, W = 76.0, H = 22.0, kind = CLEAR)
  call DRAW_ELIPSE( X = 0.0, Y = 0.0, XR = 25.0, YR = 9.0, KIND = CLEAR)
!  call DRAW_LINE( X1 = -30.5, Y1 = -8.1, X2 = 30.5, Y2 =  8.1, KIND = CLEAR)
!  call DRAW_LINE( X1 = -30.5, Y1 =  8.1, X2 = 30.5, Y2 = -8.1, KIND = CLEAR)
  call WRITE_TEXT( X = -10.0, Y = -6.0, &
       TEXT = "This is just some text", kind = CLEAR)

  ! screen should be blank exceptfor a small + when DRAW_LINE implemented
  call delay(1.0)
  call PRINT
end program TEST_VT_PLOTD