sgldef.f90

sgl数值计算函数库

  subroutine sglReshapeSub(sub)
  !DEC$ ATTRIBUTES C, ALIAS:'_sglReshapeSub' :: sglReshapeSub
  external sub
  end subroutine
  subroutine sglIdleSub(sub)
  !DEC$ ATTRIBUTES C, ALIAS:'_sglIdleSub' :: sglIdleSub
  external sub
  end subroutine
  subroutine sglEnd()
  !DEC$ ATTRIBUTES C, ALIAS:'_sglEnd' :: sglEnd
  end subroutine
  subroutine sglCaptureKeyboard()
  !DEC$ ATTRIBUTES C, ALIAS:'_sglCaptureKeyboard' :: sglCaptureKeyboard
  end subroutine
  subroutine sglReleaseKeyboard()
  !DEC$ ATTRIBUTES C, ALIAS:'_sglReleaseKeyboard' :: sglReleaseKeyboard
  end subroutine
  subroutine sglReadKeyboard()
  !DEC$ ATTRIBUTES C, ALIAS:'_sglReadKeyboard' :: sglReadKeyboard
  end subroutine
  logical(4) function sglKeyPressed(key)
  !DEC$ ATTRIBUTES C, ALIAS:'_sglKeyPressed' :: sglKeyPressed
  integer key
  end function
  integer(4) function sglGetInfo(index)
  !DEC$ ATTRIBUTES C, ALIAS:'_sglGetInfo' :: sglGetInfo
  integer index
  end function

  subroutine sglTimerSub(time,sub)
  !DEC$ ATTRIBUTES C, ALIAS:'_sglTimerSub' :: sglTimerSub
  integer time
  external sub
  end subroutine

  subroutine sglKeyDownSub(sub)
  !DEC$ ATTRIBUTES C, ALIAS:'_sglKeyDownSub' :: sglKeyDownSub
  external sub
  end subroutine

  subroutine sglKeyUpSub(sub)
  !DEC$ ATTRIBUTES C, ALIAS:'_sglKeyUpSub' :: sglKeyUpSub
  external sub
  end subroutine

  subroutine sglGetCharSub(sub)
  !DEC$ ATTRIBUTES C, ALIAS:'_sglGetCharSub' :: sglGetCharSub
  external sub
  end subroutine
  
  subroutine sglMouseMoveSub(sub)
  !DEC$ ATTRIBUTES C, ALIAS:'_sglMouseMoveSub' :: sglMouseMoveSub
  external sub
  end subroutine

  subroutine sglMouseDownSub(sub)
  !DEC$ ATTRIBUTES C, ALIAS:'_sglMouseDownSub' :: sglMouseDownSub
  external sub
  end subroutine

  subroutine sglMouseUpSub(sub)
  !DEC$ ATTRIBUTES C, ALIAS:'_sglMouseUpSub' :: sglMouseUpSub
  external sub
  end subroutine

  subroutine sglColor3f(r,g,b)
  !DEC$ ATTRIBUTES C, ALIAS:'_sglColor3f' :: sglColor3f
  real r,g,b
  end subroutine
  subroutine sglColor3i(r,g,b)
  !DEC$ ATTRIBUTES C, ALIAS:'_sglColor3i' :: sglColor3i
  integer :: r,g,b
  end subroutine
  subroutine sglColor(color)
  !DEC$ ATTRIBUTES C, ALIAS:'_sglColor' :: sglColor
  integer :: color
  end subroutine
  
  subroutine sglClearColor3f(r,g,b)
  !DEC$ ATTRIBUTES C, ALIAS:'_sglClearColor3f' :: sglClearColor3f
  real r,g,b
  end subroutine
  subroutine sglClearColor3i(r,g,b)
  !DEC$ ATTRIBUTES C, ALIAS:'_sglClearColor3i' :: sglClearColor3i
  integer r,g,b
  end subroutine
  subroutine sglClearColor(color)
  !DEC$ ATTRIBUTES C, ALIAS:'_sglClearColor' :: sglClearColor
  integer color
  end subroutine

  subroutine sglClearBuffer()
  !DEC$ ATTRIBUTES C, ALIAS:'_sglClearBuffer' :: sglClearBuffer
  end subroutine
  subroutine sglUpdateBuffer()
  !DEC$ ATTRIBUTES C, ALIAS:'_sglUpdateBuffer' :: sglUpdateBuffer
  end subroutine
  subroutine sglPixel(x,y)    
  !DEC$ ATTRIBUTES C, ALIAS:'_sglPixel' :: sglPixel
  integer x,y
  end subroutine
  subroutine sglPixelV(x,y)    
  !DEC$ ATTRIBUTES C, ALIAS:'_sglPixelV' :: sglPixelV
  real x,y
  end subroutine
  subroutine sglLine(x0,y0,x1,y1)
  !DEC$ ATTRIBUTES C, ALIAS:'_sglLine' :: sglLine
  integer x0,y0,x1,y1
  end subroutine
  subroutine sglLineV(x0,y0,x1,y1)
  !DEC$ ATTRIBUTES C, ALIAS:'_sglLineV' :: sglLineV
  real x0,y0,x1,y1
  end subroutine
  subroutine sglRect(x0,y0,x1,y1)
  !DEC$ ATTRIBUTES C, ALIAS:'_sglRect' :: sglRect
  integer x0,y0,x1,y1
  end subroutine
  subroutine sglRectV(x0,y0,x1,y1)
  !DEC$ ATTRIBUTES C, ALIAS:'_sglRectV' :: sglRectV
  real x0,y0,x1,y1
  end subroutine
  subroutine sglFilledRect(x0,y0,x1,y1)
  !DEC$ ATTRIBUTES C, ALIAS:'_sglFilledRect' :: sglFilledRect
  integer x0,y0,x1,y1
  end subroutine
  subroutine sglFilledRectV(x0,y0,x1,y1)
  !DEC$ ATTRIBUTES C, ALIAS:'_sglFilledRectV' :: sglFilledRectV
  real x0,y0,x1,y1
  end subroutine
  subroutine sglCircle(cx,cy,r)
  !DEC$ ATTRIBUTES C, ALIAS:'_sglCircle' :: sglCircle
  integer cx, cy, r
  end subroutine
  subroutine sglCircleV(cx,cy,r)
  !DEC$ ATTRIBUTES C, ALIAS:'_sglCircleV' :: sglCircleV
  real cx, cy, r
  end subroutine
  subroutine sglFilledCircle(cx,cy,r)
  !DEC$ ATTRIBUTES C, ALIAS:'_sglFilledCircle' :: sglFilledCircle
  integer cx, cy, r
  end subroutine
  subroutine sglFilledCircleV(cx,cy,r)
  !DEC$ ATTRIBUTES C, ALIAS:'_sglFilledCircleV' :: sglFilledCircleV
  real cx, cy, r
  end subroutine
  subroutine sglEllipse(cx,cy,rx,ry)
  !DEC$ ATTRIBUTES C, ALIAS:'_sglEllipse' :: sglEllipse
  integer cx, cy, rx, ry
  end subroutine
  subroutine sglEllipseV(cx,cy,rx,ry)
  !DEC$ ATTRIBUTES C, ALIAS:'_sglEllipseV' :: sglEllipseV
  real cx, cy, rx, ry
  end subroutine
  subroutine sglFilledEllipse(cx,cy,rx,ry)
  !DEC$ ATTRIBUTES C, ALIAS:'_sglFilledEllipse' :: sglFilledEllipse
  integer cx, cy, rx, ry
  end subroutine
  subroutine sglFilledEllipseV(cx,cy,rx,ry)
  !DEC$ ATTRIBUTES C, ALIAS:'_sglFilledEllipseV' :: sglFilledEllipseV
  real cx, cy, rx, ry
  end subroutine
  subroutine sglArc(cx,cy,r,as,ae)
  !DEC$ ATTRIBUTES C, ALIAS:'_sglArc' :: sglArc
  integer cx, cy, r
  real as, ae
  end subroutine
  subroutine sglArcV(cx,cy,r,as,ae)
  !DEC$ ATTRIBUTES C, ALIAS:'_sglArcV' :: sglArcV
  real cx, cy, r
  real as, ae
  end subroutine
  subroutine sglFan(cx,cy,r,as,ae)
  !DEC$ ATTRIBUTES C, ALIAS:'_sglFan' :: sglFan
  integer cx,cy,r
  real as,ae
  end subroutine
  subroutine sglFanV(cx,cy,r,as,ae)
  !DEC$ ATTRIBUTES C, ALIAS:'_sglFanV' :: sglFanV
  real cx,cy,r
  real as,ae
  end subroutine
  subroutine sglTextOut(x,y,str)
  !DEC$ ATTRIBUTES C,REFERENCE, ALIAS:'_fsglTextOut' :: sglTextOut
  integer x,y
  character*(*) str
  end subroutine
  subroutine sglGetBuffer(buffer,x,y,width,height)
  !DEC$ ATTRIBUTES C, ALIAS:'_sglGetBuffer' :: sglGetBuffer
  integer(1) :: buffer(*)
  !DEC$ ATTRIBUTES REFERENCE :: buffer
  integer :: x,y,width,height
  end subroutine
  subroutine sglPutBuffer(buffer,x,y,width,height)
  !DEC$ ATTRIBUTES C, ALIAS:'_sglPutBuffer' :: sglPutBuffer
  integer(1) :: buffer(*)
  !DEC$ ATTRIBUTES REFERENCE :: buffer
  integer :: x,y,width,height
  end subroutine
  subroutine sglGetRGBBuffer(buffer,x,y,width,height)
  !DEC$ ATTRIBUTES C, ALIAS:'_sglGetRGBBuffer' :: sglGetRGBBuffer
  integer(1) :: buffer(*)
  !DEC$ ATTRIBUTES REFERENCE :: buffer
  integer :: x,y,width,height
  end subroutine
  subroutine sglPutRGBBuffer(buffer,x,y,width,height)
  !DEC$ ATTRIBUTES C, ALIAS:'_sglPutRGBBuffer' :: sglPutRGBBuffer
  integer(1) :: buffer(*)
  integer :: x,y,width,height
  end subroutine
  subroutine sglEnableColorKey()
  !DEC$ ATTRIBUTES C, ALIAS:'_sglEnableColorKey' :: sglEnableColorKey
  end subroutine	
  subroutine sglDisableColorKey()
  !DEC$ ATTRIBUTES C, ALIAS:'_sglDisableColorKey' :: sglDisableColorKey
  end subroutine	
  subroutine sglColorKey3i(r,g,b)
  !DEC$ ATTRIBUTES C, ALIAS:'_sglColorKey3i' :: sglColorKey3i
  integer r,g,b
  end subroutine	
  end interface

end module sgl