Ziele Untersuchung
mit Columbo Integrität von
Datenbanken Interaktion und
Portierbarkeit Ergonomie der
Schnittstellen

Angebot Produkte Projekt Beratung

Mittel Analytik Modellierung Sprachen Algebra Logik Hardware Denken Kreativität

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


products/Sources/formale Sprachen/Fortran/f90gl-1.2.15/examples/F/ (NIST Fortran ^©) Datei vom 25.4.1999 mit Größe 1 kB

Quelle fbitfont.f90 Sprache: Fortran

module bitfont_callbacks
use opengl_gl
use opengl_glu
use opengl_glut
private
public :: output, display, freshape

contains

subroutine output(x,y,s)
  real, intent(in) :: x,y
  character(len=*), intent(in) :: s
  character(len=1) :: c
  integer :: i,lenc

  call glrasterpos2f(x,y)
  lenc = len(s)
  do i=1,lenc
     c = s(i:i)
     call glutbitmapcharacter(GLUT_BITMAP_TIMES_ROMAN_24, &
          ichar(c))
  end do
  return
end subroutine output

subroutine display()
  call glclear(GL_COLOR_BUFFER_BIT)
  call output(0.0,24.0, &
         "This is written in a GLUT bitmap font.")
  call output(100.0,100.0,"ABCDEFGabcdefg")
  call output(50.0,145.0, &
       "(positioned in pixels with upper-left origin)")
  return
end subroutine display

subroutine freshape(w,h)
  integer, intent(in out) :: w, h
  call glviewport(0, 0, w, h)
  call glmatrixmode(GL_PROJECTION)
  call glloadidentity()
  call gluortho2d(0.0_gldouble, real(w,kind(0.0_gldouble)), 0.0_gldouble, &
                  real(h,kind(0.0_gldouble)))
  call glscalef(1.0, -1.0, 1.0)
  call gltranslatef(0.0_glfloat, real(-h,kind(0.0_glfloat)), 0.0_glfloat)
  call glmatrixmode(GL_MODELVIEW)
  return
end subroutine freshape

end module bitfont_callbacks

program main
  use bitfont_callbacks
  use opengl_gl
  use opengl_glut
  implicit none
  integer :: win
  call glutinitdisplaymode(GLUT_RGB + GLUT_SINGLE)
  call glutinitwindowsize(500, 150)
  call glutinit()
  win = glutcreatewindow("Fortran GLUT bitmap A")
  call glclearcolor(0.0_glfloat, 0.0_glfloat, 0.0_glfloat, 1.0_glfloat)
  call glutdisplayfunc(display)
  call glutreshapefunc(freshape)
  call glutmainloop()
  stop
end program main

quality91%

¤ Dauer der Verarbeitung: 0.18 Sekunden (vorverarbeitet) ¤

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.