gdemo1.f90

来自「Fortran95的一些有用的源程序」· F90 代码 · 共 10 行

program gdemo1
  use TextGraphLib
  implicit none
  
  call SetScreen( 10, 10 )      ! 设定分辨率为10x10
  call DrawLine( 1, 1, 10, 10 ) ! 在(1,1)到(10,10)这两点间画一条线
  call UpdateScreen()           ! 显示绘图的结果

  stop
end