gdemo3.f90

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

program gdemo3
  use TextGraphLib
  implicit none
  integer i
  
  call SetScreen(70,24)
  call ClearScreen()
  ! 画脸
  call DrawCircle( 35, 12, 20, 10 )
  ! 画两个眼睛
  call SetCurrentChar('0')
  call DrawCircle( 42, 10, 4, 2 )
  call DrawCircle( 28, 10, 4, 2 )
  ! 画鼻子
  call SetCurrentChar('#')
  call DrawLine( 35, 10, 30, 15 )
  call DrawLine( 30, 15, 38, 15 )
  ! 画嘴吧
  call SetCurrentChar('-')
  call DrawLine( 30, 18, 38, 18 )
  ! 把画图的结果显示到屏幕上
  call UpdateScreen()
  
  stop
end