sgltimer.f90

Fortran 95程序设计&Code-彭国伦

module sgl_util
  use sgl
  implicit none
contains
subroutine display()
  integer, parameter :: size = 200
  real, parameter :: rinc = 0.002
  real, save :: radian = 0.0
  integer :: x,y
  x = int(sin(radian)*size)
  y = int(cos(radian)*size)
  radian = radian + rinc
  call sglClearBuffer()
  call sglDrawLine(200-x, 200-y, 200+x, 200+y)
  call sglUpdateBuffer()
  return
end subroutine
end module

program main
  use sgl_util
  implicit none
  call sglDisplaySub(display)
  call sglCreateWindow(100,100,400,400,1)
  ! 设定每10ms就会调用display函数一次
  call sglTimerSub(10, display) 
  call sglMainLoop()
  stop
end